<% 
'========================================================================================
' 文 件 名: m_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()
	Response.Write "<div class=""wdlf_commonHead bgc"">"&_
	  "<div class=""wdlf_commonHead_left"">"&_
					   "<a href=""http://www.lfmesss.com"" target=""_blank""><img src=../style/" & LingFengNet_MS_web_css &"/"& LingFengNet_MS_web_logo_type &" </a>"&_
						"</div>"&_
					"<div class=""wdlf_commonHead_right""></a>"
	Response.Write "</div>"&_
							"</div>"
End Sub

' 内容区开头部分
Sub htmlbody_begin()
	Response.Write "<div class=""wdlf_commonBody "">"
End Sub

' 首页显示审核条数
Sub htmlitemtotal()
	IF total <> "" Then		  
		Response.Write "<div class=""wdlf_index_showTotal bgc"">"& 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
		IF LingFengNet_MS_messadminlogin <> 1 Then		  
			Response.Write "<a style=""float:right;margin-right: 10px;"" href=m_admin_login"&Get_Suffix()&" target=_blank>"& LingFengNet_MS_language_login &"</a>"
		End IF
		Response.Write "</div>"
	End IF
End Sub

' 审核信件列表页审核条数
Sub html_admin_itemtotal()
	IF total <> "" Then		  
		Response.Write "<div class=""wdlf_index_showTotal bgc"">"& LingFengNet_MS_language_mesto_admin &"<strong>"& total &"</strong>"& LingFengNet_MS_language_mesto_t
		Response.Write "</div>"
	End IF
End Sub


Sub htmlend()
	IF LingFengNet_MS_add_news_1 = 1 Then
		add_menu = LingFengNet_MS_add_news_2
	Else
		add_menu = "addnew"&Get_Suffix()
	End IF
	Response.Write "<div class=""wdlf_commonFoot bgc"">"&_
	  "<a href="" " & "m_"&add_menu& " "">"&_
		"<div class=""wdlf_commonFoot_content"">"&_
			"<i class=""wdlf_commonFoot_icon"">&#xe70e;</i>"& LingFengNet_MS_language_mobile_3 &""				
	Response.Write  "</div>"&_
								 "</a>"&_
							"</div>"&_
						"<!--end-->"
End Sub

' 版权信息
Sub htmlcop()
	Response.Write "<div class=""wdlf_common_content_cop "">"& LingFengNet_MS_language_cop & "</div>"
End Sub

'管理员退出
Sub htmladminlogoout()
	Response.Write "<div class=""wdlf_commonFoot bgc"">"&_
	  "<a href=m_admin_loginout"&Get_Suffix()&">"&_
		"<div class=""wdlf_commonFoot_content"">"&_
			"<i class=""wdlf_commonFoot_icon"">&#xe601;</i>"& LingFengNet_MS_language_adminexit &""				
	Response.Write  "</div>"&_
								 "</a>"&_
							"</div>"&_
						"<!--end-->"
End Sub

Sub html_liuyanend()
	add_menu = "m_default"&Get_Suffix()
	Response.Write "<div class=""wdlf_commonFoot bgc"">"&_
	  "<a href="" "& add_menu &" "">"&_
		"<div class=""wdlf_commonFoot_content"">"&_
			"<i class=""wdlf_commonFoot_icon"" style=""font-size: 20px;margin-right:2px;"">&#xe605;</i>"&LingFengNet_MS_language_save_mes_27_3&"  "&_
		  "</div>"&_
	  "</a>"&_
	"</div>"&_
	"<!--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=""viewport"" content=""width=device-width,initial-scale=1.0,maximum-scale=1.0,user-scalable=0"" />"&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

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

'未找到符合条件的内容
Sub htmlno()
	Response.Write  "<div class=""wdlf_index_showTotal bgc"">"& LingFengNet_MS_language_sorry &"</div>"
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,"m_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 htmlcebianlan()
	Response.Write "<div class=""wdlf_right_tanKuang bgc1"" onclick=""wdlf_search_by_content()"">"&_
	    						"<i class=""wdlf_wdlf_right_tanKuang_icon"">&#xe600;</i>"&_
	        			"</div>"
End Sub

'移动端管理员界面返回侧边栏
Sub html_admin_cebianlan()
	Response.Write "<div class=""wdlf_right_tanKuang bgc1"" onclick=""window.history.back();"">"&_
	    						"<i class=""wdlf_wdlf_right_tanKuang_icon"">&#xe77b;</i>"&_
	        			"</div>"
End Sub

Sub htmlpage()
	nowpage_web = Request.ServerVariables("url")
	IF InStr(nowpage_web,"m_search.asp") > 0 Then 
		nowpage_web = nowpage_web &"?keyword="& keyword &"&fenword="& fenword &"&"
	Else
		nowpage_web = replace(nowpage_web,".asp","")
	End IF	
	Response.Write "<div class=""wdlf_page bgc4"">"&_
					"<div class=""wdlf_pageTotal"">" & LingFengNet_MS_language_page_toa &""& rs.pagecount &""& LingFengNet_MS_language_page_page & "</div>"&_
					"<div class=""wdlf_pageNow""> "& LingFengNet_MS_language_page_doing &""& page &""& LingFengNet_MS_language_page_jump &"</div>"&_
					"<div class=""wdlf_pageGo"">"&_
					 "<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
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 "<div class=""wdlf_bottom_div ""></div>"
End Sub

'遮罩
Sub htmlzheZhao()
	Response.Write "<div class=""wdlf_search_bg"" id=""wdlf_search_bg"" style=""display: none;"">"
End Sub

' 按留言密码查询弹出层
Sub htmlpasswordceng()
	Response.Write "<div class=""wdlf_search_div bgc1""id=""wdlf_search_by_password"" style=""display: none;height: 220px;"">"&_ 
							"<div class=""wdlf_liuYan_detail_item"">"&_ 
								"<form action=""m_search"& Get_Suffix() &""" name=""messpass"" method=""post"">"&_ 
									"<div class=""wdlf_liuYan_detail_item wdlf_plus_marginTop_60"">"&_ 
										"<div class=""wdlf_liuYan_detail_content"">"& LingFengNet_MS_language_mobile_1 &"</div>"&_ 
										"<div class=""wdlf_liuYan_input"">"&_ 
											"<input name=""keyword"" type=""text"" size=""20"" maxlength=""20"">"&_ 
											"<input name=""fenword"" type=""hidden"" id=""fenword"" value=""username"">"&_ 
											"<input name=""todopass"" type=""hidden"" id=""todopass"" value=""todopass"">"&_ 
										"</div>"&_ 
									"</div>"&_ 
									"<div class=""wdlf_liuYan_tiJiao wdlf_plus_marginTop_30"">"&_ 
										"<input class=""wdlf_liuYan_tiJiao_btn buttonface"" type=""button"" value="& LingFengNet_MS_language_messdef_login_submit &"></input>"&_ 
										"<input class=""wdlf_liuYan_cancel_btn buttonface"" type=""button"" value="& LingFengNet_MS_language_mobile_4 &"></input>"&_ 
									"</div>"&_ 
								"</form>"&_ 
							"</div>"&_ 
						"</div>"	
End Sub

' 按留言内容查询弹出层
Sub htmlcontentceng()
	Response.Write "<div class=""wdlf_search_div bgc1"" id=""wdlf_search_by_content"" style=""display: none;"">"&_
			"<div class=""wdlf_liuYan_detail_item"">"&_
				"<form action=m_search"&Get_Suffix()&" method=post name=form1>"&_
					"<div class=""wdlf_liuYan_detail_item wdlf_plus_marginTop_60"">"&_
						"<div class=""wdlf_liuYan_detail_content"">"& LingFengNet_MS_language_mobile_2 &_
						"</div>"&_
						"<div class=""wdlf_liuYan_select wdlf_search_select_div"">"&_
							"<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>"&_
							"</select>"&_
						"</div>"&_
					"</div>"&_
					"<div class=""wdlf_liuYan_detail_item"">"&_
						"<div class=""wdlf_liuYan_detail_content"">"& LingFengNet_MS_language_title_search &"</div>"&_
						"<div class=""wdlf_liuYan_input"">"&_
							"<input type=""text"" name=""keyword"" size=""20"" maxlength=""20"">"&_
						"</div>"&_
					"</div>"&_
					"<div class=""wdlf_liuYan_tiJiao wdlf_plus_marginTop_30"">"&_
						"&ensp;&ensp;<input class=""wdlf_liuYan_tiJiao_btn buttonface"" type=""submit"" name=""Submit"" value="& LingFengNet_MS_language_sousuo_submit_submit &">"&_
						"<input class=""wdlf_liuYan_cancel_btn buttonface"" type=""button"" value="& LingFengNet_MS_language_mobile_4 &"></input>"&_
					"</div>"&_
				"</form>"&_
			"</div>"&_
		"</div>"
End Sub



Sub htmlmain()
	Call htmltop()
	Call htmlbody_begin()
	IF Left(flg,3) <> "man" Then
		Call htmlitemtotal()
	Else
		Call html_admin_itemtotal()
	End IF	
	
	IF rs.eof and rs.bof Then
		Call htmlno()
		page_no = 1
	Else
		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 = LingFengNet_MS_language_messdef_top & "&ensp;"
			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 =  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 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:wdlf_search_by_password("& 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 "<div class=""wdlf_common_content_time""><span Class=""bgc1"">" & addtime & "</span></div><div class=""wdlf_common_content"">"					
				
			'留言列表头部
			Response.Write  "<div class=""wdlf_common_content_top bgc"">"&_
												"<div class=""wdlf_common_content_topLeft "">"& topok_img & messdef_lylx
			Response.Write  "</div><div class=""wdlf_common_content_topRight"">" & LingFengNet_MS_language_messdef_nowmes & pagetosort & LingFengNet_MS_language_messdef_tomes  & "</div>"
			'Response.Write  "</div>"
			Response.Write  "</div>"
			'留言列表中间
			Response.Write "<div class=""wdlf_common_content_center"">"&_
												"<div class=""wdlf_common_content_centerLeft bgc"">"
													
			IF Session("LingFengNet_MS_admin") <> "ok" Then			  
				Response.Write ""
			Else
				Response.Write "<p class=""wdlf_adminLabel"">"& LingFengNet_MS_language_mobile_13 &"</p>"
			End IF										
			Response.Write 			"<p class=""wdlf_liuYanName"">"&_
														"<span>"& LingFengNet_MS_language_messdef_username &"</span>"&_
														"<span  >"& username &"</span>"&_
													"</p>"&_
													"<p  class=""wdlf_liuYanPhone"">"&_
														"<span>"& LingFengNet_MS_language_messdef_tel &"</span>"&_
														"<span  >"& tel &"</span>"&_
													"</p>"&_
												"</div>"
			
			Response.Write 	"<div class=""wdlf_common_content_centerRight bgc1"">"&_
									"<div class=""wdlf_common_content_centerRight_detail"">"& content & "</div>"&_
								"</div>"
			Response.Write "</div>"			
			
			'管理员回复内容
			IF Left(flg, 3) <> "man" Then
				Response.Write "<div class=""wdlf_common_content_admin_huiFu bgc wdlf_plus_display_none"" >"
				Response.Write Auditingok(Auditing,re,reok,ys2,keyword,enpass,username)
				Response.Write "</div>"
				Response.Write 	"<div class=""wdlf_common_content_left bgc"">"&LingFengNet_MS_language_mobile_5 &_
								"</div>"
			Else
				Response.Write "<div class=""wdlf_common_content_admin_huiFu bgc1 "" >"
				Response.Write Auditingok(Auditing,re,reok,ys2,keyword,enpass,username)
				Response.Write "</div>"
				IF LingFengNet_MS_Rewrite <> 0 Then
					url_auditing="m_admin_auditing.asp?page="& id
				Else
					url_auditing="m_admin_auditing_"& 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 &"><div class=""wdlf_common_content_left bgc1""><i class=""wdlf_commonFoot_icon"">&#xe624;</i>"& LingFengNet_MS_language_mobile_14 &""&_
									"</div></a>"
				End IF			
			End IF							
							
			'结束
				Response.Write "</div>"										
			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
			
			End IF
			rs.movenext
		loop
		'Call htmlbr()
		IF page_no <> 1 Then
		  Call htmlpage()
		End IF
	End IF
End Sub
%>