top_sys.asp

有很多功能的留言版,很容易上手,有自动添加图片、表情。管理员功能也强大

<%
Response.Write "<div class=div>"&_
"<table Class=TableTop border=0 cellpadding=0 cellspacing=0><tr><td class=TableTop_Left rowspan=2>&nbsp;</td>"&_
"<td height=30><TABLE WIDTH=500 BORDER=0 CELLPADDING=0 CELLSPACING=0><TR> "&_
"<TD Class=HendTop_1> <IMG SRC=images/a1.gif WIDTH=158 HEIGHT=28></TD><TD Class=HendTop_2>&nbsp; </TD>"&_
"<TD Class=HendTop_3> <IMG SRC=images/a2.gif WIDTH=84 HEIGHT=28></TD><TD Class=HendTop_4>&nbsp; </TD></TR>"&_
"<TR><TD Class=HendTop_5>&nbsp; </TD><TD Class=HendTop_6> <IMG SRC=images/A3.gif WIDTH=122 HEIGHT=28></TD>"&_
"<TD Class=HendTop_7>&nbsp; </TD><TD Class=HendTop_8>&nbsp; </TD></TR>"&_
"<TR><TD Class=HendTop_9>&nbsp; </TD><TD Class=HendTop_10>&nbsp; </TD><TD Class=HendTop_11>&nbsp; </TD>"&_
"<TD Class=HendTop_12> <IMG SRC=images/a4.gif WIDTH=182 HEIGHT=49></TD></TR></TABLE></td></tr><tr><td>"&_
"<div id=elButton><table Class=TableTop_Right1 border=0 cellspacing=2 cellpadding=0><tr> "&_
"<td width=100><a href=Index.asp>留言首页</a></td><td width=100><a href=AddGsbook.asp>有东东要说..</a></td>"
If ClassCheck.loginok=0 Then Response.write "<td width=100><a href=Login.asp>管理登陆</a></td>" Else Response.write "<td width=100><a href=Sys_Index.asp><u>后台↓管理</u></a></td>"
Response.write "<td width=100>"
If ClassCheck.GetStyle=1 Then response.write "<a href=?Id="&Request.Querystring("id")&"&Page="&Request.Querystring("Page")&">关闭↓式样</a>" Else Response.write "<a href=?GetStyle=1&Id="&Request.Querystring("id")&"&page="&Request.Querystring("Page")&">自定义风格</a>"
Response.write "</td><td width=100><a href=#>系统帮助</a></td><td>"
If ClassCheck.loginok=1 Then Response.write "<a href=Login.asp?Input=Out>退出登陆</a>"
Response.Write "</td></tr><tr><td Class=TableLi colspan=6 ></td></tr></table></div></td></tr></table></div>"
Select Case ClassCheck.GetStyle
	Case 1
		Response.Write "<div class=div><table Class=TableTop border=0 cellpadding=0 cellspacing=0><tr> "&_
		"<td class=TableTop_Left>&nbsp;</td>"&_
		"<td height=30 align=right>"&_
		"<table Class=TableTop_Right1 border=0 cellspacing=2 cellpadding=0><tr> "&_
		"<td width=100 height=20 align=center>&nbsp;</td><td width=100 align=center>&nbsp;</td>"&_
		"<td width=100 align=center bgcolor=8691B7><a href=javascript:GetStyle(2)><u><font color=#FFFFFF>风花雪影</font></u></a></td>"&_
		"<td width=100 align=center bgcolor=FF9900><a href=javascript:GetStyle(1)><u><font color=#FFFFFF>心舞飞扬</font></u></a></td>"&_
		"<td width=100 align=center bgcolor=#7BAA00><a href=javascript:GetStyle(3)><u><font color=#FFFFFF>馨香一瓣</font></u></a></td>"&_
		"<td width=100 align=center bgcolor=#FF99CC><a href=javascript:GetStyle(4)><u><font color=#FFFFFF>一帘幽梦</font></u></a></td>"&_
		"<td align=center>&nbsp;</td></tr><tr> "&_
		"<td height=1 colspan=2 ></td><td height=1 bgcolor=#666666></td><td height=1 bgcolor=#FF9900></td><td height=1 bgcolor=#7BAA00></td><td height=1 bgcolor=#FF99CC></td><td height=1></td>"&_
		"</tr></table></td></tr></table></div>"
End Select
Response.Write "<div class=div>"&_
"<table Class=TableTop border=0 cellpadding=0 cellspacing=0>"&_
"<tr><td class=TableTop_Left>&nbsp;</td><td height=30 align=right><table Class=TableTop_Right1 border=0 cellspacing=2 cellpadding=0>"&_
"<tr><td width=100 height=20 align=center>&nbsp;</td><td width=100 align=center>&nbsp;</td>"&_
"<td width=406 align=center Class=TableGsbookRe><a href=Sys_Web.asp>系统设置</a> | <a href=Sys_Mail.asp>发信组件</a> | <a href=Sys_Change.asp>字符转换</a> | <a href=Sys_face.asp>留言表情</a> | <a href=Sys_LockIp.asp>锁定IP管理</a> | <a href=Sys_Gsbook.asp>留言管理</a></td>"&_
"<td align=center>&nbsp;</td></tr><tr><td height=1 colspan=2 ></td><td height=1 Class=TableGsbookRe></td><td height=1></td>"&_
"</tr></table></td></tr></table></div>"   
%>