📄 upload_cs.asp

📁 心里在线咨询系统怎么还有字数限制

💻 ASP

字号:

<%
'----------------------------------------------------------
'***************** 风声无组件上传类 2.0 *****************
'用法举例：快速应用[添加产品一]
'该例主要说明默认模式下的运用
'以常见的产品更新为例
'下面是上传程序(upload.asp)的代码和注释
'**********************************************************
'---------------------------------------------------------- 
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include FILE="UpLoadClass_cs.asp"-->
<%
dim request2

'建立上传对象
set request2=New UpLoadClass

	'以默认设置打开上传对象
	'建议直接修改类的63，64，65，66行为自己需要的默认设置
	'类的初始默认值分别为
	'p_MaxSize  = 153600 单文件最大150K
	'p_FileType = "jpg/gif" 允许上传jpg/gif格式文件
	'p_SavePath = "" 在当前目录保存文件，这里是相对路径，如：“UpLoadFile/”
	'p_AutoSave = 0 自动生成无重复文件名保存目标文件
	'这样每次就不要设置同样的参数了
	request2.open()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css" />
</head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0"><%
	response.Write("上传成功")
	
	'-------说明开始------
	'可以看出上面的显示是淋漓尽致的
	'文件是否需要保存由类自动判断，这已经符合大多数情况下的应用
	'如果您需要更灵活的处理,参见[进阶应用]
	'-------说明结束------
 response.write "<script>parent.document.frmrever.music.value='updata/web/"&request2.Form("strPhoto")&"'</script>"
	%></body>
&nbsp;</html><%
'释放上传对象
set request2=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -