link.asp

网站整站

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/inc.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
title="友情连接"
execute(loadskin(skinmode))
call head()
%>
<table  border="0"  cellspacing="0" cellpadding="0" id="content">
<tr><td  valign="top" align="center" id="left" nowrap>
<table border="0" cellspacing="0" cellpadding="0"  width="100%"><tr>
<td class="1" nowrap></td><td  class="2" align="center"  nowrap>
<%call myday()%>
<td class="3" nowrap></td></td></tr></table>
<table border="0"   cellspacing="0" cellpadding="0"  width="100%"><tr>
<td class="4" nowrap></td>
<td  class="5" valign="top" nowrap>
<p class="left_title"><script type="text/javascript">yecaotitle("left","用户登陆","0");</script></p>
<div class="left_content"><%call YC_userlogin()%></div>
<p class="left_title"><script type="text/javascript">yecaotitle("left","连接说明","0");</script></p>
<div class="left_content">
<ul class="list">
<li>站点必须美观大方有内容。</li>
<li>加入站点有一定的访问量。</li>
<li>LOGO连接应确保正常打开。</li>
<li>提交前先加入本站的链接。</li>
</ul>
<center>
[<font color=""red""><b>未审核：<%=conn.execute("select count(*) from [YC_link] where pass=0")(0)%>个</b></font>]
<a href="link.asp?action=join">申 请</a></center>
</div>
<p class="left_title"><script type="text/javascript">yecaotitle("left","点击排行","0");</script></p>
<div class="left_content">
<%
sql="select top "&toplist&" * from [YC_link] where  pass=1 order by click desc,id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YC("<ul class=""list"">")
do while not rs.eof
YC("<li><a href='link.asp?action=go&id="&rs("id")&"' target='_blank' title='网站名称："&rs("webname")&"<br />网站地址："&rs("url")&"<br />加入时间："&replacetime(rs("date"),"1")&"<br />点击次数："&rs("click")&"次'>"&YC_cut(rs("webname"),16)&"</a></li>")
rs.movenext
loop
if rs.eof and rs.bof then
YC("<center>暂时没有链接!</center>")
end if
YC("</ul>")
%></div>
<p class="left_title"><script type="text/javascript">yecaotitle("left","本站推荐","0");</script></p>
<div class="left_content">
<%
sql="select top "&bestlist&" id,logo,webname,url,date,click from [YC_link] where best=1 and pass=1 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YC("<ul class=""list"">")
do while not rs.eof
YC("<li><a href='link.asp?action=go&id="&rs("id")&"' target='_blank' title='网站名称："&rs("webname")&"<br />网站地址："&rs("url")&"<br />加入时间："&replacetime(rs("date"),"1")&"<br />点击次数："&rs("click")&"次'>"&YC_cut(rs("webname"),16)&"</a></li>")
rs.movenext
loop
if rs.eof and rs.bof then
YC("<center>暂时没有链接!</center>")
end if
YC("</ul>")
%>
</div>
<td class="6" nowrap></td>
</td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"  width="100%">
<tr>
<td class="7" nowrap></td>
<td class="8" nowrap></td>
<td class="9" nowrap></td>
</tr>
</table>
<!--左栏结束-->
</td>
<td id="center" nowrap></td>
<td valign="top" align="center"  id="right" nowrap>
<!--中栏开始-->
<table border="0"   cellspacing="0" cellpadding="0"  width="100%"><tr>
<td class="11" nowrap></td>
<td  class="22" nowrap>
<%
YC("&nbsp;当前位置：<a href=index.asp>本站首页</a>→<a href=""link.asp"">友情连接</a>")
if request.querystring("action")="join" then
YC("→加入申请")
end if
%>
<td class="33" nowrap></td>
</td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"  width="100%"><tr>
<td class="44" nowrap></td>
<td  class="55" valign="top" nowrap>
<%
if request.querystring("action")="join" then
call NowWhere("申请连接","link.asp?action=join")
%>
<form name="form" id="form" method=post onsubmit="return link();" action="link.asp?action=gogo">
<table border="0" cellspacing="2" cellpadding="2" bgcolor="<%=color(1)%>"  width="100%"><tr><td width=75>&nbsp;站长姓名：</td>
<td><input name='adminname' type='text'  class="input" style="width:150px">
</tr><tr><td width=75>&nbsp;网站名称：</td>
<td><input name='webname' type='text' class="input" style="width:150px">
<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"  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"  class="input" style="width:150px" value="http://">
</tr><tr><td width=75>&nbsp;网站LOGO：</td>
<td><input name="logo" type="text"   class="input" style="width:150px">
</tr><tr><td width=75>&nbsp;网站说明：</td>
<td><textarea name="content" style="width:200px;height:80px" class="input" class=yecao size=15></textarea><%call br%> 
&emsp;&emsp;&emsp;<input type="submit" name="Submit" value='提 交' onmouseover="this.className='overput'" onmouseout="this.className='put'" class="put" />&nbsp;<input type='reset' name='Submit' value='清 空' onmouseover="this.className='overput'" onmouseout="this.className='put'" class="put" />
</TD></tr></table>
</form>
<%
else
call NowWhere("友情连接","link.asp")
%>
<table border="1" frame="void" rules="rows" bordercolor="<%=color(0)%>" cellpadding="0" cellspacing="0" width="100%">
<%
sql="select * from YC_link where pass=1 order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
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
if rs.eof and rs.bof then
YC("<tr><td colspan=""3"" height=""100"" bgcolor="""&color(1)&""" align=""center"">暂时没有友情连接！</td></tr>")
else
do while not rs.eof%>
<tr height="50" bgcolor="<%=color(1)%>" onmouseover="this.bgColor='<%=color(2)%>';" onmouseout="this.bgColor='<%=color(1)%>';"><td  align="center" width="100">
<a href='link.asp?action=go&id=<%=rs("id")%>' target='_blank'>
<%if  rs("class")="logo" then%>
<img onerror="this.src='img/noimg.gif'"  src='<%=rs("logo")%>' width='88' height='31' border='0' alt="网站名称：<%=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 width="300" nowrap><%=rs("content")%></td>
<td align="center" width="100" nowrap><%=rs("adminname")%></td></tr>
<%
if num=rs.pagesize then exit do end if
num=num+1
rs.movenext
loop

YC("<tr height=""30""><td colspan=""3"" align=""center"" bgcolor="""&color(2)&""">")
call page("连接","个")
YC("</td></tr>")
end if
YC("</table>")
rs.close
set rs=nothing
end if
%>
<td class="66" nowrap></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0"  width="100%"><tr>
<td  class="77" nowrap></td>
<td class="88" nowrap></td>
<td class="99" nowrap></td>
</tr></table>
<!--中栏结束-->		
</td></tr></table>
<%
if request.querystring("action")="go" then
dim linkid
linkid=cint(request.querystring("id"))
sql="select click,url from YC_link where id="&linkid
set rs=conn.execute(sql)
dim url
url=rs("url")
YC_sql("UPDATE [YC_link] SET click=click+1 where id="&linkid)
rs.close
set rs=nothing
YCGO(url)
elseif 	request.querystring("action")="gogo" then
dim link_webname,link_url
link_webname=YC_post("网站名称",request.Form("webname"),0,20,2)
link_url=YC_post("网站地址",request.Form("url"),0,50,2)
set rs=server.CreateObject("adodb.recordset")
rs.open "select webname,url from [YC_link] where webname='"&link_webname&"' or url='"&link_url&"'",conn,1,1
if not rs.eof and not rs.bof then
YC("<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")=link_webname
rs("url")=link_url
rs("class")=request.Form("class")
rs("logo")=YC_post("LOGO",request.Form("logo"),0,0,0)
rs("adminname")=YC_post("站长名字",request.Form("adminname"),0,10,4)
rs("content")=server.htmlencode(request.Form("content"))
rs.update
rs.close
set rs=nothing
YC("<script>alert('已提交申请，我们会尽快审核通过!');this.top.location.href='link.asp';</script>")
Response.end
end if
call foot()
%>