📄 upload1.asp
字号:
<%
Server.ScriptTimeout=999
%>
<!--#include file="conn.asp"-->
<!--#include file="UpLoadClass.asp"-->
<%
dim strFile1,lngSize1,strFile2,lngSize2,dblTime,dblSpeed,strIp,strUser,strMessage
dim time1,t,v
time1=timer()
Set myrequest=new UpLoadClass
myrequest.MaxSize = 10000*1024
myrequest.FileType = "mp3/wma/asf/rm/ram"
myrequest.Savepath = "UpLoadFile/"
myrequest.open
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>心愿上传</title>
<link href="../style/basic.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="760" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF" style="border:1px solid #999999">
<tr>
<td>
<blockquote>
<%
response.write "<br>"&myrequest.Version&"<br>"
strFile1=myrequest.Form("Photo")
intError=myrequest.Form("photo_Err")
pic=myrequest.Form("photo_Ext")
lngSize1=0
if intError>=0 then
response.write "<br>上传文件1名为：<a href='"&myrequest.Savepath&strFile1&"' target='_blank'>"&strFile1&"</a>"
response.write "<br>上传文件1类型："&myrequest.Form("Photo_Type")
response.write "<br>上传文件1原名："&myrequest.Form("Photo_Name")
response.write "<br>上传文件1宽度："&myrequest.Form("photo_Width")
response.write "<br>上传文件1高度："&myrequest.Form("photo_Height")
lngSize1=myrequest.Form("photo_Size")
if intError>0 then strFile1="Err:"&intError&"/"&myrequest.Form("photo_Name")
response.write "<br>上传文件1大小："&lngSize1&" Byte"
response.write "<br>文件1上传路径："&myrequest.Form("photo_Path")
response.write "<br>文件 1 扩展名："&myrequest.Form("photo_Ext")
else
response.Write("<br>没有文件1上传")
end if
response.Write("<br>")
strFile2=myrequest.Form("Photo2")
intError=myrequest.Form("photo2_Err")
lngSize2=0
if intError>=0 then
response.write "<br>上传文件2名为：<a href='"&myrequest.Savepath&strFile2&"' target='_blank'>"&strFile2&"</a>"
response.write "<br>上传文件2类型："&myrequest.Form("Photo2_Type")
response.write "<br>上传文件2原名："&myrequest.Form("Photo2_Name")
response.write "<br>上传文件2宽度："&myrequest.Form("photo2_Width")
response.write "<br>上传文件2高度："&myrequest.Form("photo2_Height")
lngSize2=myrequest.Form("photo2_Size")
if intError>0 then strFile2="Err:"&intError&"/"&myrequest.Form("photo2_Name")
response.write "<br>上传文件2大小："&lngSize2&" Byte"
response.write "<br>文件2上传路径："&myrequest.Form("photo2_Path")
response.write "<br>文件 2 扩展名："&myrequest.Form("photo2_Ext")
else
response.Write("<br>没有文件2上传")
end if
strUser =replace(replace(left(myrequest.Form("intro"),8),"<","["),">","]")
response.write "<br><br>作 者 昵 称："&strUser
strMessage=replace(replace(left(myrequest.Form("intro2"),30),"<","["),">","]")
response.write "<br>作 品 名 称："&strMessage
fenlei=replace(replace(left(myrequest.Form("fenlei"),30),"<","["),">","]")
response.write "<br>作 品 分 类："&fenlei
Set myrequest=nothing
v=0
v=v+lngSize1
v=v+lngSize2
t=(timer()-time1)
dblTime=FormatNumber(t,3)
response.Write "<br>上传 总 用 时："&dblTime&" s"
response.Write("<p align=center><a href='index.asp'>查看上传</a></p>")
if v>0 then
response.write "<br>平均上传速 率："
if t>0 then
dblSpeed=FormatNumber(v/(1024*t),3)
response.write dblSpeed&" k/s"
else
dblSpeed=-1
end if
if strUser="" then strUser="匿名"
if strMessage="" then strMessage=" "
if strFile1="" then strFile1=" "
if strFile2="" then strFile2=" "
strIp=GetIp()
dim sql,conn
set conn=server.CreateObject("ADODB.Connection")
conn.open strDconn
sql="Insert Into book"&_
"(datePost,strUser,strMessage,pic,fenlei,strFile1,strSize1,strFile2,strSize2,strTime,strSpeed,strIp) "&_
"values"&_
"('"&now()&"','"&strUser&"','"&strMessage&"','"&pic&"','"&fenlei&"','"&strFile1&"','"&lngSize1&"','"&strFile2&"','"&lngSize2&"','"&dblTime&"','"&dblSpeed&"','"&strIp&"')"
conn.Execute(sql)
conn.close()
set conn=nothing
end if
%>
</blockquote></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -