📄 detail.asp
字号:
<%@ LANGUAGE="VBScript" %>
<script language="vbscript" src="details.vbs" runat="server"></script>
<html>
<head>
<title>书本说明介绍</title>
</head>
<body bgcolor="#FFFF99"><body background="img\backgd.jpg"></body>
<%
If Request("ISBN") <> "" Then
' 注释：生成SQL查询语句
mysql = "SELECT a.ISBN, a.title AS btitle, a.author, a.ptime, a.porder, " & _
"a.format, a.psize, a.pages, a.words, a.cdrom, a.price, " & _
"a.content, b.title AS ptitle " & _
"FROM book AS a JOIN Publisher AS b " & _
"ON PATINDEX('%-' + b.id + '-%',a.ISBN) > 0 " & _
"WHERE a.ISBN = '" & Request("ISBN") & "'"
' 注释：连接数据库并执行SQL语句
Set objRS = Session("objRS")
objRS.Source = mysql
objRS.Open
' 注释：显示相关结果
If objRS.RecordCount > 0 Then
price = CSng(objRS("price"))
outstr = _
"<table width='80%'>" & _
"<tr><td colspan=2>" & _
"<font size=5 face=楷体_GB2312><b>" & objRS("btitle") & _
"</b></font></td></tr>" & _
"<tr><td colspan=2><hr></td></tr>" & _
"<tr><td width='40%' valign=top>" & _
"<table><tr><td><img src=" & GetCover(objRS("ISBN")) & _
" width=133 height=175 border=1>" & _
"</tr></th><tr><th>图书封面</th></tr></table>" & _
"</td><td>" & _
"<table>" & _
"<tr><th align=right>作 者：</th><td>" & objRS("author") & "</td></tr>" & _
"<tr><th align=right>书 号：</th><td>" & objRS("ISBN") & "</td></tr>" & _
"<tr><th align=right>出版社：</th><td>" & objRS("ptitle") & "</td></tr>" & _
"<tr><th align=right>出版时间：</th><td>" & objRS("ptime") & "</td></tr>" & _
"<tr><th align=right>版 次：</th><td>第 " & objRS("porder") & " 版</td></tr>" & _
"<tr><th align=right>装 订：</th><td>" & GetFormat(objRS("format")) & "</td></tr>" & _
"<tr><th align=right>开 本：</th><td>" & GetPsize(objRS("psize")) & "</td></tr>" & _
"<tr><th align=right>页 数：</th><td>" & GetPages(objRS("pages")) & "</td></tr>" & _
"<tr><th align=right>字 数：</th><td>" & GetWords(objRS("words")) & "</td></tr>" & _
"<tr><th align=right>光 盘：</th><td>" & objRS("cdrom") & " 张</td></tr>" & _
"<tr><th align=right>定 价：</th><td>" & objRS("price") & " 元</td></tr>" & _
"</table>" & _
"</td></tr>" & _
"<tr><td colspan=2><hr></td></tr>" & _
"<tr><th colspan=2 align=left>内容介绍:</th></tr>" & _
"<tr><td colspan=2>" & objRS("content") & "</td></tr>" & _
"<tr><td colspan=2><hr></td></tr>" & _
"<tr><th colspan=2 align=left>在线订购:</th></tr>" & _
"<tr><td colspan=2><font color=red>" & _
"普通顾客：9折 " & price * 0.9 & " 元 节省" & price * 0.1 & " 元<br>" & _
"普通会员：8折 " & price * 0.8 & " 元 节省" & price * 0.2 & " 元<br>" & _
"高级会员：7折 " & price * 0.7 & " 元 节省" & price * 0.3 & " 元" & _
"</font></td></tr>" & _
"</table>"
Response.Write(outstr)
End If
' 注释：关闭数据记录集
objRS.Close
Set objRS = Nothing
End If
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -