?? savepic.asp
字號(hào):
<%@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 '獲取提交數(shù)據(jù)量的總字節(jié)數(shù)
formdata=Request.BinaryRead(formsize) '保存從客戶(hù)端讀取到的數(shù)據(jù)
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">預(yù)覽圖片</a></p>
</div>
</body>
</html>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -