<!--#include file=cnn.asp -->
<%if request("dns")="" then
set rs=server.CreateObject ("ADODB.RecordSet")
sql="select * from [user]"
rs.open sql,conn,1,1
if not rs.eof then
url=rs("url")
txt=rs("txt")
end if
rs.close
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>뽻 - Sublink V2.0</title>
<style>
td {
  font-size:12px;
}
a {
	color: #000000;
	text-decoration: none;
}
a:hover {
	color: #FF0000;
	text-decoration: none;
}
</style>
</head>
<body bgcolor="#F5F5F5" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td height="1" colspan="2"> </td>
  </tr>
  <tr> 
    <td height="62" colspan="2"><img src="images/link1.gif" width="134" height="41" /><img src="images/link.gif" width="426" height="41" /><img src="images/link2.gif" width="200" height="41" /></td>
  </tr>
  <tr> 
    <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="6">
        <tr> 
          <td>ǰλãҳ &gt; </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="1" colspan="2" bgcolor="#EEEEEE"> </td>
  </tr>
  <tr> 
    <td width="108" height="450">&nbsp;</td>
    <td width="652" valign="top"> <form name="form1" method="post" action="addlink.asp">
        <table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table>
        <table width="560" border="1" align="center" cellpadding="6" cellspacing="0" style="line-height:18px">
          <tr> 
            <td height="67" colspan="3" align="center" bordercolor="#FFFFFF">ӭ뱾վ:</td>
          </tr>
          <tr> 
            <td height="67" colspan="3" bordercolor="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;վӽ,ڵĲ뱾վĻԱ,ύ֮ǰ,ȷҳѾ˱վ,ӵʽΪ:<br /> 
              <br />
              &nbsp;&nbsp;&nbsp;&nbsp;&lt;a href=&quot;<%=url%>&quot; target=&quot;_blank&quot;&gt;<%=txt%>&lt;/a&gt;<br /> 
              <br /> &nbsp;&nbsp;&nbsp;&nbsp;ύҳͨʱ֮,ӽڱϵͳҳ:<br /> 
              <br /> <br /> &nbsp;&nbsp;&nbsp;&nbsp;ȷѾ,ҳΪվҳ,򽫲ͨ.</td>
          </tr>
          <tr> 
            <td width="235" height="8" align="right" bordercolor="#FFFFFF">URL</td>
            <td colspan="2" bordercolor="#FFFFFF"><input name="linkurl" type="text" id="linkurl" value="http://" size="48">
              *</td>
          </tr>
          <tr> 
            <td height="8" align="right" bordercolor="#FFFFFF">ı:</td>
            <td colspan="2" bordercolor="#FFFFFF"><input name="linktxt" type="text" id="linktxt"onkeydown="onlyNum();" size="12" maxlength="8" />
              * </td>
          </tr>
          <tr> 
            <td height="8" align="right" bordercolor="#FFFFFF">վ:</td>
            <td colspan="2" bordercolor="#FFFFFF"><select name="part" id="part">
                <option value="" selected="selected"></option>
                <option value="ҵ">ҵ</option>
                <option value="˾ҵ">˾ҵ</option>
                <option value=""></option>
                <option value="ѧ">ѧ</option>
                <option value="ѵ">ѵ</option>
                <option value=""></option>
                <option value="վ">վ</option>
                <option value=""></option>
                <option value="רҵ"></option>
              </select> </td>
          </tr>
          <tr> 
            <td height="8" align="right" bordercolor="#FFFFFF">վ:</td>
            <td colspan="2" bordercolor="#FFFFFF"><input name="dns" type="text" id="back" value="" size="32" />
              * ܴ&quot;/&quot;</td>
          </tr>
          <tr> 
            <td height="8" align="right" bordercolor="#FFFFFF">ҷӵURL</td>
            <td colspan="2" bordercolor="#FFFFFF"><input name="back" type="text" id="back" value="http://" size="42" />
              * </td>
          </tr>
          <tr align="center"> 
            <td height="16" align="right" bordercolor="#FFFFFF">&nbsp;</td>
            <td width="59" height="16" align="center" bordercolor="#FFFFFF"><input type="submit" name="Submit2" value="ύ" /> 
            </td>
            <td width="228" align="left" bordercolor="#FFFFFF"><input type="reset" name="Submit22" value="" />
            </td>
          </tr>
          <tr> 
            <td height="16" colspan="3" bordercolor="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;˸,ϵͳ򽫻48СʱԶָ.</td>
          </tr>
          <tr> 
            <td height="16" colspan="3" bordercolor="#FFFFFF">&nbsp;</td>
          </tr>
        </table>
      </form></td>
  </tr>
  <tr bgcolor="CC0000"> 
    <td height="3" colspan="2"> </td>
  </tr>
  <tr> 
    <td colspan="2"> <table width="100%" border="0" cellspacing="0" cellpadding="6">
        <tr> 
          <td width="44%">ҳ:<a href="list1.asp">1</a> <a href="list2.asp">2</a> 
            <a href="list3.asp">3</a> <a href="list4.asp">4</a> <a href="list5.asp">5</a> 
            <a href="list6.asp">6</a> <a href="list7.asp">7</a> <a href="list8.asp">8</a> 
            <a href="list9.asp">9</a> <a href="list10.asp">10</a> </td>
          <td width="31%" align="center"><a href="http://www.sublink.cn">Sublink 
            V2.0</a> ϵͳ</td>
          <td width="25%" align="right"><a href="addlink.asp">Ҫ</a></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
