link.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!--#include file="inc/St_conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="inc/St_syssub.asp"-->
<!--#include file="inc/St_function.asp"-->
<!--#include file="inc/St_sysbody.asp"-->
<%title=""&shotanlink&""
loadhead
response.write"<table border=0 cellspacing=0 cellpadding=0 align=center class=dabg><tr><td class=left></td><td class=width><table width=100% border=0  cellspacing=0 cellpadding=0><tr><td valign=top>"& vbCrLf
st_replace "st_login",""&st_login&""
st_replace "st_linkbest",""&st_linkbest&""
st_replace "st_linkinfo",""&st_linkinfo&""
br
response.write"</td><td  width=""5""></td><td  valign=top align=right>"& vbCrLf
if request.querystring("action")="addlink" then
st_replace "st_addlink",""&st_addlink&""
else
sql="select * from St_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 St_link where pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
link=rs.recordcount
shotantop="目前加入本站的连接共有"&link&"个，等待审核有<font color=red>"&linkpass&"</font>个"
titletop ""&shotantop&"",50,2,0,"","","",0
response.write"<table width=""100%""  border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""e6e6e6""  rules=rows frame=void id=sttable>"& vbCrLf
if not rs.bof and not rs.eof then
rs.pagesize=cint(shotanshow(8))
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
response.write"<tr height=50 class=bg><td height=25 width=20% align=center>网站名称</td><td height=25 width=70% align=center>网站介绍</td><td height=25 width=10% align=center>站长名称</td></tr><tr height=50><td height=50 align=center width=100><a href='link.asp?action=go&id="&rs("id")&"' target='_blank'>"& vbCrLf
if rs("class")="logo" then
response.write"<img src='"&rs("logo")&"' width='88' height='31' border='0' title='网站名称："&rs("webname")&"<br>加入时间："&rs("date")&"<br>点击次数："&rs("click")&"'>"& vbCrLf
else
response.write"<font title='网站名称："&rs("webname")&"<br>加入时间："&rs("date")&"<br>点击次数："&rs("click")&"'>"&rs("webname")&"</font>"& vbCrLf
end if
response.write"</a></td><td height=""50"">&nbsp;"&rs("content")&"</td><td height=""50"" align=""center"">"&rs("adminname")&"</td></tr>"& vbCrLf
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>"& vbCrLf
end if
response.write"</table><table width=""100%""   cellpadding=""0"" cellspacing=""0"" style=""border-top:#e6e6e6 solid 1px"" class=bg><tr><td height=""25"" align=center>"& vbCrLf
pginfo "友情连接","个"
response.write"</td></tr></table>"& vbCrLf
titlebom 2
br()
end if
rs.close
set rs=nothing
response.write"</td></tr></table></td><td class=right></td></tr></table>"& vbCrLf
if request.querystring("action")="go" then
dim flid
flid=cint(request.querystring("id"))
sql="select click,url from St_link where id="&flid
set rs=conn.execute(sql)
dim url
url=rs("url")
sql="UPDATE St_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
response.write"<script>alert('网站名称不能为空！');this.location.href='about:blank';</script>"& vbCrLf
Response.End
elseIf Request.Form("url")="" Then
response.write"<script>alert('网站地址不能为空！');this.location.href='about:blank';</script>"& vbCrLf
Response.End
elseIf Request.Form("adminname")="" Then
response.write"<script>alert('站长名字不能为空！');this.location.href='about:blank';</script>"& vbCrLf
Response.End
elseIf Request.Form("content")="" Then
response.write"<script>alert('网站介绍不能为空！');this.location.href='about:blank';</script>"& vbCrLf
Response.End
elseIf Request.Form("content")<>"" Then
If Len(Request.Form("content"))>130 then
Response.Write "<script language=javascript>alert('网站简介不得多于130个字！');history.go(-1);</script>"
Response.End
End If
End If
set rs=server.CreateObject("adodb.recordset")
rs.open "select webname,url from St_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
response.write"<script language=javascript>alert('对不起，您重复提交了！');</script>"& vbCrLf
Response.End
rs.close
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_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
response.write"<script>alert('已提交申请，请等待管理员审核!');this.top.location.href='link.asp';</script>"& vbCrLf
Response.end
end if
foot
%>