📄 skin.asp
字号:
<%
Response.End()
%>
call webopen()
call yecaosql()
gotime=timer()
dim color
'表格边框|表格前景|表格背景
color=split("#A40510|#ffffff|#F87F8E","|")
'皮肤路径，从跟目录算起。
skinpath="skin/5"
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&"/logo.gif"" border=""0"" align=""absmiddle"">" & vbcrlf
headvar=headvar&"</td>" & vbcrlf
headvar=headvar&"<td align='center'>" & vbcrlf
headvar=headvar&"<img align='absmiddle' onclick=""window.open('http://www.icbc.com.cn/index.jsp','','')"" src='http://www.icbc.com.cn/advertise/images/2006nian/sy_banner_shengji060111.gif' style='cursor:hand'>" & 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&"');""><font color='#ffffff'>设为首页</font></a><br /><a href=""javascript:window.external.addfavorite('"&weburl&"','"&webname&"');""><font color='#ffffff'>加入收藏</font></a><br /><a href=""mailto:"&webmail&"""><font color='#ffffff'>联系站长</font></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)&" MS 当前风格：红色激情<br />")
call ycmsonline()
YC("</td></tr><tr><td height='30'>")
'以下是调用函数是自选风格函数
YC(YC_Diyskin())
YC("</td></tr></table>")
YC("</center>")
YC("<script language='javascript' src='skin/1/big5.js'></script></body></html>")
call closedata()
end sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -