📄 xq.asp
字号:
<%@ language="vbscript" %>
<!--#include file="..\adovbs.inc"-->
<%
bookbm=request("bookbm")
DbPath = SERVER.MapPath("..\bookshop.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sql="select * from book where bookbm='"&bookbm&"'"
rs.open sql,conn,adopenkeyset,adlockoptimistic,adcmdtext
%>
<html>
<head>
<title>详细情况</title>
</head>
<body bgcolor="#ffffff" background="../FOTO/039.gif">
<form>
<table border="1" width="80%" cellpadding="0" align="center" bgcolor="#D0CCFF" cellspacing="0" bordercolor="#666600">
<tr bgcolor="#6666ff">
<td align="center" colspan="3"><font size="5" color="#FFFFFF"><% =rs("bookname") %></font></td>
</tr>
<tr align="left">
<td width="20%" bgcolor="#00CC99" height="30" >商品名称：</td>
<td width="60%" bgcolor="#CCCCFF" ><% =rs("bookname") %></td>
<% if rs("picture")<>"No" then %>
<td width="20%" rowspan="3" valign="top" ><img src="../photo/<% =rs("picture") %>" width="120" height="90" ></td>
<% end if %> </tr>
<tr align="left">
<td width="20%" bgcolor="#00CC99" height="30" >生产厂家：</td>
<td width="60%" bgcolor="#CCCCFF" ><% =rs("Author") %></td>
</tr>
<tr align="left">
<td width="20%" bgcolor="#00CC99" height="30" >厂 址:</td>
<td width="60%" bgcolor="#CCCCFF" ><% =rs("publish") %></td>
</tr>
<tr align="left">
<td width="20%" bgcolor="#00CC99" height="30" >型 号:</td>
<td colspan="2" bgcolor="#CCCCFF" ><% =rs("cd") %></td>
</tr>
<tr align="left">
<td width="20%" bgcolor="#00CC99" height="30" >尺 寸:</td>
<td colspan="2" bgcolor="#CCCCFF" ><% =rs("size") %></td>
</tr>
<tr align="left">
<td width="20%" bgcolor="#00CC99" height="30" >价 格:</td>
<td colspan="2" bgcolor="#CCCCFF" ><% =rs("price") %><% =rs("dw") %></td>
</tr>
<tr align="left">
<td width="20%" bgcolor="#00CC99" height="30" >售 价:</td>
<td colspan="2" bgcolor="#CCCCFF" ><% =rs("yhj") %><% =rs("dw") %></td>
</tr>
<tr align="left">
<td width="20%" bgcolor="#00CC99" height="30" >详细说明:</td>
<td colspan="2" bgcolor="#CCCCFF" ><% =Replace(rs("info"),chr(13),"<br>") %></td>
</tr>
</table>
<p align="center">
<input type="button" name="Submit" value="关闭本窗口" onClick="window.close()">
</p>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -