📄 inc.asp
字号:
<!--#include file="set.asp"-->
<%
call yecaosql()
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='BlackOut，admin@web300.cn'>")
YCMS("<NOSCRIPT><iframe src='*.asp'></iframe></NOSCRIPT>")
YCMS("<BASE onmouseover=""window.status='"&status&"';return true"">")
YCMS("<link rel='stylesheet' href='skin/"&yecaoskin&"/style.css' type='text/css'>")
YCMS("<SCRIPT src='skin/"&yecaoskin&"/dxyjs.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='skin/"&yecaoskin&"/topurl.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
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>")
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=""skin/"&yecaoskin&"/top.swf"">")
YCMS("<PARAM NAME=""quality"" VALUE=""high"">")
YCMS("<PARAM NAME=""wmode"" VALUE=""transparent"">")
YCMS("<embed src=""skin/"&yecaoskin&"/top.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
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
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='1' align='center' height='30'>")
YCMS("</tr></table></td></tr></table></td><td class=right></td></tr></table>")
end sub
vbs=conn.execute("select *from YC")(0)
sub foot()
endtime=timer()
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center'>")
YCMS("<tr><td class='left'></td>")
YCMS("<td align='center' 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' align='center'><tr><td width='4'></td>")
sql="select * from [YC_menu] where pass=true and foot=true 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='70' align='center' height='30'>")
YCMS("<table><tr><td width='65' 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='70' align='center' height='30'>")
YCMS("<table><tr><td width='65' 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
YCMS("<center>暂时没有数据！</center>")
end if
rs.close
set rs=nothing
YCMS("<td width='70' class='menubg' align='center' height='30'>")
YCMS("<table><tr><td width='65' height='22' onmouseover=""this.className='overmenu'"" onmouseout=""this.className='menu'"" onclick=""document.all.skin.style.display=(document.all .skin.style.display =='none')?'':'none'"" align='center'>")
YCMS("<font class='menufont'><script src=tongji.asp></script></font></td></tr></table>")
YCMS("</td></tr></table></td></tr></table></td><td class=right></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' class=bgcolor>")
YCMS("<tr><td class='left'></td><td height='50' align='center' class='width' style='word-break:break-all;table-layout:fixed;line-height:150%;'>")
YCMS("<font class='menufont'>"©right&"</font><br>")
call yecaoonline()
YCMS(" 页面加载时间:"&formatnumber((endtime-starttime)*1000,1,-1)&"毫秒 ")
YCMS("<BR>")
YCMS("</td><td class=right></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center'><tr><td class=footleft></td><td width='740' class=footcenter align='center'></td><td class=footright></td></tr></table><div class=footspace></div></body></html>")
call closedata()
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -