BVB Source Codes

Jie Yang v0.6.3 article system Show picupok.asp Source code

Return Download Jie Yang v0.6.3 article system: download picupok.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%OPTION EXPLICIT%>
  2. <!--#include FILE="picupclass.asp"-->
  3. <%
  4. dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount
  5. upfilecount=0
  6. set upfile=new upfile_class
  7. 'upfile.AllowExt="jpg;gif;bmp;png;swf;doc;xls;rar;zip"
  8. upfile.AllowExt="jpg;gif;bmp;png;swf;"
  9. upfile.GetData (1024000)'限制最大上传100k
  10. %>
  11. <html>
  12. <head>
  13. <title>文件上传</title>
  14. <style type="text/css">
  15. <!--
  16. body{ font-size: 12px; font-family: 宋体 }
  17. table{ font-size: 12px; font-family: 宋体 }
  18. -->
  19. </style>
  20. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  21. </head>
  22. <body bgcolor="menu" leftmargin="20" topmargin="20">
  23. <%
  24. if upfile.isErr then  '如果出错
  25.     select case upfile.isErr
  26.                 case 1
  27.                         Response.Write "你没有上传数据呀?是不是搞错了?"
  28.                 case 2
  29.                         Response.Write "你上传的文件超出我们的限制,最大100K"
  30.         end select
  31. else
  32. %>
  33. <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse">
  34.   <tr bgcolor="#CCCCCC">
  35.     <td height="25" align="center"> 本地文件 </td>
  36.     <td align="center"> 大小(字节) </td>
  37.     <td align="center"> 状态 </td>
  38.   </tr>  
  39. <%
  40.         FSPath=GetFilePath(Server.mappath("picupok.asp"),"\")'取得当前文件在服务器路径
  41.         ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
  42.         for each formName in upfile.file '列出所有上传了的文件
  43.            set oFile=upfile.file(formname)
  44.            FileName=upfile.form(formName)'取得文本域的值
  45.            if not FileName>"" then  FileName=oFile.filename'如果没有输入新的文件名,就用原来的文件名
  46.            upfile.AutoSave formname,FSPath&FileName   ''保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名
  47.          %>
  48. <tr>
  49.     <td height="20"  valign='middle'> <%=oFile.FilePath%><%=FileName%> </td>
  50.     <td  valign='middle'> <%=oFile.filesize%></td>
  51.     <td  valign='middle'>
  52.         <%
  53.     if upfile.iserr then
  54.                 Response.Write upfile.errmessage
  55.         else
  56.                 upfilecount=upfilecount+1
  57.                 Response.Write "上传成功"
  58.         end if
  59.                 %>
  60.     </td>
  61.   </tr>
  62. <%
  63.                 set oFile=nothing
  64.         next
  65. end if
  66. set upfile=nothing  '删除此对象
  67. %>
  68. </table>
  69. </body>
  70. </html>
  71.  
  72. <%
  73. function GetFilePath(FullPath,str)
  74.   If FullPath <> "" Then
  75.     GetFilePath = left(FullPath,InStrRev(FullPath, str))
  76.     Else
  77.     GetFilePath = ""
  78.   End If
  79. End function
  80. %>
downloadpicupok.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top