📄 img_deal.asp

📁 这是我个人用ASP制作的一个动态网页,也是我的主页,谢谢大家的使用~~~`

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn/Conn.asp"-->
<!--#include file="adovbs.inc"-->

<html>
<head>
<title>图片上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>

</body>
</html>
<%
'将图片保存到数据库中
imgsize=request.TotalBytes
imgData=request.BinaryRead(imgsize)
Hcrlf=chrB(13)&chrB(10)
Divider=leftB(imgdata,clng(instrB(imgData,Hcrlf))-1)
dstart=instrB(imgData,chrB(13)&chrB(10)&chrB(13)&chrB(10))+4
Dend=instrB(dstart+1,imgdata,divider)-dstart
Mydata=MidB(imgdata,dstart,dend)
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Img where id is null"
rs.open sql,conn,1,3
on error resume next
rs.addnew
rs("Img").appendchunk mydata
rs.update
rs.close
set rs=nothing
if err=0 then
%>
	<script language="javascript">
	alert("文件上传成功!");
	window.location.href="index.asp";
	</script>
<%else%>
	<script language="javascript">
	alert("文件上传失败!");
	window.location.href="Img.asp";
	</script>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -