📄 getdetail.asp

📁 实现了视窗化管理,并且能够进行本地asp查询功能
💻 ASP
字号:
<html>
<head><title>图书详细信息</title></head>
<body BGCOLOR=#ffffcc>
<A href=bookquery.asp>返回查询首页</a><br>
<%
'获得图书条码
strCode = request.querystring("bookcode")
'创建查询图书详细信息的SQL命令和ADO对象
strSQL = "select * from storebibli where alltrim(条码)='" & strCode & "'"
Set objCn = server.CreateObject("ADODB.CONNECTION")
Set objRs = server.CreateObject("ADODB.Recordset")
strCn = "Provider=MSDASQL.1;Persist Security Info=False;" _
            & "Data Source=vfpDSN;server=(localhost)"
objCn.open strCn
Set objRs.ActiveConnection = objCn
objRs.open (strSQL)
With objRs
	'输出图书详细信息
   strOut = "图书详细信息如下:" & vbCr _
        & "<table cellpading=3 border=1  align=center>" & vbCr _
        & "<tr>" & vbCr & "<td align=right><b>书名:</b></td>" & vbCr _
        & "<td>" & .Fields("书名") & "</td>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b>条码:</b></td>" & vbCr _
        & "<td>" & .Fields("条码") & "</td>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b>索数书号:</b></td>" & vbCr _
        & "<td>" & .Fields("索书号") & "</td>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b>作者:</b></td>" & vbCr _
        & "<td>" & .Fields("作者") & "</td>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b> 出版社:</b></td>" & vbCr _
        & "<td>" & .Fields("出版社") & "</td>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b> 出版日期:</b></td>" & vbCr _
        & "<td>" & .Fields("出版日期") & "</td></tr>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b> 字数:</b></td>" & vbCr _
        & "<td>" & .Fields("字数") & "</td></tr>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b> 页数:</b></td>" & vbCr _
        & "<td>" & .Fields("页数") & "</td></tr>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b> 内容简介:</b></td>" & vbCr _
        & "<td>" & .Fields("内容简介") & "</td></tr>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b> 关键词:</b></td>" & vbCr _
        & "<td>" & .Fields("关键词") & "</td></tr>" & vbCr _
        & "</tr><tr>" & vbCr & "<td align=right><b> 入馆时间:</b></td>" & vbCr _
        & "<td>" & .Fields("入馆时间") & "</td>" & vbCr _
        & "</tr>" & vbCr & "</table><br>"
    strOut = strOut & "图书的馆藏信息如下:" & vbCr _
        & "<table cellpading=3 border=1 align=center>" & vbCr _
        & "<tr>" & vbCr & "<th>库室名称</th>" & vbCr _
        & "<th>复本数</th>" & vbCr _
        & "<th>可借数</th>" & vbCr & "</tr>"
    While Not .EOF
        strOut = strOut & "<tr>" & vbCr _
            & "<td>" & .Fields("库室名") & "</td>" & vbCr _
            & "<td align=center>" & .Fields("复本数") & "</td>" & vbCr _
            & "<td align=center>" & .Fields("可借数") & "</td>" & vbCr _
            & "</tr>" & vbCr
        .MoveNext
    Wend
    strOut = strOut & "</table>" & vbCr
End With
response.write strOut
response.End
'释放数据源链接和ADO对象
objCn.Close
Set objRs = Nothing
Set objCn = Nothing
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -