upload_config_id.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<!--#include file="const.asp"-->
<%
'Option Explicit

Response.Expires=-1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-control","no-store"

Server.ScriptTimeout = 999

Dim SavePath
Dim maxfilesize
Dim filePath
Dim FormFieldName
Dim SavType
Dim FsoType
'Dim FixFileExt
Dim ForBidType
Dim AcdSeeType
Dim Fso
Dim Manger_ps
Dim intPageSize_admin
Dim onceupload_number
Dim Ver

Ver="Version 2.001 Build 103"						'版本号
onceupload_number=1										'定义单次上传的文件限定个数
intPageSize_admin=1										'定义每页显示记录条数
Manger_ps = "admin"										'管理员密码(用于管理员删除时使用)
SavePath = "../images/userpic"									'虚拟路径(后面不要加"/"符号)
maxfilesize = FjLen   								    '允许上传的最大字节
filePath = Server.MapPath(SavePath)						'将虚拟路径转换为磁盘路径
FormFieldName = "fruit"									'设置上传文件的Form Field名称
AcdSeeType = 0											'是否使用Acdsee模式查看图片文件
														' 0		不使用
														' 1		使用
'SavType = 0											'设置报错模式
														'本例报错模式从页面取得，具体请看upfile.asp文件中[SavType = cint(GetFormVal("errnumber"))	'取得报错方式]一句
														'如果需要设置固定的一种报错模式(0=自动改名,1=报错模式,2=直接覆盖),只需要激活本句即可
On Error Resume Next
Set Fso = Server.CreateObject("Scripting.FilesystemObject")
IF Err.number <> 0 then
	FsoType = 0												'设置是否有Fso权限(0=无权限,1=有权限),如果主机无Fso权限.则在上传文件前必须在服务器建立相应的SavePath的文件夹
Else
	FsoType = 1											'设置是否有Fso权限(0=无权限,1=有权限)
	Set Fso = nothing
End IF

ForbidType = 0											'限制上传文件类型格式
														' 0		限制"FixFileExt"变量所包含的文件类型为不可上传文件类型
														' 1		限制"FixFileExt"变量所包含的文件类型为可上传文件类型
'受限制的文件类型
'FixFileExt="asp|aspx|asa|asax|ascx|ashx|asmx|axd|cdx|cer|config|cs|csproj|licx|rem|resx|shtml|shtm|soap|stm|vb|vbproj|webinfo|cgi|pl|php|phtml|php3"
%>