📄 stand_left.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
set rs_type=Server.CreateObject("ADODB.RecordSet")
sql="SELECT distinct Type FROM DB_bookinfo ORDER BY Type DESC"
rs_type.open sql,conn,3,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图书分类</title>
<link href="style.css" rel="stylesheet">
</head>
<body topmargin="0">
<table width="240" height="316" border="0" align="right" cellpadding="-2" cellspacing="-2">
<tr>
<td height="316" valign="top" background="images/bg_listleft.jpg">
<div align="center">
<table width="86%" height="92" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td height="18"> </td>
</tr>
<tr>
<td height="24"><img src="images/listsearch.gif" width="210" height="30"></td>
</tr>
<tr>
<td height="44" valign="top">
<table width="100%" height="43" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td height="10"></td>
</tr>
<% While NOT rs_type.EOF %>
<tr>
<td width="14"></td>
<td height="23"><A HREF="booklist.asp?Type=<%
= server.URLEncode(rs_type("Type"))%>" target="mainFrame">
<%=(rs_type.Fields.Item("Type").Value)%></A></td>
</tr>
<% rs_type.MoveNext()
Wend %>
</table></td>
</tr>
</table>
</div></td>
</tr>
</table>
</body>
</html>
<%
rs_type.Close()
Set rs_type = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -