📄 pic_display.asp

📁 ASP网页

💻 ASP

字号:

<%@ LANGUAGE="VBscript" %>
<%
Response.Buffer = true
Response.Expires = 0
%>
<!-- #include file="../dsn.asp" -->
<%
keyno=Request.QueryString("keyno")
keyword=Request.QueryString("keyword")
flagfield=Request.QueryString("flagfield")
filefield=Request.QueryString("filefield")
strflag=Request.QueryString("strflag")
tablename=Request.QueryString("tablename")
if flagfield="" then flagfield="picflag" 
if filefield="" then filefield="picfile" 
if keyword="" then keyword="keyno"
if strflag="" then strflag="0"
%>
<html>
<head>
<title>ͼƬ</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<% 
Response.Buffer = 1
Response.Clear
Response.ContentType="image/*"

set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.createobject("ADODB.recordset") 
if strflag="1" then
	sqltext="select "+flagfield+","+filefield+" from "+tablename+" where "+keyword+"='"+keyno+"'"
else
	sqltext="select "+flagfield+","+filefield+" from "+tablename+" where "+keyword+"="&keyno
end if
'Response.Write sqltext
'Response.End

rs.Open sqltext,cn,1,1
Response.BinaryWrite(rs(filefield))
rs.Close()
cn.Close()
%> 
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -