Uploadfile.asp
<!--#include file= ' fileconfig.asp '-->
<!doctype HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//en" >
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<meta name= "Keywords" content= "" >
<meta name= "Author" content= "Haiwa" >
<title>Upload</title>
<style>
<!--
* {font:12px;}
-->
</style>
<body>
<%
On Error Resume Next
server.scripttimeout=999999
If Request ("act") = "Upload" Then
Dim Folder,savepath
Savepath=server.mappath (Uploadfilepath)
CreateFolder (Savepath)
Set upload=server.createobject ("Persits.upload")
Upload.setmaxsize uploadlimitsize*1024, True
Upload.overwritefiles = False
If Request.QueryString ("PID") = "" Then
Upload.progressid= "010D60EB00C5AA4B"
Else
Upload.progressid=request.querystring ("PID")
End If
Count=upload.save (Savepath)
If err.number <> 0 Then
Response.Write "<div style=" "COLOR:RED;FONT-SIZE:12PX;" > Error: "& Err.Number &", "& Err.Description &" <a href= "" Javascript:history.go ( -1) "" > Upload < /a></div> "
End If
If Err.Number = 8 Then
Response.Write "<div style=" "COLOR:RED;FONT-SIZE:12PX;" > You uploaded the file over the limit ("& uploadlimitsize/1024 &" M) <a href= "" Javascript:history.go ( -1) "" > Re-upload </a>< /div> "
Response.End
End If
Dim inputname
Dim size,rs_upfile
For each File in Upload.files
If not canupload (File.ext) Then
File.delete
