<%@ Language=VBScript %>
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseif Request("id")<>"" and not IsNumeric(Request("id")) Then
	ef=True
	ec="编号必须是数字"
elseIf Request("imgid")<>"" and not IsNumeric(Request("imgid")) Then
	ef=True
	ec="imgid编号必须是数字"
end if
if not ef Then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
Set dsnewsone = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_online_aws where agent1='"&session("agentusername")&"' and id='"&Request("id")&"'"
	dsnewsone.Open Sql,conn,1,1
if not dsnewsone.eof then
if Not IsNull(dsnewsone("aboutimg"&Request("imgid"))) then
response.contenttype="image/jpeg"
Response.BinaryWrite dsnewsone("aboutimg"&Request("imgid")).getChunk(200000)
end if
dsnewsone.close 
set dsnewsone=nothing 
set conn=nothing 
end If
End if

if ef then
Response.Redirect "e.asp?e="&ec
end if
%>