📄 index.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>个人图书信息管理系统——推荐图书信息浏览</title>
</head>
<body>
<body alink="#000099" vlink="#00009" link="#00009">
<h1 align="center">推荐图书信息浏览</h1>
<div align="right"><a href="loginandreg.asp" target="_self">用户登录注册区</a></div>
<%
Dim conn,strSql,rs,rs1,strSql1
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Dbq=" & Server.Mappath("db/books.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
strSql="select * from bookinfo where flag=1"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSql,conn,1,1
if rs.RecordCount=0 then
Response.Write("对不起，数据库里没有信息!")
else
%>
<form method=get action=dealall.asp>
<table border="1" width="90%" align="center" background="bookback.gif">
<tr>
<th width="28%">书名
<th width="9%">类别
<th width="10%">作者
<th width="27%">图书简评
<th width="15%">推荐人
</tr>
<%
Do While Not rs.EOF
Set rs1=Server.CreateObject("ADODB.Recordset")
strSql1="select email from userinfo where user='"&rs("user")&"'"
rs1.Open strSql1,conn,1,1
%>
<tr>
<td><b><a href="content.asp?id=<%=rs("id")%>"><%=rs("bookname")%></a></b>
<td><%=rs("booktype")%>
<td><%=rs("author")%>
<td width="27%"><%=rs("opinion")%>
<td width="27%"><a href=mailto:<%=rs1("email")%>><%=rs("user")%></a>
</tr>
<%
rs.MoveNext
Loop
conn.Close
set rs=nothing
set Conn=nothing
%>
</table>
</form>
<% end if %>
<p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -