savead.asp

一个综合类整站

<%OPTION EXPLICIT%>
<%if session("china_admin")="" then
response.redirect "login.asp"
end if
dim id
id=request("id")
%>
<!--#include FILE="upadinc.asp"-->
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,FileNameNew,oFile,upfilecount
upfilecount=0
set upfile=new clsUp ''建立上传对象
upfile.NoAllowExt=""	'设置上传类型的黑名单
upfile.GetData (102400)   '取得上传数据,限制最大上传100k
%>
        <%
if upfile.isErr then  '如果出错
    select case upfile.isErr
	case 1
	Response.Write "你没有上传数据呀?是不是搞错了?"
	case 2
	Response.Write "你上传的文件超出限制,最大100K"
	end select
	Response.Write "<br><a href=ad.asp><font color=0099ff>[返回]</font></a>"
	else
%>
        <%
	FSPath=GetFilePath(Server.mappath("../adpic/file.asp"),"\")'取得当前文件在服务器路径
	ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
	for each formName in upfile.file '列出所有上传了的文件
	   set oFile=upfile.file(formname)
	   'FileName=upfile.form(formName)'取得文本域的值
	   FileNameNew=upfile.AutoSave(formname,FSPath)'保存文件并定义新的文件名
	   'if not FileName>"" then  FileName=oFile.filename'如果没有输入新的文件名,就用原来的文件名
	   'upfile.AutoSave formname,FSPath&FileName   ''保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名
	 %>
        <%
    if upfile.iserr then 
		Response.Write upfile.errmessage
		Response.Write "<br><a href=ad.asp><font color=0099ff>[返回]</font></a>"
		else
		upfilecount=upfilecount+1
'response.write "图片上传成功！<br><br><a href=Javascript:pic('"&FileNameNew&"+"&FileName&"+"&id&"');><u><font color=red>点击此处可以把图片地址写入表单</font></u></a>"
response.write "<script LANGUAGE='javascript'>alert('"&FileName&"图片上传成功！');location='ad.asp?picname="&FileNameNew&"&id="&id&"'</script>"

		end if
		%>
        <%
	 set oFile=nothing
	next
%>
        <%
end if
set upfile=nothing  '删除此对象
%>
        <%
function GetFilePath(FullPath,str)
  If FullPath <> "" Then
    GetFilePath = left(FullPath,InStrRev(FullPath, str))
    Else
    GetFilePath = ""
  End If
End function
%>