📄 savepic.asp
字号:
<HTML><HEAD><TITLE>保存图片</TITLE>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../config.ini" -->
<%'保存图片，一对一
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 cnnDB=Server.CreateObject("ADODB.Connection")
cnnDB.Open connstring
Set rstObj=Server.CreateObject("ADODB.Recordset")
rstObj.Open "select * from ProFileList where ProFileListid="&session("id"),cnnDB,2,3,1
rstobj("imagebit")=1
rstobj("FileImg").appendchunk mydata
rstobj.update
rstobj.close
set rstobj=nothing
cnndb.Close
set cnndb=nothing
%>
<br><br>
<table width=100%>
<tr>
<td align=center>
图片上传成功!<br><br>
</td>
</tr>
<tr>
<td align=center>
<a href="javascript:closewindow();">关闭窗口</a>
</td>
<script language=javascript>
function closewindow(){
window.opener.location.reload();
window.close();
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -