<%if request.Cookies("masterflag")="" or request.Cookies("masterflag")="" then%> 后台管理登陆
 
 
用户名：
密码：
验证码： <%Call GetSafeCode%>
   
 
 
<% else Dim theInstalledObjects(17) theInstalledObjects(0) = "MSWC.AdRotator" theInstalledObjects(1) = "MSWC.BrowserType" theInstalledObjects(2) = "MSWC.NextLink" theInstalledObjects(3) = "MSWC.Tools" theInstalledObjects(4) = "MSWC.Status" theInstalledObjects(5) = "MSWC.Counters" theInstalledObjects(6) = "IISSample.ContentRotator" theInstalledObjects(7) = "IISSample.PageCounter" theInstalledObjects(8) = "MSWC.PermissionChecker" theInstalledObjects(9) = FS theInstalledObjects(10) = "adodb.connection" theInstalledObjects(11) = "SoftArtisans.FileUp" theInstalledObjects(12) = "SoftArtisans.FileManager" theInstalledObjects(13) = "JMail.SMTPMail" theInstalledObjects(14) = "CDONTS.NewMail" theInstalledObjects(15) = "Persits.MailSender" theInstalledObjects(16) = "LyfUpload.UploadFile" theInstalledObjects(17) = "Persits.Upload.1" %> 　
后台管理首页
  服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)
  数据库使用：<%If Not IsObjInstalled(theInstalledObjects(10)) Then%>×<%else%>√<%end if%>
  Jmail组件支持：<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>×<%else%>√<%end if%>   CDONTS组件支持：<%If Not IsObjInstalled(theInstalledObjects(14)) Then%>×<%else%>√<%end if%>
  AspJpeg组件支持： <%If Not IsObjInstalled("Persits.Jpeg") Then%> × <%else%> √ <%end if%>   ASPEMAIL组件支持： <%If Not IsObjInstalled("Persits.MailSender") Then%> × <%else%> √ <%end if%>
  WebEasyMail组件支持： <%If Not IsObjInstalled("easymail.MailSend") Then%> × <%else%> √ <%end if%>
 

系统管理快捷方式
  快捷功能链接   栏目管理 | 生成HTML | 退出系统

系统管理小贴士
生成静态HTML页 生成HTML文件的顺序原则上是与用户访问网站的顺序相反,如：
用户：首页--->一级行业分类--->二级行业分类--->三级行业分类--->详细内容页
生成：与用户访问的顺序相反，这样的目的是不出现大类已经生成而小类未生成出现的错误。
一句话贴士 ① 进行任何的删除操作都是不可逆的，要仔细看页面中的说明，以免误操作
② 系统管理员的帐号及密码应复杂，不易被猜测到，建议定期更改

<% Function IsObjInstalled(strClassString) on error resume next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %>

<% end if %>