<%@ 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, SqlDelete
Set MyConn = Server.CreateObject("Adodb.Connection")
Set MyConn = GetConnection
Set RS = Server.CreateObject("Adodb.RecordSet")

SqlSelect = "Select LinkName 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>

<script language=javascript>
<!--
function ShowDetailLink(LinkID)
{
	window.open('ShowOneLink.asp?LinkID=' + LinkID,null,'top=' + screen.availHeight*0.382-150 + ',left=' + screen.availWidth*0.382-225 + ',height=300,width=450,status=no,toolbar=no,scrollbars=yes,menubar=no,location=no',false);
	return false;
}
//-->
</script>

</HEAD>
<BODY bgcolor="#ffffff">

<P>&nbsp;</P>
<table align=center cellpadding=0 cellspacing=0>
  <tr>
    <td align=center>
      <font size=4><b><font color=red>删除</font> <a href="" onclick="ShowDetailLink(<%=LinkID%>)"><%=RS("LinkName")%></a>？</b><font>
    </td>
  </tr>
  <tr><td align=center><HR></td></tr>
  <tr>
	<td align=left>
	  您的操作即将彻底删除合作单位“<a href="" onclick="ShowDetailLink(<%=LinkID%>)"><%=RS("LinkName")%></a>”的信息，<br>
	  该合作单位将全部丢失，不可恢复。
	</td>
  </tr>
  <tr height=40 valign=bottom>
    <td align=center><font size=3><b>确信要删除吗？</b></font></td>
  </tr>
  <tr height=40 valign=bottom>
    <td align=center>
    <INPUT type="button" value="删除" id=button1 name=button1 class=buttonmanager onclick="window.location='DoDeleteLink.asp?LinkID=<%=LinkID%>&LinkName=<%=RS("LinkName")%>'">
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <INPUT type="button" value="不删除" id=button2 name=button2 class=buttonmanager onclick="window.history.back()">
    </td>
  </tr>
</table>
</BODY>
</HTML>
<%
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
%>