请问一下,下面的这个代码是什么意思
ChannelID = 0
If fso.FileExists(Server.mappath("NotInsalled.txt")) Then
Response.Write "<li>请先运行 <a href='Install.asp'>Install.asp</a> 以进行系统安装过程!</li><br/><br/>"
Response.Write "<li>如果你已经反复运行此程序,但仍然出现此提示,请使用FTP工具手动删除 NotInstalled.txt 文件。</li>"
Response.End
End IfIf FileName_SiteIndex <> "Index.asp" Then
Call CloseConn
Response.Redirect FileName_SiteIndex
Else
If CurrentPage > 1 Or PE_Cache.CacheIsEmpty("Site_Index") Then
Call GetHTML_SiteIndex
If CurrentPage = 1 Then PE_Cache.SetValue "Site_Index", strHtml
Else
strHtml = PE_Cache.GetValue("Site_Index")
End If
Response.Write strHtml
End If
Call CloseConn
%>
ChannelID = 0
If fso.FileExists(Server.mappath("NotInsalled.txt")) Then
Response.Write "<li>请先运行 <a href='Install.asp'>Install.asp</a> 以进行系统安装过程!</li><br/><br/>"
Response.Write "<li>如果你已经反复运行此程序,但仍然出现此提示,请使用FTP工具手动删除 NotInstalled.txt 文件。</li>"
Response.End
End IfIf FileName_SiteIndex <> "Index.asp" Then
Call CloseConn
Response.Redirect FileName_SiteIndex
Else
If CurrentPage > 1 Or PE_Cache.CacheIsEmpty("Site_Index") Then
Call GetHTML_SiteIndex
If CurrentPage = 1 Then PE_Cache.SetValue "Site_Index", strHtml
Else
strHtml = PE_Cache.GetValue("Site_Index")
End If
Response.Write strHtml
End If
Call CloseConn
%>
'fso组件判断文件是否存在
'Server.mappath("NotInsalled.txt")是把相对路径转换为绝对路径
If fso.FileExists(Server.mappath("NotInsalled.txt")) Then
'向页面输出HTML代码
Response.Write "<li>请先运行 <a href='Install.asp'>Install.asp</a> 以进行系统安装过程!</li><br/><br/>"
Response.Write "<li>如果你已经反复运行此程序,但仍然出现此提示,请使用FTP工具手动删除 NotInstalled.txt 文件。</li>"
'结束输出
Response.End
End If 'asp里面 if和end if是成对出现的
If FileName_SiteIndex <> "Index.asp" Then
'调用CloseConn函数,可能是关闭数据库连接的
Call CloseConn
'页面跳转到FileName_SiteInde页
Response.Redirect FileName_SiteIndex
Else
If CurrentPage > 1 Or PE_Cache.CacheIsEmpty("Site_Index") Then
Call GetHTML_SiteIndex
If CurrentPage = 1 Then PE_Cache.SetValue "Site_Index", strHtml
Else
strHtml = PE_Cache.GetValue("Site_Index")
End If
Response.Write strHtml
End If
Call CloseConn
%>