<!--#include file="conn.asp"-->
<!--#include file="Admin_Chkpass.asp"-->
<%
dim action,rs,sitefriends
Action=trim(request("Action"))
if action="saveconfig" then
	sitefriends=request("sitefriends")
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select sitefriends from bloginfo",conn,1,3
	rs("sitefriends")=sitefriends
	rs.update
	rs.close
	call PutApplicationValue()
end if
set rs=conn.execute("select sitefriends from bloginfo")
%>
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css"> 
<body class="tdbg">
<br>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr> 
    <td height="25" class="title"><div align="center"><strong><font color="#FFFFFF">修改友情连接</font></strong></div></td>
  </tr>
  <tr> 
    <td><form name="form1" method="post" action="admin_friendsite.asp" onSubmit="submits();">
	        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><div align="center"> 
                <INPUT type="hidden" name="sitefriends" id="edit" value="<%
				if isnull(rs("sitefriends")) then
				response.Write ""
				else
				response.Write Server.HtmlEncode(rs("sitefriends"))
				end if
				%>">
				<!--#include file="edit.asp"-->
          &nbsp;<br>
                <br>
				 <input name="Action" type="hidden" id="Action" value="saveconfig"> 
                <input type="submit" name="Submit" value="提交修改">
              </div></td>
          </tr>
        </table>
      </form></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<%
set rs=nothing
call closeconn()
%>

