📄 showall.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>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="1" cellpadding="0" cellspacing="1" bordercolor="#799AE1">
<% Dim strsql
Dim rs
Dim ID, i
i=0
strsql="select * from Picture order by ID desc"
set rs=conn.execute(strsql)
Response.Write "<tr>"
do while not rs.eof
i=i+1
Session("ID")=rs("ID")
%>
<td><div align="center"><a href="Picture.asp?ID=<% =rs("ID") %>" target="_blank"><img src="jpg.asp?ID=<% =rs("ID") %>" height="200" width="160" border="0"></a></div>
<br><div align="center"><a href="Picture.asp?ID=<% =rs("ID") %>" target="_blank"><%=rs("Text")%></a></div></td>
<%
If (i mod 4)=0 Then '每一行输出四张图片
Response.Write "</tr><tr>"
End If
rs.movenext
loop
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -