?<!--#include file="Config.asp"-->
<%

'**********************************************************************
'* 程序名稱: 瑪雅自助導(dǎo)航系統(tǒng)
'* 程序功能：顯示符合條件的友情鏈接的過程
'* 英文名稱: WapLink Ver 4.5
'* 程序開發(fā): Wapcr
'* 主頁地址: http://wapcr.cn/
'* 演示地址: http://wapcr.cn/link/
'**********************************************************************


strPag=(LineNum*MaxLine)'數(shù)量
ConnStr5 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(WapMulu&WapLinkMdb)
Set conn5 = Server.CreateObject("ADODB.Connection")
conn5.open ConnStr5
If Err Then
   Err.Clear
   Set Conn5 = Nothing
   Response.Write "數(shù)據(jù)庫連接出錯，請檢查Wap_Reload.asp文件中的數(shù)據(jù)庫參數(shù)設(shè)置。"
   Response.write "</p></card></wml>"
   Response.End
End if
Function Ubb(str)
	str=Trim(str)
	If IsNull(str) Then Exit Function
	Killword=Split(FilterWord,"|")
	For i=0 To Ubound(Killword)
	    str=replace(lcase(str),Killword(i),string(len(killword(i)),"*"))
	Next
	str=replace(str,"&","&amp;")
	str=replace(str,"<","&lt;")
	str=replace(str,">","&gt;")
	str=replace(str,"'","&apos;")
	str=replace(str,"""","&quot;")
	str=replace(str,"$","$$")
	str=replace(str,"&nbsp;","")
	Ubb=str
End Function

Call Reloadlink()

Sub Reloadlink()
	strTrue = True
	set Rs=Server.CreateObject("ADODB.Recordset")
	If WapPaixu="GuLian" then
	Rs.open "select Top "&strPag&" id,sitename from Link where inp>="&inpc&" And Isverify="&strTrue&" And GuLian=1 order by "&WapPaixu&" desc",conn5,1,2
	Else
    Rs.open "select Top "&strPag&" id,sitename from Link where inp>="&inpc&" And Isverify="&strTrue&" And ShouXian=1 order by "&WapPaixu&" desc",conn5,1,2
	End if
	If Rs.eof then
	   Response.write "暫無網(wǎng)站！<br/>"
	Else
	   m=1
	   do while ((not Rs.EOF) and m<=clng(strPag))
	   Response.write"<a href="""&WapUrl&WapMulu&"Wap_View.asp?id="&Rs("id")&""">"&Ubb(Rs("sitename"))&"</a>"
	   if m Mod LineNum=0 or m=Rs.recordcount then
	      Response.Write "<br/>"
	   Else
	      Response.Write " "
	   end if
	   Rs.MoveNext
	   m=m+1
	   loop
    End if
	Rs.Close:set Rs=nothing
End Sub


Conn5.close
set Conn5=nothing
%>