📄 inc.asp
字号:
<!--#include file="set.asp"-->
<%
call web58818sql()
if request.cookies(web58818)("MyDiySkin")="" then
web58818skin=skin
else
web58818skin=request.cookies(web58818)("MyDiySkin")
end if
sub top()
web58818CMS("<html>")
web58818CMS("<head>")
web58818CMS("<title>"&webname&"→"&title&"</title>")
web58818CMS("<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
web58818CMS("<meta http-equiv='imagetoolbar' content='no'>")
web58818CMS("<META NAME='keywords' CONTENT='"&keywords&"'>")
web58818CMS("<META NAME='description' CONTENT='"&keywords&"'>")
web58818CMS("<META NAME='robots' CONTENT='all'>")
web58818CMS("<META name='AUTHOR' content='BlackOut，info@58818.cn'>")
web58818CMS("<NOSCRIPT><iframe src='*.asp'></iframe></NOSCRIPT>")
web58818CMS("<BASE onmouseover=""window.status='"&status&"';return true"">")
web58818CMS("<link rel='stylesheet' href='skin/"&web58818skin&"/style.css' type='text/css'>")
web58818CMS("<SCRIPT language=javascript src=""inc/Menu_func.js""></SCRIPT>")
web58818CMS("<SCRIPT language=javascript src=""inc/Menu_init.js""></SCRIPT>")
web58818CMS("<SCRIPT src='skin/"&web58818skin&"/dxyjs.js' language='javascript'></SCRIPT></head>")
response.write("<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
web58818CMS(" onload=init();>")
web58818CMS("<span class='topspace'></span>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0' align='center'>")
web58818CMS("<tr><td class='topleft'></td>")
web58818CMS("<td class='topcenter' align='center'>")
web58818CMS("<table border='0' cellspacing='1' cellpadding='0' align='center' class='topshow' width='100%'><tr>")
web58818CMS("<td height='21' ><font class='menufont'> <img src='skin/"&web58818skin&"/topurl.gif' border='0' width='15' height='15' align='absMiddle'> "&webname&"</font></td>")
web58818CMS("<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>")
web58818CMS("<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>")
web58818CMS("<td width=21 height='21' class='close' onclick=""window.close();"" onmouseover=""this.className='overclose'"" onmouseout=""this.className='close'"" title='关闭'></td></tr></table>")
web58818CMS("</td><td class='topright'></td></tr></table>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0' align='center'><tr>")
web58818CMS("<td class='left'></td><td class=webtop>")
web58818CMS("<span style='position:relative'>")
web58818CMS("<DIV style='POSITION:absolute;bottom:2px;right:3px;display:none' id='skin'>")
web58818CMS("<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
web58818CMS("<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
web58818CMS("</tr></table></DIV></span>")
web58818CMS("<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%"">")
web58818CMS("<PARAM NAME=""movie"" VALUE=""skin/"&web58818skin&"/top.swf"">")
web58818CMS("<PARAM NAME=""quality"" VALUE=""high"">")
web58818CMS("<PARAM NAME=""wmode"" VALUE=""transparent"">")
web58818CMS("<embed src=""skin/"&web58818skin&"/top.swf"" width=""100%"" height=""100%"" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" wmode=""transparent""></embed></OBJECT>")
web58818CMS("</td><td class='right'></td></tr></table>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0' align='center'>")
web58818CMS("<tr><td class='left'></td>")
web58818CMS("<td height='30' class='width'>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0' align='center' class='footmenucss' width='100%'><tr><td>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0' width='100%'>")
web58818CMS("<tr><td width='4'></td>")
sql="select * from [YC_menu] where pass=true and foot=false and parentid=0 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 '新窗口
web58818CMS("<td width='64' align='center' height='30'>")
'web58818CMS("<table><tr><td width='62' height='22' onmouseover=""this.className='overmenu'"" onmouseout=""this.className='menu'"" onclick=""window.open('"&rs("url")&"')"" align='center' id='menu"&rs("menuid")&"'><font class='menufont'>"&rs("title")&"</font></td></tr></table></td>")
web58818CMS("<table><tr><td width='62' height='22' onmouseover=""this.className='overmenu'"" onmouseout=""this.className='menu'"" align='center'><font class='menufont'><a href='"&rs("url")&"' id='menu"&rs("id")&"' target=_blank>"&rs("title")&"</a></font></td></tr></table></td>")
else '原窗口
web58818CMS("<td width=64 align='center' height=30>")
'web58818CMS("<table><tr><td width='62' height='22' onmouseover=""this.className='overmenu'"" onmouseout=""this.className='menu'"" onclick=""self.location='"&rs("url")&"'"" align='center' id='menu"&rs("menuid")&"'><font class='menufont'>"&rs("title")&"</font></td></tr></table></td>")
web58818CMS("<table><tr><td width='62' height='22' align='center'><a href='"&rs("url")&"' id='menu"&rs("id")&"' class='menufont'>"&rs("title")&"</a></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
web58818CMS("<td width='1' align='center' height='30'>")
web58818CMS("</tr></table></td></tr></table></td><td class=right></td></tr></table><SCRIPT language=javascript src=""inc/Menu_content.js""></SCRIPT>")
end sub
vbs=conn.execute("select *from YC")(0)
sub foot()
endtime=timer()
web58818CMS("<table border='0' cellspacing='0' cellpadding='0' align='center'>")
web58818CMS("<tr><td class='left'></td>")
web58818CMS("<td align='center' height='30' class='width'>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0' align='center' class='footmenucss' width='100%'><tr><td>")
web58818CMS("<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
web58818CMS("<td width='70' align='center' height='30'>")
web58818CMS("<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
web58818CMS("<td width='70' align='center' height='30'>")
web58818CMS("<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
web58818CMS("<center>暂时没有数据！</center>")
end if
rs.close
set rs=nothing
web58818CMS("<td width='70' class='menubg' align='center' height='30'>")
web58818CMS("<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'>")
web58818CMS("<font class='menufont'><script src=tongji.asp></script></font></td></tr></table>")
web58818CMS("</td></tr></table></td></tr></table></td><td class=right></td></tr></table>")
web58818CMS("<table border='0' cellspacing='0' cellpadding='0' align='center' class=bgcolor>")
web58818CMS("<tr><td class='left'></td><td height='50' align='center' class='foot' style='word-break:break-all;table-layout:fixed;line-height:150%;'>")
web58818CMS("<font class='menufont'>"©right&"</font><br>")
call web58818online()
web58818CMS(" 页面加载时间:"&formatnumber((endtime-starttime)*1000,1,-1)&"毫秒 ")
web58818CMS("<BR>")
web58818CMS("</td><td class=right></td></tr></table>")
web58818CMS("<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 + -