<%@ Language=VBScript %>
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canmoneyK")="" Then
	ef=True
	ec="您没有此操作的权限。"
ElseIf not IsNumeric(Request("id"))  Then
	ef=True
	ec="ID应该是数字！"
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsICPDB = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_ICPDB where id ='"&Request("id")&"'"
	dsICPDB.Open Sql,conn,1,1
if dsICPDB.Eof then
	ef=True
	ec="不存在的ID!"
end if
end if

if not ef Then
	Response.Expires = -9999 
	Response.AddHeader "Pragma","no-cache"
	Response.AddHeader "cache-ctrol","no-cache"
response.contenttype="image/jpeg"
Response.BinaryWrite dsICPDB("idimg").getChunk(500000)
dsICPDB.close 
set conn=nothing 
end If

if ef then
Response.Redirect "e.asp?e="&ec
end If%>