showlogo.asp

不是我做的一个留言板

<%

   dim conn   
   dim connstr
   dim rs
   dim sql
	dim id
	id = request("id")

   on error resume next
   call conn_init()

set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM imgdata WHERE user = '" & id & "'"
rs.Open sql,conn,1,1
if rs.recordcount = 0 then
	rs.close
	rs.open "SELECT * FROM imgdata WHERE user = 'not_available'",conn,1,1
end if
response.contenttype="x-mixed-replace"
Response.BinaryWrite rs("imagedata")
rs.Close

endconnection

function ImageUp(formsize,formdata)          '这个函数的功能是截取其中的图像部分。
    bncrlf=chrb(13) & chrb(10)               '做成函数后。以后你可以自己随意使用了。
    divider=leftb(formdata,instrb(formdata,bncrlf)-1)
    datastart=instrb(formdata,bncrlf&bncrlf)+4
    dataend=instrb(datastart+1,formdata,divider)-datastart
    imageup=midb(formdata,datastart,dataend)
end function

'-------------------------
sub conn_init()
connstr="DBQ="+server.mappath("mis.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};pwd=dinoxingnami;"       
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then 
	err.clear
	set conn=nothing
	response.write "数据库连接出错！"
	Response.End
else
	conn.open connstr
	if err then 
		'err.clear
		set conn=nothing
		response.write "数据库连接出错！！！<br>" + err.description
		err.clear
		Response.End 
	end if
end if   
end sub
	
sub endConnection()
  conn.close
  set conn=nothing
end sub
  
%>