<%
'程序名称：千纸鹤网站管理系统
'程序作者：千纸鹤
'作者邮箱：qzhxxw@sina.com
'作者 Q Q：138999501
'作者电话：0000000000
'官方主页：http://www.qqzzhh.com/
'官方论坛：http://www.qqzzhh.com/bbs
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<%title="友情连接"
call pass()
call top()%>
<table border="0" cellspacing="0" cellpadding="0" align=center class=bgcolor>
<tr>
<td class=left></td><td class=width>
<table width=100% border=0  cellspacing="0" cellpadding="0">
<tr><td valign=top>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;※&nbsp;会员登陆</td><td  class=lefttopright></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter  height=150 >
<%call login()%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;※&nbsp;连接说明</td><td  class=lefttopright></td>
</tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter  align=center>
<%call br%><%call br%> ·站点必须美观大方有内容。 <%call br%>·加入站点有一定的访问量。 <%call br%>·LOGO连接应确保正常打开。<%call br%> ·提交前先加入本站的链接。<%call br%>【<a href=link.asp?action=join>加入我们</a>】<%call br%>
</td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;※&nbsp;点击排行</td><td  class=lefttopright></td>
</tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td valign=top class=leftcentercenter style="line-height:120%">
<%call br 
sql="select top "&toplist&" * from [YC_link] where pass=true order by click DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "·<a href='link.asp?action=go&id="&rs("id")&"' target='_blank' title='网站名称："&rs("webname")&"<br>网站地址："&rs("url")&"<br>加入时间："&rs("date")&"<br>点击次数："&rs("click")&"'>"&YC_Kill_Word(rs("webname"),20)&"</a><br>" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "当前没有链接"
end if
call br%></td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br%>
<table border="0"   cellspacing="0" cellpadding="0">
<td  class=lefttopcenter>&emsp;※&nbsp;本站推荐</td><td  class=lefttopright></td>
</tr></table>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td  valign=top class=leftcentercenter style="line-height:120%">
<%call br 
sql="select top "&bestlist&" * from YC_link where best=true and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "·<a href='link.asp?action=go&id="&rs("id")&"' target='_blank' title='网站名称："&rs("webname")&"<br>网站地址："&rs("url")&"<br>加入时间："&rs("date")&"<br>点击次数："&rs("click")&"'>"&YC_Kill_Word(rs("webname"),20)&"</a><br>" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "当前没有链接"
end if
call br%></td><td class=leftcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr><td class=leftfootcenter></td><td class=leftfootright></td></tr></table>
<%call br%>
</td>
<td  width="5"></td>
<td  valign=top align=right><%call br%>
<%if request.querystring("action")="join" then%>
<table border="0"  cellspacing="0" cellpadding="0">
<tr><td  class=righttopleft></td>
<td class=righttopcenter>&emsp;※&nbsp;欢迎加入〖<%=webname%>〗！</td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0" ><tr>
<td   class=rightcenterleft></td>
<td class=rightcentercenter valign=top bgcolor=#ffffff>
<%call br%><%call br%><iframe src=* height=0 width=0 name=link></iframe>
<form name="form" id="form" method=post onsubmit="return link();" action="link.asp?action=gogo" target="link">
<table>
<tr>
<td width=75>&nbsp;站长姓名：</td>
<td><input name='adminname' type='text' id='adminname' class=yecao style="width:80px">
</tr><tr><td width=75>&nbsp;网站名称：</td>
<td><input name='webname' type='text' id='webname' class=yecao style="width:80px">
<td rowspan=6 width=250 valign=top>
&emsp;<img src=<%=weblogo%> border=0><%call br%>
&emsp;本站名称：<%=webname%><%call br%>
&emsp;站长姓名：<%=webceo%><%call br%>
&emsp;本站地址：<%=weburl%><%call br%>
&emsp;LOGO地址：<%=weblogo%><%call br%>
&emsp;本站邮箱：<%=webmail%><%call br%>
</td></tr><tr>
<td width=75>&nbsp;连接方式：</td>
<td><select name="class" class=yecao  size=1 style="width:80px">
<option value="logo">logo链接</option><option value="text">文字链接</option></select>
</tr><tr><td width=75>&nbsp;网站地址：</td>
<td><input name="url" type="text" id="url" class=yecao size=20 value="http://">
</tr><tr><td width=75>&nbsp;网站LOGO：</td>
<td><input name="logo" type="text" id="logo"  class=yecao size=20>
</tr><tr><td width=75>&nbsp;网站说明：</td>
<td><textarea name="content" cols=24 rows=4 id="content" class=yecao size=15></textarea><%call br%> </TD></tr></table>
&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp; <input type="submit" name="Submit" value='提交' class="put" onmouseover="this.className='overput'" onmouseout="this.className='put'">&nbsp;<input type='reset' name='Submit' value='清空' class="put" onmouseover="this.className='overput'" onmouseout="this.className='put'"></center> 
</form><%call br%><%call br%>
</TD></TR></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr>
<td class=rightfootleft></td><td class=rightfootcenter></td></tr></table>
<%else
sql="select * from YC_link where pass=false order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
linkpass=rs.recordcount
sql="select * from YC_link where pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
link=rs.recordcount
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr><td class=righttopleft></td>
<td  class=righttopcenter>&emsp;※&nbsp;当前加入本站的友情连接共有<%=link%>个，尚未通过的有<%=linkpass%>个。</td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0" ><tr>
<td   class=rightcenterleft></td>
<td  class=rightcentercenter valign=top bgcolor=#ffffff>
<table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="bcbcbc"  rules=rows frame=void id=yecaotable>
<%if not rs.bof and not rs.eof then
rs.pagesize=cint(yecaopage(6))
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
  <tr height=50>
    <td height="50" align="center" width=100>
<a href='link.asp?action=go&id=<%=rs("id")%>' target='_blank'>
<%if  rs("class")="logo" then%>
<img src='<%=rs("logo")%>' width='88' height='31' border='0' title="网站名称：<%=rs("webname")%><br>加入时间：<%=rs("date")%><br>点击次数：<%=rs("click")%>">
<%else%>
<font title='网站名称：<%=rs("webname")%><br>加入时间：<%=rs("date")%><br>点击次数：<%=rs("click")%>'><%=rs("webname")%></font>
<%end if%></a></td>
<td height="50"><%=rs("content")%></td><td height="50" align="center"><%=rs("adminname")%></td></tr>
<%
if num=rs.pagesize then exit do end if
num=num+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center><font color=red><b>暂时没有友情连接！</</b></font></td></tr>"
end if%>
</table>
<table width="100%"   cellpadding="0" cellspacing="0" style="border-top:#666666 solid 1px"class=bg>
<tr><td height="25" align=center><%call page("友情连接","个")%></td></tr></table>
</TD></TR></table>
<table border="0"  cellspacing="0" cellpadding="0"><tr>
<td class=rightfootleft></td>
<td class=rightfootcenter></td></tr></table>
<%
call br()
end if
rs.close
set rs=nothing%>
</td></tr></table></td>
<td  class=right></td></tr></table>
<%
if request.querystring("action")="go" then
dim flid
flid=cint(request.querystring("id"))
sql="select click,url from YC_link where id="&flid
set rs=conn.execute(sql)
dim url
url=rs("url")
sql="UPDATE YC_link SET click =click + 1 where id="&flid
conn.execute(sql)
rs.close
set rs=nothing
response.redirect url
elseif 	request.querystring("action")="gogo" then
If Request.Form("webname")="" Then
YCMS("<script>alert('您网站名称不能为空！');this.location.href='about:blank';</script>")
Response.End
elseIf Request.Form("url")="" Then
YCMS("<script>alert('您网站地址不能为空！');this.location.href='about:blank';</script>")
Response.End
elseIf Request.Form("adminname")="" Then
YCMS("<script>alert('您的名字不能为空！');this.location.href='about:blank';</script>")
Response.End
elseIf Request.Form("content")="" Then
YCMS("<script>alert('您的网站介绍不能为空！');this.location.href='about:blank';</script>")
Response.End
End If
set rs=server.CreateObject("adodb.recordset")
rs.open "select webname,url from YC_link where webname='"&trim(request.form("webname"))&"' or url='"&trim(request.form("url"))&"'",conn,1,1
if not rs.eof and not rs.bof then
YCMS("<script language=javascript>alert('对不起，您重复提交了！');</script>")
Response.End
rs.close
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_link"
rs.open sql,conn,1,3
rs.addnew
rs("webname")=request.Form("webname")
rs("url")=request.Form("url")
rs("class")=request.Form("class")
rs("logo")=request.Form("logo")
rs("webname")=request.Form("webname")
rs("adminname")=request.Form("adminname")
rs("content")=request.Form("content")
rs.update
rs.close
set rs=nothing
YCMS("<script>alert('已提交申请，我们会尽快审核通过!');this.top.location.href='link.asp';</script>")
Response.end
end if
call foot()
%>
