📄 dispimag.asp
字号:
<%@ language = "VBSCRIPT" %>
<!--#include file="globvars.asp"-->
<!--#include file="imgsz.asp"-->
<!--#include file="commfunc.asp"-->
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 2.0">
<title>Display Image</title>
<%
Public Conn, Rec, AutoNumb, ImagDire, PageNumb, ImagName, ImagTitl, ImagDesc
AutoNumb = CLng(request.querystring("an"))
ImagDire = request.querystring("di")
PageNumb = CInt(request.querystring("pn"))
SearStri = Request.QueryString("ss")
EncoStri = Server.URLEncode(SearStri)
Call open_data(Conn, DataPathName)
Set Rec = Server.CreateObject("ADODB.Recordset")
if ImagDire = "none" then
s = "SELECT AutoNumb, ImagName, ImagTitl, ImagDesc FROM gallery WHERE AutoNumb=" & AutoNumb
Rec.Open s, Conn, 3
elseif ImagDire = "prev" then
if SearStri <> "ALL IMAGES" AND SearStri <> "" then
s = "SELECT AutoNumb, ImagName, ImagTitl, ImagDesc "
s = s & "FROM gallery "
s = s & "WHERE AutoNumb>" & AutoNumb & " AND ImagDesc LIKE '%" & SearStri & "%'"
else
s = "SELECT AutoNumb, ImagName, ImagTitl, ImagDesc "
s = s & "FROM gallery WHERE AutoNumb>" & AutoNumb
end if
Rec.Open s, Conn, 3
elseif ImagDire = "next" then
if SearStri <> "ALL IMAGES" AND SearStri <> "" then
s = "SELECT AutoNumb, ImagName, ImagTitl, ImagDesc "
s = s & "FROM gallery "
s = s & "WHERE AutoNumb<" & AutoNumb & " AND ImagDesc LIKE '%" & SearStri & "%'"
else
s = "SELECT AutoNumb, ImagName, ImagTitl, ImagDesc "
s = s & "FROM gallery "
s = s & "WHERE AutoNumb<" & AutoNumb & " ORDER BY AutoNumb Desc"
end if
Rec.Open s, Conn, 3
end if
if NOT Rec.EOF then
ImagName = Rec("ImagName")
if IsNull(Rec("ImagTitl")) then
ImagTitl = " "
else
ImagTitl = Rec("ImagTitl")
end if
if IsNull(Rec("ImagDesc")) then
ImagDesc = " "
else
ImagDesc = Rec("ImagDesc")
ImagDesc = Replace(ImagDesc & " ","<","<")
ImagDesc = Replace(ImagDesc & " ",">",">")
ImagDesc = Replace(ImagDesc & " ", vbCrLf, "<br>")
end if
AutoNumb = Rec("AutoNumb")
else
ImagName = "none"
end if
Rec.close
set Rec = nothing
Conn.close
set Conn = nothing
%>
</head>
<body bgcolor="#FFFFFF">
<div align="center"><center>
<table border="0" cellpadding="2" cellspacing="0" width="96%">
<tr>
<td align="center" width="100%" bgcolor="#FFFFB0"><font
color="#FF0000" size="3" face="Verdana"><strong>Display
Image/Title Cell</strong></font></td>
</tr>
</table>
</center></div><div align="center"><center>
<table border="0" cellpadding="7" cellspacing="0" width="96%">
<tr>
<td valign="top" width="18%" bgcolor="#C0C0C0"><p
align="left"><font color="#000000" size="1"
face="Verdana"><strong>Remember, if you want some custom
work done for your gallery or other asp pages, please </strong></font><a
href="mailto:gmarston@unicormed.com"><font
color="#0000FF" size="1" face="Verdana"><strong>email</strong></font></a><font
color="#000000" size="1" face="Verdana"><strong> me.</strong></font></p>
<p align="left"><a href="../default.asp"><font
color="#0000FF" size="1" face="Verdana"><strong>Home</strong></font></a></p>
</td>
<td valign="top" width="82%"><p align="center">
<%
s = "<a href='dispimag.asp?an=" & AutoNumb & "&di=prev&pn=" & PageNumb
s = s & "&ss=" & EncoStri & "'>"
s = s & "<font color='#0000FF' size='1' face='Verdana'><strong>Previous Image"
s = s & "</font></strong></a>   "
s = s & "<a href='detepage.asp?an=" & AutoNumb & "&ss=" & EncoStri & "'>"
s = s & "<font color='#0000FF' size='1' face='Verdana'><strong>Return to Thumbnails"
s = s & "</font></strong></a>   "
s = s & "<a href='dispimag.asp?an=" & AutoNumb & "&di=next&pn=" & PageNumb
s = s & "&ss=" & EncoStri & "'>"
s = s & "<font color='#0000FF' size='1' face='Verdana'><strong>Next Image"
s = s & "</font></strong></a><br>"
response.write s
if ImagName = "none" OR NOT gfxSpex(Server.MapPath(ImagName),w,h,d,t) then
s = "<br><font color='" & ImagTitlColor & "' size='" & ImagTitlSize &"' face='"
s = s & ImagTitlFace & "'>IMAGE NOT FOUND</font><br>"
response.write s
else
if DispImagTitl <> 0 AND ImagTitl <> "" then
s = "<br><font color='" & ImagTitlColor & "' size='" & ImagTitlSize &"' face='"
s = s & ImagTitlFace & "'>" & ImagTitl & "</font><br>"
response.write s
end if
s = "<br><img src='" & ImagName & "' border='" & ImagBordThic & "' width='"
s = s & w & "' height='" & h & "'>"
response.write s
if DispImagDesc <> 0 AND ImagDesc <> "" then
s = "<br><br><font color='" & ImagDescColor & "' size='" & ImagDescSize &"' face='"
s = s & ImagDescFace & "'>" & ImagDesc & "</font>"
response.write s
end if
end if
%></p>
</td>
</tr>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -