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

If IsNull(LinkID) Or IsEmpty(LinkID) Then
	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 LinkInfo2 Where LinkID=" & LinkID

RS.Open SqlSelect, MyConn

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>

<BODY bgcolor="#ffffff">

<P>&nbsp;</P>
<table align=center cellpadding=0 cellspacing=2>
  <tr>
    <td align=center colspan=2><font size=4><b>合作单位<%=Trim(RS("LinkName"))%>的详细信息</b></font></td>
  </tr>
  <tr>
    <td align=center colspan=2><hr></td>
  </tr>
  <tr>
    <td align=right>名称：</td>
    <td align=left><%=Server.HTMLEncode(RS("LinkName"))%></td>
  </tr>
  <tr>
    <td align=right>地址：</td>
    <td align=left><%=Server.HTMLEncode(RS("LinkURL"))%></td>
  </tr>
  <tr>
    <td align=right>说明：</td>
    <td align=left><TEXTAREA rows=6 cols=60 name=Describe readonly><%=Server.HTMLEncode(Trim(RS("Describe") & " "))%></TEXTAREA></td>
  </tr>
  <tr><td colspan=2><HR></td></tr>
  <tr>
    <td colspan=2 align=right>
    <INPUT type="button" value="确定" id=button1 name=button1 class=buttonmanager onclick="window.close()">
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </td>
  </tr>
  <tr height=30><td>&nbsp;</td></tr>
</table>
</form>
</BODY>
</HTML>
<%
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
%>