利用化境上传组件上传图片(二)处理页面(upload.asp)

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%Server.ScriptTimeOut=5000%>
  3. <!--#include FILE="inc/conn.asp"-->
  4. <!--#include FILE="inc/upload_5xsoft.inc"-->
  5. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  6. <html xmlns="http://www.w3.org/1999/xhtml">
  7. <head>
  8. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  9. <title>文件上传</title>
  10. </head>
  11. <body>
  12. <%
  13. Dim upload,file,description,formPath,fileType,newFileName,rndSeed,rs
  14. Set upload=new upload_5xsoft ''建立上传对象
  15. Set file=upload.file("file") ''生成一个文件对象
  16. description=upload.form("description")
  17. formPath="attached/"
  18. If file.FileSize>0 Then         ''如果 FileSize > 0 说明有文件数据
  19. fileType=Split(file.FileName,".")_
  20. (UBound(Split(file.FileName,".")))
  21. If InStr("bmp,jpg,gif,tif,png",LCase(fileType))=0 Then
  22. %>
  23. <script>alert('请上传图片文件');history.go(-1);</script>
  24. <%
  25.     Response.End
  26. Else
  27.     Randomize
  28.     rndSeed = Int((9999 - 1000 + 1) * Rnd + 1000)'生成4位随机数
  29.     newFileName=Year(Now())&Month(Now())&Day(Now())&Hour(Now())&Minute(Now())&Second(Now())&rndSeed&"."&LCase(fileType)
  30.     file.SaveAs Server.mappath(formPath&newFileName)   ''保存文件
  31. End If
  32. End If
  33. Set file=Nothing
  34. Set upload=Nothing ''删除此对象
  35. Set rs=Server.CreateObject("ADODB.Recordset")
  36. rs.Open "Album",Conn,1,3
  37. rs.AddNew
  38. rs("Description")=description
  39. rs("FileName")=newFileName
  40. rs("Uid")=Session("uid")
  41. rs("CreateTime")=Now()
  42. rs.Update
  43. rs.Close
  44. Set rs=Nothing
  45. %>
  46. <script>alert('UpLoad Image Success!');location.replace('album.asp')</script>
  47. </body>
  48. </html>

这是自己写的上传程序

你可能感兴趣的:(利用化境上传组件上传图片(二)处理页面(upload.asp))