bookquery.asp

来自「实现了视窗化管理,并且能够进行本地asp查询功能」· ASP 代码 · 共 78 行

ASP
78 行
字号 
<html>
<head><title>图书书目信息查询</title></head>
<body BGCOLOR=#ffffcc>
<form method=get action=bookquery.asp>
&nbsp&nbsp请选择查询方式
<select name=query>
<option>书名</option>
<option>作者</option>
<option>出版社</option>
</select name=query>
请输入查询关键字
<input name="txtKey" type="TEXT" value="">
<INPUT TYPE=submit VALUE=查询>
</form>
<hr>
<%
'获得查询方式和查询关键字
query = request.querystring("query")
txtkey = request.querystring("txtkey")
If txtkey = "" Then
    '无查询关键字，结束响应
    response.End
Else
    '无查询关键字，执行查询，首先构造查询字符串
    strSql = "SELECT DISTINCT 条码,书名,作者,出版社,出版日期 " _
             & "FROM storebibli WHERE at('" & txtkey & "'," & query & ")>0"
    '创建执行查询的ADO对象
    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)     '使用Recordset对象执行查询
    With objRs
        If .EOF Then
            '无查询结果
            strOut = "没有找到<font color=red>" & query & "</font>" _
                    & "包含<font color=red>" & txtkey & "</font>的图书"
        Else
            '有查询结果，构造返回信息字符串，以表格的形式显示查询结果
            '定义表头
            strOut = "<table cellpading=3 border=1 align=center>" & vbCr _
            & "<tr>" & vbCr & "<th>书名</th>" & vbCr & "<th>作者</th>" & vbCr _
            & "<th>出版社</th>" & vbCr & "<th>出版日期</th>" _
            & vbCr & "</tr>" & vbCr
            n = 0
            '根据查询结果定义表格内容
            While Not .EOF
                n = n + 1
                strOut = strOut & "<tr>" & vbCr & "<td>" & vbCr _
                & "<a  href=getDetail.asp?bookcode=" _
                & .Fields("条码") & ">" _
                & .Fields("书名") & "</a>" _
                & "</td>" & vbCr _
                & "<td>" & .Fields("作者") & "</td>" & vbCr _
                & "<td>" & .Fields("出版社") & "</td>" & vbCr _
                & "<td  align=center>" & .Fields("出版日期") _
                & "</td></tr>" & vbCr
                .MoveNext
            Wend
            strOut = "共找到<font color=red>" & n & "</font>" _
            & "本<font color=red>" & query & "</font>包含<font color=red>" _
            & txtkey & "</font>的图书:" & strOut
            strOut = strOut & "</table>" & vbCr
        End If
    End With
    '输出查询结果
    response.write strOut
    response.End
End If
'关闭数据源联接，释放ADO对象
objCn.Close
Set objRs = Nothing
Set objCn = Nothing
%>
</body>
</html>

bookquery.asp - 源码说明

本页面展示了「实现了视窗化管理,并且能够进行本地asp查询功能」中的 bookquery.asp 源码文件，采用 ASP 编程语言编写，共 78 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP查询相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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