找个asp代码，上传图片，限定大小200K，宽高150像素。
Dim name:name= "添加图文混排的文章"
Response.write MYhead ("Ebo智能网站管理后台-" &；姓名和名称。”，“左”)
response.write ebcssjd(名称)
Dim lid:lid=usb(请求(“lid”))
Dim lx:lx=usb(请求(" lx "))
如果lx= " "那么lx=2
dim Shang chuan _ GeShi _ H:Shang chuan _ GeShi _ H = " ASP，asa，inc，aspx，php，jsp，htm，html "
Dim BiaoDanShu:BiaoDanShu=99
dim rjjsb:rjjsb = rnd number(1，99999999)
如果lx="2 "那么lxtxt = " article "
函数UTF8(字符串)
Dim i，OneStr，AllStr
For i = 1到Len(Str)
OneStr = Mid(Str，I，1)
AllStr = AllStr & ampchr(38)和ampchr(35)和ampchr(120)十六进制(Ascw(OneStr))& amp；人权委员会(59)
然后
UTF8 = AllStr
结束功能
函数删除文件(文件名)
如果文件名& lt& gt”“那么
文件名=服务器。MapPath(" & amp；文件名& amp"")
设置fso=server。CreateObject(" scripting . file system object ")
如果fso。文件存在(文件名)
fso。删除文件文件名
其他
“回应。写“文件不存在
如果…就会结束
如果…就会结束
结束功能
rsformPath="/test/"
rsnamekind="2 "
rsfilesize="2048000000 "
rsallowedfile="gif，jpg，png，jpeg，MBM，BMP "
rsallowedfile=lx_upfile
If Right(rsformPath，1)& lt；& gt" \ "那么rsformPath = rsformPath & amp"\"
dim上传，文件，表单名称，表单路径，iCount
Dim sjs，fname，I，l，newfilelist，uploaddir，filename，ii
'' -
服务器。ScriptTimeOut=999999
设置上传=新上传_5xsoft
'' -
完整路径=服务器。mappath(" \ ")& amp；"\"
addip=request.serverVariables("远程主机")
pass=upload.form("pass ")
name=upload.form("name ")
pagenext=upload.form("pagenext ")
sf=upload.form("sf ")
sffs=upload.form("sffs ")
idpp=upload.form("idpp ")
ulx=upload.form("ulx ")
shu =上传。形式(“舒”)
addid =会话(" id ")
'' -
出错时继续下一步
iCount=0
errsl=0
如果CLng(shu)>然后是CLng(标书)
Cw= "最多只能提交一次" &；标书书& amp“文件
其他
'对于upload.objFile中的每个表单名'
set file=upload.file(formName)' '
size=file.filesize
'' -
如果大小& gtrsfilesize*1024然后cw = cw & amp“极限尺寸
如果大小=0，则
errsl=errsl+1
为...退出
如果…就会结束
size=Round(size/1024，2)& amp；" KB "
If Left(size，1)= " "然后size = " 0 " & amp大小
'' -
文件类型=文件.文件名
i=InStrRev(文件类型，" ")
l=Len(文件类型)
如果我& gt那么0
filetype=Right(filetype，l-i)
如果…就会结束
处理文件存储路径
如果filetype="jpg "或filetype="gif "或filetype="bmp "或filetype="jpeg "或filetype="peg "或filetype="png "或filetype="jpge "则
newfile = rsformPath & amp“pic/‘图片
elseif filetype="mid "或filetype="midi "或filetype="mmf "或filetype="amr "或filetype="imy "或filetype="adp "或filetype="m4a "然后
newfile = rsformPath & amp“铃/‘铃声
elseif filetype="sis "或filetype="sisx "或filetype="jar "或filetype="jad "或filetype="cab "或filetype="mpkg "然后
newfile = rsformPath & amp“软/”安装软件
elseif filetype="umd "或filetype="chm "或filetype="txt "或filetype="brm "或filetype="prc "或filetype="tcr "或filetype="pdb "或filetype="mdx "然后
newfile = rsformPath & amp“书/‘电子书
elseif filetype="bba "或filetype="smc "或filetype="nes "或filetype="nec "或filetype="gb "或filetype="gbc "或filetype="gba "或filetype="fba "或filetype="md "或filetype="sfc "
newfile = rsformPath & amp“游戏/‘游戏
elseif filetype="thm "或filetype="hme "或filetype="ski "或filetype="nth "或filetype="utz "或filetype="mtf "或filetype="sdt "或filetype="tsk "或filetype="uiq "然后
newfile = rsformPath & amp“sub/”主题
elseif filetype="mp3 "或filetype="aac "或filetype="wav "或filetype="ogg "或filetype="wma "然后
newfile = rsformPath & amp“音乐/‘音乐
elseif filetype="mp4 "或filetype="video "或filetype="wmv "或filetype="dat "或filetype="mpg "或filetype="mpeg4 "或filetype="rm "或filetype="rmvb "或filetype="asf "或filetype="3gp "或filetype="avi "然后
newfile = rsformPath & amp“mtv/”视频
elseif filetype="lrc "或filetype="nol "
newfile = rsformPath & amp“lrc/”歌词，网络logo
elseif filetype="wml "然后
newfile = rsformPath & amp“WML/”WML文件
其他
newfile = rsformPath & amp“其他/‘其他，rar，zip，pdf，pdg，emz等。
如果…就会结束
'' -
filetype=LCase(文件类型)
filetype=Replace(filetype，" ","")
filetype=CStr(文件类型)
如果InStr(rsallowedfile，filetype)=0，则cw = cw & amp"不允许的格式
如果errtxt=False，则
Cw= "不允许的格式"
如果…就会结束
-
如果rsnamekind=1，则
fname=file.filename
其他
使不规则化
sjs=INT((99-00+1)*RND+00)
strMonth =月(现在)
如果len(strMonth)=1，则
strMonth = " 0 " & ampstrMonth
如果…就会结束
strDay=day(现在)
如果len(strDay)=1，则
strDay = " 0 " & ampstrDay
如果…就会结束
文件名=新文件& amp年(现在)和。strMonth & ampstrDay & amplx _ spot & amp小时(现在)& amp分钟(现在)& amp第二次(现在)& ampsjs & amp"."& amp文件类型
fname =年份(日期)和。月(日)日。日期和时间。小时(时间())& amp分钟(时间())& amp秒(time())& amp；sjs
fname =完整路径。文件名
如果…就会结束
'' -
处理文件存储路径，文件夹处理
if file.filesize & gt0和cw= " "然后
模糊真实路径
real path = getRealPath(fjusb(filename))
创建文件夹
setCreateFolder完整路径& amp真实路径，文件类型
文件。另存为完整路径。真实路径
如果filetype="jpg "或filetype="bmp "或filetype="gif "或filetype="jpeg "或filetype="peg "或filetype="png "或filetype="jpge "则
如果lx_picsh="yes "那么
response . write create pic(fjusb(realpath)，98)
response . write create pic(fjusb(realpath)，176)
如果…就会结束
如果…就会结束
如果…就会结束
datadir=realpath
addtime=date()
myname=fname
解释=解释
数据目录=数据目录
文件大小=大小
addid=addid
如果cw= " "那么
设置rs =服务器。CreateObject("ADODB。记录集”)
rspl = " select * from[" & amp；lx _ sql & amp" _rjfj]"
康涅狄格州，1，2
rs.addnew
rs("rjsb")=rjjsb
如果id & lt& gt""那么rs("rjid")=id
if file.filename & lt& gt""那么rs("rjtxt")=file.filename
如果文件类型& lt& gt""那么RS(" rjks ")=文件类型
如果datadir & lt& gt""那么rs("rjurl")=fjusb(datadir)
如果大小& lt& gt""那么rs("rjsize")=size
if lid & lt& gt""那么rs("tid")=lid
如果id & lt& gt""那么rs("glid")=id
如果myid & lt& gt""那么rs("fyid")=myid
rs .更新
rs关闭
设置rs =无
如果…就会结束
iCount=iCount+1
msg = iCount & amp“文件上传成功！& ltbr/>
如果errsl & lt& gt那就“0”
cw = cw & amperrsl & amp“文件上传失败！& ltbr/>
如果…就会结束
if fjusb(datadir)& lt；& gt""那么newtxt = newtxt & amp"[img]" & amp；fjusb(数据目录)和"[/img][br]"
if upload . form(" txt " & amp；iCount & amp" ")& lt& gt""那么newtxt = newtxt & ampUSB(upload . form(" txt " & amp；iCount & amp”))& amp"[br]"
If pagenext="1 "和CStr(iCount)& lt；& gtCStr(Shu)Then new txt = new txt & amp；“[下一个]”
然后
如果…就会结束
设置上传=无
如果名称& lt& gt""和newtxt & lt& gt”“那么
fname = getRealnewPath(" view ")& amp；rjjsb & ampmakefilename(now())
回应。writeview add2 (fname，newtxt)'判断并生成文章。
txt=fname
唱片仓储
set rsez = server . createobject(" ADODB。记录集”)
aqlz = " select * from[" & amp；lx _ sql & amp" _myrj]"
康涅狄格州，1，3
rsez.addnew
rsez("lx")=lx
rsez("rjsb")=rjjsb
rsez("classid")=idpp
rsez("sf")=sf
rsez("sffs")=sffs
rsez("rjtxt")=txt
rsez(" pass ")=通过
如果ulx & lt& gt""那么rsez("ulx")=ulx
rsez(" rjname ")=名称
rsez("myid")=myid
rsez.update
味精=味精& amp“文章添加成功！请不要刷新，请返回！”
rsez .关闭
设置rsez =无
set rsez = server . createobject(" ADODB。记录集”)
aqlz="select id，rjsb from[" & amp；lx _ sql & amp" _myrj]其中rjsb = " & amprjjsb
康涅狄格州，1，3
如果不是rsez.eof，则
rjzyid=rsez(0)
如果…就会结束
rsez .关闭
设置rsez =无
set rsez = server . createobject(" ADODB。记录集”)
aqlz="select rjid，glid，rjsb from[" & amp；lx _ sql & amp" _rjfj]其中rjsb = " & amprjjsb
康涅狄格州，1，3
如果不是rsez.eof，则
rsez(0)=rjzyid
rsez(1)=rjzyid
rsez.update()
如果…就会结束
rsez .关闭
设置rsez =无
如果…就会结束
回复。写消息。(" & ltbr />)
写cw & amp(" & ltbr />)
response . write“--& lt；br />
response.write " & lta href = ' " & amp路径和路径admin/ebotx_wzpic.asp？v=2_1_1。mzt = 0 & amplx=2。lid = " & ampidpp & amp& ampsid = " & amp希德& amp& gt回去继续添加
response.write " & lta href = ' " & amp路径和路径admin/ebotx_articles.asp？v=2_1_1。行动= cklm & ampmzt = 0 & amplid = " & ampidpp & amp& ampsid = " & amp希德& amp& gt回到文章列表
response.write " & lta href = ' " & amp路径和路径admin/ebotx_article.asp？v=2_1_1。动作=主& ampmzt = " & ampmzt & amp& amplid = " & ampidpp & amp& ampsid = " & amp希德& amp& gt回到文章专栏
response.write " & lta href = ' " & amp路径和路径admin/ebotx_class.asp？v = " & ampv & amp& amp动作=主& ampsid = " & amp希德& amp& gt返回页面设计
response.write adfhurl()
response.write myhtml()
调用jtohwriit(ebottxt，zt)
呼叫通信
% & gt