📄 sub_inc.asp
字号:
<!--
'========================================================================================
' 文 件 名: sub_inc.asp
' 版 本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说 明: 页面模板文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网 站: http://lingfengnet.com,
' 电子邮件: wfr@zknu.edu.cn
' 联系ＱＱ: 85112407
'========================================================================================
-->
<!-- #include file="../language/Lang_Base.asp" -->
<%
sub htmlmeta()
response.write "<meta http-equiv=Content-Type content=text/html; charset="& lingfengnet_ms_language_meta_mes_1 &">"&_
"<meta name=generator content=lfmesss>"&_
"<meta name="&lingfengnet_ms_language_meta_mes_2&"; content="& lingfengnet_ms_language_meta_mes_3 &">"&_
"<meta content="& lingfengnet_ms_language_meta_mes_4 &"; name=description>"&_
"<meta content="& lingfengnet_ms_language_meta_mes_5 &"; name=keywords>"
end sub
sub htmltop()
if lingfengnet_ms_web_top=0 then
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0 height=75 align=center >"&_
"<tr>"&_
"<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3 height=60>"&_
"<tr>"&_
"<td class=bgc><table width=100% border=0 cellspacing=0 cellpadding=0 class=bgc5>"&_
"<tr>"&_
"<td width=20% rowspan=5><div align=center>"&_
"<a href=http://lingfengnet.com target=_blank><img src=style/" &lingfengnet_ms_web_css &"/lfmesss_logo.gif align=absmiddle border=0></a>"&_
"</div></td>"&_
"<td width=65% rowspan=5 valign=middle><div align=center>"
if lingfengnet_ms_web_ad=0 then
response.write "<a href="& lingfengnet_ms_web_ad_url &" target=_blank><img src=style/"& lingfengnet_ms_web_css &"/topad.gif align=absmiddle border=0></a>"
end if
if lingfengnet_ms_web_ad=1 then
response.write ""& lingfengnet_ms_web_ad_url &""
end if
response.write "</div></td>"&_
"<td width=20% height=5></td>"&_
" </tr>"&_
"<tr>"&_
"<td width=15% height=20><div align=center><img src=pic/homepage.gif width=16 height=16><a href=# onClick=Javascript:this.style.behavior='url(#default#homepage)';this.setHomePage('"&lingfengnet_ms_web_url&"');;return false;> "&lingfengnet_ms_language_homepage&"</a></div></td>"&_
"</tr>"&_
" <tr>"&_
" <td width=15% height=10><div align=center></div></td>"&_
"</tr>"&_
"<tr>"&_
"<td width=15% height=20><div align=center><img src=pic/url.gif width=16 height=16><a href=javascript:window.external.AddFavorite('"& lingfengnet_ms_web_url&"','-=="& lingfengnet_ms_web_name&"留言系统==-')> "& lingfengnet_ms_language_fav&"</a></div></td>"&_
"</tr>"&_
"<tr>"&_
"<td width=20% height=5></td>"&_
"</tr>"&_
"</table></td>"&_
"</tr>"&_
"</table></td>"&_
"</tr>"&_
"</table>"
elseif lingfengnet_ms_web_top=1 then
response.write "" & lingfengnet_ms_web_top_con & ""
end if
end sub
sub htmlend()
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0 align=center>"&_
"<tr>"&_
"<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3>"&_
"<tr class=bgc>"&_
"<td height=20 width=25% class=bgc><table width=99% border=0 cellspacing=0 cellpadding=0 align=center>"&_
"<tr>"&_
"<td height=22 valign=middle><div align=center>"& lingfengnet_ms_language_cop &"</div></td>"&_
"</tr>"&_
"<tr>"&_
"<td height=22 valign=middle><div align=center>" &lingfengnet_ms_web_name &" - "& lingfengnet_ms_sys_name &"</div></td>"&_
"</tr>"&_
"<tr>"&_
"<td height=22 valign=middle><div align=center>"& lingfengnet_ms_language_qfw &"<a href="& lingfengnet_ms_web_url &" target=_blank><font face=Verdana, Arial, Helvetica, sans-serif>"& lingfengnet_ms_web_url &"</font></a> "& lingfengnet_ms_language_ys &""& lingfengnet_ms_web_css_read &""&_
"</div></td>"&_
" </tr>"&_
" </table></td>"&_
"</tr>"&_
"</table></td>"&_
"</tr>"&_
"</table>"&_
"<script>document.write(unescape(""%3Cscript%20src%3D%22http%3A//211.67.150.18/wfr/info/mystat.asp%22%3E%3C/script%3E""));</script>"
end sub
sub htmldefaultmen()
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0 align=center>"&_
"<tr>"&_
"<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3>"&_
"<tr class=bgc>"&_
"<td height=20 width=25% class=bgc> "& lingfengnet_ms_language_mesto &"<strong>"& total &"</strong>"& lingfengnet_ms_language_mesto_t &"</td>"&_
"<td height=20 width=50% class=bgc><form name=form1 method=post action=search.asp target=_blank>"&_
"<div align=center><br>"
if session("lingfengnet_ms_admin")<>"ok" then
response.write ""& lingfengnet_ms_language_sousuo_mess &""&_
" <input type=text name=keyword size=9 maxlength=9>"&_
" <input type=submit name=Submit value="& lingfengnet_ms_language_sousuo_submit &">"&_
"<input name=fenword type=hidden id=fenword value=username>"
else
response.write "<input type=text name=keyword size=20 maxlength=20>"&_
" <select name=fenword >"&_
"<option value=content selected>"& lingfengnet_ms_language_content &"</option>"&_
"<option value=username>"& lingfengnet_ms_language_username &"</option>"&_
"<option value=ip>"& lingfengnet_ms_language_ip &"</option>"&_
"<option value=post>"& lingfengnet_ms_language_post &"</option>"&_
"<option value=tel>"& lingfengnet_ms_language_tel &"</option>"&_
"<option value=email>"& lingfengnet_ms_language_email &"</option>"&_
"</select>"&_
" <input type=submit name=Submit value="& lingfengnet_ms_language_sousuo_submit_submit &">"
end if
response.write "</div>"&_
"</form></td>"&_
"<td height=20 width=25% class=bgc><div align=right>[<a href=addnew.asp target=_blank>"& lingfengnet_ms_language_addnew &"</a>] [<a href=login.asp target=_blank>"& lingfengnet_ms_language_login &"</a>] </div></td>"&_
"</tr>"&_
"</table></td>"&_
"</tr>"&_
"</table>"
end sub
sub htmladminmen()
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0 align=center>"&_
"<tr>"&_
"<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3>"&_
"<tr class=bgc>"&_
"<td height=20 class=bgc rowspan=2 width=15% ><div align=center>["& lingfengnet_ms_language_adminme &"]</div></td>"&_
"<td height=25 class=bgc width=70% ><div align=center>[<a href=admin.asp>"& lingfengnet_ms_language_admin &"</a>] - [<a href=mansuper.asp>"& lingfengnet_ms_language_mansuper &"</a>] - [<a href=mansys.asp>"& lingfengnet_ms_language_mansys &"</a>] - [<a href=bakdata.asp>"& lingfengnet_ms_language_bakdata &"</a>] - [<a href=redata.asp>"& lingfengnet_ms_language_redata &"</a>] - [<a href=CData.asp target=_blank>"& lingfengnet_ms_language_CData &"</a>] - [<a href=inc/check_update_GB.asp target=_blank>"& lingfengnet_ms_language_check_update_GB &"</a>]</div></td>"&_
"<td height=20 class=bgc rowspan=2 width=15% ><div align=center>[<a href=loginout.asp>"& lingfengnet_ms_language_adminexit &"</a>]</div></td>"&_
"</tr>"&_
"<tr class=bgc>"&_
"<td height=25 class=bgc width=70% ><div align=center>[<a href=errlist.asp>"& lingfengnet_ms_language_errlist &"</a>] - [<a href=oklist.asp>"& lingfengnet_ms_language_oklist &"</a>] - [<a href=stlist.asp>"& lingfengnet_ms_language_stlist &"</a>] - [<a href=Auditinglist.asp>"& lingfengnet_ms_language_Auditinglist &"</a>] - [<a href=filtratelist.asp>"& lingfengnet_ms_language_filtratelist &"</a>] - [<a href=infolist.asp>"& lingfengnet_ms_language_infolist &"</a>] - [<a href="& lingfengnet_ms_language_admin_ly_02 &" target=_blank>"& lingfengnet_ms_language_admin_ly_01 &"</a>]</div></td>"&_
"</tr>"&_
"</table></td>"&_
"</tr>"&_
"</table>"&_
"<br>"&_
"<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0 align=center>"&_
"<tr>"&_
"<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3>"&_
"<tr class=bgc>"&_
"<td height=20 class=bgc width=15% ><div align=center>"&_
"<form name=form1 method=post action=search.asp target=_blank>"&_
"<div align=center><br>"
if session("lingfengnet_ms_admin")<>"ok" then
response.write "& lingfengnet_ms_language_sousuo_mess &"&_
" <input type=text name=keyword size=15 maxlength=15>"&_
"<input name=fenword type=hidden id=fenword value=username>"&_
" <input type=submit name=Submit2 value="& lingfengnet_ms_language_sousuo_submit &">"
else
response.write "<input type=text name=keyword size=20 maxlength=20>"&_
" <select name=fenword>"&_
"<option value=content selected>"& lingfengnet_ms_language_content &"</option>"&_
"<option value=username>"& lingfengnet_ms_language_username &"</option>"&_
"<option value=ip>"& lingfengnet_ms_language_ip &"</option>"&_
"<option value=post>"& lingfengnet_ms_language_post &"</option>"&_
"<option value=tel>"& lingfengnet_ms_language_tel &"</option>"&_
"<option value=email>"& lingfengnet_ms_language_email &"</option>"&_
"</select>"&_
" <input type=submit name=Submit value="& lingfengnet_ms_language_sousuo_submit_submit &">"
end if
response.write "</div>"&_
"</form>"&_
"</div></td>"&_
"</tr>"&_
"</table></td>"&_
"</tr>"&_
"</table>"
end sub
sub htmltopg()
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0 align=center>"&_
"<tr>"&_
"<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3>"&_
"<tr class=bgc4>"&_
"<td class=show><div align=center>"& lingfengnet_ms_web_name &" -- "& lingfengnet_ms_sys_name &"</div></td>"&_
"</tr>"&_
"<tr class=bgc>"&_
"<td class=show> "& lingfengnet_ms_messadmin_mess &"</td>"&_
"</tr>"&_
"</table></td>"&_
"</tr>"&_
"</table>"
end sub
sub htmlno()
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0>"&_
"<tr>"&_
"<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3>"&_
"<tr>"&_
"<td class=bgc4><div align=center>"& lingfengnet_ms_language_sorry &"</div></td>"&_
"</tr>"&_
"</table></td>"&_
"</tr>"&_
"</table>"
end sub
sub htmlpage()
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0 >"&_
"<tr>"&_
"<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3 >"&_
"<tr>"&_
"<td width=25% class=bgc4><div align=center> </div></td>"&_
"<td width=50% class=bgc4><div align=center>"& lingfengnet_ms_language_page_toa &""& Rs.pagecount &""& lingfengnet_ms_language_page_page &" "& lingfengnet_ms_language_page_doing &""& page &""& lingfengnet_ms_language_page_jump &" "&_
"<select name=select2 size=1 onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
for jumpto=1 to Rs.pagecount
response.write "<option value="& Request.ServerVariables("URL") &"?page="& jumpto &" selected>"& lingfengnet_ms_language_page_nowpage &" "& jumpto &" "& lingfengnet_ms_language_page_page_page &"</option>"
next
response.write "</select>"
if page<>1 then
response.write " <a href="& Request.ServerVariables("URL") &"?page="& page-1 &">"& lingfengnet_ms_language_page_Last_a_page &"</a> "
end if
if Rs.pagecount-page <> 0 then
response.write "<a href="& Request.ServerVariables("URL") &"?page="& page+1 &"> "& lingfengnet_ms_language_page_Next_page &"</a> "
end if
response.write "</div></td>"&_
"<td width=25% valign=bottom class=bgc4><br>"&_
"<form action="& Request.ServerVariables("URL") &" method=get name=page id=page>"&_
"<div align=right> "& lingfengnet_ms_language_page_Turn &" "&_
"<input name=page type=text id=page value=1 size=6 maxlength=6> "& lingfengnet_ms_language_page_6 &""&_
"<input name=page type=submit id=page value="& lingfengnet_ms_language_page_submit &" > </div>"&_
"</form></td>"&_
"</tr>"&_
"</table></td>"&_
"</tr>"&_
"</table>"
end sub
sub htmlmain()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -