UC知道找高手帮我注解一下这段ASP代码
来源：百度知道 编辑：UC知道 时间：2024/05/21 13:52:45
<%
Dim AnRowItEsms,TplFileUrl,Sql,Rs,Id
Set AnRowItEsms = New EsmsMain
AnRowItEsms.ChkSqlIn '检查SQL恶意注入
if lcase(LanguageSet)="en" then
ErrStr="Error, this channel has closed!"
else
ErrStr="对不起，该版块已设置为关闭状态！"
end if
'检查该版块是否设置开放
if lcase(NewsOption)<>"open" then
Conn.Close
Set Conn=Nothing
response.write "<script>window.alert('"&ErrStr&"');window.location.href('"&AnRowItEsms.ClientInfo("FromUrl")&"')</script>"
Set AnRowItEsms=Nothing
response.end
end if
Id=trim(request.QueryString("id"))
page=request.QueryString("page")
if not isempty(page) then
PageCount=cint(page)
else
PageCount=1
end if
TplStr=AnRowItEsms.ReadFile("Template/"
Dim AnRowItEsms,TplFileUrl,Sql,Rs,Id
Set AnRowItEsms = New EsmsMain
AnRowItEsms.ChkSqlIn '检查SQL恶意注入
if lcase(LanguageSet)="en" then
ErrStr="Error, this channel has closed!"
else
ErrStr="对不起，该版块已设置为关闭状态！"
end if
'检查该版块是否设置开放
if lcase(NewsOption)<>"open" then
Conn.Close
Set Conn=Nothing
response.write "<script>window.alert('"&ErrStr&"');window.location.href('"&AnRowItEsms.ClientInfo("FromUrl")&"')</script>"
Set AnRowItEsms=Nothing
response.end
end if
Id=trim(request.QueryString("id"))
page=request.QueryString("page")
if not isempty(page) then
PageCount=cint(page)
else
PageCount=1
end if
TplStr=AnRowItEsms.ReadFile("Template/"
<%
Dim AnRowItEsms,TplFileUrl,Sql,Rs,Id'声明变量
Set AnRowItEsms = New EsmsMain'创建新EsmsMain对象
AnRowItEsms.ChkSqlIn '检查SQL恶意注入 这句是执行AnRowItEsms类的ChkSqlIn方法 自己看怎么写的吧 防止恶意注入的
if lcase(LanguageSet)="en" then '如果LanguageSet小写后为"en" if else不用说了吧?
ErrStr="Error, this channel has closed!"'错误提示变量ErrStr赋值为"Error, this channel has closed!"
else
ErrStr="对不起，该版块已设置为关闭状态！"
end if
'检查该版块是否设置开放
if lcase(NewsOption)<>"open" then'如果NewsOption小写后不是"open"
Conn.Close'关闭连接
Set Conn=Nothing'销毁链接 释放内存
response.write "<script>window.alert('"&ErrStr&"');window.location.href('"&AnRowItEsms.ClientInfo("FromUrl")&"')</script>"
'输出错误提示 并脚本跳转至AnRowItEsms.ClientInfo("FromUrl") AnRowItEsms是类自己看你的是怎么写的ClientInfo是类的方法函数 总的来看应