<%else
linkurl=request("linkurl")
linktxt=request("linktxt")
part=request("part")
dns=request("dns")
back=request("back")

if instr(back,dns) and instr(linkurl,dns) then
Function getBody(infopageurl)
'ܣȡַָhtml
if infopageurl<>"" then
 dim xmlHttp
 set xmlHttp=server.createobject("MSXML2.XMLHTTP")
 xmlHttp.open "GET",infopageurl,false
 xmlHttp.send
 On Error Resume Next
 getBody=BytesToBstr(xmlhttp.responsebody,"GB2312")
 set xmlHttp=nothing
end if 
end Function
 
Function BytesToBstr(body,Cset) 
 dim objstream  
 set objstream = Server.CreateObject("adodb.stream")  
 objstream.Type = 1  
 objstream.Mode = 3  
 objstream.Open  
 objstream.Write body  
 objstream.Position = 0  
 objstream.Type = 2  
 objstream.Charset = Cset  
 BytesToBstr = objstream.ReadText  
 objstream.Close  
 set objstream = nothing 
End Function

Function RndNumber(MaxNum,MinNum)
Randomize 
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Function

Rdata=getBody(back)

if InStr(Rdata,linkurl) and InStr(Rdata,linktxt) then
set rs=server.CreateObject ("ADODB.RecordSet")
sql="select * from link"
rs.open sql,conn,3,2
rs.addnew
rs("linkurl")=linkurl
rs("linktxt")=linktxt
rs("part")=part
rs("dns")=dns
rs("dtime")=RndNumber(1000,9999)
rs("back")=back
rs("staus")=""
rs.update
rs.close
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="404" align="center">ӳɹ,ˢҳ.</td>
  </tr>
</table>
<script language="javascript"> 
function cmd()
{
 location.replace("addlink.asp");
 }
window.setTimeout("cmd()",2000); 
</script>
<%
else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="404" align="center">δ⵽ñվ,Ӳɹ.</td>
  </tr>
</table>
<script language="javascript"> 
function cmd()
{
 location.replace("addlink.asp");
 }
window.setTimeout("cmd()",2000); 
</script>
<%
end if
else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="404" align="center">URL,ӲͬһDNS,֤ʧ.</td>
  </tr>
</table>
<script language="javascript"> 
function cmd()
{
 location.replace("addlink.asp");
 }
window.setTimeout("cmd()",2000); 
</script>
<%
end if
end if
%>
