你的位置:| 首页网站建设无组件ASP文件上传实例源码→文章正文  
文章导航


无组件ASP文件上传实例源码(按文件名保存后即可用)

 

以下是代码。

上传页 EESaiUp.asp
------------------------------------
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta name="author" content="广东哈能科技有限公司" />
<meta name="description" content="文件上传系统" />
<meta name="keywords" content="ASP,Upload,文件上传" />
<style type="text/css">body,form{margin:0px;padding:0px;}body,input{font-size:12px;}</style>
<title>文件上传系统</title>
</head>
<body id="body" style="background-color:transparent">
<%
On Error Resume Next
response.Cookies("eesuppower")="1"'把这段加到您网站管理或会员登录处。
if request.Cookies("eesuppower")="1" then'通过COOKIES从外部判断是否可以使用上传功能
'?功能块012|类型123|文件名01#|保存位置01#|返回值012#|表单formID0#|文本框ID0#|加水印0#|缩略图012|翻页|临时储存文件名.ees
'?0|0|0|0|0|formsai|up|0|0|0|0.ees
'==========================取回地址栏的值
dim euperr,euperrs
euperr=1'0不显示1显示操作过程
euperrs="<br>"
dim esuarr,esugn,esuty,esunm,esusv,esufh,esufm,esufi,esuss,esusn,esupg,esumm
const estzz=".ees"'地址栏参数后缀名
const estgg="|"'地址栏参数间隔符,默认|(注意:上传路径及文件名不可含此间隔符,否则上传必败!)
esuarr=split(replace(Request.ServerVariables("QUERY_STRING"),estzz,""),estgg)
if ubound(esuarr)=10 then
esugn=eupre(esuarr(0))'功能块:0本地上传1远程上传2选择本地图片
esuty=eupre(esuarr(1))'类型:0图片1动画2媒体3常规4...可自行增加定义
esunm=eupre(esuarr(2))'文件名:0随机重命名1按上传文件名命名#(eesai按指定文件名命名)
esusv=eupre(esuarr(3))'保存位置:0上传到默认文件夹1通过读取request.cookies("EESaiUps")确定上传位置#(../up/或/eesai/up/指定相对或绝对地址确定上传位置)
esufh=eupre(esuarr(4))'返回值:0绝对根目录1网络http开头地址2仅返回文件名#(相对指定目录,如=/up/,储存在/up/SAC/mo.jpg位置的图片,返回值为SAC/mo.jpg)
esufm=eupre(esuarr(5))'表单formID:0无表单#(表单ID)
esufi=eupre(esuarr(6))'文本框ID:0无文本框#(文本框ID)
esuss=eupre(esuarr(7))'加水印:0关闭加水印#(EESai.Com加水印的文字内容)。需要AspJpeg组件支持!!
esusn=eupre(esuarr(8))'缩略图:0关闭缩图生成1缩图覆盖原图2缩图和原图同文件夹,名称加前缀3缩图存入缩图文件夹。需要AspJpeg组件支持!!
esupg=eupre(esuarr(9))'翻页:0,1仅[功能块]=2有效[7=表示返回大图值 For EESai]
esumm=eupre(esuarr(10))'临时储存文件名:上传本地文件是储存本地文件名称
'==========================上传操作中的一些常规值设置
const estur="http://www.eesai.com"'网址,返回带网址的地址时候使用
const estsv="/EESaiUp/"'默认储存图片文件夹,请使用绝对地址,前后均加/
const estss="s"'相对原图文件夹的缩图文件夹名,或缩图前缀名,前后均不加/
const estxg="-_-"'特殊替换字符
dim eugpost,eugpostgn,eugpostnm,eugpostpg,eugpostmm,eugm,eugz,eugs,euknm,euknmm,euknmg,euksnmm,euksnmg,eufyn
eugpostgn="?"&estxg&estgg&esuarr(1)&estgg&esuarr(2)&estgg&esuarr(3)&estgg&esuarr(4)&estgg&esuarr(5)&estgg&esuarr(6)&estgg&esuarr(7)&estgg&esuarr(8)&estgg&esuarr(9)&estgg&estzz'上传功能转换用
eugpostnm="?"&esuarr(0)&estgg&esuarr(1)&estgg&estxg&estgg&esuarr(3)&estgg&esuarr(4)&estgg&esuarr(5)&estgg&esuarr(6)&estgg&esuarr(7)&estgg&esuarr(8)&estgg&esuarr(9)&estgg&estzz'重新上传用
eugpostpg="?"&esuarr(0)&estgg&esuarr(1)&estgg&esuarr(2)&estgg&esuarr(3)&estgg&esuarr(4)&estgg&esuarr(5)&estgg&esuarr(6)&estgg&esuarr(7)&estgg&esuarr(8)&estgg&estxg&estgg&estzz'翻页用
eugpostmm="?"&esuarr(0)&estgg&esuarr(1)&estgg&esuarr(2)&estgg&esuarr(3)&estgg&esuarr(4)&estgg&esuarr(5)&estgg&esuarr(6)&estgg&esuarr(7)&estgg&esuarr(8)&estgg&esuarr(9)&estgg'本地文件名临时储存用
'★处理地址栏返回值
Function eupre(epstr)
if epstr=estxg or epstr="" or len(epstr)>180 then
eupre="0"
else
eupre=epstr
end if
End Function
'★上传扩展名及大小限制
'类型:0图片1动画2媒体3常规4...可自行增加定义
'◆在这个过程里面可以设置上传文件类型及大小
Function eupty(epty,epvl)
if epty="0" then'图片
if epvl=1 then
eupty=20000'单位KB,1024kb=1Mb
else
eupty="jpg,gif,png,bmp"'允许扩展名,请用英文的逗号“,”隔开
end if
elseif epty="10" then'测试
if epvl=1 then
eupty=20'单位KB,1024kb=1Mb
else
eupty="jpg"'允许扩展名,请用英文的逗号“,”隔开
end if
elseif epty="1" then'动画
if epvl=1 then
eupty=10000'单位KB,1024kb=1Mb
else
eupty="swf,flv"'允许扩展名,请用英文的逗号“,”隔开
end if
elseif epty="2" then'媒体
if epvl=1 then
eupty=1000000'单位KB,1024kb=1Mb
else
eupty="swf,flv,avi,wmv,asf,mov,mp3,wma,rm,ra,ram,rmvb"'允许扩展名,请用英文的逗号“,”隔开
end if
elseif epty="3" then'常规
if epvl=1 then
eupty=2048'单位KB,1024kb=1Mb
else
eupty="jpg,gif,bmp,png,swf,rmvb,wmv,wma,mp3,avi,rar,zip"'允许扩展名,请用英文的逗号“,”隔开
end if
end if
if epvl=1 then eupty=eupty*1024
End Function
'★文件保存位置
'保存位置:0上传到默认文件夹1通过读取request.cookies("EESaiUps")确定上传位置#(../up/或/eesai/up/指定相对或绝对地址确定上传位置)
Function eupsv()
if esusv="0" then
eupsv=estsv
elseif esusv="1" then
if request.cookies("EESaiUps")<>"" then
eupsv=request.cookies("EESaiUps")
else
eupsv=estsv
end if
else
eupsv=esusv
end if
End Function
'★文件位置返回值
'返回值:0绝对根目录1网络http开头地址2仅返回文件名#(相对指定目录,如=/up/,储存在/up/SAC/mo.jpg位置的图片,返回值为SAC/mo.jpg)
'epfile=1值返回文件夹,列表图片插入使用
Function eupfh(epfile)
if epfile<>"" and epfile<>"0" then
eupfh=eupsv()
if esufh="0" then'this is err
eupfh=eupfh
elseif esufh="1" then
eupfh=estur&eupfh
elseif esufh="2" then
eupfh=""
else
eupfh=replace(eupfh,esufh,"")
end if
'缩略图:0关闭缩图生成1缩图覆盖原图2缩图和原图同文件夹,名称加前缀3缩图存入缩图文件夹。需要AspJpeg组件支持!!
if esusn="2" then
if epfile="1" then
eupfh=eupfh&estss
else
eupfh=eupfh&estss&epfile
end if
elseif esusn="3" then
if epfile="1" then
eupfh=eupfh&estss&"/"
else
eupfh=eupfh&estss&"/"&epfile
end if
else
if epfile="1" then
eupfh=eupfh
else
eupfh=eupfh&epfile
end if
end if
end if
End Function
'★获取随机文件名9位
Function eupsn()
dim eupsnSZ,eupsnSS,eupsnRR,eupsnIP
eupsnIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if len(eupsnIP)<8 then
eupsnIP="000000"
else
eupsnIP=replace(eupsnIP,".","")
end if
eupsnSZ=36
eupsnSS="0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z"'the sn character
eupsnRR=split(eupsnSS,"|")'the chr. Array
eupsn=eupsnRR(int(right(year(now()),2)))&eupsnRR(int(month(now())))&eupsnRR(int(day(now())))
if int(left(replace(eupsnIP,".",""),2))>eupsnSZ then
eupsn=eupsn&eupsnRR(int(left(replace(eupsnIP,".",""),2))-eupsnSZ)
else
eupsn=eupsn&eupsnRR(int(left(replace(eupsnIP,".",""),2)))
end if
if int(right(replace(eupsnIP,".",""),2))>eupsnSZ then
eupsn=eupsn&eupsnRR(int(right(replace(eupsnIP,".",""),2))-eupsnSZ)
else
eupsn=eupsn&eupsnRR(int(right(replace(eupsnIP,".",""),2)))
end if
eupsn=eupsn&eupsnRR(int(hour(now())))&eupsnRR(abs(int(minute(now()))-28))&eupsnRR(abs(int(second(now()))-28))
Randomize
eupsn=eupsn&eupsnRR(int(eupsnSZ*Rnd))
End Function
'★创建文件夹
Function eupmfolder(anko)
eupmfolder=False
if anko<>"" then
dim eupmfolderfso,ankofs,anfdrr,anfdii,anfdud,anfdir
anfdir=""
On Error Resume Next
if left(anko,1)="/" and right(anko,1)="/" then
ankofs=anko
elseif right(anko,1)="/" then
ankofs=andir&anko
else
ankofs=andir&anko
end if
anfdrr=split(ankofs,"/")
anfdud=ubound(anfdrr)
If InStr(ankofs,".")>0 then ankofs=left(ankofs,len(ankofs)-len(anfdrr(anfdud))-1)
if right(ankofs&"/",2)<>"//" then ankofs=ankofs&"/"
ankofs=Server.MapPath(ankofs)
anfdrr=split(ankofs,"\")
anfdud=ubound(anfdrr)
Set eupmfolderfso=Server.CreateObject("Scr" & "ipt" & "ing.Fil" & "eSy" & "ste" & "mOb" & "j" & "ect")
If eupmfolderfso.FolderExists(ankofs) Then
eupmfolder=True
Exit Function
End If
For anfdii=0 To anfdud
anfdir=anfdir&anfdrr(anfdii)&"\"
If Not eupmfolderfso.FolderExists(anfdir) Then
eupmfolderfso.CreateFolder(anfdir)
End If
Next
Set eupmfolderfso=Nothing
If Err=0 Then eupmfolder=True
end if
End Function
'★获取文件扩展名
Function eupgext(epfile)
if epfile<>"" then
eupgext=lcase(Mid(epfile,InstrRev(epfile,".")))
end if
End Function
'★判断文件扩展名是否合格
Function eupgextce(epfile)
dim eupgzrr
eupgzrr=Split(eupty(esuty,0),",")
For i=0 To Ubound(eupgzrr)
If LCase(Right(epfile,len(eupgzrr(i))))=LCase(eupgzrr(i)) then
eupgextce=True
Exit Function
Else
eupgextce=False
End if
Next
End Function
'★获取远程文件大小,单位KB
Function eupgsize(epfile)
if epfile="" then
eupgsize=0
Exit Function
end if
dim afsmsxml
set afsmsxml=Server.CreateObject("M" & "S" & "X" & "ML" & "2.X" & "ML" & "HT" & "TP")
afsmsxml.open "GET",epfile,False
afsmsxml.send
eupgsize=int(afsmsxml.GetResponseHeader("Content-Length"))
set afsmsxml=nothing
End Function
'★保存远程文件
Sub eupurlfile(epsvfile,epurlfile)
dim asuado,asuxml,asurdata
Set asuxml=Server.CreateObject("Microsoft.XMLHTTP")
With asuxml
.Open "Get",epurlfile,False,"",""
.Send
asurdata=.ResponseBody
End With
Set asuxml=Nothing
Set asuado=Server.CreateObject("Adodb.Stream")
With asuado
.Type=1
.Open
.Write asurdata
.SaveToFile epsvfile,2
.Cancel()
.Close()
End With
Set asuado=nothing
End Sub
'★保存本地图片
Sub eupmyfile()
dim eumyfdate,eumyfcrlf,eumyfhead,eumyfado,eumyfado1,eumyfsize,Position
eumyfdate=request.binaryread(request.totalbytes)'获得上传数据
eumyfcrlf=chrB(13)&chrB(10)'截取分节符
eumyfhead=leftB(eumyfdate,clng(instrb(eumyfdate,eumyfcrlf))-1)
Position=instrb(eumyfdate,eumyfcrlf&eumyfcrlf)+4'上传文档数据开始字节位置
eumyfsize=instrb(Position+1,eumyfdate,eumyfhead)-Position-2'上传文档的总长度
set eumyfado=CreateObject("Adodb.Stream")
eumyfado.Mode=3:eumyfado.Type=1:eumyfado.Open
set eumyfado1=CreateObject("Adodb.Stream")
eumyfado1.Mode=3:eumyfado1.Type=1:eumyfado1.Open
eumyfado.Write eumyfdate
eumyfado.Position=Position-1
eumyfado.CopyTo eumyfado1,eumyfsize
eumyfado1.SaveToFile euknmg,2 ' 文档保存
set eumyfado=nothing:set eumyfado1=nothing
End Sub
'★获取上传文件夹下的已传图片并列表(带翻页)
Function euplist(eppath)
Dim euplfso,euplfolder,euplfiles,euplfilename
Set euplfso=Server.CreateObject("Scripting.FileSystemObject")
Set euplfolder=euplfso.GetFolder(server.MapPath(eppath))
Set euplfiles=euplfolder.Files
dim psize,ppage,pcount,pgnum,pgii,pgstr,pgjj
psize=5'每页显示的数量
if int(esupg)<2 then
ppage=1
else
ppage=int(esupg)
end if
pcount=euplfiles.count
pgnum=int(pcount/psize)
if pcount mod psize>0 then
pgnum=pgnum+1
end if
if ppage>pgnum then
ppage=pgnum
end if
pgii=0
For each euplfilename in euplfiles
pgii=pgii+1
if pgii>(ppage-1)*psize and pgii<=ppage*psize then
If eupgextce(euplfilename.name) Then
if esuty=0 then
euplist=euplist&"<a href=""#"" onclick=""AsaiInputS('"&euplfilename.name&"')"" title=""文件名称:"&euplfilename.name&vbcrlf&"文件大小:"&int(euplfilename.size/1024)&"KB"&vbcrlf&"最后修改:"&euplfilename.datelastaccessed&vbcrlf&"创建时间:"&euplfilename.datecreated&"""><img border=""0"" src="""&eppath&euplfilename.name&""" width=""20"" height=""20""></a> "
else
euplist=euplist&"<a href=""#"" title=""文件名称:"&euplfilename.name&vbcrlf&"文件大小:"&int(euplfilename.size/1024)&"KB"&vbcrlf&"最后修改:"&euplfilename.datelastaccessed&vbcrlf&"创建时间:"&euplfilename.datecreated&""">"&left(euplfilename.name,3)&".</a> "
end if
else
euplist=euplist&"<span title=""文件名称:"&euplfilename.name&vbcrlf&"文件大小:"&int(euplfilename.size/1024)&"KB"&vbcrlf&"最后修改:"&euplfilename.datelastaccessed&vbcrlf&"创建时间:"&euplfilename.datecreated&""">"&left(euplfilename.name,3)&".</span> "
end if
elseif pgii>ppage*psize then
exit for
end if
Next
Set euplfolder=nothing
Set euplfso=nothing
euplist=euplist&"<select language=""javascript"" onChange=""AsaiJumpHref('self',this,0)"" title=""共有"&pcount&"个文件 "&vbcrlf&"第"&ppage&"页/共"&pgnum&"页"">"
euplist=euplist&"<option value="""&replace(eugpostpg,estgg&estxg&estgg,estgg&"1"&estgg)&""">首页</option>"
if ppage>1 then euplist=euplist&"<option value="""&replace(eugpostpg,estgg&estxg&estgg,estgg&ppage-1&estgg)&""">上页</option>"
pgjjj=0
for pgjj=ppage-10 to ppage+10
if pgnum>=pgjj and pgjj>0 then
euplist=euplist&"<option value="""&replace(eugpostpg,estgg&estxg&estgg,estgg&pgjj&estgg)&""""
if pgjj=ppage then euplist=euplist&" selected=""selected"""
euplist=euplist&">"&pgjj&"</option>"
end if
next
if ppage<pgnum then euplist=euplist&"<option value="""&replace(eugpostpg,estgg&estxg&estgg,estgg&ppage+1&estgg)&""">下页</option>"
euplist=euplist&"<option value="""&replace(eugpostpg,estgg&estxg&estgg,estgg&pgnum&estgg)&""">尾页</option>"
euplist=euplist&"<option value="""&replace(eugpostgn,"?"&estxg&estgg,"?2"&estgg)&""">——</option>"
euplist=euplist&"<option value="""&replace(eugpostgn,"?"&estxg&estgg,"?0"&estgg)&""">本地</option><option value="""&replace(eugpostgn,"?"&estxg&estgg,"?1"&estgg)&""">远程</option></select>"
End Function


'★获得上传文件名、扩展名、大小并进一步检测
Sub EESaiUpSub()
if esugn=1 then'远程上传
eugpost=request("EESaiUpFile")
if len(eugpost)<3 then Exit Sub
eugm=Mid(eugpost,InstrRev(eugpost,"/")+1)
eugz=eupgext(eugm)
eugs=eupgsize(eugpost)
if euperr=1 then euperrs=euperrs&"上传文件属性:远程文件["&eugpost&"],文件名="&eugm&"|扩展名="&eugz&"|大小="&eugs&"<br>"
elseif esugn=0 then'本地上传
eugs=Request.TotalBytes
eugpost=esumm
if len(eugpost)<3 then Exit Sub
eugz=eupgext(eugpost)
eugm=Mid(eugpost,InstrRev(eugpost,"\")+1)
if euperr=1 then euperrs=euperrs&"上传文件属性:本地文件["&eugpost&"],文件名="&eugm&"|扩展名="&eugz&"|大小="&eugs&"<br>"
end if
if eugs>0 then
if eupmfolder(eupsv()) then
If eugs<eupty(esuty,1) then'检测上传文件大小
if euperr=1 then euperrs=euperrs&"文件大小检测:"&eugs&"(上传文件大小)<"&eupty(esuty,1)&"<br>"
If eupgextce(eugz) Then'检测上传文件扩展名
if euperr=1 then euperrs=euperrs&"文件扩展名检测:"&eugz&"("&eupty(esuty,0)&")<br>"
eugz=lcase(replace("."&eugz,"..","."))
'☆确定上传文件名(不带后缀名,带后缀,完整位置)
'esunm文件名:0随机重命名1按上传文件名命名#(eesai按指定文件名命名)
if esunm="0" then
euknm=eupsn()
elseif esunm="1" then
euknm=replace(lcase(eugm),eugz,"")
else
euknm=esunm
end if
eugpostnm=replace(eugpostnm,estgg&estxg&estgg,estgg&euknm&estgg)
euknmm=euknm&eugz
if euperr=1 then euperrs=euperrs&"保存文件名:"&euknmm&"<br>"
euknmg=Server.MapPath(eupsv()&euknmm)
if euperr=1 then euperrs=euperrs&"文件储存位置:"&euknmg&"<br>"
'☆无组件上传文件核心程序调用
if esugn=1 then
Call eupurlfile(euknmg,eugpost)
else
Call eupmyfile()
end if
if euperr=1 then euperrs=euperrs&"<h1>上传文件已保存至:"&euknmg&"</h1>"
'☆将返回值返回调用的源表单并完成上传操作
'表单formID:0无表单#(表单ID)
'文本框ID:0无文本框#(文本框ID)
if esufm<>"0" and esufi<>"0" then
Response.write"<script language=javascript>parent.document."&esufm&"."&esufi&".value='"&eupfh(euknmm)&"';</script >"
if euperr=1 then euperrs=euperrs&"返回到表单"&esufm&"的id="&esufi&"的文本框中,值为"&eupfh(euknmm)&"<br>"
elseif esufi<>"0" then
Response.write"<script language=javascript>parent.document.getElementById("""&esufi&""").value='"&eupfh(euknmm)&"';</script>"
if euperr=1 then euperrs=euperrs&"返回到id="&esufi&"的文本框中,值为"&eupfh(euknmm)&"<br>"
end if
Response.write"<a href="""&eupsv()&euknmm&""" target=""_blank"" title=""文件名称:"&euknmm&vbcrlf&"文件大小:"&int(eugs/1024)&"KB"&vbcrlf&"友情提示:点击打开预览"" style=""color:red;text-decoration:none;"">"
if len(euknmm)>10 then
Response.write left(euknmm,6)&"**"&eugz
else
Response.write euknmm
end if
Response.write"</a> 上传成功!<a href="""&eugpostnm&""">重新上传</a>"
eufyn="1"
'☆关于失败的一些反馈信息
else
Response.write"<span style=""color:red;"" title=""仅限上传"&replace(eupty(esuty,0),",","、")&"格式"">文件格式不正确!</span> <a href="""&eugpostnm&""">重新上传</a>"
end if
else
Response.Write"<span style=""color:red;"" title=""文件过大,"&eugs&"KB"">大小超过"&eupty(esuty,1)&"B!</span> <a href="""&eugpostnm&""">重新上传</a>"
end if
else
if euperr=1 then euperrs=euperrs&"文件夹不存在,且创建文件夹操作失败。<br>"
end if
end if
End Sub
%>
<table border="0" cellpadding="0" cellspacing="0" bordercolor="#D9ECFF" bgcolor="#D9ECFF" style="width:220px;height:22px;line-height:22px;overflow:hidden;" title="上传文件将指定储存到<%=eupsv()%>位置下"<%if eupsv()<>"" then%><%end if%>>
<tr><td><script language="Javascript">function AsaiJumpHref(targ,selObj,restore){eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");if (restore) selObj.selectedIndex=0;}</script>
<%if esugn=2 then%>
<script language="Javascript">
function AsaiInputS(inpname){
<%if esufm<>"0" and esufi<>"0" then%>
parent.document.<%=esufm%>.<%=esufi%>.value='<%=eupfh("1")%>'+inpname+'';
<%elseif esufi<>"0" then%>
parent.document.getElementById("<%=esufi%>").value='<%=eupfh("1")%>'+inpname+'';
<%end if%>
}
</script>
<%=euplist(eupfh("1"))%>
<%else
Call EESaiUpSub()
if eufyn<>"1" then%>
<script language="Javascript">
function AsaiCheckFile(){
if(document.EESaiUpForm.EESaiUpFile.value=="")
{alert("请选择上传文件!")
document.EESaiUpForm.EESaiUpFile.focus()
return false}
document.EESaiUpForm.action="<%=eugpostmm%>"+document.EESaiUpForm.un.value+"<%=estzz%>";
return true}
</script>
<form method="post" id="EESaiUpForm" name="EESaiUpForm" onSubmit="return AsaiCheckFile()" action=""<%if esugn=0 then%> enctype="multipart/form-data"<%end if%>>
<%if esugn=1 then%>
<input type="text" id="EESaiUpFile" name="EESaiUpFile" size="20" onpropertyChange="document.EESaiUpForm.un.value=this.value" onchange="document.EESaiUpForm.un.value=this.value" value="">
<input type="hidden" id="un" name="un" value="">
<%elseif esugn=0 then%>
<input type="file" id="EESaiUpFile" name="EESaiUpFile" size="4" onpropertyChange="document.EESaiUpForm.un.value=this.value" onchange="document.EESaiUpForm.un.value=this.value">
<input type="hidden" id="un" name="un" value="">
<%end if%>
<select language="javascript" onChange="AsaiJumpHref('self',this,0)" name="aty" id="aty">
<option <%if esugn=0 then%>selected="selected" <%end if%>value="<%=replace(eugpostgn,"?"&estxg&estgg,"?0"&estgg)%>">本地</option>
<option <%if esugn=1 then%>selected="selected" <%end if%>value="<%=replace(eugpostgn,"?"&estxg&estgg,"?1"&estgg)%>">远程</option>
<option <%if esugn=2 then%>selected="selected" <%end if%>value="<%=replace(eugpostgn,"?"&estxg&estgg,"?2"&estgg)%>">已传</option>
</select>
<input type="submit" value="上传" onchange="javascript:change()">
</form>
<%
end if
if euperr=1 then Response.Write euperrs
end if%>
</td></tr></table>
<%
else
Response.Write "<script language=javascript>alert('上传配置出错或操作有误!');</script>"
Response.End()
end if
else
'Response.Write "<script language=javascript>alert('对不起,您无权上传文件,请直接输入文件完整地址。');</scri"&"pt>"
response.Write("<span style=""color:red;"">无权上传,请直接输入地址!</span>")
end if
%>
</body>
</html>

------------------------------------
EESaiUp5.txt
------------------------------------
系统简介
程序名称:阿赛文件上传系统
程序版本:5
英文名称:EESaiUp5
系统大小:10KB
系统类型:ASP/.NET
版本类别:共享版
程序作者:郭言赛
官方网站:http://www.eesai.com/
演示网址:http://eup5.eesai.com/


功能及说明:
上传文件到指定文件夹
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up1" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|AsaiUp|up1|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
上传到指定文件夹[/EESaiUp/]里面。
---------------------------------------
对上传文件类型、大小限制
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up2" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|10|0|/EESaiUp/|0|AsaiUp|up2|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
大小20KB,文件类型jpg
---------------------------------------
按原始文件名上传文件
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up3" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|1|/EESaiUp/|0|AsaiUp|up3|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
根据您上传的文件名上传文件
---------------------------------------
重命名文件上传
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up4" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|AsaiUp|up4|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
由阿赛上传系统直接命名一个九位字符的文件名
---------------------------------------
指定文件名上传
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up5" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|eesai|/EESaiUp/|0|AsaiUp|up5|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
所有上传文件将按照eesai命名上传
---------------------------------------
</form>
无表单,编辑器专用文件上传与返回
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up6" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|0|up6|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
这是个直接返回文本框,无需表单支持的实例
---------------------------------------
上传文件后返回绝对地址
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up7" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|0|up7|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
这是个直接返回文本框,无需表单支持的实例
---------------------------------------
上传文件后返回完整网站
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up8" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|1|0|up8|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
此示例需要您正确设置EESaiUp.asp文件中的estur参数网址值
---------------------------------------
上传文件后仅返回文件名
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up9" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|2|0|up9|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
上传任意图片,仅返回图片的文件名
---------------------------------------
远程文件上传
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up10" size="36" />
</td><td>
<iframe src="EESaiUp.asp?1|0|0|/EESaiUp/|0|0|up10|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
输入远程图片地址直接上传,如:http://www.eesai.com/skin/i/logo.gif
---------------------------------------
已上传文件翻页查看与插入
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up11" size="36" />
</td><td>
<iframe src="EESaiUp.asp?2|0|0|/EESaiUp/|0|0|up11|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
查看已上传的文件,并点击文件名或图片直接插入
---------------------------------------
支持各种文件自定义上传
通过修改
eupty=20000'单位KB,1024kb=1Mb
eupty="jpg,gif,png,bmp"'允许扩展名,请用英文的逗号“,”隔开
这两个值,可不断增减上传文件的种类和大小,方便大家定制使用;
---------------------------------------
伪静态上传地址设置
?功能块012|类型123|文件名01#|保存位置01#|返回值012#|表单formID0#|文本框ID0#|加水印0#|缩略图012|翻页|临时储存文件名.ees
调用地址如上所示,每个参数间使用|隔开(如果您不喜欢|,也可以自行改成其他的符号隔开)
---------------------------------------
缩略图生成(需要空间支持ASPJEPG组件)
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up14" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|0|up14|0|1|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
您可以通过调用参数直接设置关闭缩图生成、使用缩图覆盖原图、缩图和原图同文件夹,名称加前缀、缩图存入缩图文件夹
---------------------------------------
图片加水印(需要空间支持ASPJEPG组件)
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up15" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|0|up15|EESai.Com|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
直接在参数中调用水印的哦,方便加不同的水印。演示加的EESai.Com
可以在上传系统中设置水印文字的颜色、字体、大小等

注意事项:
1、上传系统调用的都是文本框的ID值和NAME值无关;
2、根据文件名上传文件的时候,某些浏览器对中文不支持,将加密中文命名;
3、每次上传成功后,如果您点击重新上传,再次上传的文件将覆盖上次上传成功的文件;
4、使用加水印和缩略图功能必须空间支持ASPJEPG组件,可以同时完成缩图加水印功能。

 

调用显示页 index.asp
------------------------------------

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>阿赛文件上传系统5-演示</title>
</head>

<body>
<h1>阿赛文件上传系统5-演示</h1>
<form name="AsaiUp" id="AsaiUp" action="" method="post">
<b>上传文件到指定文件夹</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up1" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|AsaiUp|up1|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
上传到指定文件夹[/EESaiUp/]里面。<br />
---------------------------------------<br><br>
<b>对上传文件类型、大小限制</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up2" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|10|0|/EESaiUp/|0|AsaiUp|up2|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
大小20KB,文件类型jpg<br />
---------------------------------------<br><br>
<b>按原始文件名上传文件</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up3" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|1|/EESaiUp/|0|AsaiUp|up3|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
根据您上传的文件名上传文件<br />
---------------------------------------<br><br>
<b>重命名文件上传</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up4" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|AsaiUp|up4|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
由阿赛上传系统直接命名一个九位字符的文件名<br />
---------------------------------------<br><br>
<b>指定文件名上传</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up5" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|eesai|/EESaiUp/|0|AsaiUp|up5|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
所有上传文件将按照eesai命名上传<br />
---------------------------------------<br><br>
</form>
<b>无表单,编辑器专用文件上传与返回</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up6" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|0|up6|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
这是个直接返回文本框,无需表单支持的实例<br />
---------------------------------------<br><br>
<b>上传文件后返回绝对地址</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up7" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|0|up7|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
这是个直接返回文本框,无需表单支持的实例<br />
---------------------------------------<br><br>
<b>上传文件后返回完整网站</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up8" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|1|0|up8|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
此示例需要您正确设置EESaiUp.asp文件中的estur参数网址值<br />
---------------------------------------<br><br>
<b>上传文件后仅返回文件名</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up9" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|2|0|up9|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
上传任意图片,仅返回图片的文件名<br />
---------------------------------------<br><br>
<b>远程文件上传</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up10" size="36" />
</td><td>
<iframe src="EESaiUp.asp?1|0|0|/EESaiUp/|0|0|up10|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
输入远程图片地址直接上传,如:http://www.eesai.com/skin/i/logo.gif<br />
---------------------------------------<br><br>
<b>已上传文件翻页查看与插入</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up11" size="36" />
</td><td>
<iframe src="EESaiUp.asp?2|0|0|/EESaiUp/|0|0|up11|0|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
查看已上传的文件,并点击文件名或图片直接插入<br />
---------------------------------------<br><br>
<b>支持各种文件自定义上传</b><br>
通过修改<br />
eupty=20000'单位KB,1024kb=1Mb<br />
eupty="jpg,gif,png,bmp"'允许扩展名,请用英文的逗号“,”隔开<br />
这两个值,可不断增减上传文件的种类和大小,方便大家定制使用;<br />
---------------------------------------<br><br>
<b>伪静态上传地址设置</b><br>
?功能块012|类型123|文件名01#|保存位置01#|返回值012#|表单formID0#|文本框ID0#|加水印0#|缩略图012|翻页|临时储存文件名.ees<br />
调用地址如上所示,每个参数间使用|隔开(如果您不喜欢|,也可以自行改成其他的符号隔开)<br />
---------------------------------------<br><br>
<b>缩略图生成(需要空间支持ASPJEPG组件)</b><br>
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up14" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|0|up14|0|1|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
您可以通过调用参数直接设置关闭缩图生成、使用缩图覆盖原图、缩图和原图同文件夹,名称加前缀、缩图存入缩图文件夹<br />
---------------------------------------<br><br>
<b>图片加水印(需要空间支持ASPJEPG组件)</b><br />
<table width="520" border="0" cellspacing="5" cellpadding="5"><tr><td>
<input type="text" class="upinp" name="upname" id="up15" size="36" />
</td><td>
<iframe src="EESaiUp.asp?0|0|0|/EESaiUp/|0|0|up15|EESai.Com|0|0|0.ees" style="background-color:transparent;" frameborder=0 scrolling=no width="220" height="22"></iframe>
</td></tr></table>
直接在参数中调用水印的哦,方便加不同的水印。演示加的EESai.Com<br />
可以在上传系统中设置水印文字的颜色、字体、大小等<br />

<br /><br /><b>注意事项:</b><br />
1、上传系统调用的都是文本框的ID值和NAME值无关;<br />
2、根据文件名上传文件的时候,某些浏览器对中文不支持,将加密中文命名;<br />
3、每次上传成功后,如果您点击重新上传,再次上传的文件将覆盖上次上传成功的文件;<br />
4、使用加水印和缩略图功能必须空间支持ASPJEPG组件,可以同时完成缩图加水印功能。
<script>
var AsaiHColor=document.getElementsByTagName("table");
for(AsaiHColori=0;AsaiHColori<AsaiHColor.length;AsaiHColori++){
var AsaiHColorstr="789abcdef";
var AsaiHColort="#";
for(AsaiHColorj=0;AsaiHColorj<6;AsaiHColorj++)
{AsaiHColort=AsaiHColort+AsaiHColorstr.charAt(Math.random()*AsaiHColorstr.length);}
AsaiHColor[AsaiHColori].style.background=AsaiHColort;}
</script>
</body>
</html>

完.....................

  上一页 1 2 3 4 5 下一页
 
公司简介 在线客服 客服中心 意见反馈 相关法律 隐私条款 广告服务 友情链接
Q链:515347638  电子邮箱:hanen@126.com 粤ICP备05086553