'#################使用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##################################
分享到:
相关推荐
一个允许你从浏览器上传文件到IIS服务器的插件工具。
ABCUpload.NET v6.0(NET组件).rar
abcupload组建,asp.net2.0大文件上传。
.NET下的上传控件
性能非常棒的web上传组件. 支持进度条
服器端安装,客户端轻松完成上传下载。asp轻松完成
abcupload组建使用的例子
2.执行abcupload文件夹下的setup.exe,以便安装abcupload4上传组件 3.新建站,目录地址为cx文件夹即可 4.修改inc/cn.asp里的数据库连接信息 后台功能有: 会员管理,信息管理,服务项目管理,家庭生活,在线预约,...
一个允许你从浏览器上传文件到IIS服务器的插件工具