savepic.asp

来自「本源文件中包含内容是ASP环境下实现图片的二进制存取以及一个按纽提交两个表单的方」· ASP 代码 · 共 41 行

ASP

41 行

 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% option explicit%>
<%Response.Buffer=True%>
<!--#Include file="odbc_conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>SavePic.asp</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body>
<div align="center">
 <p><% 
 Dim rs
 Dim sql
 Dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata 
  
 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 rs=Server.CreateObject("ADODB.RecordSet")
 sql="select * from Picture"
 rs.Open sql,conn,1,2
 rs.addnew
 rs("Text")=Session("PicText")
 rs("img").appendchunk mydata
 rs.update
 rs.close
 set rs=nothing
%>
  图片上传成功! <a href="ShowAll.asp">预览图片</a></p>
</div>
</body>
</html>

savepic.asp - 源码说明

本页面展示了「本源文件中包含内容是ASP环境下实现图片的二进制存取以及一个按纽提交两个表单的方法」中的 savepic.asp 源码文件，采用 ASP 编程语言编写，共 41 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?