📄 bookright.asp
字号:
<%@ language=vbscript %>
<% option explicit
session("salecomplete") = false
dim connstr,conn,rs,sql,mode,itemno
connstr="dbq="+server.MapPath("mdb/bookshop.mdb")+";driver={microsoft access driver (*.mdb)}"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from book"
rs.open sql,conn,1,1 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>书籍一览</title>
<script>
function openwin(id) { window.open("shopcart.asp?mode=add&itemno="+id,"","height=250,width=450,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=yes,location=no");}
</script>
</head>
<body bgcolor="#86BF78"><center>
<table border="0" width="800">
<tr>
<td width="20%" valign="top">
<table width="100%" height="156" border="0" bgcolor="#D5EEFA">
<tr>
<td width="100%" height="106">
<form method="post" action="usercheck.asp">
<table border="1" width="100%" bordercolor="#C479C8" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#2E5B00"><font color="#ffffff" size="2">用户登录</font></td>
</tr>
<tr>
<td width="100%" background="PIC/hoho.jpg"><div align="center"><font size="2">昵称</font>
<input name="user1" size="14" >
</div>
<p align="center"><font size="2">密码</font>
<input type="password" name="user2" size="14">
</p>
<div align="center">
<input type="submit" value="提交" name="B1">
</div></td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td width="100%" height="16">
<form method="post" action="newusercheck.asp">
<table border="1" width="100%" bordercolor="#C479C8" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#2E5B00"><font color="#ffffff" size="2">新用户注册</font></td>
</tr>
<tr>
<td width="100%" background="PIC/hoho.jpg"><div align="center">
<p><font size="-1">昵称</font>
<input name="newusername" size="14" >
</p>
</div>
<p align="center"><input type="submit" value="提交" name="B1"></p>
<p align="center"> </p></td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td width="100%" height="16">
<table border="1" width="100%" bordercolor="#C479C8" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#2E5B00"><font color="#ffffff" size="2">图书分类查询</font></td>
</tr>
<tr>
<td width="100%" background="PIC/hoho.jpg">
<form method="post" action="search.asp">
<p align="center"><font size="2">分类</font>
<select size="1" name="class2">
<option selected>企业类</option>
<option>杀毒类</option>
<option>办公类</option>
<option>软件类</option>
<option>文学类</option>
<option>电影类</option>
<option>其他</option>
</select>
</p>
<p align="center"><font size="2"><a href="bookaddr.asp">添加新书</a></font><br>
<input type="submit" value="提交" name="B1">
</p>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="80%" valign="top" bgcolor="#B4D3B7">
<table border="1" width="630" bordercolor="#C479C8">
<tr>
<td width="545" bgcolor="#008080" style="BACKGROUND-COLOR: #6699cc"><div align="center"><font color="white" size="2" style="BACKGROUND-COLOR: #6699cc">书籍一览</font></div></td>
<td width="60"></td>
</tr>
<% do while not (rs.EOF or err)%>
<tr>
<td width="545">
<% if rs("photo")<>"" then response.write "<img border='0' src='" & rs("photo") & "' align='left'>"%><br>
书名：<%=rs(1)%><br>
作者：<%=rs("author")%><br>
单价：<%=rs(3)%><br>
简介：<%=rs("memo")%>
</td>
<td width="60">
<% Response.Write "<a href='javascript:openwin("+cstr(rs(0))+")'>购买</a>"%> </td>
</tr>
<% rs.MoveNext
loop %>
<tr>
<td colSpan="2"> </td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</body>
</html>
<% rs.Close
set rs=nothing
conn.Close
set conn=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -