救助一断asp程序

来源：百度知道 编辑：UC知道 时间：2024/06/19 13:55:48
我的页面上传页面是：
<!--#include file="conn.asp"-->
<!--#include file="noaccess.asp"-->
<!--#include FILE="inc/hackeFilesClass.asp"-->
<%
'On Error Resume Next
Server.ScriptTimeOut=100000

dim request2
'建立上传对象
set request2=New hackeFilesClass
request2.AutoSave=2 '设置为手动保存模式
request2.FileType="gif/jpg/png/rm/wmv/wma/swf/mp3/asf"
request2.open() '打开对象
%>
<%
'设置作品演示最大为3000K
'request2.MaxSize=52428800
'request2.SavePath="hackeFiles/demo/"

'if request2.Save("preURL",0) then
'上传总大小为50M
'request2.TotalSize= 50971520
'设置作品最大为50M
request2.MaxSize=50971520
request2.SavePath="hackeFiles/file/"

'response.Write(request2.Error)
'response.End()
if request2.Save("fileURL",0) then
'将记录写

request2.SavePath="hackeFiles/file/"
把这句改成判断

先打开vusers表
set rs=server.creatobject("Adodb.RecordSet")
Sql="Select count(*) from vusers where vusername='"&Session("vuser")&"'" '//***这里Session("vuser")是用户登录得到的身份session***//
Rs.Open Sql,conn,1,1
if rs(0)=1 then
request2.SavePath="/vipfiles/"
else
request2.SavePath="hackeFiles/file/"
end if
Rs.close
Set Rs=Nothing

将记录写入files表
dim filename,fileremark,filetype,filesize,fileURL,preURL,author,strSQL,cid,LoadfilesClass
filename = request2.Form("filename")
fileremark = request2.Form("fileremark")
filetype = request2.Form("fileURL_Ext")
filesize = request2.Form("fileURL_Size")
fileURL = request2.Form("fileURL")
'preURL = request2.Form("preURL")
author = session("username&qu