手机WAP编程

开发平台：
ASP/ASPX

Index.asp：源码内容
							﻿<!--#include file="wapls_up.asp"-->
<%
'=======网站链接访问统计开始=======
linkid=request.querystring("linkid")
if linkid<>"" then
response.redirect"link.asp?Action=link&linkid="&linkid
response.end
end if
'=======网站链接访问统计结束=======
Response.write "<card id='index' title='"&utf8(wapname)&"'>"
Response.write "<p align='"&const1&"'>"
'==========网站的图标开始=========
if len(waplogo)>1 then
Response.write "<img src='"&waplogo&"' alt='"&waplogoname&"'/><br/>"
end if
'==========网站的图标结束=========
'========网站的顶部说明开始=======
if len(up)>1 then
Response.write ""&outHTM(up)&"<br/>"
end if
'========网站的顶部说明结束=======
'===========会员登陆开始==========
if user_system=0 then
response.write "对不起,会员系统暂不开放!<br/>"
else
if session("name")<>""then
response.write "欢迎您:<a href='User.asp'>"&session("name")&"</a>"
else
response.write "会员:<a href='User.asp'>登陆或注册</a>"
end if
response.write "<br/>"
end if
'===========会员登陆结束==========
'========网站的站内公告开始=======
Set Rsd = Server.CreateObject("Adodb.Recordset")
Sqld = "SELECT top 1 * FROM wapls_diary order by d_id desc"
Rsd.Open Sqld,conn,1,1
if not (rsd.bof and rsd.eof) then
if rsd("d_index")<>"1" then
response.write "<a href='diary.asp'>网站公告</a><br/>"
else
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/gonggao.gif' alt='.'/>"
end if
response.write "<a href='diary.asp?Action=view&amp;d_id="&rsd("d_id")&"'>"&rsd("d_title")&"</a><br/>"
end if
end if
Rsd.close
set rsd=nothing
'========网站的站内公告结束=======
'========网站的新闻调用开始=======
if indexnews>0 then
set rsc=server.createobject("ADODB.Recordset")
Sqlc="select top "&indexnews&" * from wapls_news order by istop=1,news_date desc"
rsc.open Sqlc,conn,1,1
if not (rsc.bof and rsc.eof)  then
response.write "-=新闻快报=-<br/>"
	For i=1 to rsc.RecordCount
		If Rsc.Eof Then
			exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rsc("istop")=1  then%>[顶]<%end if%><a href="news.asp?Action=money&amp;id=<%=rsc("news_id")%>"><%=utf8(rsc("news_title"))%></a>(<%=Month(rsc("news_date"))%>.<%=day(rsc("news_date"))%>/<%=Hour(rsc("news_date"))%>:<%=Minute(rsc("news_date"))%>)<br/><%if rsc("user_view")<>"0" then
response.write "<small>↑此条内容属于"
if rsc("user_view")="1" then
response.write "会员"
end if
if rsc("user_view")="2" then
response.write "VIP"
end if
response.write "需要"&rsc("moneypay")&"金币阅读↑</small><br/>"
end if
Rsc.MoveNext
	Next
	end if
Rsc.close
set rsc=nothing
end if
'========网站的新闻调用结束=======
'========网站的文章调用开始=======
if indexarticle>0 then
set rsc=server.createobject("ADODB.Recordset")
Sqlc="select top "&indexarticle&" * from wapls_art order by istop=1,art_date desc"
rsc.open Sqlc,conn,1,1
if not (rsc.bof and rsc.eof)  then 
response.write "-=最新文章=-<br/>"
	For i=1 to rsc.RecordCount
		If Rsc.Eof Then
			exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if%><%if rsc("art_good")=2 then%>[精]<%end if%><%if rsc("art_good")=1 then%>[荐]<%end if%><%if rsc("istop")=1 then%>[顶]<%end if%><a href="article.asp?Action=money&amp;id=<%=rsc("art_id")%>"><%=utf8(rsc("art_title"))%></a><br/><%if rsc("user_view")<>"0" then
response.write "<small>↑此条内容属于"
if rsc("user_view")="1" then
response.write "会员"
end if
if rsc("user_view")="2" then
response.write "VIP"
end if
response.write "需要"&rsc("moneypay")&"金币阅读↑</small><br/>"
end if
Rsc.MoveNext
	Next
	end if
Rsc.close
set rsc=nothing
end if
'========网站的文章调用结束=======
'========网站的下载调用开始=======
if indexsoft>0 then
set rsc=server.createobject("ADODB.Recordset")
Sqlc="select top "&indexsoft&" * from wapls_soft order by istop=1,soft_date desc"
rsc.open Sqlc,conn,1,1
if not (rsc.bof and rsc.eof)  then 
response.write "-=最新下载=-<br/>"
	For i=1 to rsc.RecordCount
		If Rsc.Eof Then
			exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rsc("soft_good")=2 then%>[精]<%end if%><%if rsc("soft_good")=1 then%>[荐]<%end if%><%if rsc("istop")=1 then%>[顶]<%end if%><a href="soft.asp?Action=view&amp;id=<%=rsc("soft_id")%>"><%=utf8(rsc("soft_title"))%></a>(软件类)<br/><%Rsc.MoveNext
	Next
	end if
Rsc.close
set rsc=nothing
set rsc=server.createobject("ADODB.Recordset")
Sqlc="select top "&indexsoft&" * from wapls_pic order by istop=1,pic_date desc"
rsc.open Sqlc,conn,1,1
if not (rsc.bof and rsc.eof)  then 
	For i=1 to rsc.RecordCount
		If Rsc.Eof Then
			exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rsc("pic_good")=2 then%>[精]<%end if%><%if rsc("pic_good")=1 then%>[荐]<%end if%><%if rsc("istop")=1 then%>[顶]<%end if%><a href="pic.asp?Action=view&amp;id=<%=rsc("pic_id")%>"><%=utf8(rsc("pic_title"))%></a>(图像类)<br/><%Rsc.MoveNext
	Next
	end if
Rsc.close
set rsc=nothing
set rsc=server.createobject("ADODB.Recordset")
Sqlc="select top "&indexsoft&" * from wapls_music order by istop=1,music_date desc"
rsc.open Sqlc,conn,1,1
if not (rsc.bof and rsc.eof)  then 
	For i=1 to rsc.RecordCount
		If Rsc.Eof Then
			exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rsc("music_good")=2 then%>[精]<%end if%><%if rsc("music_good")=1 then%>[荐]<%end if%><%if rsc("istop")=1 then%>[顶]<%end if%><a href="music.asp?Action=view&amp;id=<%=rsc("music_id")%>"><%=utf8(rsc("music_title"))%></a>(影音类)<br/><%Rsc.MoveNext
	Next
	end if
Rsc.close
set rsc=nothing
end if
'========网站的下载调用结束=======
'========网站的搜索调用开始=======
%>
<input title="手机搜索" type="text" name="keyword" maxlength="20" value=""/><br/>
<select name="postid">
<option value="1">软件</option>
<option value="2">图像</option>
<option value="3">影音</option>
<option value="4">文章</option>
<option value="5">新闻</option>
</select>
<anchor>站内搜索<go method="post" href="search.asp">
<postfield name="keyword" value="$(keyword)"/>
<postfield name="postid" value="$(postid:n)"/>
</go>
</anchor>
<br/>
<%
'========网站的搜索调用结束=======
'========网站的主页栏目开始=======
Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM wapls_menu WHERE show=1 order by order_num asc"
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then 
response.write "-=分类导航=-<br/>"
	For i=1 to rs.RecordCount
		If Rs.Eof Then
			exit For
		End If
if rs("br")="1" then
	br="<br/>"
else
	br=" "
end if
IF rs("indextype")=1  Then
response.write "<a href='"&utf8(rs("titleurl"))&"'>"&utf8(rs("title"))&"</a>"
	elseIF rs("indextype")=2  Then
response.write "<img src='"&utf8(rs("title"))&"' alt='"&utf8(rs("name"))&"'/>"
	elseIF rs("indextype")=3  Then
response.write "<a href='"&utf8(rs("titleurl"))&"'><img src='"&utf8(rs("title"))&"' alt='"&utf8(rs("name"))&"'/></a>"
	else
response.write utf8(rs("title"))
End If
response.write br
Rs.MoveNext
	Next
	end if
Rs.close
set rs=nothing
'========网站的主页栏目结束=======
'========网站的链接调用开始=======
if indexlink>0 then
Set Rslink = Server.CreateObject("Adodb.Recordset")
Sqllink = "SELECT top "&indexlink&" * FROM wapls_link WHERE passed<>1 order by link_date desc"
	Rslink.Open Sqllink,conn,1,1
	if not (rslink.bof and rslink.eof)  then 
response.write "-=合作网站=-<br/>"
	For i=1 to rslink.RecordCount
		If Rslink.Eof Then
			exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/link.gif' alt='.'/>"
end if%><a href="Link.asp?Action=view&amp;id=<%=rslink("link_id")%>"><%=utf8(rslink("link_name"))%></a><br/>
<%
Rslink.MoveNext
	Next
	end if
Rslink.close
set rslink=nothing
end if
'========网站的链接调用结束=======
'========网站的底部说明开始=======
if len(down)>1 then
Response.write ""&outHTM(down)&""
end if
'========网站的底部说明结束=======
%>
</p></card></wml>

						