[求助]谁知道这些代码中的call top（）在那个文件中 - ASP技术论坛

问题点数：0 回复次数：6

[求助]谁知道这些代码中的call top（）在那个文件中

<%
title="本站首页"
call pass()
call top()
'第一大表格开始
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' class='bgcolor'><tr><td class='left'></td><td class='width' valign='top'>")
YCMS("<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td valign='top'>")
call br()
'会员登陆口开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><td class=lefttopcenter>&emsp;※ 会员登陆</td><td class=lefttopright></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td valign='top' class='leftcentercenter' height=170>")
call login()
YCMS("</td><td class=leftcenterright></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
YCMS("</td><td width='5'></td><td valign='top' align=right>")
call br()
'新闻、公告开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=righttopleft></td><td class=righttopcenter>&emsp;※ 新闻动态<span style='width=400px'></span><a href=news.asp title='更多新闻……'>更多……</a></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightcenterleft></td><td class=rightcentercenter valign='top' height=170>")
call YC_news()
YCMS("</TD></TR></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightfootleft ></td><td class=rightfootcenter></td></tr></table>")
call br()
YCMS("</td></tr></table></td><td class=right></td></tr></table>")
'第一大表格结束

'第二大表格开始
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' class='bgcolor'><tr><td class='left'></td><td class='width'>")
YCMS("<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td valign='top'>")
'统计信息开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;※ 统计信息</td><td class='lefttopright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftcentercenter' height=200>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' rules=rows frame=void width='100%' bordercolor="&border&"><tr><td height=19> <img src=img/title2.gif border='0'> 新进会员：<font color=red>")
sql="select top 1 * from [YC_user] where pass=true order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YCMS(YC_Kill_Word(rs("user_name"),15))
rs.close
set rs=nothing
YCMS("</font></td></tr>")
YCMS("<tr><td height=19> <img src=img/title2.gif border='0' width=10 height=10> 会员注册：")
call mytable("YC_user")
YCMS(" 人</td></tr>")
YCMS("<tr><td height=19> <img src=img/title2.gif border='0' width=10 height=10> 新闻动态：")
call mytable("YC_news")
YCMS(" 条</td></tr>")
YCMS("<tr><td height=19> <img src=img/title2.gif border='0' width=10 height=10> 文章作品：")
call mytable("YC_art")
YCMS(" 篇</td></tr>")
YCMS("<tr><td height=19> <img src=img/title2.gif border='0' width=10 height=10> 精品图片：")
call mytable("YC_pic")
YCMS(" 张</td></tr>")
YCMS("<tr><td height=19> <img src=img/title2.gif border='0' width=10 height=10> 娱乐欣赏：")
call mytable("YC_dj")
YCMS(" 个</td></tr>")
YCMS("<tr><td height=19> <img src=img/title2.gif border='0' width=10 height=10> 软件下载：")
call mytable("YC_down")
YCMS(" 个</td></tr>")
YCMS("<tr><td height=19> <img src=img/title2.gif border='0' width=10 height=10> 本站频道：")
call mytable("YC_other")
YCMS(" 个</td></tr>")
YCMS("<tr><td height=19> <img src=img/title2.gif border='0' width=10 height=10> 友情连接：")
call mytable("YC_link")
YCMS(" 个</td></tr>")
YCMS("<tr><td height=19> <img src=img/title2.gif border='0' width=10 height=10> 访客留言：")
call mytable("YC_book")
YCMS(" 条</td></tr></table>")
YCMS("</td><td class=leftcenterright></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
'会员排行开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;※ 会员排行</td><td class='lefttopright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td valign='top' class='leftcentercenter' height=115 align='center'>")
call br()
call YC_user()
call br()
YCMS("</td><td class=leftcenterright></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
YCMS("</td><td width='5'></td><td valign='top' align=right>")
'图片开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=righttopleft></td><td class=righttopcenter>&emsp;※ 内容<span style='width=400px'></span><a href='pic.asp' title='更多图片……'>更多……</a></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightcenterleft></td><td class=rightcentercenter valign='top'>")
call YC_pic()
YCMS("</TD></TR></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightfootleft></td><td class=rightfootcenter></td></tr></table>")
call br()
'娱乐开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=righttopleft></td><td class=righttopcenter>&emsp;※ 内容<span style='width=400px'></span><a href='dj.asp' title='更多……'>更多……</a></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightcenterleft></td><td class=rightcentercenter valign='top' height=170>")
call YC_dj()
YCMS("</TD></TR></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightfootleft></td><td class=rightfootcenter></td></tr></table>")
call br()
YCMS("</td></tr></table></td><td class=right></td></tr></table>")
'交流开始
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' class='bgcolor'><tr><td class='left'></td><td class='width'>")
YCMS("<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td valign='top'>")

'第二大表格结束

'第三大表格开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br
'连接开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><td class='lefttopcenter'>&emsp;※ 友情连接<span style='width=50px'></span><a href=link.asp title='更多友情连接……'>更多……</a></td><td class='lefttopright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td valign='top' class='leftcentercenter' height=222 align='center'>")
YCMS("<DIV id=oRollV style='MARGIN:0px;OVERFLOW:hidden; HEIGHT: 195px'><DIV id=oRollV1>")
call YC_link()
YCMS("</DIV><DIV id=oRollV2></DIV></DIV>")
call YC_link2()
call br()
YCMS("</td><td class=leftcenterright></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='leftfootcenter'></td><td class='leftfootright'></td></tr></table>")
call br()
YCMS("<td width='5'></td><td valign='top' align=right>")
'文章开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=righttopleft></td><td class=righttopcenter>&emsp;※ 内容<span style='width=400px'></span><a href=art.asp title='更多文章……'>更多……</a></td></tr></table><table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightcenterleft></td><td class=rightcentercenter valign='top' height=170>")
call YC_art()
YCMS("</TD></TR></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightfootleft></td><td class=rightfootcenter></td></tr></table>")
call br()
'下载开始
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=righttopleft></td><td class=righttopcenter>&emsp;※ 内容<span style='width=400px'></span><a href=down.asp title='更多软件下载……'>更多……</a></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightcenterleft></td><td class=rightcentercenter valign='top' height=170>")
call YC_down()
YCMS("</TD></TR></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class=rightfootleft></td><td class=rightfootcenter></td></tr></table>")
call br()
YCMS("</td></tr></table></td><td class=right></td></tr></table>")
'第三大表格结束
YCMS("<SCRIPT>StartRollV();StartRollH();</SCRIPT>")
call foot()
%>

搜索更多相关主题的帖子: call　top　include　file　

第 2 楼

得分:0

急救啊

期待和你交流

第 3 楼

得分:0

代码在你自已那里你不知在哪个文件,别人怎么知道?

我想你问的应是过程或函数top()在哪个文件中吧,
本页中没有话当然就在上面引用的几个页中了:

自已用全文检索查找:sub top() 或 function top() 就是了

http://toorup.3v.do
loading...

第 4 楼

得分:0

哈哈, 同意樓上的, 自己編寫的 top 不見了蹤影....挖哈哈!!

原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training

第 5 楼

得分:0

找是找到了，但是找不能一个首页的FLASH文件，不是里面的3.SWF
sub top()
if request.cookies(yecao)("MyDiySkin")="" then
yecaoskin=skin
else
yecaoskin=request.cookies(yecao)("MyDiySkin")
end if
YCMS("<html>")
YCMS("<head>")
YCMS("<title>"&webname&"→"&title&"</title>")
YCMS("<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
YCMS("<meta http-equiv='imagetoolbar' content='no'>")
YCMS("<META NAME='keywords' CONTENT='"&keywords&"'>")
YCMS("<META NAME='description' CONTENT='"&keywords&"'>")
YCMS("<META NAME='robots' CONTENT='all'>")
YCMS("<META name='AUTHOR' content='野草，pilimail@163.com'>")
YCMS("<NOSCRIPT><iframe src='*.asp'></iframe></NOSCRIPT>")
YCMS("<BASE onmouseover=""window.status='您的信息→〖I P地址："&request.servervariables("remote_addr")&"〗→〖操作系统："&strsplit(2)&"〗→〖浏览器："&strsplit(1)&"〗→口号："&status&"';return true"">")
YCMS("<link rel='stylesheet' href='skin/"&yecaoskin&"/css.css' type='text/css'>")
YCMS("<SCRIPT src='img/js.js' language='javascript'></SCRIPT></head>")
YCMS("<body topmargin='0' leftmargin='0'")
if rightmenu="1" then
response.write"oncontextmenu=""return false"""
elseif rightmenu="2" then
response.write"oncontextmenu=""return false"" ondragstart=""return false"" onselectstart=""return false"""
end if
YCMS(">")
YCMS("<span class='topspace'></span>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center'>")
YCMS("<tr><td class='topleft'></td>")
YCMS("<td class='topcenter' align='center'>")
YCMS("<table border='0' cellspacing='1' cellpadding='0' align='center' class='topshow' width='100%'><tr>")
YCMS("<td height='21' ><font class='menufont'> <img src='img/url.gif' border='0' width='15' height='15' align='absMiddle'> "&webname&"</font></td>")
YCMS("<td width=21 height='21' class='off' onmouseover=""this.className='overoff'"" onmouseout=""this.className='off'"" title='设为主页' align='center' onClick=""this.style.behavior='url(#default#homepage)';this.sethomepage('"&weburl&"');return false;""></td>")
YCMS("<td width=21 height='21' class='on' onmouseover=""this.className='overon'"" onClick=""window.external.AddFavorite('"&weburl&"', '"&webname&"')"" onmouseout=""this.className='on'"" title=""加入收藏"" align='center'></td>")
YCMS("<td width=21 height='21' class='close' onclick=""window.close();"" onmouseover=""this.className='overclose'"" onmouseout=""this.className='close'"" title='关闭'></td></tr></table>")
YCMS("</td><td class='topright'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center'><tr>")
YCMS("<td class='left'></td><td class=top>")
YCMS("<span style='position:relative'>")
YCMS("<DIV style='POSITION:absolute;bottom:2px;right:3px;display:none' id='skin'>")
YCMS("<table border='1' cellspacing='0' cellpadding='0' bordercolor='"&border&"'><tr>")
sql="select * from [YC_skin] order by id asc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then
num=1
do while not rs.eof
YCMS("<td align='center' height='22' onmouseover=""this.className='trover'"" onmouseout=""this.className='tr'"" class='tr' width='65'><a href=error.asp?action=skin&skin="&rs("skinurl")&">"&rs("skinname")&"</a></td>")
num=num+1
rs.movenext
loop
end if
rs.close
set rs=nothing
YCMS("</tr></table></DIV></span>")

YCMS("<OBJECT classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codeBase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""100%"" height=""100%"">")
YCMS("<PARAM NAME=""movie"" VALUE=""img/3.swf"">")
YCMS("<PARAM NAME=""quality"" VALUE=""high"">")
YCMS("<PARAM NAME=""wmode"" VALUE=""transparent"">")
YCMS("<embed src=""img/3.swf"" width=""100%"" height=""100%"" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" wmode=""transparent""></embed></OBJECT>")

YCMS("</td><td class='right'></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center'>")
YCMS("<tr><td class='left'></td>")
YCMS("<td height='30' class='width'>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' class='footmenucss' width='100%'><tr><td>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' width='100%'>")
YCMS("<tr><td width='4'></td>")
sql="select * from [YC_menu] where pass=true and foot=false order by menuid asc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
do while not rs.eof
if rs("open")=true then
YCMS("<td width='64' align='center' height='30'>")
YCMS("<table><tr><td width='62' height='22' onmouseover=""this.className='overmenu'"" onmouseout=""this.className='menu'"" onclick=""window.open('"&rs("url")&"')"" align='center'><font class='menufont'>"&rs("title")&"</font></td></tr></table></td>")
else
YCMS("<td width=64 align='center' height=30>")
YCMS("<table><tr><td width='62' height='22' onmouseover=""this.className='overmenu'"" onmouseout=""this.className='menu'"" onclick=""self.location='"&rs("url")&"'"" align='center'><font class='menufont'>"&rs("title")&"</font></td></tr></table></td>")
end if
i=i+1
if i>=10 then exit do
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<center><font color=red><b>暂时没有数据！</b></font></center>"
end if
rs.close
set rs=nothing
YCMS("<td width='60' align='center' height='30'>")
YCMS("<table><tr><td width='58' height='22' onmouseover=""this.className='overmenu'"" onmouseout=""this.className='menu'"" align='center' onclick=""document.all.skin.style.display=(document.all.skin.style.display =='none')?'':'none'""><font class='menufont'>选择风格</font></td></tr></table></td>")
YCMS("</tr></table></td></tr></table></td><td class=right></td></tr></table>")
end sub