<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%><%
dim db
db="../db/sjxffriend.asa"
    Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
    Conn.Open MyConn
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../images/css.css" type="text/css">
<title>高级设定</title>
</head>
<body bgcolor="#ffffff">
<%
if request("cz")<>"" then
%>
<%
set rs=server.createobject("adodb.recordset")
	sql="select * from config"
	rs.open sql,conn,1,3
rs("title")=request("title")
rs("titleurl")=request("titleurl")
rs("lovetitle")=request("lovetitle")
rs("loveurl")=request("loveurl")
rs("biao")=request("biao")
	rs.update
    rs.Close
Response.Redirect "gao.asp"
%>
<%else%>
<p><br>
<%
set rs=server.createobject("adodb.recordset")
	sql="select * from config"
	rs.open sql,conn,1,1
%>
<table width="400" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000" align="center">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="1" cellpadding="5">
        <form name="form1" method="post" action="gao.asp?cz=xg">
          <tr> 
            <td bgcolor="#FFCC00" colspan="2" width="388"> 
              <div align="center">高级设定</div>
            </td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFCC" width="25%" align="right"> 网站名称：</td>
            <td bgcolor="#FFFFCC" width="69%"> 
              <input type="text" name="title" class="an" value="<%=rs("title")%>">
            </td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFCC" width="25%" align="right">网站地址：</td>
            <td bgcolor="#FFFFCC" width="69%"> 
              <input type="text" name="titleurl" class="an" value="<%=rs("titleurl")%>">
            </td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFCC" width="25%" align="right">交友站名称：</td>
            <td bgcolor="#FFFFCC" width="69%"> 
              <input type="text" name="lovetitle" class="an" value='<%=rs("lovetitle")%>'>
            </td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFCC" width="25%" align="right">
                            <p>交友站地址：</p>
</td>
            <td bgcolor="#FFFFCC" width="69%"> 
              <input type="text" name="loveurl" class="an" value='<%=rs("loveurl")%>'> 
                            <font  color=red>地址结束后面请加 /</font>
            </td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFCC" width="25%" align="right">
                            <p>交友站站标：</p>
</td>
            <td bgcolor="#FFFFCC" width="69%"> 
              <input type="text" name="biao" class="an" value='<%=rs("biao")%>'>
            </td>
          </tr>
          <tr> 
            <td bgcolor="#FFCC00" colspan="2" width="388"> 
              
                            <p align="center"><input type="submit" name="Submit" value="修改" class="an">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<% 
rs.Close
%>
</body>
</html>
<%end if%>
<%
    Conn.Close
%>