<!--#include file="Conn.asp"-->
<!--#include file="cookies.asp"-->
<!--#include file="sd_md5.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>商奇评测系统 www.583344.com</title>
<LINK href="images/Admin_css.css" type=text/css rel=stylesheet>
</head>
<body>
<%if request("F")="a" then
Call A()
elseif request("F")="b" then
Call B()
end if
%>
<%Sub a()
set rsc=server.CreateObject("ADODB.RECORDSET")
sql="select * from [sd_siteall]"
rsc.open sql,conn,1,1%>
<table height="1" border="0" cellpadding="3"  cellspacing="1" bgcolor="#F2F9E8" class="admintable1">
  <tr>
    <td colspan="2" class="admintitle">网站配置</td>
  </tr>
<form method="POST" action="?ok=1">
  <tr>
    <td width="20%" height="30" align="right" bgcolor="#FFFFFF">网站名称：</td>
    <td width="80%" bgcolor="#FFFFFF"><input type="text" name="sd_hostname" size="29" value="<%=rsc("sd_hostname")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">网站地址：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_hostsite" size="29" value="<%=rsc("sd_hostsite")%>"> 网址后面不要以 <font color="#ff0000">/</font> 结尾。</td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">关 键 词：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_keywords" size="90" value="<%=rsc("sd_keywords")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">网站描述：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_description" size="90" value="<%=rsc("sd_description")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">手气不错：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_shouqi" size="29" value="<%=rsc("sd_shouqi")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">首页联系方式：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_index" size="90" value="<%=rsc("sd_index")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">备 案 号：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_beian" size="29" value="<%=rsc("sd_beian")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">商家页面静态：</td>
    <td bgcolor="#FFFFFF"><input name="JT" type="radio" value="1" <%if rsc("JT")=1 then%>checked="checked"<%end if%>>是　<input name="JT" type="radio" value="0" <%if rsc("JT")=0 then%>checked="checked"<%end if%>>否</td>
  </tr>
  <tr>
    <td height="40" align="right" bgcolor="#FFFFFF">过滤HTML标签：<br>（请用“|”分隔）</td>
    <td bgcolor="#FFFFFF"><input size="90" value="<%=rsc("BannedHtmlLabel")%>" name="BannedHtmlLabel"></td>
  </tr>
  <tr>
    <td height="40" align="right" bgcolor="#FFFFFF">过滤HTML标签内的事件：<br>（请用“|”分隔）</td>
    <td bgcolor="#FFFFFF"><input size="90" value="<%=rsc("BannedHtmlEvent")%>" name="BannedHtmlEvent"></td>
  </tr>
  <tr>
    <td height="40" align="right" bgcolor="#FFFFFF">过滤发表时含有的敏感词：<br>（请用“|”分隔）</td>
    <td bgcolor="#FFFFFF"><input size="90" value="<%=rsc("BannedText")%>" name="BannedText"></td>
  </tr>
  <tr>
    <td height="40" align="right" bgcolor="#FFFFFF">禁止注册的字符：<br>（请用“|”分隔）</td>
    <td bgcolor="#FFFFFF"><input size="90" value="<%=rsc("BannedRegUserName")%>" name="BannedRegUserName"></td>
  </tr>
  <tr>
    <td height="40" align="right" bgcolor="#FFFFFF">禁止IP地址进入网站：<br>（请用“|”分隔）</td>
    <td bgcolor="#FFFFFF"><input size="90" value="<%=rsc("BannedIP")%>" name="BannedIP"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF"></td>
    <td bgcolor="#FFFFFF"><input type="submit" value="确认修改" name="B1" / onclick="javascript:parent.leftFrame.location.reload()"></td>
  </tr>
</form>
</table>
<%rsc.close
set rsc=nothing
End Sub%>
<%Sub b()
set rsc=server.CreateObject("ADODB.RECORDSET")
sql="select * from [sd_admin] where admin_id=2"
rsc.open sql,conn,1,1
%>
<table height="1" border="0" cellpadding="3"  cellspacing="1" bgcolor="#F2F9E8" class="admintable1">
  <tr>
    <td colspan="2" class="admintitle">网站管理员密码修改</td>
  </tr>
<form method="POST" action="?ok=2">
  <tr>
    <td width="20%" height="30" align="right" bgcolor="#FFFFFF">管理员名：</td>
    <td width="80%" bgcolor="#FFFFFF"><input type="text" name="admin_name" size="29" value="<%=rsc("admin_name")%>">(如修改请牢记)</td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">管理密码：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="admin_pass" size="29">(如修改请牢记)</td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF"></td>
    <td bgcolor="#FFFFFF"><input type="submit" value="确认修改" name="B1"></td>
  </tr>
</form>
</table>
<%rsc.close
set rsc=nothing
End Sub%>
<%if request("ok")=1 then
set rsc=server.CreateObject("ADODB.RECORDSET")
sql="select * from [sd_siteall]"
rsc.open sql,conn,1,3
if request("sd_hostname")<>"" then
rsc("sd_hostname")=request("sd_hostname")
end if
if request("sd_hostsite")<>"" then
rsc("sd_hostsite")=request("sd_hostsite")
end if
if request("sd_keywords")<>"" then
rsc("sd_keywords")=request("sd_keywords")
end if
if request("sd_description")<>"" then
rsc("sd_description")=request("sd_description")
end if
if request("sd_shouqi")<>"" then
rsc("sd_shouqi")=request("sd_shouqi")
end if
if request("sd_index")<>"" then
rsc("sd_index")=request("sd_index")
end if
if request("sd_beian")<>"" then
rsc("sd_beian")=request("sd_beian")
end if
if request("BannedHtmlLabel")<>"" then
rsc("BannedHtmlLabel")=request("BannedHtmlLabel")
end if
if request("BannedHtmlEvent")<>"" then
rsc("BannedHtmlEvent")=request("BannedHtmlEvent")
end if
if request("BannedText")<>"" then
rsc("BannedText")=request("BannedText")
end if
if request("BannedRegUserName")<>"" then
rsc("BannedRegUserName")=request("BannedRegUserName")
end if
if request("BannedIP")<>"" then
rsc("BannedIP")=request("BannedIP")
end if
if request("JT")<>"" then
rsc("JT")=request("JT")
end if
rsc.update
rsc.close
set rsc=nothing
response.write "<script>alert('商奇提示：修改成功');window.location.href='?F=a';</script>"
response.end
end if%>		
<%if request("ok")=2 then
set rsc=server.CreateObject("ADODB.RECORDSET")
sql="select * from [sd_admin] where admin_id=2"
rsc.open sql,conn,1,3
if request("admin_name")<>"" then
rsc("admin_name")=request("admin_name")
end if
if request("admin_pass")<>"" then
rsc("admin_pass")=md5(request("admin_pass"))
end if
rsc.update
rsc.close
set rsc=nothing
response.write "<script>alert('商奇提示：修改成功');window.location.href='?F=b';</script>"
response.end
end if%>
<!--#include file="sd_copy.asp"-->
</body>
</html>
