readerquery.asp

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

ASP
92 行
字号 
<html>
<head><title>读者借书信息查询</title></head>
<body BGCOLOR=#ffffcc>
<form method=get action=readerquery.asp>
请输入借阅证号
<input name="code" type="TEXT" value="">
<INPUT TYPE=submit VALUE=查询>
</form>
<hr>
<%
strCode = request.querystring("code")
If strCode = "" Then
    response.End
Else
    '创建ADO对象
    Set objCn = server.CreateObject("ADODB.CONNECTION")
    Set objRs = server.CreateObject("ADODB.Recordset")
    '通过ODBC DSN访问Visual FoxPro数据库
    strCn = "Data Source=vfpDSN;server=(localhost)"
    objCn.Open strCn        '打开数据源联接
    Set objRs.ActiveConnection = objCn
    strSql = "select distinct 姓名,部门 from readerdata" _
    & " where alltrim(证号)='" & strCode & "'"
    objRs.Open (strSql)
    If objRs.EOF Then
        strOut = "借阅证号:<font color=red>" & strCode & "</font> 输入错误"
    Else
        objRs.MoveFirst
        strName = Trim(objRs.Fields("姓名"))
        strDept = Trim(objRs.Fields("部门"))
        strSql = "select distinct 书名,Lenddata.条码,索书号,借期,还期,库室 " & _
        "from Lenddata,Storebibli where Lenddata.条码=Storebibli.条码 " & _
        "and Lenddata.证号='" & strCode & "'" & " order by 借期"
        objRs.Close
        objRs.Open (strSql)
        With objRs
        If .EOF Then
        '输出无借阅记录信息
        strOut = "借阅证号为：<font color=red>" & strCode & "</font>的读者是" _
        & "<font color=red>" & strDept & "</font>的<font color=red>" _
        & strName & "</font>，没有借书记录!"
        Else
        '输出读者借阅记录
        strOut = "借阅证号为：<font color=red>" & strCode & "</font>的读者是" _
        & "<font color=red>" & strDept & "</font>的<font color=red>" _
        & strName & "</font>,借书记录如下：<br>" & _
        "<table cellpading=3 border=1>" & vbCr _
        & "<tr>" & vbCr _
        & "<th>书名</th>" & vbCr _
        & "<th>条码</th>" & vbCr _
        & "<th>索书号</th>" & vbCr _
        & "<th>借期</th>" & vbCr _
        & "<th>还期</th>" & vbCr _
        & "<th>馆藏库室</th>" & vbCr _
        & "</tr>" & vbCr
        While Not .EOF
            If IsDate(.Fields("还期")) Then
            If CDate(.Fields("还期")) < Date And .Fields("还期") <> "0:00:00" Then
                strOut = strOut & "<tr BGCOLOR=red>" & vbCr
            Else
                strOut = strOut & "<tr>" & vbCr
            End If
            Else
                strOut = strOut & "<tr>" & vbCr
            End If
            strOut = strOut & "<td>" & .Fields("书名") & "</td>" & vbCr _
            & "<td>" & .Fields("条码") & "</td>" & vbCr _
            & "<td>" & .Fields("索书号") & "</td>" & vbCr _
            & "<td>" & .Fields("借期") & "</td>" & vbCr
            If Not (CDate(.Fields("还期")) < Date And .Fields("还期") <> "0:00:00") Then
                strOut = strOut & "<td>&nbsp;</td>" & vbCr
            Else
                strOut = strOut & "<td>" & .Fields("还期") & "</td>" & vbCr
            End If
            strOut = strOut & "<td>" & .Fields("库室") _
            & "</td>" & vbCr & "</tr>" & vbCr
            .MoveNext
        Wend
        strOut = strOut & "</table>" & vbCr
        End If
        End With
    End If
    response.write strOut
    response.End
End If
'释放数据源链接和ADO对象
objCn.Close
Set objRs = Nothing
Set objCn = Nothing
%>
</body>
</html>

readerquery.asp - 源码说明

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

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

⌨️ 快捷键说明

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