picdisplay.asp

来自「程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件」· ASP 代码 · 共 32 行

<!--#include file="conn.asp"-->
<%
ID=Request.QueryString("ID")
IF ID="" Then ID=0
IF Not IsNumeric(ID) Then ID=0
ID=Int(ID)
TypeID=Request.QueryString("typeid")
IF TypeID="big" Then
TypeID="big"
TypeInfo="大&nbsp;&nbsp;&nbsp;图&nbsp;&nbsp;&nbsp;片"
Else
TypeID="small"
TypeInfo="小&nbsp;&nbsp;&nbsp;图&nbsp;&nbsp;&nbsp;片"
End IF
%>
<%
SQL="Select * From 注册信息 Where ID=" & ID
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Conn,1,1
IF Not RS.EOF Then
Response.ContentType="image/gif"
IF TypeID="big" Then
IF RS("大图片")<>"" Then
Response.BinaryWrite RS("大图片")
End IF
Else
IF RS("小图片") <> "" Then
Response.BinaryWrite RS("小图片")
End IF
End IF
End IF
%>