📄 bookquery.dsr
字号:
VERSION 5.00
Begin {17016CEE-E118-11D0-94B8-00A0C91110ED} BookQuery
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 = 37
BeginProperty WebItems {193556CD-4486-11D1-9C70-00C04FB987DF}
WebItemCount = 4
BeginProperty WebItem1 {FA6A55FE-458A-11D1-9C71-00C04FB987DF}
MajorVersion = 0
MinorVersion = 8
Name = "ShowBookDetail"
DISPID = 1280
Template = ""
Token = "WC@"
DIID_WebItemEvents= "{FD85A9E3-E316-11D7-8CB8-88C372D4FF35}"
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 = "ShowQueryResult"
DISPID = 1281
Template = ""
Token = "WC@"
DIID_WebItemEvents= "{FD85A9CB-E316-11D7-8CB8-88C372D4FF35}"
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 WebItem3 {FA6A55FE-458A-11D1-9C71-00C04FB987DF}
MajorVersion = 0
MinorVersion = 8
Name = "tmpDetail"
DISPID = 1282
Template = "Temp21.htm"
Token = "WC@"
DIID_WebItemEvents= "{5602C280-E3F6-11D7-8CB8-E43BB7FAF135}"
ParseReplacements= 0 'False
AppendedParams = ""
HasTempTemplate = 0 'False
UsesRelativePath= -1 'True
OriginalTemplate= "D:\VBDATA\PROGRAM\15\Temp2.htm"
TagPrefixInfo = 2
BeginProperty Events {193556D1-4486-11D1-9C70-00C04FB987DF}
EventCount = 0
EndProperty
BeginProperty BoundTags {FA6A55FA-458A-11D1-9C71-00C04FB987DF}
AttribCount = 0
EndProperty
EndProperty
BeginProperty WebItem4 {FA6A55FE-458A-11D1-9C71-00C04FB987DF}
MajorVersion = 0
MinorVersion = 8
Name = "tmpQuery"
DISPID = 1283
Template = "Temp31.htm"
Token = "WC@"
DIID_WebItemEvents= "{5602C272-E3F6-11D7-8CB8-E43BB7FAF135}"
ParseReplacements= 0 'False
AppendedParams = ""
HasTempTemplate = 0 'False
UsesRelativePath= -1 'True
OriginalTemplate= "D:\VBDATA\PROGRAM\15\Temp3.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 = "BookQuery"
End
Attribute VB_Name = "BookQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Option Compare Text
Dim strCode As String
Private Sub ShowBookDetail_UserEvent(ByVal EventName As String)
strCode = EventName
tmpDetail.WriteTemplate
End Sub
Private Sub ShowQueryResult_Respond()
tmpQuery.WriteTemplate
End Sub
Private Sub WebClass_Start()
Set NextItem = ShowQueryResult
End Sub
Private Sub tmpDetail_ProcessTag(ByVal TagName As String, TagContents As String, SendTags As Boolean)
Dim strOut As String, strSQL$, strCn$
Dim objBooks As Recordset, objCon As New Connection
strSQL = "select * from 馆藏书目 where 条码='" & strCode & "'"
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
With objBooks
Set .ActiveConnection = objCon
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
.Open strSQL
strOut = "图书详细信息如下:" & vbCr _
& "<table cellpading=3 border=1>" & 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>" & vbCr _
& "<tr>" & 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 _
& "</tr>" & vbCr
.MoveNext
Wend
strOut = strOut & "</table>" & vbCr
End With
objBooks.Close
Set objBooks = Nothing
objCon.Close
Set objCon = Nothing
TagContents = strOut
SendTags = False
End Sub
Private Sub tmpQuery_ProcessTag(ByVal TagName As String, TagContents As String, SendTags As Boolean)
Dim strOut As String, strSQL$, strName$, strCn$
Dim objBooks As Recordset, objCon As New Connection
strName = Request.QueryString("SNAME")
If strName = "" Then
strOut = ""
Else
strSQL = "select distinct 书名,作者,出版社,出版日期,条码 " & _
"from 馆藏书目 where 书名 like '%" & strName & "%'"
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
With objBooks
Set .ActiveConnection = objCon
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
.Open strSQL
If .RecordCount = 0 Then
strOut = "<HR>没有书名包含<font color=red>" & strName & "</font>的图书"
Else
strOut = "<HR>共找到<font color=red>" & .RecordCount & "</font>" _
& "本书名包含<font color=red>" & strName & "</font>的图书" _
& "<table cellpading=3 border=1>" & vbCr _
& "<tr>" & vbCr _
& "<th>书名</th>" & vbCr _
& "<th>作者</th>" & vbCr _
& "<th>出版社</th>" & vbCr _
& "<th>出版日期</th>" & vbCr _
& "</tr>" & vbCr
While Not .EOF
strOut = strOut & "<tr>" & vbCr & "<td>" & vbCr & "<a href=""" _
& URLFor(ShowBookDetail, CStr(.Fields("条码"))) & """>" & .Fields("书名") _
& "</td>" & vbCr _
& "<td>" & .Fields("作者") & "</td>" & vbCr _
& "<td>" & .Fields("出版社") & "</td>" & vbCr _
& "<td align=center>" & .Fields("出版日期") & "</td></tr>" & vbCr
.MoveNext
Wend
strOut = strOut & "</table>" & vbCr
End If
End With
objBooks.Close
Set objBooks = Nothing
objCon.Close
Set objCon = Nothing
End If
TagContents = strOut
SendTags = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -