wap_reload.asp

WEB后台:/Admin_Login.asp WAP后台:/Admin_WapLogin.asp 用户名：admin 密码:admin 在conn.asp文件修改数据库

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

'**********************************************************************
'* 程序名称: 玛雅自助导航系统
'* 程序功能：显示符合条件的友情链接的过程
'* 英文名称: WapLink Ver 4.5
'* 程序开发: Wapcr
'* 主页地址: http://wapcr.cn/
'* 演示地址: http://wapcr.cn/link/
'**********************************************************************


strPag=(LineNum*MaxLine)'数量
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 "数据库连接出错，请检查Wap_Reload.asp文件中的数据库参数设置。"
   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 "暂无网站！<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
%>