📄 photoshow2.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% option explicit%>
<%Response.Buffer=True%>
<!--#Include file="odbc_conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图库浏览</title>
</head>
<body background="images/bback.gif">
<table width="75%" cellpadding="0" cellspacing="0" border="0" align="center">
<tr>
<td align="center" colspan="3"><font size="6" face="仿宋_GB2312" color="#3399FF"><b> 精彩图片收集 </b></font></td>
</tr>
<tr>
<td rowspan="2" width="130"><img src="images/c1.gif" width="130" height="30"></td>
<td height="12" valign="top"><img src="images/c2.gif" width="490" height="12"></td>
<td rowspan="2" width="130"><img src="images/c3.gif" width="130" height="30"></td>
</tr>
<tr>
<td background="images/c4.gif" height="18"><marquee height="20" direction="left" width="100%">
<font>欢迎光临我的论坛，请指教~！</font>
</marquee></td>
</tr>
</table>
<table width="75%" border="1" cellspacing="0" cellpadding="0" align="center">
<% Dim sql
Dim rs
Dim id, i
i=0
sql="select * from photo"
set rs=conn.execute(sql)
Response.Write "<tr>"
do while not rs.eof
i=i+1
Session("id")=rs("id")
%>
<td><div align="center"><a href="photolarge.asp?id=<% =rs("id") %>" target="_blank"><img src="show.asp?id=<% =rs("id") %>" height="220" width="250" border="0"></a></div>
<br><div align="center"><a href="photolarge.asp?id=<% =rs("id") %>" target="_blank"><%=rs("phototext")%></a></div><p></td>
<%
If (i mod 2)=0 Then
Response.Write "</tr><tr>"
End If
rs.movenext
loop
%>
</table>
<hr>
<center>
【<a href="javascript:window.close()"><font size="4" face="仿宋_GB2312" color="#0033FF"><b>关闭窗口</b></font></a>】
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -