📄 index.asp

📁 玛雅自助导航系统玛雅自助导航系统玛雅自助导航系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card id="main" title="<%=ChannelName%>">
<%
'**********************************************************************
'* 程序名称: 玛雅自助导航系统
'* 程序功能：首页
'* 英文名称: WapLink Ver 4.5
'* 程序开发: Wapcr
'* 主页地址: http://wapcr.cn/
'* 演示地址: http://wapcr.cn/link/
'**********************************************************************
Rem 读取站点状态
If WapWhuangtai=2 Then
   ipaddr=Clng(left(trim(replace(Request.ServerVariables("REMOTE_ADDR") ,".","")),6))
   If (ipaddr<>211103 And ipaddr<211136) or (ipaddr>211143 And ipaddr<218200) or (ipaddr>218207 And ipaddr<221130) or (ipaddr>221131) Then
   Response.write "<p>本站只对手机开放！<br/></p></card></wml>"
   Response.End
   End If
ElseIf WapWhuangtai=3 Then
   Response.write "<p>站点维护中，稍候访问！<br/></p></card></wml>"
   Response.End
End if

Response.write Wap.DefineContents(WapFengge)

Set Wap=Nothing
%>
<%
'**************************************************
'函数名：GetSolidChain
'作  用：取出首页固链
'参  数：
'STRSTYLE--2显示简称样式 1显示全称样式
'STRD--导航类型(支持WML语言)
'STRNUM--显示记录数
'STRFG-一行数量
'STRFENGE--分隔符号(支持WML语言)
'**************************************************

Function GetSolidChain(STRSTYLE,STRD,STRNUM,STRFG,STRFENGE)
	set Rs=server.createobject("ADODB.Recordset")
    Rs.open "select Top "&STRNUM&" id,siteName from Link where IsVerify="&strTrue&" and GuLian=1 order by indate desc",Conn,1,2
	If Rs.eof Then
       OutStr = "暂时还没有固链！<br/>"
    Else	
	   m=1
	   do while ((not Rs.EOF) And m<=Clng(STRNUM))
	   If WapChuzhan=1 Then
	      If STRSTYLE=1 Then
	         OutStr = OutStr & ""&STRD&"<a href=""Wap_View.asp?ids="&ids&"&amp;ID="&Rs("ID")&""">"&Wap.Ubb(Rs("siteTitle"))&"</a>"
		  Else
		     OutStr = OutStr & ""&STRD&"<a href=""Wap_View.asp?ids="&ids&"&amp;ID="&Rs("ID")&""">"&Wap.Ubb(Rs("siteName"))&"</a>"
		  End If 
	   Else
	      If STRSTYLE=1 Then
	         OutStr = OutStr & ""&STRD&"<a href=""Wap_View.asp?ids="&ids&"&amp;ID="&Rs("ID")&""">"&Wap.Ubb(Rs("siteTitle"))&"</a>"
		  Else
		     OutStr = OutStr & ""&STRD&"<a href=""Wap_View.asp?ids="&ids&"&amp;ID="&Rs("ID")&""">"&Wap.Ubb(Rs("siteName"))&"</a>"
		  End If
	   End If
	   If m Mod STRFG=0 Or m=Rs.recordcount Then
	      OutStr = OutStr & "<br/>"
	   Else
	      OutStr = OutStr & Wap.HTMLCode(STRFENGE)
	   End If
	   Rs.MoveNext
	   m=m+1
	   loop
	End If
	Rs.Close:set Rs=nothing
	GetSolidChain = OutStr
End Function

'**************************************************
'函数名：GetLatestGointo
'作  用：取出最新点入
'参  数：
'STRSTYLE--2显示简称样式 1显示全称样式
'STRD--导航类型(支持WML语言)
'STRNUM--显示记录数
'STRFG-一行数量
'STRFENGE--分隔符号(支持WML语言))
'**************************************************
Function GetLatestGointo(STRSTYLE,STRD,STRNUM,STRFG,STRFENGE)
	sql="select top "&STRNUM&" id,siteName,siteTitle from Link where inp>="&inpc&" And IsVerify="&strTrue&" Order By indate desc"
	set Rs=Wap.Execute(sql)
	If Rs.eof Then
	   OutStr="暂时还没有数据"
	Else
	   M=1
	   do while ((Not Rs.EOF) And M<=Clng(STRNUM))
	   If WapChuzhan=1 Then
	      If STRSTYLE=1 Then
	         OutStr = OutStr&""&STRD&"<a href=""Wap_View.asp?ids="&ids&"&amp;ID="&Rs("ID")&""">"&Wap.Ubb(Rs("siteTitle"))&"</a>"
		  Else
		     OutStr = OutStr&""&STRD&"<a href=""Wap_View.asp?ids="&ids&"&amp;ID="&Rs("ID")&""">"&Wap.Ubb(Rs("siteName"))&"</a>"
		  End If
	   Else
	      If STRSTYLE=1 Then
	         OutStr = OutStr&""&STRD&"<a href=""Wap_View.asp?ids="&ids&"&amp;ID="&Rs("ID")&""">"&Wap.Ubb(Rs("siteTitle"))&"</a>"
		  Else
		     OutStr = OutStr&""&STRD&"<a href=""Wap_View.asp?ids="&ids&"&amp;ID="&Rs("ID")&""">"&Wap.Ubb(Rs("siteName"))&"</a>"
		  End If
	   End If
	   If m Mod STRFG=0 Or m=Rs.recordcount Then
	      OutStr = OutStr & "<br/>"
	   Else
	      OutStr = OutStr & Wap.HTMLCode(STRFENGE)
	   End If
	   Rs.MoveNext
	   M=M+1
	   loop
	End If
	set Rs=nothing
	GetLatestGointo=OutStr
End Function


'**************************************************
'函数名：GetCategorizeRecommend
'作  用：取出分类加推荐站点
'参  数：
'STRR--1显示推荐分类0显示普通分类
',
',
'STRLIEBIAO--1显示推荐站点 0显示最新点入
'STRNUM--显示记录数
'STRFENGE--分隔符号(支持WML语言)
'**************************************************
Function GetCategorizeRecommend(STRR,STR1,STR2,STRLIEBIAO,STRNUM,STRFENGE)
    If STRR=0 Then
	   SQL="select id,name from WebType Order By Orderid Asc"
	Else
	   SQL="select id,name from WebType where Recommend=1 Order By Orderid Asc"
	End if
	set Rs=Wap.Execute(SQL)
	If Rs.eof Then
	   OutStr = "暂无分类！<br/>"
    Else
	   i=1
	   do while not Rs.eof
	   OutStr = OutStr & ""&STR1&"<a href=""Wap_List.asp?ids="&Rs("ID")&""">"&Rs("Name")&"</a>"&STR2&" "
	   set Rs1=Wap.Execute("select top "&STRNUM&" * from Link where IsVerify="&strTrue&" and webtype="&Rs("ID")&" And GuLian=1 Order By indate desc")
		If Rs1.eof Then
	       OutStr = OutStr & "本类暂时空缺！"
		Else
	       For i=1 to STRNUM
		       If WapChuzhan=1 Then
			      OutStr= OutStr & " <a href=""Wap_View.asp?id="&Rs1("ID")&""">"&Wap.Ubb(Rs1("siteName"))&"</a> "
			   Else
			      OutStr= OutStr & " <a href=""Wap_Out.asp?id="&Rs1("ID")&""">"&Wap.Ubb(Rs1("siteName"))&"</a> "
			   End If
			   OutStr = OutStr & STRFENGE
		   Rs1.Movenext
		   If Rs1.EOF Then Exit for
		   Next
	    End if
		set Rs1=nothing
		OutStr = OutStr&"<br/>"
	i=i+1
	Rs.movenext
	loop
	End If
	set Rs=nothing
	GetCategorizeRecommend = OutStr
End Function

'**************************************************
'函数名：GetMoreCategorize
'作  用：取出分类
'参  数：STRR--1.更多分类 0.普通分类,STRFG-一行数量,STRFF--分隔符号(支持WML语言)
'**************************************************
Function GetMoreCategorize(STRR,STRFG,STRFF)
    If STRR=0 Then
	   SQL="select * from WebType order by orderid asc"
	Else
	   SQL="select * from WebType where Recommend=0 order by orderid asc"
	End if
	set Rs=server.createobject("ADODB.Recordset")
    Rs.open SQL,Conn,1,2
	If Rs.eof Then
       OutStr = "暂时还没有分类！<br/>"
    Else	
	   o=1
	   do while not Rs.eof
	   OutStr = OutStr&"<a href=""Wap_List.asp?ids="&Rs("id")&""">"&Rs("name")&"</a>"
	   If o Mod STRFG=0 or o=Rs.Recordcount Then
	      OutStr = OutStr&"<br/>"
	   Else
	      OutStr = OutStr&Wap.HTMLCode(STRFF)
	   End If
	   o=o+1
	   Rs.movenext
	   loop
	End If
	Rs.Close:set Rs=nothing
	GetMoreCategorize = OutStr
End Function
%>
</card>
</wml>
💿 文件大小 137 K
👤 上传用户 lz0324
📂 所属分类网络
🏷️ 相关标签

#导航系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -