<% 
'========================================================================================
' 文 件 名: sub_inc.asp
' 版    本: 岭峰网行业专用留言系统3.10.0 (LFMessS 2020 - 3.10.0.F Build 200604)
' 说    明: 页面模板文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2020-06-04
' 设 计 者: 疾风之狼
'========================================================================================
' 郑州文达岭峰网络科技有限公司.
'========================================================================================
' Copyright (C) 2001-2020 岭峰网. All rights reserved.
' 网    站: http://www.lfmesss.com
' 电子邮件: support@lfmesss.com
' 联系ＱＱ: 85112407
'========================================================================================
%>
<!-- #include file="../language/Lang_Base.asp" -->
<!-- #include file="keyword.asp" -->
<%
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% align=middle>"&_
					   "<a href=http://www.lfmesss.com target=_blank><img src=../style/" &LingFengNet_MS_web_css &"/"& LingFengNet_MS_web_logo_type &" align=absmiddle border=0></a>"&_
						"</td>"&_
					"<td width=70% valign=middle align=right>"
	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 &"/"& LingFengNet_MS_web_ad_type &" 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 "</td>"&_
					"<td width=10% ></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 width=25% class=bgc><table width=99% border=0 cellspacing=0 cellpadding=0 align=center>"&_
				  "<tr>"&_
					"<td height=26 valign=middle><div align=center><a href="& LingFengNet_MS_web_url &" target=_blank>" & LingFengNet_MS_web_name &"</a>&ensp;-&ensp;<a href=default"& Get_Suffix() &"  target=_blank>"& LingFengNet_MS_sys_name &"</a</div></td>"&_
				  "</tr>"&_
				  "<tr>"&_
					"<td height=26 valign=middle><div align=center>"& LingFengNet_MS_language_qfw &"<a href="& LingFengNet_MS_web_url &" target=_blank><span class=eng_font>"& LingFengNet_MS_web_url &"</span></a>&ensp;&ensp;"& LingFengNet_MS_language_ys &""& LingFengNet_MS_web_css_read &""&_
							"</div></td>"&_
				  "</tr>"&_
				  "<tr>"&_
					"<td height=26 valign=middle><div align=center id=showcop>"& LingFengNet_MS_language_cop &"</div></td>"&_
				 " </tr>"&_
			   " </table></td>"&_
			"</tr>"&_
		  "</table></td>"&_
	  "</tr>"&_
	"</table>"&_
	"<!--end-->"
End Sub

Sub htmlmeta()
	Response.Write "<meta http-equiv=""Content-Type"" content=""text/html;"" charset="""& LingFengNet_MS_language_meta_mes_1 &""">"&vbcrlf&_
	"<meta name=""generator"" content=""lfmesss"">"&vbcrlf&_
	"<meta name="""& LingFengNet_MS_language_meta_mes_2 &";"" content="""& LingFengNet_MS_language_meta_mes_3 &""">"&vbcrlf&_
	"<meta content="""& LingFengNet_MS_language_meta_mes_4 &";"" name=""description"">"&vbcrlf&_
	 "<meta content="""& LingFengNet_MS_language_meta_mes_5 &";"" name=""keywords"">"&vbcrlf
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 height=60>"&_
			"<tr class=bgc>"&_
			  "<td width=25% class=bgc align=left >"
	IF LingFengNet_MS_add_news_1 = 1 Then
		add_menu = LingFengNet_MS_add_news_2
	Else
		add_menu = "addnew"&Get_Suffix()
	End IF
	IF LingFengNet_MS_add_news_3 <> 1 Then		  
		Response.Write "&ensp;<img src=../pic/tj.gif align=absmiddle >&ensp;<a href="& add_menu &" target=_blank>"& LingFengNet_MS_language_addnew &"</a> "
	End IF
	IF LingFengNet_MS_messadminlogin <> 1 Then		  
		Response.Write "<img src=../pic/gl.gif align=absmiddle >&ensp;<a href=admin_login"& Get_Suffix() &" target=_blank>"& LingFengNet_MS_language_login &"</a>&ensp;</div></td>"
	End IF
		Response.Write "		  </td>"&_
			  "<td width=50% class=bgc align=center><form name=form1 method=post action=search"& Get_Suffix() &"  target=_blank>"
	IF Session("LingFengNet_MS_admin") = "ok" or LingFengNet_MS_sousuo_lx = 1  Then
		Response.Write "<input type=text name=keyword size=20 maxlength=20>"&_
					"&ensp;&ensp;<select name=fenword >"&_
					  "<option value=content selected>"& LingFengNet_MS_language_content &"</option>"&_
					  "<option value=re>"& LingFengNet_MS_language_re &"</option>"&_
					  "<option value=username>"& LingFengNet_MS_language_username &"</option>"
		IF Session("LingFengNet_MS_admin") = "ok" Then				  
			Response.Write "<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>"
		End IF				  
			Response.Write " </select>&ensp;&ensp;"& getLylx(LingFengNet_MS_messlx_nr) &_
						"&ensp;&ensp;<input type=submit name=Submit value="& LingFengNet_MS_language_sousuo_submit_submit &" class=buttonface>"
		Else
			Response.Write ""& LingFengNet_MS_language_sousuo_mess &""&_
						"&ensp;<input type=text name=keyword size=9 maxlength=9>"&_
						"&ensp;<input type=submit name=Submit value="& LingFengNet_MS_language_sousuo_submit &" class=buttonface>"&_
						"<input name=fenword type=hidden id=fenword value=username>"
		End IF
		Response.Write "</form></td>"&_
				  "<td width=25% class=bgc><div align=right>"
		IF total <> "" Then		  
			Response.Write ""& LingFengNet_MS_language_mesto &"<strong>"& total &"</strong>"& LingFengNet_MS_language_mesto_t &""
		IF LingFengNet_MS_noaud = 0 or Session("LingFengNet_MS_admin") = "ok" Then
			Response.Write ""& LingFengNet_MS_language_mesto_no &"<strong>"& totalno &"</strong>"& LingFengNet_MS_language_mesto_t &""
		End IF
	End IF
	Response.Write "&ensp;</td></tr>"&_
		  "</table></td>"&_
	  "</tr>"&_
	"</table>"
End Sub

sqlkey = "id,encrypt,username,post,ip,email,mess,content,tel,re,readmin,face,addtime,retime,Auditing,silentlywords,enpass,topok,lylx,filemulu"

Sub htmladminmen()
	IF Session("LingFengNet_MS_admin") = "ok" or Session("LingFengNet_MS_admin_flg") = "3" Then 
		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=10% ><div align=center>["& LingFengNet_MS_language_adminme &"]</div></td>"&_
			  "<td height=26 class=bgc width=80% >"
	IF Session("LingFengNet_MS_admin_flg") = "3" Then		  
		Response.Write "<div align=center>[<a href=admin"& Get_Suffix() &">"& LingFengNet_MS_language_admin &"</a>]&ensp;-&ensp;[<a href=admin_mansuper"& Get_Suffix() &">"& LingFengNet_MS_language_mansuper &"</a>]&ensp;-&ensp;[<a href=admin_mansys"& Get_Suffix() &">"& LingFengNet_MS_language_mansys &"</a>]&ensp;-&ensp;[<a href=admin_bakdata"& Get_Suffix() &">"& LingFengNet_MS_language_bakdata &"</a>]&ensp;-&ensp;[<a href=admin_redata"& Get_Suffix() &">"& LingFengNet_MS_language_redata &"</a>]&ensp;-&ensp;[<a href=""#"" onClick=""Confirmer()"">"& LingFengNet_MS_language_CData &"</a>]&ensp;-&ensp;[<a href=admin_makew3c"& Get_Suffix() &">"& LingFengNet_MS_language_makew3c &"</a>]&ensp;-&ensp;[<a href=admin_checkupdate_GB"& Get_Suffix() &">"& LingFengNet_MS_language_check_update_GB &"</a>]</div>"
	End IF
		Response.Write "</td>"&_
			  "<td height=20 class=bgc rowspan=2 width=10% ><div align=center>[<a href=admin_loginout"& Get_Suffix() &">"& LingFengNet_MS_language_adminexit &"</a>]</div></td>"&_
			"</tr>"&_
			"<tr class=bgc>"&_
			  "<td height=26 class=bgc width=70% >"
	IF Session("LingFengNet_MS_admin_flg") = "3" Then				  
		Response.Write "<div align=center>[<a href=admin_syslist"& Get_Suffix() &">"& LingFengNet_MS_language_syslist &"</a>]&ensp;-&ensp;"
	End IF
	IF Session("LingFengNet_MS_admin_flg") <> "" and Session("LingFengNet_MS_admin") = "ok"  Then	
		Response.Write "[<a href=admin_stlist"& Get_Suffix &">"& LingFengNet_MS_language_stlist &"</a>]&ensp;-&ensp;[<a href=admin_auditinglist"& Get_Suffix() &">"& LingFengNet_MS_language_Auditinglist &"</a>]&ensp;-&ensp;[<a href=admin_reoklist"& Get_Suffix() &">"& LingFengNet_MS_language_reoklist &"</a>]&ensp;-&ensp;[<a href=admin_filtratelist"& Get_Suffix() &">"& LingFengNet_MS_language_filtratelist &"</a>]"
	End IF
	IF Session("LingFengNet_MS_admin_flg") = "3" Then	
		Response.Write "&ensp;-&ensp;[<a href=admin_infolist"& Get_Suffix() &">"& LingFengNet_MS_language_infolist &"</a>]&ensp;-&ensp;[<a href=admin_safecenter"& Get_Suffix() &">"& LingFengNet_MS_language_admin_ly_03 &"</a>]&ensp;-&ensp;[<a href="& LingFengNet_MS_language_admin_ly_02 &" target=_blank>"& LingFengNet_MS_language_admin_ly_01 &"</a>]</div>"
	End IF
	Response.Write "</td>"&_
			"</tr>"&_
		  "</table></td>"&_
	  "</tr>"&_
	"</table>"
	Call htmlbr()
	End IF
	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=50 width=25% class=bgc>"
	IF total <> "" Then			  
		Response.Write " &ensp;"& LingFengNet_MS_language_mesto_admin &"<strong>"& total &"</strong>"& LingFengNet_MS_language_mesto_t &""
	Else
		Response.Write ""& LingFengNet_MS_language_admin_mess &""
	End IF
		Response.Write "</td>"&_
			"<td height=50 width=75% class=bgc><form name=form1 method=post action=search"& Get_Suffix() &"  target=_blank>"&_
				  "<div align=center>"
	IF Session("LingFengNet_MS_admin") <> "ok"  Then
		Response.Write ""& LingFengNet_MS_language_sousuo_mess &""&_
					"&ensp;<input type=text name=keyword size=9 maxlength=9>"&_
					"&ensp;<input type=submit name=Submit value="& LingFengNet_MS_language_sousuo_submit &" class=buttonface>"&_
					"<input name=fenword type=hidden id=fenword value=username>"
	Else
		Response.Write "<input type=text name=keyword size=20 maxlength=20>"&_
					"&ensp;&ensp;<select name=fenword >"&_
					  "<option value=content selected>"& LingFengNet_MS_language_content &"</option>"&_
					  "<option value=re>"& LingFengNet_MS_language_re &"</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>&ensp;&ensp;"& getLylx(LingFengNet_MS_messlx_nr) &_
					"&ensp;&ensp;<input type=submit name=Submit value="& LingFengNet_MS_language_sousuo_submit_submit &" class=buttonface>"
	End IF
	Response.Write "</div>"&_
				"</form></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  height=26><div align=center><a href="& LingFengNet_MS_web_url &" target=_blank>" &LingFengNet_MS_web_name &"</a>&ensp;--&ensp;<a href=default"& Get_Suffix() &"  target=_blank>"& LingFengNet_MS_sys_name &"</a></div></td>"&_
			"</tr>"&_
			"<tr class=bgc>"&_
			  "<td class=show id=show align=left >"& 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

Function Get_Rewrite(nowpage_web, jumpto,page, howtovisit)
	IF jumpto = "" and page <> "" and page <> 0 Then
		howtoGet_Rew = page
	Else
		howtoGet_Rew = jumpto
	End IF
	IF InStr(nowpage_web, "search.asp") = 0 Then
		wherepage_web = ".asp?"
	End IF
	IF LingFengNet_MS_Rewrite <> 0 Then
		Select Case howtovisit
			Case ""
				Get_Rewrite = nowpage_web & wherepage_web &"page="& howtoGet_Rew
			Case 0
				Get_Rewrite = nowpage_web & wherepage_web &"page="& howtoGet_Rew + 1
			Case 1
				Get_Rewrite = nowpage_web & wherepage_web &"page="& howtoGet_Rew - 1
			Case Else
				Get_Rewrite = nowpage_web & wherepage_web &"page="& howtoGet_Rew
		End Select
	Else
		Select Case howtovisit
			Case ""
				Get_Rewrite = nowpage_web &"_"& howtoGet_Rew &".html"
			Case 0
				Get_Rewrite = nowpage_web &"_"& howtoGet_Rew + 1 &".html"
			Case 1
				Get_Rewrite = nowpage_web &"_"& howtoGet_Rew - 1 &".html"
			Case Else
				Get_Rewrite = nowpage_web &"_"& howtoGet_Rew &".html"
		End Select		
	End IF
End Function

Sub htmlpage()
	nowpage_web = Request.ServerVariables("url")
	IF InStr(nowpage_web, "search.asp") > 0 Then 
		nowpage_web = nowpage_web &"?keyword="& keyword &"&fenword="& fenword &"&"
	Else
		nowpage_web = Replace(nowpage_web,".asp","")
	End IF	
	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 height=50><div align=center><a href=XML"& Get_Suffix() &" target=_blank ><img src=../pic/xmlRSS2.gif width=80 height=15 border=0></a></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 &"&ensp;"&_
				  "<select name=select2 size=1 onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
	Response.Write "<option selected>"& LingFengNet_MS_language_page_pageinfo & LingFengNet_MS_language_page_nowpage & page & LingFengNet_MS_language_page_page_page &"</option>"	
	For jumpto = 1 to rs.pagecount
		Response.Write "<option value="& Get_Rewrite(nowpage_web, jumpto, page, 3) &" >"& LingFengNet_MS_language_page_nowpage & jumpto & LingFengNet_MS_language_page_page_page &"</option>"
	Next
	jumpto = ""
		Response.Write "</select>"
	IF page <> 1 Then
		Response.Write "&ensp;<a href="& Get_Rewrite(nowpage_web, jumpto,page, 1) &">"& LingFengNet_MS_language_page_Last_a_page &"</a>&ensp;"
	End IF
	IF rs.pagecount - page <> 0 Then
		Response.Write "&ensp;<a href="& Get_Rewrite(nowpage_web, jumpto,page, 0) &">"& LingFengNet_MS_language_page_Next_page &"</a>&ensp;"
	End IF
	Response.Write "</div></td>"&_
			  "<td width=25% valign=middle class=bgc4>"&_
				"<form action="& Request.ServerVariables("URL") &" method=get name=page id=page>"&_
				  "<div align=right> "& LingFengNet_MS_language_page_Turn &"&ensp;"&_
					"<input type=text name=page value=1 size=6 maxlength=6>&ensp;"& LingFengNet_MS_language_page_6 &""&_
					"<input type=submit name=submit value="& LingFengNet_MS_language_page_submit &" >&ensp; </div>"&_
				"</form></td>"&_
			"</tr>"&_
		  "</table></td>"&_
	  "</tr>"&_
	"</table>"
End Sub

Function Auditingok(Auditing, re, reok, ys2, keyword, enpass, username)
    IF ((Session("LingFengNet_MS_admin") <> "ok" and keyword = "" ) or (LFW_md5_32_pass(keyword) <> enpass and keyword = "" and Session("LingFengNet_MS_admin") <> "ok")) and ys2 = 1 Then
		Response.Write LingFengNet_MS_language_messdef_mesok_err_1
	ElseIF Auditing = 1 Then
		Response.Write LingFengNet_MS_language_messdef_mesok_nosee_1
	ElseIF Auditing = 2 and re = "0" Then	
		Response.Write LingFengNet_MS_language_messdef_mesok_see_1
	ElseIF Auditing = 5 and re = "0" Then	
		Response.Write LingFengNet_MS_language_messdef_waitre_see_1	
	ElseIF Auditing = 2 and re <> "0" Then	
		Response.Write "<span style=color:#0000FF>" & reok & "</span>"
	ElseIF Auditing = 3 Then	
		Response.Write LingFengNet_MS_language_messdef_mesok_fli_1
	ElseIF Auditing = 0 Then	
		Response.Write LingFengNet_MS_language_messdef_mesok_Wait_for_1
	Else
		Response.Write LingFengNet_MS_language_messdef_mesok_err_1
	End IF
End Function 

Function Auditingok_sub_2(Auditing, re, ys2)
    IF ys2 = 1 Then
		Response.Write LingFengNet_MS_language_messdef_mesok_err_2
	ElseIF Auditing = 1 Then
		Response.Write LingFengNet_MS_language_messdef_mesok_nosee_2
	ElseIF Auditing = 2 and re = "0" Then	
		Response.Write LingFengNet_MS_language_messdef_mesok_see_2
	ElseIF Auditing = 5 and re = "0" Then	
		Response.Write LingFengNet_MS_language_messdef_waitre_see_2		
	ElseIF Auditing = 2 and re<>"0" Then	
		Response.Write LingFengNet_MS_language_messdef_mesok_re_2 & "</span>"
	ElseIF Auditing = 3 Then	
		Response.Write LingFengNet_MS_language_messdef_mesok_fli_2
	ElseIF Auditing = 0 Then	
		Response.Write LingFengNet_MS_language_messdef_mesok_Wait_for_2
	Else
		Response.Write LingFengNet_MS_language_messdef_mesok_err_2
	End IF
End Function

Sub htmlbr()
	Response.Write "<table width="& LingFengNet_MS_web_w &" height="& LingFengNet_MS_web_h &" border=0 cellpadding=0 cellspacing=0 >"&_
	  "<tr>"&_
		"<td></td>"&_
	  "</tr>"&_
	"</table>"
End Sub

Sub htmlmain()
	Call htmltop()
	Call htmlbr()
	IF Left(flg, 3) <> "man"  Then
		IF LingFengNet_MS_messadmin = 0 Then
			Call htmltopg()
			Call htmlbr()
		End IF
	End IF
	IF Left(flg, 3) <> "man" Then
		Call htmldefaultmen()
	Else
		Call htmladminmen()
	End IF
	IF rs.eof and rs.bof Then
		Call htmlno()
		page_no = 1
	Else
		Call htmlbr()
		pagesetup = LingFengNet_MS_mypagesize
		rs.pagesize = LingFengNet_MS_mypagesize
		IF Len(page) > LingFengNet_MS_pagemax Then Response.Redirect "default"&Get_Suffix()
		IF (page - rs.pagecount) > 0 Then
			page = rs.pagecount
			totalPut = rs.recordcount
		ElseIF page = "" or page < 1 Then
			page = 1
		End IF
		rs.absolutepage = page
		keyword = Trim(Request("keyword"))
		total = total + 1
		i = 0
		Do while Not rs.eof
			total = total - 1
			i = i + 1
			IF i > rs.pagesize Then
				Exit Do
			End IF			
			id = rs("id")			
			IF LingFengNet_MS_pagetosort = 0 Then
				pagetosort = total - (page - 1) * rs.pagesize
			Else
				pagetosort = i + (page - 1) * rs.pagesize
			End IF
			IF rs("encrypt") = 1 Then
				username = DeCrypt(rs("username"))
				username_sub = DeCrypt(rs("username"))
				post = DeCrypt(rs("post"))
				ip = DeCrypt(rs("ip"))
				email = DeCrypt(rs("email"))
				mess = DeCrypt(rs("mess"))
				content = DeCrypt(rs("content"))
				tel = DeCrypt(rs("tel"))
				IF rs("re") <> "0" Then
					re = DeCrypt(rs("re"))
					readmin = DeCrypt(rs("readmin"))
				Else
					re = rs("re")
				End IF
			Else
				username = rs("username")
				username_sub = rs("username")
				post = rs("post")
				ip = rs("ip")
				email = rs("email")
				mess = rs("mess")
				content = rs("content")
				tel = rs("tel")
				re = rs("re")
				readmin = rs("readmin")
			End IF
				face = rs("face")
				addtime = rs("addtime")
				retime = rs("retime")
				Auditing = rs("Auditing")
				ys2 = rs("silentlywords")
				enpass = rs("enpass")
				topok = rs("topok")
			IF topok = 0 Then 
				topok_img = "&ensp;<img src=../pic/top.gif width=20 height=20 align=absmiddle border=0>&ensp;" & LingFengNet_MS_language_messdef_top & "&ensp;<br>"
			Else
				topok_img = ""
			End IF
			filemulu = rs("filemulu")
			filemulu_pic = "<img src=../pic/fileico.png width=22 height=22 align=absmiddle border=0>&ensp;"
			filemulu_dow = "<a href=../upload/"& filemulu &">"& LingFengNet_MS_language_upload_11 & filemulu & "</a>"
			lylx = rs("lylx")
			IF LingFengNet_MS_messlx = 0 Then
				messdef_lylx = LingFengNet_MS_language_messdef_lylx & lylx
			Else
				LingFengNet_MS_language_messdef_lylx = ""
			End IF	
			reok = LingFengNet_MS_language_messdef_mesok_re_admin_1 & readmin & LingFengNet_MS_language_messdef_mesok_re_time & retime & LingFengNet_MS_language_messdef_mesok_re_admin_2 & re
			
			'定义首页元素
			IF keyword = "" Then
				IF (Session("LingFengNet_MS_admin") = "ok" or LingFengNet_MS_ss = 1) and keyword = ""  Then
					username = username
					tel = tel
				Else
					username = Left(username, 1)&"****"
					IF Left(tel, 1) = "1" Then
						tel = Left(tel, 3)&"********"
					ElseIF Left(tel, 1) = "0" Then
						tel = Left(tel, 4)&"********"
					Else
						tel = Left(tel, 3)&"****"		
					End IF
				End IF
			'定义搜索页面元素
			Else
				IF (keyword <> "" and LFW_md5_32_pass(keyword) = enpass) or (keyword <> "" and  keyword = username and enpass = "0" and fenword_bbs = "")  or (Left(keyword, 7) = "lfmesss" and fenword_bbs = "id" and LingFengNet_MS_ss = 1) or Session("LingFengNet_MS_admin") = "ok" Then
					username = username
					tel = tel
				Else
					username = Left(username, 1)&"****"
					IF Left(tel, 1) = "1" Then
						tel = Left(tel, 3)&"********"
					ElseIF Left(tel, 1) = "0" Then
						tel = Left(tel, 4)&"********"
					Else
						tel = Left(tel, 3)&"****"		
					End IF
				End IF
			End IF
			
			IF LingFengNet_MS_sys_tem = 0 or Session("LingFengNet_MS_admin") = "ok" or keyword <> "" Then
			
			IF ((Session("LingFengNet_MS_admin") <> "ok" and keyword = "" ) or (LFW_md5_32_pass(keyword) <> enpass and keyword = "" and Session("LingFengNet_MS_admin") <> "ok")) and ys2 = 1 Then
				content = Left(content, 6) & "..." & " <a href=javascript:chageDiv("& pagetosort &")> "& LingFengNet_MS_language_sub_01 & "</a><div id="& pagetosort &" ></div> "
				IF filemulu <> "0" Then
					filemulurows = 4		
					filemulu_row = "<tr><td width=75% class=bgc1  style='min-height:28px;font-size:"& LingFengNet_MS_web_f_s &"px;line-height: "& LingFengNet_MS_web_f_l &"px !important;height: 28px;' colspan=2 align=left >&ensp;"& filemulu_pic & filemulu_dow &"</td></tr>"
				Else
					filemulurows = 3		
					filemulu_row = ""
				End IF 			
			Else
				content = content
				IF filemulu <> "0" Then
					filemulurows = 4		
					filemulu_row = "<tr><td width=75% class=bgc1  style='min-height:28px;font-size:"& LingFengNet_MS_web_f_s &"px;line-height: "& LingFengNet_MS_web_f_l &"px !important;height: 28px;' colspan=2 align=left >&ensp;"& filemulu_pic & filemulu_dow &"</td></tr>"
				Else
					filemulurows = 3		
					filemulu_row = ""
				End IF 			
			End IF 
			
			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 rowspan="& filemulurows &" class=bgc valign=top width=25%  align=left >		 <table> <tr>		  <td>		  "& topok_img &" &ensp;"& LingFengNet_MS_language_messdef_nowmes &" <b>"& pagetosort &"</b> "& LingFengNet_MS_language_messdef_tomes & messdef_lylx & "<br>		  </td></tr><tr>		  <td>"
			IF Session("LingFengNet_MS_admin") = "ok" Then			  
				'Response.Write "<br>"
			'Else
				Response.Write ""& LingFengNet_MS_language_messdef_mesok_admin &""
			End IF
			IF LingFengNet_MS_web_bs = 0 Then
				IF face = "1.jpg" Then
					IF LingFengNet_MS_web_bs_lx = 0 Then
						Response.Write "&ensp;<img src=""../face/Business/LFW_mess_pho_b_"& face &""" width=""40"" height=""40"" style=""vertical-align: middle;"">"
					ElseIF LingFengNet_MS_web_bs_lx = 1 Then
						Response.Write "&ensp;<img src=""../face/Individual/LFW_mess_pho_i_"& face &""" width=""40"" height=""40"" style=""vertical-align: middle;"">"
					End IF
				Else
					Response.Write "&ensp;<img src=""../face/"& face &""" width=""40"" height=""40"" style=""vertical-align: middle;"">"
				End IF
			End IF
			Response.Write "<br>"&_
						"<p>&ensp;"& LingFengNet_MS_language_messdef_username & username &"&ensp;<br>"&_
						  "<br>"&_
						  "&ensp;"& LingFengNet_MS_language_messdef_tel & tel &"<br>"&_
						"</p></td></tr></table></td>"
			
			Response.Write "<td width=50% class=bgc  align=""left"" valign=""middle"" style='height:36px;font-size:"& LingFengNet_MS_web_f_s &"px;line-height:"& LingFengNet_MS_web_f_l &"px;'>"
			IF Session("LingFengNet_MS_admin") = "ok" Then
				IF Session("LingFengNet_MS_admin_flg") = "3" or Session("LingFengNet_MS_admin_flg") = "2" or Session("LingFengNet_MS_admin_flg") = "1" Then
					IF email = LingFengNet_MS_language_save_mes_25 Then
						Response.Write "&ensp;<img alt='"& LingFengNet_MS_language_save_mes_25 &"' border=0 src=../pic/mail.png valign=""middle"">&ensp;"& LingFengNet_MS_language_messdef_user_1_1 &" "
					Else
						Response.Write "<a href=mailto:"& email &"><img alt='"& LingFengNet_MS_language_messdef_to &"『 "& username &" 』"& LingFengNet_MS_language_messdef_setmail &"' border=0 src=../pic/mail.png valign=""middle"">&ensp;"& LingFengNet_MS_language_messdef_user_1 &"</a> "
					End IF
					Response.Write "<img border=0 src=../pic/Home.png alt='『 "& username &" 』"& LingFengNet_MS_language_messdef_post &":"& post &"' valign=""middle""><a title='『 "& username &" 』"& LingFengNet_MS_language_messdef_post &":"& post &"'>&ensp;"& LingFengNet_MS_language_messdef_user_2 &"</a> "
					IF mess = LingFengNet_MS_language_save_mes_25 Then
						Response.Write "<img alt='"& LingFengNet_MS_language_save_mes_26 &"' src=../pic/IM.png border=0 valign=""middle"">&ensp;"& LingFengNet_MS_language_messdef_user_3 &" "
					Else
						Response.Write "<a href="& qq(mess) &" target=_blank ><img alt='『 "& username &" 』"& LingFengNet_MS_language_messdef_mess &": "& mess &"' src=../pic/IM.png border=0 valign=""middle"" border=0>&ensp;"& mess &"</a> "
					End IF
					Response.Write "<a href=http://www.lfmesss.com/lfmesss/ip/index.html?ip="& ip &"&search="& ip &" target=_blank  title='『 "& username &" 』"& LingFengNet_MS_language_messdef_ipp &": "& ip &"'><img alt='『 "& username &" 』"& LingFengNet_MS_language_messdef_ipp &": "& ip &"' border=0 src=../pic/IP.png valign=""middle"">&ensp;"& LingFengNet_MS_language_messdef_user_4 &"</a>"
				End IF
				IF LingFengNet_MS_Rewrite <> 0 Then
					url_auditing = "admin_auditing.asp?page="& id
					url_printing = "admin_printing.asp?page="& id
				Else
					url_auditing = "admin_auditing_"& id &".html"
					url_printing = "admin_printing_"& id &".html"
				End IF
				IF Session("LingFengNet_MS_admin_flg") = "3" or Session("LingFengNet_MS_admin_flg") = "2" or ( Session("LingFengNet_MS_admin_flg") = "1" and Auditing = 0 ) Then
					Response.Write " <a href="& url_auditing &" title="& LingFengNet_MS_language_messdef_Aud &"><img border=0 src=../pic/reviewl.png valign=""middle"">&ensp;"& LingFengNet_MS_language_messdef_user_5 &"</a>"
				End IF
				Response.Write " <a href="& url_printing &" title="& LingFengNet_MS_language_messdef_pri &"  target=_blank ><img border=0 src=../pic/Printer.png alt="& LingFengNet_MS_language_messdef_pri &" valign=""middle"">&ensp;"& LingFengNet_MS_language_messdef_user_6 &"</a> "
				IF Session("LingFengNet_MS_admin_flg") = "3" Then
					gbookurl = "http://"& Get_ReplaceSuffix(Request.ServerVariables("server_name") &":"& Request.ServerVariables("server_port")) & Request.ServerVariables("script_name")
					Response.Write " <a href=""javascript:fun_del("& id &", '"& gbookurl &"', '"& username &"')"" title="& LingFengNet_MS_language_messdef_del &"><img border=0 src=../pic/delete.png valign=""middle"">&ensp;"& LingFengNet_MS_language_messdef_user_7 &"</a>"
				End IF
			End IF
			Response.Write "</td>"		
			Response.Write "<td width=25% class=bgc align=""right"" valign=""middle"">&ensp;"& LingFengNet_MS_language_messdef_addtime & addtime &"&ensp;</td>"
			Response.Write "</tr>"&_
					"<tr>"&_
					  "<td width=75% class=bgc1 style='min-height:75px;font-size:"& LingFengNet_MS_web_f_s &"px;line-height:"& LingFengNet_MS_web_f_l &"px !important;height: 75px;' colspan=2 align=left >&ensp;"& content &"</td>"&_
					"</tr>"
			Response.Write filemulu_row
			Response.Write "<tr class=bgc >"&_
					  "<td width=75% colspan=2 style='height:35px;font-size:"& LingFengNet_MS_web_f_s &"px;line-height:"& LingFengNet_MS_web_f_l &"px;'  align=left >"
				LingFengNet_MS_language_sub_tr_td = Auditingok(Auditing, re, reok, ys2, keyword, enpass, username)
			Response.Write "</td>"&_
					"</tr>"&_
				  "</table></td>"&_
			  "</tr>"&_
			"</table>"
			Else
			content = clebr(content)
			IF Len(content) > 25 and ys2 = 0 Then
				contentlites = Left(content, 25) &"..."
			ElseIF ys2 = 1 Then
				contentlites = Left(content, 6) & "..." & " <a href=javascript:chageDiv("& pagetosort &")> "& LingFengNet_MS_language_sub_01 & "</a><div id="& pagetosort &" ></div> "
			Else
				contentlites = content
			End IF
			Response.Write "<table width="& LingFengNet_MS_web_w &" border=0 cellspacing=0 cellpadding=0 >"&_
			  "<tr>"&_
				"<td class=bgc2 > <table width=100% height=45 border=0 cellpadding=0 cellspacing=1 >"&_
			  "<tr>"&_
				"<td width=5% align=center class=bgc >"& pagetosort &"</td>"
			IF LingFengNet_MS_messlx = 0 Then
			Response.Write "<td width=10% align=center class=bgc >"& lylx &"</td>"
				End IF	
			Response.Write "    <td width=55% class=bgc4 style='font-size:"& LingFengNet_MS_web_f_s &"px;line-height:"& LingFengNet_MS_web_f_l &"px;' align=left >" 
			IF ys2 = 0 Then 
			Response.Write "<a href=search"& Get_Suffix() &"?keyword=lfmesss"& id &"&fenword_bbs=id title="& content &" target=_blank >"
			End IF 
			Response.Write ""& topok_img &"&ensp;"& contentlites &"</a></td>"&_
				"<td width=8% class=bgc style='font-size:"& LingFengNet_MS_web_f_s &"px;line-height:"& LingFengNet_MS_web_f_l &"px' >&ensp;"
				LingFengNet_MS_language_sub_tr_td = Auditingok_sub_2(Auditing, re, ys2)
			Response.Write "</td>"&_
				"<td width=32% class=bgc ><table width=99% border=0 cellspacing=0 cellpadding=0 >"&_
			  "<tr>"&_
				"<td width=35% >&ensp;<img src=../pic/profile.png align=absmiddle >&ensp;"& username &"&ensp;</td>"&_
				"<td width=65% >&ensp;"& addtime &"</td>"&_ 
			  "</tr>"&_
			"</table>"&_
			"</td>"&_
			  "</tr>"&_
			"</table></td>"&_
			  "</tr>"&_
			"</table>"
			End IF
			rs.movenext
		Loop
		Call htmlbr()
		IF page_no <> 1 Then
			Call htmlpage()
		End IF
	End IF
End Sub
%>