?? detail.asp
字號(hào):
<%@ LANGUAGE="VBScript" %>
<script language="vbscript" src="details.vbs" runat="server"></script>
<html>
<head>
<title>書本說(shuō)明介紹</title>
</head>
<body bgcolor="#FFFF99"><body background="img\backgd.jpg"></body>
<%
If Request("ISBN") <> "" Then
' 注釋：生成SQL查詢語(yǔ)句
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") & "'"
' 注釋：連接數(shù)據(jù)庫(kù)并執(zhí)行SQL語(yǔ)句
Set objRS = Session("objRS")
objRS.Source = mysql
objRS.Open
' 注釋：顯示相關(guān)結(jié)果
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>書 號(hào)：</th><td>" & objRS("ISBN") & "</td></tr>" & _
"<tr><th align=right>出版社：</th><td>" & objRS("ptitle") & "</td></tr>" & _
"<tr><th align=right>出版時(shí)間：</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>頁(yè) 數(shù)：</th><td>" & GetPages(objRS("pages")) & "</td></tr>" & _
"<tr><th align=right>字 數(shù)：</th><td>" & GetWords(objRS("words")) & "</td></tr>" & _
"<tr><th align=right>光 盤：</th><td>" & objRS("cdrom") & " 張</td></tr>" & _
"<tr><th align=right>定 價(jià)：</th><td>" & objRS("price") & " 元</td></tr>" & _
"</table>" & _
"</td></tr>" & _
"<tr><td colspan=2><hr></td></tr>" & _
"<tr><th colspan=2 align=left>內(nèi)容介紹:</th></tr>" & _
"<tr><td colspan=2>" & objRS("content") & "</td></tr>" & _
"<tr><td colspan=2><hr></td></tr>" & _
"<tr><th colspan=2 align=left>在線訂購(gòu):</th></tr>" & _
"<tr><td colspan=2><font color=red>" & _
"普通顧客：9折 " & price * 0.9 & " 元 節(jié)省" & price * 0.1 & " 元<br>" & _
"普通會(huì)員：8折 " & price * 0.8 & " 元 節(jié)省" & price * 0.2 & " 元<br>" & _
"高級(jí)會(huì)員：7折 " & price * 0.7 & " 元 節(jié)省" & price * 0.3 & " 元" & _
"</font></td></tr>" & _
"</table>"
Response.Write(outstr)
End If
' 注釋：關(guān)閉數(shù)據(jù)記錄集
objRS.Close
Set objRS = Nothing
End If
%>
</body>
</html>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -