UPLOAD.ASP
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:5k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <%Server.ScriptTimeOut=100000000%>
  3. <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
  4. <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
  5. <wml><%
  6. '====================================================================
  7. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  8. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  9. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  10. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  11. '====================================================================
  12. %> <head>
  13. <meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
  14. <meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
  15. <meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
  16. <meta http-equiv="Expires" content="0" forua="true"/>
  17. <meta http-equiv="Pragma" content="no-cache" forua="true"/>
  18. </head>
  19. <!--#INCLUDE VIRTUAL="/dwap/conn.inc"-->
  20. <!--#include file=upload_5xsoft_xywap.inc-->
  21. <%
  22. Dim const_txl_HomeUrl,errstr,orderto,content
  23. Dim intro,filename,maxphotoSize,upflag,newphotoid,photoSize,photoFormat
  24. dim tid
  25. tid=TRim(Request("tid"))
  26. if cnscu<>"" then 
  27. %>
  28. <card id="index" title="文件上传"><p>
  29. <%
  30. Sub upload_5xsoft_upload
  31. Dim upload,file,formName,FileExp,iCount,TotalSize
  32. set upload=new upload_5xsoft
  33. If not isobject(upload) Then
  34. response.write "上传文件出错,服务器不支持该上传对象<br/>"
  35. response.write "<anchor>返回上一页<prev/></anchor><br/>"
  36. upflag=False
  37. exit sub
  38. End If
  39. iCount=0
  40. For each formName in upload.objFile 
  41. Set file=upload.file(formName)  
  42. If file.FileSize>0 Then         
  43. FileExp=lcase(Right(file.FileName,Len(file.FileName)-InstrRev(file.FileName,".")))
  44. If not CheckExp(FileExp) Then
  45. response.write "上传文件出错,当前设置不能上传该格式的文件!<br/>"&FileExp
  46. response.write "<anchor>返回上一页<prev/></anchor><br/>"
  47. upflag=False
  48. exit sub
  49. End IF
  50. FileExp="."&FileExp
  51. photoFormat=FileExp
  52. TotalSize=file.FileSize/1024
  53. photoSize=TotalSize
  54. If TotalSize>maxphotoSize Then
  55. response.write "上传文件出错,所传文件已经大于设定的允许值,当前所传文件大小"&TotalSize&"Kb!<br/>"
  56. response.write "<anchor>返回上一页<prev/></anchor><br/>"
  57. upflag=False
  58. exit sub
  59. End If
  60. filename=GetRndFileName&FileExp
  61. File.SaveAs Server.mappath(const_txl_HomeUrl&const_photoup_path&filename)   ''保存文件
  62. iCount=iCount+1
  63. Else 
  64. response.write "上传文件出错,上传数据为空,请检查该文件是否存在!<br/>"
  65. response.write "<anchor>返回上一页<prev/></anchor><br/>"
  66. upflag=False
  67. exit sub
  68.  End If
  69. Set File=nothing
  70. next
  71. set upload=nothing  ''删除此对象
  72. upflag=True
  73. End Sub
  74. Sub SaveToDataBase
  75. if oid=2 then
  76. set rs_li=server.CreateObject("adodb.recordset")
  77. sql_li="select * from lttz where tid="&tid&" and fid="&myid
  78. rs_li.open sql_li,conn,1,3
  79. if not (rs_li.bof and rs_li.eof)  then
  80. rs_li("upfile")="utf/"&filename
  81. rs_li.update()
  82. response.write "恭喜你,上传文件成功!<br/>"
  83. else
  84. Response.Write("没有该帖子!")
  85. end if
  86. Rs_li.close
  87. set rs_li=nothing
  88. else
  89. set rs_li=server.CreateObject("adodb.recordset")
  90. sql_li="select * from lttz where tid="&tid&" and fid="&myid
  91. rs_li.open sql_li,conn,1,3
  92. if not (rs_li.bof and rs_li.eof)  then
  93. rs_li("fjian")="upfile/"&filename
  94. rs_li.update()
  95. response.write "恭喜你,上传文件成功!<br/>"
  96. else
  97. Response.Write("没有该帖子!")
  98. end if
  99. Rs_li.close
  100. set rs_li=nothing
  101. end if
  102. End Sub
  103. Rem 文件扩展名检测
  104. Function CheckExp(TheFileExp)
  105. Dim defaultphotoFormat,i
  106. TheFileExp=lcase(TheFileExp)
  107. CheckExp=False
  108. If TheFileExp="" Then 
  109. CheckExp=False
  110. Exit Function
  111. End If
  112. If Instr(const_photoFormat,"/")>0 Then
  113. defaultphotoFormat=Split(const_photoFormat,"/")
  114. Else
  115. defaultphotoFormat=const_photoFormat
  116. End If
  117. If IsArray(defaultphotoFormat) Then
  118. For i=0 To Ubound(defaultphotoFormat)
  119. If TheFileExp=defaultphotoFormat(i) Then
  120. CheckExp=True
  121. Exit For
  122. End If
  123. Next
  124. Else
  125. If TheFileExp=defaultphotoFormat Then
  126. CheckExp=True
  127. End If
  128. End If
  129. End Function
  130. Function GetRndFileName()
  131. Dim tmpstr
  132. randomize
  133. tmpstr=Int(1000*rnd)
  134. 'tmpstr=""&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&tmpstr&"_t125_com"
  135. tmpstr=""&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&tmpstr
  136. GetRndFileName=tmpstr
  137. End Function%>