<% 
data_path="../" 'ACC连接数据库路径，对SQL无效
numid="no"
dir="no"
 %>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
 <%
iscanlogin=0
if issession=0 then
%>
<!--#include file="inc.asp"-->
<%
    if boollogin=false then
    iscanlogin=1
    end if 
 else
	 if session("globalecmaster")="" and  session("masterflag")="" then
	 iscanlogin=1
	 end if
 end if
 if iscanlogin=1 then 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=webname%> - 后台管理登陆</title>
<STYLE type=text/css>
.style3 {
	FONT-SIZE: 9pt; COLOR: #dadeed; TEXT-DECORATION: none
}
.style4 {
	FONT-SIZE: 9pt
}
.ipt {
	BORDER-RIGHT: #a8b1d2 1px solid; BORDER-TOP: #a8b1d2 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #a8b1d2 1px solid; WIDTH: 120px; COLOR: #7b8ac3; BORDER-BOTTOM: #a8b1d2 1px solid; HEIGHT: 18px
}
.copyright {
	PADDING-RIGHT: 1px; BORDER-TOP: #6595d6 1px dashed; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; FONT: 11px verdana,arial,helvetica,sans-serif; COLOR: #4455aa; PADDING-TOP: 1px; TEXT-DECORATION: none
}
</STYLE>
<SCRIPT language=javascript> 
<!-- Hide 
function killErrors() { 
return true; 
} 
window.onerror = killErrors; 
// --> 
</SCRIPT> 
<SCRIPT language=JavaScript src="js/hidlogin.js"  type=text/javascript></SCRIPT>
<script language="javascript1.1" type="text/javascript">

	function HOPE_return()
	{
		 HOPE_check=document.HOPE_form;
		if (HOPE_check.userid.value==""){
			HOPE_check.userid.focus();
			alert("请输入您的用户名");
			return false;
		}	
		if (HOPE_check.password.value==""){
				HOPE_check.password.focus();
				alert("您的密码不能为空");
				return false;
		}	
		if (HOPE_check.password.value.length>16){
				HOPE_check.password.focus();
				alert("您的密码长度最多只能输入16位!");
				return false;
		}
		if(HOPE_check.verifycode.value==""){
		HOPE_check.verifycode.focus();
				alert("验证码不能空！");
				return false;
		}
		if(HOPE_check.verifycode.value=="点击获取验证码"){
		HOPE_check.verifycode.focus();
				alert("没有填写验证码！");
				return false;
		}
	}
</script>
<link href="images/style.CSS" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #D2E3F4;
}
-->
</style>
<BODY topMargin=0 leftmargin="0" marginheight="0" oncontextmenu="return false" on-selectstart="return false" ondragstart="return false"   oncut="return   false;"   oncopy="return   false;"   onpaste="return   false;">
<FORM name="HOPE_form" action="check.asp" method="post" onSubmit="return HOPE_return()">
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="600" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" height="600">
            <tr>
              <td height="65" width="33%" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#D6E6F5', endColorStr='#6785DB', gradientType='0')">&nbsp;</td>
                </tr>
            <tr>
              <td height="1"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="1" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#698FD8', endColorStr='#FFFFFF', gradientType='1')"></td>
                  <td style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#698FD8', gradientType='1')"></td>
                </tr>
              </table></td>
            </tr>
                <tr>
                  <td valign="middle" bgcolor="#3F63AD"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" height="100%">

                    <tr>
                      <td width="49%" height="400" align="right" valign="middle"><table border="0" align="right" cellpadding="0" cellspacing="0">
                        <tr>
                          <td><img src="../images/logo.png" width="188" height="83"></td>
                          <td width="40">&nbsp;</td>
                        </tr>
                      </table>
                      </td>
                      <td width="1" height="300" valign="middle"><table width="1" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td width="1" height="150" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#3F63AD', endColorStr='#ffffff', gradientType='0')"></td>
                        </tr>
                        <tr>
                          <td height="150" valign="middle" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#ffffff', endColorStr='#3F63AD', gradientType='0')"></td>
                        </tr>
                      </table></td>
                      <td height="400" valign="middle"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr>
                          <td width="6%">&nbsp;</td>
                          <td width="45%" valign="middle"><table width="254" border="0" cellpadding="0" cellspacing="0">

                            <tr>
                              <td height="30"><table border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td  rowspan="2"><span class="style3"><strong>用户名称：</strong></span></td>
                                  </tr>
                                  <tr>
                                    <td><input name="userid" value="" type="text"   size="26" style="border-width:1px; border-style:solid; border-collapse:collapse; border-color:#cccccc;height:18;width:110"></td>
                                  </tr>
                              </table></td>
                            </tr>
                            <tr></tr>
                            <tr>
                              <td height="30"><table border="0" cellpadding="0" cellspacing="0">
                                <tr>
                                  <td  rowspan="2" align="center" valign="middle"><span class="style3"><strong>用户密码：</strong></span></td>
                                  </tr>
                                <tr>
                                  <td><label>
                                    <input type="password" size=26  name="password" onFocus="this.select();"   onKeyDown="Calc.password.value=this.value" onChange="Calc.password.value=this.value" onclick= "password1=this;showkeyboard();this.readOnly=1;Calc.password.value=''" style="border-width:1px; border-style:solid; border-collapse:collapse; border-color:#cccccc;height:18;width:110">
                                    </label>                                  </td>
                                </tr>
                              </table></td>
                            </tr>
                            <tr>
                              <td height="30"><table border="0" cellpadding="0" cellspacing="0">
                                <tr>
                                  <td width="66" rowspan="2" align="center"><span class="style3"><strong>验 证 码：</strong></span></td>
                                  <td width="79"></td>
                                </tr>
                                <tr>
                                  <td><INPUT name="verifycode" type="text" size="16.5"   maxlength="5"   onKeyUp="value=value.replace(/[^\d]/g,'') "  tonbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"  onblur="hiddenVerify()" 
onfocus="focusGetVerify(this)" value="点击获取验证码" onClick="focusGetVerify(this)"></td>
                                  <td width="50" align="left"></td>
                                </tr>
                              </table></td>
                            </tr>
                            <tr>
                              <td><table width="100%"   border="0" cellpadding="0" cellspacing="0">
                                <tr></tr>
                                <tr>
                                  <td >&nbsp;</td>
                                  <td width="85" valign="bottom" ><label title="登录"></label></td>
                                </tr>
                              </table></td>
                            </tr>
                          </table>
                            <script language="JavaScript" type="text/JavaScript">
        SetFocus();
                        </script></td>
                          <td width="49%" align="left" valign="middle"><input type=hidden value=Login name=Action>
                            <input type="image" name="imageField" src="../images/login.jpg" style=" width:40px; height:43px;"/></td>
                        </tr>
                      </table>                      </td>
                    </tr>
                  </table></td>
              </tr>
                <tr>
                  <td height="1"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="1" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#698FD8', endColorStr='#FFFFFF', gradientType='1')"></td>
                  <td style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#698FD8', gradientType='1')"></td>
                    </tr>
                  </table></td>
              </tr>
                <tr>
                  <td width="33%"  height="65" valign="bottom" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#6785DB', endColorStr='#D6E6F5', gradientType='0')"><!--#include file="copy.asp"--></td>
              </tr>
        </table></td>
  </tr>
</table>
</form>
<script language="JavaScript" src="../js/Keyboard.js"></script>
<%
else
 set rs=Server.CreateObject("ADODB.recordset")
 sql1="select count(id) from Websen_corporation where flag=0 "
set totle=conn.execute(sql1)
totle=totle(0)
sql1="select count(id) from Websen_corporation where flag=1"
set totle1=conn.execute(sql1)
totle1=totle1(0)
sql1="select count(info_id) from Websen_Info where flag=0"
set news=conn.execute(sql1)
news=news(0)
sql1="select count(info_id) from Websen_Info where flag=1"
set olds=conn.execute(sql1)
olds=olds(0)
sql1="select count(id) from Websen_productshow where flag=0"
set o_news=conn.execute(sql1)
o_news=o_news(0)
sql1="select count(id) from Websen_productshow where flag=1"
set o_olds=conn.execute(sql1)
o_olds=o_olds(0)
sql1="select count(NewsId) from Websen_news "
set n_totle=conn.execute(sql1)
n_totle=n_totle(0)
%>
<%
	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"
%>
<LINK href="css/style.css" rel=stylesheet type=text/css>
<TABLE width="98%" border=0 align=center cellPadding=3 cellSpacing=1 bgcolor="#FFFFFF" class=tableBorder>
  <TBODY>
  <TR>
    <TH class=tableHeaderText colSpan=2 height=25><%=webname%>&#183;中国--后台管理首页</strong></TH>
  <TR>
    <TD class=forumRowHighlight colSpan=2 height=23>其中:待审核会员<font color=#ff0000> <%=totle%> </font>名[已审<font color=#ff0000><%=totle1%></font>名]&nbsp;&nbsp;&nbsp;待审核供求信息<font color=#ff0000> <%=news%> </font>条 [已审<font color=#ff0000><%=olds%></font>条]&nbsp;&nbsp;&nbsp;待审核产品信息<font color=#ff0000> <%=o_news%> </font>条 [已核<font color=#ff0000><%=o_olds%></font>条]</TD></TR>
  <TR>
    <td width="50%" class="forumRow" height=23>&nbsp;&nbsp;服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
　	<td width="50%" class="forumRow">&nbsp;&nbsp;当前使用版本：网盛B2B行业商务网站管理系统<span class="plan">2008<font color="#FF0000">sp6</font>专业版</span><font color="red"><b></b></font>(
  <%if Database_type=1 then response.Write("MSSQL版") else response.Write("ACCESS版") end if%>)</td>
	</tr>
	<tr>
		<td width="50%" class="forumRow" height=23  >&nbsp;&nbsp;数据库使用：<%If Not IsObjInstalled(theInstalledObjects(10)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td><td class=forumRow>&nbsp;&nbsp;WebEasyMail组件支持：
      <%If Not IsObjInstalled("easymail.MailSend") Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
	</tr>
	<tr>
		<td width="50%" class="forumRow" height=23>&nbsp;&nbsp;Jmail组件支持：<%If Not IsObjInstalled(theInstalledObjects(13)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
		<td width="50%" class="forumRow">&nbsp;&nbsp;CDONTS组件支持：<%If Not IsObjInstalled(theInstalledObjects(14)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td></TR><tr>
		<td width="50%" class="forumRow" height=23>&nbsp;&nbsp;AspJpeg组件支持：
      <%If Not IsObjInstalled("Persits.Jpeg") Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
		<td width="50%" class="forumRow">&nbsp;&nbsp;ASPEMAIL组件支持：
      <%If Not IsObjInstalled("Persits.MailSender") Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%> </td></TR>
  <TR>
    <TD class=forumRow colSpan=2     height=23 align="right"><a href="Admin_ServerInfo.asp">点此查看更详细的服务器信息>>></a>&nbsp;&nbsp;</div></TD>
</TR></TBODY></TABLE>
 <table width="98%" border="0" align=center cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="tableBorder">
<tr>
		<th class="tableHeaderText" colspan=2 height=25>系统管理快捷方式</th>
	<tr>
 	<tr>
		<td width="2%" height="50" align="center" bgcolor="#0099CC"   ><font color="#FFFFFF">快捷功能链接</font></td>
		<td width="99%" class="forumRow"><a href=admin_setting.asp>系统基本设置</a> | <a href=gbook/khbook.asp>意见管理</a> | <a href=about/index.asp?action=1>网站公告管理</a> | <a href=Meta_keywords.asp>网站优化信息设置</a> | <a href=friendsite/index.asp>友情连接管理</a> | <a href=../ads/list.asp>广告管理</a> | <a href=keywords.asp>热门关键字(静)设置</a> | <a href=hotkeywords.asp>热门关键字(动)设置</a> <BR> 
		  <a href=vipgrade/grademanage.asp>会员等级管理</a> | <a href=vipgrade/modispace.asp>会员空间管理</a> | <a href=vipgrade/work.asp>会员招聘管理</a> | <a href=bizre/check.asp?action=1>待审证书管理</a> | <a href="mysj/index.asp?action=0">待审供求管理</a> | <a href="spzs/admin_check.asp?action=0">待审产品管理</a> |  <a href=vipgrade/Bs_Mail_Send.asp>邮件发送</a> | <a href=vipgrade/addarea.asp>区域管理</a> | <a href="System/Admin_Admin.asp" >管理员管理</a> <br>  <a href="sort/sort.asp" >网站行业类别管理</a> |  <a href="info/type.asp" >行业资讯类别管理</a> | <a href="expo/expo.asp?pass=1" >展会管理</a> | <a href="expo/info.asp" >展会资讯管理</a> | <a href="Item/Admin_ItemManage.asp">系统采集管理</a>	|  <a href="help/sort.asp" >帮助类别管理</a>	<br>  <a href="../manage/makehtml/index.asp">生成HTML管理</a> |   <a href="../manage/makehtml/index/index.asp">生成网站各版块首页</a>  | <a href="about/aboutus.asp" >底部栏目信息设置与生成</a>	|  	<a href="webtemp/ws_index.asp" >系统模版管理</a> | 	<a href="userskin/admin_userskin.asp?action=showskin&ispass=1" >用户模版管理</a> | <a href="webtemp/cuslabel.asp" >自定义标签管理 </a>	   | <a href="file/default.asp" >生成文件与图片管理</a></td>
	</tr>
</table>
  
<table width="98%" border="0" align=center cellpadding="3" cellspacing="1" bgcolor="#FFFFFF" class="tableBorder" style="line-height:14pt">
<tr><th class="tableHeaderText" colspan=2 height=25>系统管理小贴士</th><tr>
 <tr>
  <td class="forumRow" height=23 width="120" valign=top>
<B>生成静态HTML页</B></td>
  <td width="846" height=23 valign="top" class="forumRow">① 此操作一共有两个地方进行生成操作:<a href="../manage/makehtml/index.asp"><font color="red">按需生成网站HTML文件</font></a>与<a href="about/aboutus.asp"><font color="red">底部栏目信息设置与生成</font></a>
 <br>如果在【常规管理】的【<a href="admin_setting.asp">基本设置</a>】中设置了"网站各首页自动更新信息的时间间隔"与"网站各分类级页面自动生成、更新信息的时间间隔"
 则可不用生成："生成行业二级分类页"、"生成行业三级分类页"、"生成行业一级分类页"中的生成供应内容\生成求购内容\生成公司内容\生成产品信息等操作！<br>
 ②【自定义标签管理】自己设计定义页面的部分内容，将该自定的标签放入模板页(系统模版)中即可！
 <br>③【自定义标签辅助工具】提供系统自带的系统标签，放入系统模板中即可！
  <br>④【生成文件与图片管理】包含对上传的图片文件的管理与生成的网站各栏目的HTML文件管理以及批量删除网站各栏目下生成的HTML文件等操作！
  </td>
</tr>
<tr><td class="forumRow" height=23 width="111" valign=top>
<B>一句话贴士</B>
</td>
<td class="forumRow" height=23 width="846">
① 进行任何的删除操作都是不可逆的，要仔细看页面中的说明，以免误操作
<BR>
② 网站后台为整套系统最关键也是最脆弱部分，建议定期的查看系统安全日志<BR>
③ 系统的后台管理路径(修改后台管理文件夹名称)建议更改(直接在程序所在的服务器上修改或通过FTP修改)系统管理员的帐号及密码应复杂，不易被猜测到，建议定期更改<BR>④ 温馨提示(一)：系统正常运行，请注意确保【<a href="">基本设置</a>】中:1."网站所在文件夹(安装路径)"项的内容正确! 2."网站地址"项内容正确;3."网站地址(简洁)"项内容正确
<br>
⑤ 温馨提示(二)：网站数据库参数配置文件为database_type.asp，其中有相关链接参数与后台验证使用session或cookie的设置
</td>
</tr>
</table>
<br><br><br>
<% 
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
conn.close
set conn=nothing
end if
%>