img_process.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 50 行

ASP
50
字号
<%'┌─  风云ASP在线  ────────────────────────┐'│                                                                 │'│  作者:赵振波.	http://www.fyasp.com	    				    │'│                                                                 │'│   Q Q:176189168  										   	    │'│                                                                 │'│ Email:fy96@163.com                                             │'│                                                                 │'│ 程序定做,系统开发,网站制作,提供高质量的网络产品、技术和服务!│'│                                                                 │'│                                                                 │'└───────────────────  http://www.fyasp.com ──┘%><!--#include file="../inc/conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<% 
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) 
opendataconn
set rec=server.createobject("ADODB.recordset") 
rec.Open "SELECT * FROM [images] where id is null",conn,1,3 
rec.addnew 
rec("img").appendchunk mydata 
rec("userid")= session("loginid")
rec.update 
rec.close 
set rec=nothing 
closedataconn
%> 
<script language="javascript">
alert('图片上传完成!')
history.back();
</script>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?