📄 upload.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include file="UpLoadClass.asp"-->
<%
dim request2
'建立上传对象
set request2=New UpLoadClass
'设置字符集
request2.Charset="UTF-8"
'打开对象
request2.Open()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>网络教学平台</title>
<link href="../style/default.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="Context">
<%
'显示字符集
Response.Write("<p id=""Title"">字 符 集："&request2.Charset&"</p>")
'显示产品名称
Response.Write("<p>产品名称："&request2.Form("strName")&"</p>")
'显示源文件路径与名称
Response.Write("<p>产品图片："&request2.Form("strPhoto_Path")&request2.Form("strPhoto_Name"))
Response.Write("=>")
'显示目标文件路径与名称
Response.Write(request2.SavePath&request2.Form("strPhoto")&"</p>")
'显示产品介绍
Response.Write("<p>产品介绍："&request2.Form("strRemark")&"</p>")
Response.Write "<p>[<a href=""javascript:history.back();"">返回</a>]</p>"
Response.Redirect "InsertDatabase.asp?FileName="&request2.Form("strName")&"&FilePath="&request2.Form("strFile")
%>
</div>
</body>
</html>
<%
'释放上传对象
set request2=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -