📄 default.dsr
字号:
VERSION 5.00
Begin {17016CEE-E118-11D0-94B8-00A0C91110ED} Default
ClientHeight = 4245
ClientLeft = 0
ClientTop = 0
ClientWidth = 4785
_ExtentX = 8440
_ExtentY = 7488
MajorVersion = 0
MinorVersion = 8
StateManagementType= 1
ASPFileName = ""
DIID_WebClass = "{5602C127-E3F6-11D7-8CB8-E43BB7FAF135}"
DIID_WebClassEvents= "{5602C126-E3F6-11D7-8CB8-E43BB7FAF135}"
TypeInfoCookie = 0
BeginProperty WebItems {193556CD-4486-11D1-9C70-00C04FB987DF}
WebItemCount = 0
EndProperty
NameInURL = "Default"
End
Attribute VB_Name = "default"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private Sub WebClass_Start()
'写一个对用户的回答
With Response
.Write "<html>"
.Write "<head>"
.Write "<title>西华图书管理查询系统</title>"
.Write "</head>"
.Write "<body BGCOLOR=#ffffcc>"
.Write "<center>"
.Write "<h3>西华图书管理查询系统</h3>"
.Write "<a href=ReaderQuery.asp>读者数据查询</a>"
.Write "<br><br>"
.Write "<a href=BookQuery.asp>图书书目查询</a>"
.Write "</center>"
.Write "</body>"
.Write "</html>"
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -