📄 upload.asp
字号:
<!--#include file ="check.asp"-->
<!--#include file="incupload.asp"-->
<%Response.Write("<html>")&vbCrLf
Response.Write("<head>")&vbCrLf
Response.Write("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">")&vbCrLf
Response.Write("<title>上传文件</title>")&vbCrLf
Response.Write("<link href=""../Inc/main.css"" rel=""stylesheet"" type=""text/css"">")&vbCrLf
Response.Write("</head>")&vbCrLf
Response.Write("<body bgcolor=""#E8F1FF"">")&vbCrLf
dim accessfiletype,path
path="../images/uploadpic/"
full_path=server.mappath(path)
accessfiletype=".jpg|.gif|.bmp|.png"
if Request.ServerVariables("REQUEST_METHOD")="POST" then
dim upload,upfile,upfilename,upfiletype,savefilename,npos
Set upload=New upload_5xsoft
Set upfile=upload.file("userfaceimg")
upfilename=upfile.filename
npos=instrrev(upfilename,".")
If npos>0 And npos<Len(upfilename) Then
upfiletype=LCase(Mid(upfilename,npos))
If InStr("|" & accessfiletype & "|","|" & upfiletype & "|")>0 Then
dim ofso
Set ofso=Server.CreateObject("scripting.filesystemobject")
If False=ofso.folderexists(full_path) Then
ofso.createfolder(full_path)
End If
If sdy="1" Then upfilename=cstrs(upfilename)
savefilename=path&upfilename
upfile.saveas server.mappath(savefilename)
Response.Write("<script>opener.document.forms[0].tpic.value='"&upfilename&"';opener.showpic.innerHTML='缩略图：<img src="&path&"/"&upfilename&" width=42 height=40>';window.close()</script>")
Else
Response.Write("文件只允许" & replace(replace(accessfiletype,".",""),"|","、") & "<a href='javascript:window.history.go(-1);'>返回</a>")
End If
Else
Response.Write("文件只允许" & replace(replace(accessfiletype,".",""),"|","、") & "<a href='javascript:window.history.go(-1);'>返回</a>")
End If
Set upfile=Nothing
Set upload=Nothing
Else
Response.Write("<form method=""post"" action=""" & selfname & """ enctype=""multipart/form-data"">" & vbcrlf & "<input type=""file"" name=""userfaceimg"" class=""inputtext""> <input class=bn type=""Submit"" value="" 上 传 "" class=""button"">" & vbcrlf & "</form>")
End If
Response.Write("</body>")&vbCrLf
Response.Write("</html>")&vbCrLf
If err<>0 Then ckerr(err)%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -