⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 saveimages.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复! 自己写吧~~~:) 4 又 是一点缺陷
💻 ASP
字号:
<HTML><HEAD><TITLE>保存图片</TITLE>
<META content=text/html;charset=gb2312 http-equiv=Content-Type>
<LINK href="images/global.css" rel=STYLESHEET type=text/css>
<!--#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 images",cnnDB,2,3,1
		rstobj.AddNew
		rstobj("imagetype")=session("imagetype")
		rstobj("linkid")=session("id")
		rstobj("createdate")=now()
		rstobj("creator")=session("loginid")
		rstobj("imagesize")=formsize
		rstobj("image").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 + -