📄 upload.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'----------------------------------------------------------
'***************** 风声无组件上传类 2.1 *****************
'用法举例：快速应用[添加产品一]
'该例主要说明默认模式下的运用
'以常见的产品更新为例<br>
'该例以UTF-8字符集测试
'下面是上传程序(upload.asp)的代码和注释
'**********************************************************
'----------------------------------------------------------
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>程序版本："&request2.Version&"</p>")
'显示字符集
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>"
%>
</div>
</body>
</html>
<%
'释放上传对象
set request2=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -