📄 user.asp
字号:
<html>
<head>
<title>个人图书信息管理</title>
<style type="text/css">
<!--
.style1 {
font-size: 16px;
color: #000066;
}
-->
</style>
</head>
<body alink="#000099" vlink="#00009" link="#00009">
<h1 align="center">个人图书信息管理</h1>
<%
Dim conn,strSql,rs
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Dbq=" & Server.Mappath("db/books.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
strSql="select * from bookinfo where user='"&session("user")&"'"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSql,conn,1,1
if rs.RecordCount=0 then
Response.Write("对不起，数据库里没有信息!")
end if
%>
<form method=get action=dealall.asp>
<table border="1" width="90%" align="center" background="bookback.gif">
<tr>
<th width="20%">书名
<th width="8%">类别
<th width="7%">作者
<th width="7%">价格
<th width="13%">购买时间
<th width="10%">存放位置
<th width="35%">图书读后感
</tr>
<%
Do While Not rs.EOF
%>
<tr>
<td><input type=radio name=id value="<%=rs("id")%>">
<b><a href="content.asp?id=<%=rs("id")%>"><%=rs("bookname")%></a></b>
<td><%=rs("booktype")%>
<td><%=rs("author")%>
<td><%=rs("price")%>
<td><%=rs("buytime")%>
<td width="10%"><%=rs("place")%>
<td width="35%"><%=rs("opinion")%>
</tr>
<%
rs.MoveNext
Loop
conn.Close
set rs=nothing
set Conn=nothing
%>
<tr>
<td colspan="7" align="right">
<input type=submit name=ins value="增加">
<input type=submit name=del value="删除">
<input type=submit name=upd value="修改">
</td>
</tr>
</table>
<p align="right"><a href="index.asp" class="style1">推荐图书信息</a></p>
</form>
<p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -