<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<META NAME="copyright" CONTENT="Copyright 2004-2008" />
<META NAME="Author" CONTENT="迅易评选管理系统" />
<META NAME="Keywords" CONTENT="" />
<META NAME="Description" CONTENT="" />
<TITLE>网站信息设置</TITLE>
<link rel="stylesheet" href="Images/CssAdmin.css">
<script language="javascript" src="../Script/Admin.js"></script>
</HEAD>

<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/Const.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
if Instr(session("AdminPurview"),"|71,")=0 then 
  response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  response.end
end if
'========判断是否具有管理权限
%>
<body>
<%
dim ID,SiteTitle,SiteUrl,ComName,Address,ZipCode,Telephone,Fax,Email,Keywords,Descriptions,IcpNumber,SystemSN,Centerv,ViewFlag,ipclock
dim MesViewFlag,memclock,numbers,interval,equantum,endtime
select case request.QueryString("Action")
  case "Save"
    SaveSiteInfo
  case else
    ViewSiteInfo
end select
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
  <tr>
    <td height="24" nowrap><font color="#FFFFFF"><img src="Images/Explain.gif" width="18" height="18" border="0" align="absmiddle">&nbsp;<strong>系统管理：添加，修改站点的相关信息</strong></font></td>
  </tr>
  <tr>
    <td height="24" align="center" nowrap bgcolor="#EBF2F9">
	<a href="PassUpdate.asp" target="mainFrame" onClick='changeAdminFlag("修改密码")'>修改密码</a>	<font color="#0000FF">&nbsp;|&nbsp;</font>	<a href="SetSite.asp" target="mainFrame" onClick='changeAdminFlag("网站信息设置")'>网站信息设置</a><font color="#0000FF"></a><font color="#0000FF">&nbsp;|&nbsp;</font><font color="#0000FF">&nbsp;|&nbsp;</font><a href="DataManage.asp" target="mainFrame" onClick='changeAdminFlag("数据库操作")'>数据库操作</a>
<font color="#0000FF">&nbsp;|&nbsp;</font><a href="FriendSiteList.asp" target="mainFrame" onClick='changeAdminFlag("友情链接")'>友情链接</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="HackSql.asp" target="mainFrame" onClick='changeAdminFlag("阻止SQL注入记录")'>阻止SQL注入记录</a>    </td>
  </tr>
</table>
<br>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
  <form name="editForm" method="post" action="SiteSave.asp" >
  <tr>
    <td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct idth="100%">

      <tr>
        <td width="160" height="20" align="right">&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
	  	  <tr>
        <td height="20" align="right">网站开关：</td>
        <td>
		
		<input name="ViewFlag" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1" <%if ViewFlag=1 then response.write ("checked")%>>		投票开关：		 
		  <input name="ipclock" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1"  <%if ipclock=1 then response.write ("checked") %>>
		  会员开关：
		  <input name="memclock" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1"  <%if memclock=1 then response.write ("checked") %>>		 
		  *　勾选为开通</td>
      </tr> 
      <tr>
        <td height="20" align="right">会员投票数：</td>
        <td><input name="numbers" type="text" class="textfield" id="SiteTitle" style="WIDTH: 50;" value="<%=numbers%>" >
          &nbsp;* 限制每个会员投多少票，开通会员有效</td>
      </tr>
      <tr>
        <td height="20" align="right">结束投票日期：</td>
        <td><input name="endtime" type="text" class="textfield" id="SiteTitle" style="WIDTH: 80;" value="<%=endtime%>" >&nbsp;*选择投票结束日期		  </td>
      </tr>
      <tr>
        <td height="20" align="right">间隔时间：</td>
        <td><input name="interval" type="text" class="textfield" id="SiteTitle" style="WIDTH: 50;" value="<%=interval%>" >&nbsp;*同一IP两次投票时间间隔,以<font color=red>分钟为单位</font></td>
      </tr>
      <tr>
        <td height="20" align="right">时段限制：</td>
        <td><font color=red>注意：[对投票时间段的限制不选为不限制]</font></td>
      </tr>
	    <tr>
        <td height="20" align="right"></td>
        <td>
		<table width="70%"  border="0" align="left" cellpadding="3" cellspacing="2" bgcolor="#FFFFFF">
        <tr align="left" bgcolor="#EBF2F9" >
          <td><input name="equantum" type="checkbox" id="equantum" value="1" <%if instr(equantum,",1,") then response.write " checked" end if%>>
            1</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="2" <%if instr(equantum,",2,") then response.write " checked" end if%>>
            2</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="3" <%if instr(equantum,",3,") then response.write " checked" end if%>>
            3</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="4" <%if instr(equantum,",4,") then response.write " checked" end if%>>
            4</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="5" <%if instr(equantum,",5,") then response.write " checked" end if%>>
            5</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="6" <%if instr(equantum,",6,") then response.write " checked" end if%>>
            6</td>
        </tr>
        <tr align="left" bgcolor="#EBF2F9">
          <td><input name="equantum" type="checkbox" id="equantum" value="7" <%if instr(equantum,",7,") then response.write " checked" end if%>>
            7</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="8" <%if instr(equantum,",8,") then response.write " checked" end if%>>
            8</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="9" <%if instr(equantum,",9,") then response.write " checked" end if%>>
            9</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="10" <%if instr(equantum,",10,") then response.write " checked" end if%>>
            10</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="11" <%if instr(equantum,",11,") then response.write " checked" end if%>>
            11</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="12" <%if instr(equantum,",12,") then response.write " checked" end if%>>
            12</td>
        </tr>
        <tr align="left" bgcolor="#EBF2F9">
          <td><input name="equantum" type="checkbox" id="equantum" value="13" <%if instr(equantum,",13,") then response.write " checked" end if%>>
            13</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="14" <%if instr(equantum,",14,") then response.write " checked" end if%>>
            14</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="15" <%if instr(equantum,",15,") then response.write " checked" end if%>>
            15</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="16" <%if instr(equantum,",16,") then response.write " checked" end if%>>
            16</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="17" <%if instr(equantum,",17,") then response.write " checked" end if%>>
            17</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="18" <%if instr(equantum,",18,") then response.write " checked" end if%>>
            18</td>
        </tr>
        <tr align="left" bgcolor="#EBF2F9">
          <td><input name="equantum" type="checkbox" id="equantum" value="19" <%if instr(equantum,",19,") then response.write " checked" end if%>>
            19</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="20" <%if instr(equantum,",20,") then response.write " checked" end if%>>
            20</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="21" <%if instr(equantum,",21,") then response.write " checked" end if%>>
            21</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="22" <%if instr(equantum,",22,") then response.write " checked" end if%>>
            22</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="23" <%if instr(equantum,",23,") then response.write " checked" end if%>>
            23</td>
          <td><input name="equantum" type="checkbox" id="equantum" value="24" <%if instr(equantum,",24,") then response.write " checked" end if%>>
            24</td>
        </tr>
      </table>		</td>
      </tr>
      <tr>
        <td height="20" align="right">网站标题：</td>
        <td><input name="SiteTitle" type="text" class="textfield" id="SiteTitle" style="WIDTH: 400;" value="<%=SiteTitle%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">网　　址：</td>
        <td><input name="SiteUrl" type="text" class="textfield" id="SiteUrl" style="WIDTH: 400;" value="<%=SiteUrl%>">&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">公司名称：</td>
        <td><input name="ComName" type="text" class="textfield" id="ComName" style="WIDTH: 400;" value="<%=ComName%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">地　　址：</td>
        <td><input name="Address" type="text" class="textfield" id="Address" style="WIDTH: 400;" value="<%=Address%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">邮　　编：</td>
        <td><input name="ZipCode" type="text" class="textfield" id="ZipCode" style="WIDTH: 200;" value="<%=ZipCode%>" maxlength="20">&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">电　　话：</td>
        <td><input name="Telephone" type="text" class="textfield" id="Telephone" style="WIDTH: 200;" value="<%=Telephone%>">&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">传　　真：</td>
        <td><input name="Fax" type="text" class="textfield" id="Fax" style="WIDTH: 200;" value="<%=Fax%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">电子邮箱：</td>
        <td><input name="Email" type="text" class="textfield" id="Email" style="WIDTH: 200;" value="<%=Email%>">&nbsp;*&nbsp;</td>
      </tr>
      <tr>
        <td height="20" align="right" valign="top">关 键 字：</td>
        <td><textarea name="Keywords" rows="6"  class="textfield" id="Keywords" style="WIDTH: 400;"><%=Keywords%></textarea>&nbsp;关键字设置有利于网站的搜索</td>
      </tr>
      <tr>
        <td height="20" align="right" valign="top">网站描述：</td>
        <td><textarea name="Descriptions" rows="6" class="textfield" id="Descriptions" style="WIDTH: 400;"><%=Descriptions%></textarea>&nbsp;网站描述设置有利于网站的搜索</td>
      </tr>
      <tr>
        <td height="20" align="right" valign="top">活动事项：<br>
        <td>
		<INPUT type='hidden' name='Content' value='<%=Centerv%>'>
<iframe ID="eWebEditor1" src="../WebEditor/ewebeditor.htm?id=Content&style=light" frameborder="0" scrolling="no" width="550" HEIGHT="300"></iframe>		</td>
      </tr>
      <tr>
        <td height="20" align="right">ICP&nbsp;备案：</td>
        <td><input name="IcpNumber" type="text" class="textfield" id="IcpNumber" style="WIDTH: 200;" value="<%=IcpNumber%>"></td>
      </tr>
      <tr>
        <td height="20" align="right">授&nbsp;权&nbsp;号：</td>
        <td><input name="SystemSN" type="text" class="textfield" id="SystemSN" style="WIDTH: 200;" value="<%=SystemSN%>" readonly></td>
      </tr>

      <tr>
        <td height="20" align="right"><a name="Message"></a>留&nbsp;言&nbsp;簿：</td>
        <td><input name="MesViewFlag" type="checkbox" id="MesViewFlag" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if MesViewFlag then response.write ("checked")%>>&nbsp;自动通过审核</td>
      </tr>
      <tr>
        <td height="30" align="right">&nbsp;</td>
        <td valign="bottom"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 60;" ></td>
      </tr>
      <tr>
        <td height="20" align="right">&nbsp;</td>
        <td valign="bottom">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  </form>
</table>
</body>
</html>
<%
function ViewSiteInfo()
  dim rs,sql 
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from ameav_Site"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "读取数据库记录出错！"
    response.end
  else
 	ipclock=rs("ipclock")
    ViewFlag=rs("ViewFlag")
 	memclock=rs("memclock")
 	numbers=rs("numbers")
 	endtime=rs("endtime")
	interval=rs("interval")
	equantum=rs("equantum")
    SiteTitle=rs("SiteTitle")
    SiteUrl=rs("SiteUrl")
    ComName=rs("ComName")
    Address=rs("Address")
    ZipCode=rs("ZipCode")
    Telephone=rs("Telephone")
    Fax=rs("Fax")
    Email=rs("Email")
    Keywords=rs("Keywords")
    Descriptions=rs("Descriptions")
	Centerv=rs("Content")
    IcpNumber=rs("IcpNumber")
    SystemSN=rs("SystemSN")
	MesViewFlag=rs("MesViewFlag")
    rs.close
    set rs=nothing 
  end if
end function
%>
