<%@ Language=VBScript %>
<!--#include File="../Functions2.asp"-->
<!--#include File="../ClientScript.asp"-->
<!--#include file="../../yns_chklogin.asp" -->
<%
Dim LinkID
LinkID = Request("LinkID")

If IsNull(LinkID) Or IsEmpty(LinkID) Then
	Response.Redirect("..//Unexpectable_Error.htm")
	Response.End
End If

Dim MyConn, RS, SqlSelect
Set MyConn = Server.CreateObject("Adodb.Connection")
Set MyConn = GetConnection
Set RS = Server.CreateObject("Adodb.RecordSet")

SqlSelect = "Select * From LinkInfo Where LinkID=" & LinkID

RS.Open SqlSelect, MyConn, 1, 3

If RS.BOF Then
	RS.Close
	Set RS = Nothing
	MyConn.Close
	Set MyConn = Nothing
	
	Response.Redirect("..//Unexpectable_Error.htm")
	Response.End
End If

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

<link rel="stylesheet" href="../../zf.css">

<TITLE>修改友情连接</TITLE>
</HEAD>

<script language="javascript">
<!--
function loginfocus()
	{
	document.FormAddLink.LinkName.focus();
	return;
	}
	
function persubmit()
	{
	return (
		validate(document.FormAddLink.LinkName, "名称",1,255) &&
		validate(document.FormAddLink.LinkURL, "地址",1,255));
	}
//-->
</script>

<BODY onload="loginfocus();" bgcolor="#ffffff">

<P>&nbsp;</P>
<form name=FormAddLink method=post action=DoModifyLink.asp onsubmit="return persubmit();">
<table align=center cellpadding=0 cellspacing=0>
  <input type=hidden name=LinkID value=<%=LinkID%>>
  <tr>
    <td align=middle colspan=2><font size=4><b>修改友情连接</b></font></td>
  </tr>
  <tr>
    <td align=right colspan=2>带<font color=red>*</font>的为必填项</td>
  </tr>
  <tr>
    <td align=middle colspan=2><hr></td>
  </tr>
  <tr>
    <td align=right><font color=red>*</font>名称：</td>
    <td align=left><INPUT name=LinkName class=text size=40 value="<%=Server.HTMLEncode(RS("LinkName"))%>"></td>
  </tr>
  <tr>
    <td align=right><font color=red>*</font>地址：</td>
    <td align=left><INPUT name=LinkURL class=text size=40 value="<%=Server.HTMLEncode(RS("LinkURL"))%>"></td>
  </tr>
  <tr>
    <td align=right><font color=red>*</font>说明：</td>
    <td align=left><TEXTAREA rows=6 cols=60 name=Describe><%=Server.HTMLEncode(Trim(RS("Describe") & " "))%></TEXTAREA></td>
  </tr>
  <tr><td colspan=2><HR></td></tr>
  <tr>
    <td colspan=2 align=right>
    <INPUT type="submit" value="确定" id=submit1 name=SubmitModify class=buttonmanager>
    <INPUT type="button" value="取消" id=button1 name=button1 onclick="window.history.back()" class=buttonmanager>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </td>
  </tr>
</table>
</form>
</BODY>
</HTML>
<%
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
%>