asp图片上传(成功)

最新推荐文章于 2024-04-22 23:31:26 发布

zbxzhuboxing

最新推荐文章于 2024-04-22 23:31:26 发布

阅读量543

点赞数

分类专栏： asp&html 文章标签： asp sql server input file action 数据库

本文链接：https://blog.csdn.net/zbxzhuboxing/article/details/1616342

版权

asp&html 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

conn.asp

   <%
   dim conn
   dim connstr
   call connstart()
   Response.CacheControl = "no-cache"
   sub connstart()
       connstr="driver={sql server};server=(local);uid=sa;pwd=hicc;database=zbx"
       set conn=server.createobject("ADODB.CONNECTION")
       conn.open connstr
       if err.number<>0 then
         set conn=nothing
   response.write "数据库连接出错！"&err.description
   Response.End
         end if
end sub
sub connend()
      conn.close
      set conn=nothing
end sub
%>

img.asp

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form name="mainForm" enctype="multipart/form-data" action="upload.asp" method=post>
<input type="file" id="zbx" name="zbx" />
<input type="submit" value="ok!" />
</form>
</body>
</html>

upload.asp

<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)   &   chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf   &   bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set   rec=server.createobject("ADODB.recordset")
rec.Open   "SELECT   *   FROM   [img]",conn,1,3
rec.addnew
rec("img").appendchunk   mydata
rec.update
rec.close
set   rec=nothing
set   connGraph=nothing
%>

zbxzhuboxing

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
asp图片上传(成功)

conn.asp dim conn dim connstr call connstart() Response.CacheControl = "no-cache" sub connstart() connstr="driver={sql server};server=(local);uid=sa;pwd=hicc;database=zbx"
复制链接

扫一扫