readerquery.dsr

用户名：admin,口令：123456。 使用的数据库SQL Server 2000和Microsoft Access数 据库。Microsoft Access数据库使用Visual Basic提

VERSION 5.00
Begin {17016CEE-E118-11D0-94B8-00A0C91110ED} ReaderQuery 
   ClientHeight    =   6960
   ClientLeft      =   750
   ClientTop       =   1425
   ClientWidth     =   10710
   _ExtentX        =   18891
   _ExtentY        =   12277
   MajorVersion    =   0
   MinorVersion    =   8
   StateManagementType=   1
   ASPFileName     =   ""
   DIID_WebClass   =   "{12CBA1F6-9056-11D1-8544-00A024A55AB0}"
   DIID_WebClassEvents=   "{12CBA1F5-9056-11D1-8544-00A024A55AB0}"
   TypeInfoCookie  =   51
   BeginProperty WebItems {193556CD-4486-11D1-9C70-00C04FB987DF} 
      WebItemCount    =   2
      BeginProperty WebItem1 {FA6A55FE-458A-11D1-9C71-00C04FB987DF} 
         MajorVersion    =   0
         MinorVersion    =   8
         Name            =   "ShowReaderData"
         DISPID          =   1280
         Template        =   ""
         Token           =   "WC@"
         DIID_WebItemEvents=   "{4829DF17-E29F-11D7-8CB8-E9B64CC1A035}"
         ParseReplacements=   0   'False
         AppendedParams  =   ""
         HasTempTemplate =   0   'False
         UsesRelativePath=   0   'False
         OriginalTemplate=   ""
         TagPrefixInfo   =   2
         BeginProperty Events {193556D1-4486-11D1-9C70-00C04FB987DF} 
            EventCount      =   0
         EndProperty
         BeginProperty BoundTags {FA6A55FA-458A-11D1-9C71-00C04FB987DF} 
            AttribCount     =   0
         EndProperty
      EndProperty
      BeginProperty WebItem2 {FA6A55FE-458A-11D1-9C71-00C04FB987DF} 
         MajorVersion    =   0
         MinorVersion    =   8
         Name            =   "tmpReaderData"
         DISPID          =   1281
         Template        =   "Temp1.htm"
         Token           =   "WC@"
         DIID_WebItemEvents=   "{0F115C64-E3E9-11D7-8CB8-E43BB7FAF135}"
         ParseReplacements=   0   'False
         AppendedParams  =   ""
         HasTempTemplate =   0   'False
         UsesRelativePath=   -1  'True
         OriginalTemplate=   "D:\VBDATA\PROGRAM\14\Query\Temp1.htm"
         TagPrefixInfo   =   2
         BeginProperty Events {193556D1-4486-11D1-9C70-00C04FB987DF} 
            EventCount      =   0
         EndProperty
         BeginProperty BoundTags {FA6A55FA-458A-11D1-9C71-00C04FB987DF} 
            AttribCount     =   0
         EndProperty
      EndProperty
   EndProperty
   NameInURL       =   "ReaderQuery"
End
Attribute VB_Name = "ReaderQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Option Compare Text
Private Sub WebClass_Start()
    Set NextItem = ShowReaderData
End Sub

Private Sub ShowReaderData_Respond()
    tmpReaderData.WriteTemplate
End Sub


Private Sub tmpReaderData_ProcessTag(ByVal TagName As String, TagContents As String, SendTags As Boolean)
    Dim strOut As String, strSQL$, i%, iOut%, strCn$, strKN, strCode$
    Dim objBooks As Recordset, objCon As New Connection
    strCode = Request.QueryString("SKEY")
    If strCode = "" Then
        strOut = ""
    Else
        '根据借阅证号查询数据库获得读者借书信息
        strKN = Array("工程技术阅览室", "文理书阅览室", "工程技术书库", _
        "文理书室", "新书阅览室", "电子阅览室", "工具书库")
        '获得读者借阅图书信息
        strSQL = "select distinct 书名,借阅数据.条码,索书号,借期,还期,已还,库号 " & _
        "from 借阅数据,馆藏书目 where 借阅数据.条码=馆藏书目.条码 " & _
        "and 借阅数据.证号='" & strCode & "'" & " order by 借期"
        strCn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=;" & _
        "Initial Catalog=图书数据;Data Source=(local)"
        Set objCon = New Connection
        objCon.CursorLocation = adUseClient
        objCon.ConnectionString = strCn
        objCon.Open
        Set objBooks = New Recordset
        Set objBooks.ActiveConnection = objCon
        objBooks.CursorLocation = adUseClient
        objBooks.CursorType = adOpenForwardOnly
        objBooks.LockType = adLockReadOnly
        objBooks.Open strSQL
        If objBooks.RecordCount = 0 Then
            strOut = "<HR><font color=red>" & strCode & "没有借书记录！</font>"
        Else
            strOut = "<HR>借阅证号为：" & strCode & "的读者借书记录<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 _
            & "<th>库室名</th>" & vbCr _
            & "</tr>" & vbCr
            With objBooks
                While Not .EOF
                    If IsDate(.Fields("还期")) Then
                        If CDate(.Fields("还期")) < Date 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 IsDate(.Fields("还期")) Then
                        strOut = strOut & "<td>&nbsp;</td>" & vbCr
                    Else
                        strOut = strOut & "<td>" & .Fields("还期") & "</td>" & vbCr
                    End If
                    If .Fields("已还") Then
                        strOut = strOut & "<td>已还</td>" & vbCr
                    Else
                        strOut = strOut & "<td>未还</td>" & vbCr
                    End If
                    strOut = strOut & "<td>" & strKN(.Fields("库号")) _
                    & "</td>" & vbCr & "</tr>" & vbCr
                    .MoveNext
                Wend
            End With
            strOut = strOut & "</table>" & vbCr
        End If
        objBooks.Close
        Set objBooks = Nothing
        objCon.Close
        Set objCon = Nothing
    End If
    TagContents = strOut
    SendTags = False
End Sub
'