config_action.asp

blog 又搭工

<!--#include file="conn.asp"-->
<%
	dim formdata,formsize,flag
		formsize=request.totalbytes
		formdata=request.binaryread(formsize)
			'response.binarywrite formdata
		'response.write "看哇，全是乱码！"
		dim bncrlf,divider
		bncrlf=chrB(13)&chrb(10)
		divider=leftb(formdata,cint(instrb(formdata,bncrlf)))
			'response.write "<br /><br /><br />分隔符"
			'response.binarywrite "<br />"& divider&"<br />"
	dim datastart,dataend,datalen
		datastart=instrb(formdata,bncrlf)+57
			'response.write "datastart=" &datastart&"<br />"
		dataend=instrb(datastart,formdata,bncrlf)-2
			'response.write "dataend="&dataend&"<br />"
		datalen=dataend-datastart+1
			'response.write "datalen="&datalen&"<br />"
		filepath=midb(formdata,datastart,datalen)
		
			'response.write "路径为:"
		'	response.binarywrite filepath
		'mime类型
		temp=dataend
		datastart=temp+18
		dataend=instrb(datastart,formdata,bncrlf&bncrlf)-1
		datalen=dataend-datastart+1
		contentType=midb(formdata,datastart,datalen)
		contentType=btos(contentType)
			'response.write "<br/><br/>MIME类型:"
			'response.binarywrite contentType
		temp=dataend
		datastart=dataend+5	
		dataend=instrb(datastart,formdata,divider)-3
		datalen=dataend-datastart+1
		fileimage=midb(formdata,datastart,datalen)
		'fileimage=btos(fileimage)
			'response.write "<br/><br/>文件内容:"
			'response.binarywrite fileimage
		filesize=lenb(fileimage)
		If filesize Mod 2 = 1 Then
			fileimage=fileimage & Chrb(32)
		End If		
		dim rs,strsql
		set rs=server.createobject("adodb.recordset")
		strsql="select * from config"
		'db.execute(strsql)
		rs.open strsql,db,1,3
			rs("blogPic").AppendChunk fileimage 					
		rs.update
		flag=0
		'session("imageid")=rs("id")
			response.Write "<script>alert('成功上传');</script>"
			response.Write "<script>window.close();</script>"
			'response.write "<script>window.location.reload(config.asp);</schript>"
			'response.Write "<script>window.close();</shcript>"
		
			
		
		'response.write "请复制这段下去放在[IMG]与[/IMG]之间就行了。<font color='red'>admin/show.asp?id="&session("imageid")&"</font>"
		%>
		<%set rs=nothing
		set db=nothing
	
%>