使用ABCUpload4.XForm组件上传文件

'#################使用ABCUpload4.XForm组件上传文件###################
'#####################Code CreateBy guofeng#########################
Response.Expires = -10000
Server.ScriptTimeOut = 300
Set theForm = Server.CreateObject("ABCUpload4.XForm")
theForm.Overwrite = True
theForm.codepage="936"
theForm.MaxUploadSize = 8000000

dim ggtype,url
ggtype=theForm("ggtype")''取得广告位置
url=theForm("URL")
'response.write ggtype
'response.End()

Set theField = theForm("uploadfile")(1)
If theField.FileExists Then
vfname=ggtype
'f=GetExtendName(theField.FileName)
UpFilePath =("../../guanggao/")''上传目录

dim aa,Msg
Msg=theField.FileName
aa=GetExtendName(theField.FileName)
if aa="gif" or aa="swf" then
fname=vfname & "." & aa
theForm.AbsolutePath = true '判断是否需要使用server.MapPath来保存文件路径，当为false时需要使用theForm.Save "pdf/"&fname
theField.Save Server.MapPath(UpFilePath&fname)
'theField.Save theField.FileName
dim sql
if aa="swf" then
sql="insert into T_guanggao(ggtype,filetype,filename,pathname) values('"&ggtype&"','"&aa&"','"&Msg&"','"&UpFilePath&fname&"')"
else
sql="insert into T_guanggao(ggtype,filetype,filename,pathname,url) values('"&ggtype&"','"&aa&"','"&Msg&"','"&UpFilePath&fname&"','"&url&"')"
end if
conn.execute (sql)
response.write "<script>"
response.write "alert(""发布成功！"");"
response.write "window.location='upload.asp';"
response.write "</script>"
else
response.write "<script>"
response.write "alert(""类型不支持！"");"
response.write "history.back(-1);"
response.write "</script>"
end if
else
response.write "<script>"
response.write "alert(""请选择需要上传的文件！"");"
response.write "history.back(-1);"
response.write "</script>"
End If
'####################END#######################

'###################采用fso实现从硬盘上物理删除需要删除的文件######################
'############################Code CreateBy guofeng################################
set rs=server.CreateObject("adodb.recordset")
vsql= "select * from T_guanggao where fileid=" & trim(Request.Item("id"))
rs.Open vsql,conn,3,3
dim aa
aa=rs("pathname")
whichfile=Server.MapPath(aa) '得到文件名

Set fso =Server.CreateObject("Scripting.FileSystemObject") '定义fso对象
dim ab
ab=rs("ggtype") & "." & rs("filetype")
'set f1=fso.GetFile("文件在服务器上的绝对地址"&ab) //////////服务器上的设置
set f1=fso.GetFile("文件在本地的绝对地址"&ab)
f1.delete

rs.Delete
rs.Close
Response.Write "<script LANGUAGE="&"JavaScript1.1"&">"& "window.opener.location.reload();window.self.close();</script>"
Response.End
'##############################END##################################