upload2.asp

来自「教学平台」· ASP 代码 · 共 59 行

ASP
59
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include file="UpLoadClass.asp"-->
<!--#include file="upfile_class.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 + =
减小字号Ctrl + -
显示快捷键?