📄 upimage.asp
字号:
<!-- #include file="../conn_lr.asp"-->
<%
Server.ScriptTimeout =3000
session("id")=session("oabusyname")
%>
<title>图片上传</title>
<script language=javascript>
window.moveTo(100,100);
window.innerWidth=400;
window.innerHeight=400;
</script>
<body bgcolor="buttonface" style="border:none;font-size:12px" >
<br>
正在上传图片，请稍侯......<br>
<br>
<% 'dim rs,vid,FormSize,FormData,bncrlf,divider,datastart,dataend,imageup,Image,iformsize,iformdata
'获取输入参数:记录号和操作标志
vid=Request.QueryString("id")
FormSize = Request.TotalBytes
FormData = Request.BinaryRead(FormSize)
'上传照片函数
function ImageUp(iformsize,iformdata)
bncrlf=chrb(13) & chrb(10)
divider=leftb(iformdata,instrb(iformdata,bncrlf)-1)
datastart=instrb(iformdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,iformdata,divider)-datastart
imageup=midb(iformdata,datastart,dataend)
end function
'创建记录访问对象
SET rs=Server.CreateObject("ADODB.RecordSet")
'设置照片数据库
Image=ImageUp (FormSize,Formdata)
if FormSize>100 then
rs.open "select * from images where 1=0 ",Session("conn"),1,3
'response.end
rs.addnew
rs("vimage").appendchunk Image
rs("vid").value=vid
rs("vdate").value=date()
rs("vowner").value=Session("id")
rs.Update
rs.Close
end if
'关闭记录源
set rs=nothing
%>
<br>
图片上传成功! <br>
<br>
<input type="submit" name="Submit" value="关闭" onClick=window.close()>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -