<%@ Language=VBScript %>
<!--#include File="../Functions2.asp"-->
<!--#include file="../../yns_chklogin.asp" -->
<%
Dim Deep
Deep = Request("Deep")
If IsEmpty(Deep) Then
	Deep = -1
End If
Deep = Clng(Deep)
Deep = Deep - 1

Dim MyConn, SqlInsert
Set MyConn = Server.CreateObject("Adodb.Connection")
Set MyConn = GetConnection

Dim LinkName, LinkURL, Describe

LinkName = Request("LinkName")
LinkURL = Request("LinkURL")
Describe = Cstr(Request("Describe"))

sLinkName = SqlStr(LinkName)
sLinkURL = SqlStr(LinkURL)
sDescribe = SqlStr(Describe)

SqlInsert = "Insert Into LinkInfo (LinkName, LinkURL, Describe) Values("
SqlInsert = SqlInsert & sLinkName & ","
SqlInsert = SqlInsert & sLinkURL & ","
SqlInsert = SqlInsert & sDescribe & ")"

MyConn.Execute SqlInsert

MyConn.Close
Set MyConn = Nothing
%>
<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>添加成功</b></font></td>
  </tr>
  <tr>
    <td align=center colspan=2>以下是您刚添加的友情连接</td>
  </tr>
  <tr>
    <td align=center colspan=2><hr></td>
  </tr>
  <tr>
    <td align=right>名称：</td>
    <td align=left><%=Server.HTMLEncode(LinkName)%></td>
  </tr>
  <tr>
    <td align=right>地址：</td>
    <td align=left><%=Server.HTMLEncode(LinkURL)%></td>
  </tr>
  <tr>
    <td align=right>说明：</td>
    <td align=left><TEXTAREA rows=6 cols=60 name=Describe readonly><%=Server.HTMLEncode(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.location='AddLink.asp?Deep=<%=Deep%>'">
    <INPUT type="button" value="返回" id=button1 name=button1 class=buttonmanager onclick="window.history.go(<%=Deep%>)">
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </td>
  </tr>
</table>

</BODY>
</HTML>
