📄 theme.asp

📁 生活者姿态整站程序生活者姿态整站程序生活者姿态整站程序
💻 ASP
字号:
<!--#include file=grade.asp-->
<%
sub nav()
	response.write "<html><head>"
%>
<!--#include file=js.asp-->
<%
	response.write "<meta NAME=GENERATOR Content=""Microsoft FrontPage 4.0"" CHARSET=GB2312>"&_
				"<title>"&ForumName&"--"&stats&"</title>"
	response.write "<link rel=stylesheet type=text/css href=forum.css></head>"&_
				"<body  "&Forumbody&">"

response.write "<table width="&TableWidth&" align=center cellspacing=0 cellpadding=1  border=0 bgcolor="& Tablebackcolor &">"&_
			"<tr><td>"&_
			"<table style=color:"& TableFontcolor &" width=100% cellspacing=0 cellpadding=4 border=0 >"&_
			"<tr bgcolor="& Tabletitlecolor &">"&_
			"<td valign=middle ><FONT COLOR="& TableFontcolor &"> >>" 

if membername="" then
	response.write "欢迎您，<a href=login.asp><FONT COLOR="& TableFontcolor &">请先登陆</FONT></a> | <a href=reg.asp><FONT COLOR="& TableFontcolor &">注册</FONT></a>"
else
	response.write "欢迎您，<b>"& membername &"</b>： <a href=login.asp><FONT COLOR="& TableFontcolor &">重登陆</FONT></a> | <a href=MYMODIFY.ASP?name="& membername &">"&_
				"<FONT COLOR="& TableFontcolor &">更改信息</FONT></a> | <a href=usersms.asp><FONT COLOR="& TableFontcolor &">短消息</FONT></a> | "&_
				"<a href=favlist.asp><FONT COLOR="& TableFontcolor &">收藏</FONT></a>"
end if
			
response.write " | <a href=toplist.asp?orders=1 ><FONT COLOR="& TableFontcolor &">发贴排行</FONT></a> | <a href=query.asp?boardid="&boardid&"><FONT COLOR="& TableFontcolor &">搜索</FONT></a>"

	response.write " | <a href=help.asp><FONT COLOR="& TableFontcolor &">帮助</FONT></a> | <a href=logout.asp><FONT COLOR="& TableFontcolor &">退出</FONT></a>"
if master then
	response.write " | <a href=admin_index.asp><FONT COLOR="& TableFontcolor &">管理</FONT></a>"
end if

response.write "</td><td valign=middle align=right><FONT COLOR="& TableFontcolor &_
			"><a href='"& ForumURL &"'><img src="&picurl&P_gohome&" border=0></a></FONT>"&_
			"</td></tr></table></td></tr></table>"&_
			"<center><iframe src=stat.asp width=""95%"" height=25 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=NO></iframe></center>"
end sub
sub headline(files)
	response.write "<TABLE border=0 width=""95%"" align=center><TBODY><TR>"&_
			"<TD vAlign=top width=""30%""><a href="&ForumUrl&"><img border=0 src="&Forumlogo&"></TD>"&_
			"<TD valign=middle align=top><font color="&BodyFontColor&"> &nbsp;&nbsp;<img src="&picurl&P_folder&" border=0>&nbsp;&nbsp;<a href=index.asp>"&ForumName&"</a><br>"
	Select Case files
	case 1
	response.write "&nbsp;&nbsp;<img src="&picurl&"bar.gif border=0 width=15 height=15><img src="&picurl&P_ofolder&" border=0>&nbsp;&nbsp;"&stats&""
	case 2
	response.write "&nbsp;&nbsp;<img src="&picurl&"bar.gif border=0 width=15 height=15><img src="&picurl&P_folder&" border=0>&nbsp;&nbsp;"&_
			"<a href=list.asp?boardid="&boardid&">"&boardtype&"</a>"&_ 
			"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="&picurl&"bar.gif border=0 width=15 height=15><img src="&picurl&P_ofolder&" border=0>&nbsp;&nbsp;"&htmlencode(replace(stats,boardtype,""))&""
	end select
	response.write "<a name=top></a></font></TD></TR></TBODY></TABLE><br>"
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -