showpic.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_sysbody.asp"-->
<!--#include file="inc/St_function.asp"-->
<%
if showpic="no" then
if userlogin="" then
response.write"<script>alert('请登陆后操作！');location.href='index.asp';</script>"& vbCrLf
Response.End
end if
end if
set rstitle=conn.execute("select title from St_pic where id="&request.querystring("id"))
title=rstitle("title")&"--经典图片"
rstitle.close
set rstitle=nothing
chkcontent()
loadhead%>
<script language="JavaScript">
<!--
self.moveTo(0,0)
self.resizeTo(screen.availWidth,screen.availHeight)
function MM_preloadImages() {   var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}}
function MM_swapImgRestore() {   var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;}
function MM_swapImage() {   var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}}
//-->
</script>
<SCRIPT language=vbscript event=onLoad for=window>
	image1.filters.item(0).apply()
	image1.filters.item(0).transition = 23
	image1.Style.visibility = ""
	image1.filters(0).play(2.0)
</SCRIPT>
<script language="VBScript">
Function FDateTime()
	Data=now
	Dim nowYear,nowMonth,nowDay,nowHour,nowSec,nowMin
	nowYear		= Year(Data)
	nowMonth	= Month(Data)
	If CInt(nowMonth)<10 Then	nowMonth = "0"&nowMonth
	nowDay	= Day(Data)
	If CInt(nowDay)<10 Then 	nowDay = "0"&nowDay
	nowHour	= Hour(Data)
	If CInt(nowHour)<10 Then	nowHour = "0"&nowHour
	nowSec	= Second(Data)
	If CInt(nowSec)<10 Then		nowSec = "0"&nowSec
	nowMin	= Minute(Data)
	If CInt(nowMin)<10 Then		nowMin = "0"&nowMin
	FDateTime	= nowYear&""&nowMonth&""&nowday&""&nowhour&""&nowmin&""&nowSec
End Function
</script> 
<%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"" align=""center"">"& vbCrLf
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_pic where pass=true and id="&request.querystring("id")
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update
set rsst=server.CreateObject("adodb.recordset")
sql="select * from [St_picclass] where id="&rs("class")&" order by id desc"
rsst.open sql,conn,1,1
if not rsst.bof and not rsst.eof then
shotantop="当前位置：<a href=index.asp>本站首页</a>-<a href=pic.asp>经典图片</a>-<a href=pic.asp?class="&rsst("id")&">"&rsst("classname")&"</a><font color="&rs("color")&">-<b>"&rs("title")&"</b></font>"
else
shotantop="<font color=red>没有分类</font>"
end if
rsst.close
set rsst=nothing
titletop ""&shotantop&"",60,4,0,"","","",0
if rs("read")=0 then
call main()
elseif rs("read")=1 then
if useradmin>=1 then
call main()
else
response.write "<br><center><b><font color=red>只有普通会员以上级别才可以查看！</font></b></center>"
end if
elseif rs("read")=2 then
if useradmin>=2 then
call main()
else
response.write "<br><center><b><font color=red>只有VIP会员以上级别才可以查看！</font></b></center>"
end if
end if
sub main()
response.write"<center><table border=1 cellspacing=0 cellpadding=0 frame=void width=""100%""><tr><td class=bg height=25 align=center>"
br()
response.write"<font color="&rs("color")&"><b>"&rs("title")&"</b></font>"
br()
response.write"图片发布：<font color=red>"&rs("user")&"</font>&emsp;添加时间：<font color=red>"&rs("date")&"</font>&emsp;点击次数：<font color=red>"&rs("click")&"</font>次"
br()
response.write"</td></tr><tr><td align=center><center><br>"
response.write"<table width=100% style=""word-break:break-all;table-layout:fixed;line-height:150%;""><td align=center><img src="&rs("pic")&" border='1' onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)""  onclick=javascript:window.open(this.src);><br></td></table></center>"
br()
response.write"</td></tr><tr><td class=bg height=25 align=center colspan=3>图片相关说明</td></tr><tr><td height=80  valign=top colspan=3 style=""padding:4px""><blockquote>"&rs("content")&"</blockquote></td></tr>"
response.write"<tr><td height=40 colspan=3 class=bg>"
st_next "St_pic","showpic","张"
response.write"</td></tr></table>"
end sub
titlebom 4
response.write"<table border=""0""  cellspacing=""0"" cellpadding=""0"" align=""center"" width=""100%""><tr align=middle><td width=5></td><td width=49% height=150 align=right>"
st_replace "st_showpictaxis",""&st_showpictaxis&""
br()
response.write"</TD><td width=2% ></td><td  width=49% height=150 align=left>"
st_replace "st_showpicbest",""&st_showpicbest&""
br()
response.write"</TD><td width=5></td></TR></table>"
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_pic where id="&request.querystring("id")
rs.open sql,conn,1,3
pl "pic",rs("id") 
rs.close
set rs=nothing
br
response.write"</td></tr></table><td class=right></td></tr></table>"
rs.close
set rs=nothing
foot
%>