UC知道高手帮忙为我注下释
来源：百度知道 编辑：UC知道 时间：2024/06/25 16:18:31
这段代码是什么意思，烦请高手为我加个注释，不胜感激！
<!--#include file="data.asp"-->
<!--#include file="const.asp"-->
<%
If IsObject(myconn) = false Then
On Error Resume Next
Dim myconn,conndata
set myconn = Server.CreateObject("adodb.connection")
myconn.Open conndata
If Err.Number <> 0 Then
Response.write "系统日常维护中!"
Response.End()
end if
end if
%>
<!--#include file="data.asp"-->
<!--#include file="const.asp"-->
<%
If IsObject(myconn) = false Then
On Error Resume Next
Dim myconn,conndata
set myconn = Server.CreateObject("adodb.connection")
myconn.Open conndata
If Err.Number <> 0 Then
Response.write "系统日常维护中!"
Response.End()
end if
end if
%>
<%
If IsObject(myconn) = false Then '检查myconn是否是对象，如果不是对象往下看
On Error Resume Next '启用错误处理程序。
Dim myconn,conndata '定义变量
set myconn = Server.CreateObject("adodb.connection") '创建数据库连接对象实例
myconn.Open conndata '打开数据连接,conndata变量中应该已经存在数据库连接信息
If Err.Number <> 0 Then '如果err对象捕捉到有错误发生(Err.Numer>0代表有错误了)，则提示"系统日常维护中!" ，程序到此结束，不往下继续运行。
Response.write "系统日常维护中!"
Response.End()
end if
end if
%>