📄 skin.asp
字号:
<%
Response.End()
%>
call webopen()
call yecaosql()
gotime=timer()
dim color
'表格边框|表格前景|表格背景
color=split("#969696|#ffffff|#efefef","|")
'皮肤路径，从跟目录算起。
skinpath="skin/1"
sub head()
YC("<html>")
YC("<head>")
YC("<title>"&webname&"→"&title&"</title>")
YC("<meta http-equiv=""content-type"" content=""text/html;charset=gb2312"" />")
YC("<meta http-equiv=""content-language"" content=""gb2312"" />")
YC("<meta content=""all"" name=""robots"" />")
YC("<meta http-equiv=""imagetoolbar"" content=""no"" />")
YC("<meta name=""author"" content=""pilimail@163.com,野草"" />")
YC("<meta name=""description"" content=""将设计进行到底"" />")
YC("<meta content="""&keywords&""" name=""keywords"" />")
YC("<meta name=""copyright"" content=""www.yecao.cn,野草设计版权所有,未经允许不许任意转载"" />")
YC("<base onmouseover=""window.status='"&status&"';return true"" />")
YC("<link rel=""stylesheet"" rev=""stylesheet"" href="""&skinpath&"/css.css"" type=""text/css"" />")
YC("<script type=""text/javascript"" language=""javascript"" src=""inc/js.js""></script>")
YC("<script type=""text/javascript"" language=""javascript"" src="""&skinpath&"/js.js""></script>")
YC("<noscript><iframe src=""*.asp""></iframe></noscript></head>")
if rightmenu="yes" then
YC("<body oncontextmenu=""return false"" ondragstart=""return false"" onselectstart=""return false"" scroll=""auto"">")
else
YC("<body scroll=""auto"">")
end if
YC("<center>")
dim headvar
headvar=headvar&"<table height=""70"" border=""0"" cellspacing=""0"" cellpadding=""0"" width=""770"">" & vbcrlf
headvar=headvar&"<tr>" & vbcrlf
headvar=headvar&"<td width=""200"" align=""center"">" & vbcrlf
headvar=headvar&"<img src="""&skinpath&"/mylogo.gif"" border=""0"" align=""absmiddle"">" & vbcrlf
headvar=headvar&"</td>" & vbcrlf
headvar=headvar&"<td>" & vbcrlf
headvar=headvar&"<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0"" width=""468"" height=""60"" id=""top"" align=""middle"">" & vbcrlf
headvar=headvar&"<param name=""allowscriptaccess"" value=""samedomain"" />" & vbcrlf
headvar=headvar&"<param name=""movie"" value="""&skinpath&"/banner.swf"" />" & vbcrlf
headvar=headvar&"<param name=""menu"" value=""false"" />" & vbcrlf
headvar=headvar&"<param name=""quality"" value=""high"" />" & vbcrlf
headvar=headvar&"<param name=""wmode"" value=""transparent"" />" & vbcrlf
headvar=headvar&"<embed src="""&skinpath&"/top.swf"" menu=""false"" quality=""high"" bgcolor=""#ffffff"" width=""1024"" height=""180"" name=""top"" align=""middle"" allowscriptaccess=""samedomain"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />" & vbcrlf
headvar=headvar&"</object>" & vbcrlf
headvar=headvar&"</td>" & vbcrlf
headvar=headvar&"<td align=""center"" width=""100""><a style=""cursor:hand"" onclick=""this.style.behavior='url(#default#homepage)';this.sethomepage('"&weburl&"');"">设为首页</a><br /><a href=""javascript:window.external.addfavorite('"&weburl&"','"&webname&"');"">加入收藏</a><br /><a href=""mailto:"&webmail&""">联系站长</a><br /><a id='StranLink'><font color='red'>繁體中文</font></a>" & vbcrlf
headvar=headvar&"</td>" & vbcrlf
headvar=headvar&"</tr>" & vbcrlf
headvar=headvar&"</table>" & vbcrlf
yc(headvar)
YC("<table border=""0"" cellpadding=""0"" cellspacing=""0"" id=""topmenu""><tr><td class=""tml"" nowrap></td>")
YC("<td class=""tmc"" nowrap> ")
YC("欢迎您，")
if username<>"" then
YC("<font color=""ff0000""><b>"&username&"</b></font>")
else
YC("游客")
end if
YC("！ <a href=""index.asp"">本站首页</a>")
YC(YC_menu("inc/menu.xml","head"))
if userid<>"" then
YC("┊<a href=""user.asp?action=user_out"">退出</a>")
end if
YC("</td><td class=""tmr"" nowrap></td></tr></table>")
end sub
sub foot()
endtime=timer()
YC("<table border=""0"" cellpadding=""0"" cellspacing=""0"" id=""footmenu""><tr><td class=""fml"" nowrap></td>")
YC("<td class=""fmc"" nowrap> ")
YC("<a href=""search.asp"">站内搜索</a>")
YC(YC_menu("inc/menu.xml","foot"))
YC("</td><td class=""fmr"" nowrap></td></tr></table>")
YC("<table id=""foot"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td valign=""top"" nowrap>")
YC(""©right&" ")
YC("<a href=""http://www.miibeian.gov.cn"">备案："&webpassport&"</a>")
YC("<br />Powered By YCMS V2.0 耗时："&FormatNumber((endtime-gotime)*1000,2)&" 豪秒 当前风格：官方默认<br />")
call ycmsonline()
YC("</td></tr><tr><td height='30'>")
'以下是调用函数是自选风格函数
YC(YC_Diyskin())
YC("</td></tr></table>")
YC("<script language='javascript' src='skin/1/big5.js'></script></center></body></html>")
call closedata()
end sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -