<!--#include file="sd_mdb.asp"-->
<%
if session("User")="" then
	response.write"<SCRIPT language=JavaScript>alert('您尚未登录！');"
	response.write"location.href=""sd_admin_login.asp"";</SCRIPT>"
end if
%>
<!--#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.zzcodes.net</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_title]"
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_site" size="29" value="<%=rsc("sd_site")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">网站地址：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_siteurl" size="29" value="<%=rsc("sd_siteurl")%>"> <font color="#FF0000">请填写网址站的地址，注：绝对不要加上“ http:// ”，网址结束请不要加“ / ”。</font></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">副 标 题：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_fbt" size="90" value="<%=rsc("sd_fbt")%>"></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"><textarea name="sd_union" rows="3" cols="90%"><%=rsc("sd_union")%></textarea></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">底部联系方式：</td>
    <td bgcolor="#FFFFFF"><textarea name="sd_Copyright" rows="3" cols="90%"><%=rsc("sd_Copyright")%></textarea></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">推荐栏文字连接：</td>
    <td bgcolor="#FFFFFF"><textarea name="sd_tuijian" rows="4" cols="90%"><%=rsc("sd_tuijian")%></textarea></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">备 案 号：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_icp" size="29" value="<%=rsc("sd_icp")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">商家页面静态：</td>
    <td bgcolor="#FFFFFF"><input name="sd_sd" type="radio" value="1" <%if rsc("sd_sd")=1 then%>checked="checked"<%end if%>>是　<input name="sd_sd" type="radio" value="0" <%if rsc("sd_sd")=0 then%>checked="checked"<%end if%>>否</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 sd_id=1"
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="sd_name" size="29" value="<%=rsc("sd_name")%>">(如修改请牢记)</td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">管理密码：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_Password" 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_title]"
rsc.open sql,conn,1,3
if request("sd_site")<>"" then
rsc("sd_site")=request("sd_site")
end if
if request("sd_fbt")<>"" then
rsc("sd_fbt")=request("sd_fbt")
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_siteurl")<>"" then
rsc("sd_siteurl")=request("sd_siteurl")
end if
if request("sd_Copyright")<>"" then
rsc("sd_Copyright")=request("sd_Copyright")
end if
if request("sd_union")<>"" then
rsc("sd_union")=request("sd_union")
end if
if request("sd_tuijian")<>"" then
rsc("sd_tuijian")=request("sd_tuijian")
end if
if request("sd_icp")<>"" then
rsc("sd_icp")=request("sd_icp")
end if
if request("sd_sd")<>"" then
rsc("sd_sd")=request("sd_sd")
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 sd_id=1"
rsc.open sql,conn,1,3
if request("sd_name")<>"" then
rsc("sd_name")=request("sd_name")
end if
if request("sd_Password")<>"" then
rsc("sd_Password")=md5(request("sd_Password"))
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>