2024年6月20日发(作者：)
ASP无组件上传图片的源代码
<%
Set conn=Object("tion")
connstr="Provider=.4.0;Data Source="& h("")
connstr
'----------------------------------------
function getextendname(filename)
extname=lcase(filename)
extname=right(extname,3)
extname=right(extname,3-instr(extname,"."))
getextendname=extname
end function
'---------------------------------------------------
'-------------------------------------------------------
function filename()
filename=now()
filename=replace(filename,"-","")
filename=replace(filename,":","")
filename=replace(filename," ","")
filename=filename
end function
'----------------------------------------------------------
'-------------------------------------------------------------------
set upload=new upload_5xsoft
set upfile=("files")
title=("t1")
info=("t2")
if ze>0 and me<>"" then
if instr("jpg,bmp,gif",getextendname(me))>0 then
if ze<204800 then
fname=filename&"."&getextendname(me)
h("pic/"&fname)
sql="insert into img (title,info,imgpath)values('"+ title +"','"+ info +"','"+ fname +"')"
e sql
""
else
""
end if
else
""
end if
end if
'--------------------------------------------------------
发布者：admin，转转请注明出处：http://www.yc00.com/web/1718841853a2753000.html
评论列表（0条）