手机WAP编程

开发平台：
ASP/ASPX

Search.asp：源码内容
							﻿<!--#include file="wapls_up.asp"-->
<%
'==================================
'=文 件 名：index.asp
'=适用版本：蓝色世纪WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.songfr.cn
'=文件功能：网站主页
'=文件作者：蓝色阳光
'=发行时间：2007-02-01
'==================================
IF  Request("postid")="1" Then
	call Soft
elseIF  Request("postid")="2" Then
	call Pic
elseIF  Request("postid")="3" Then
	call Music
elseIF  Request("postid")="4" Then
	call Article
else
	call news
End IF
Function Soft
Response.write "<card id='index' title='软件类搜索'>"
Response.write "<p align='"&const1&"'>"
keyword=Request("keyword")
if keyword<>"" then
		set rs=server.createobject("adodb.recordset")
		sql="select * from wapls_soft where soft_keyword like '%"&keyword&"%'"
      		rs.open sql,conn,1,1
if not (rs.bof and rs.eof)  then 
page = Request("Page")
rs.PageSize = pagenum	'一页显示记录
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then	'判断Page是否为数字
Page=1
Else
Page=Cint(Page)		'转换成短整形Integer
End IF
IF Page > rs.PageCount Then
rs.AbsolutePage = rs.PageCount	'设置当前显示页等于最后一页
ElseIF Page <= 0 Then
rs.AbsolutePage = 1		'设置当前页等于第一页
Else
rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
End IF
Else
rs.AbsolutePage = 1
End IF
Page = rs.AbsolutePage
For i=1 to rs.PageSize
If rs.Eof Then
Exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rs("soft_good")=2 then%>[精]<%end if%><%if rs("soft_good")=1 then%>[荐]<%end if%><%if rs("istop")=1 then%>[顶]<%end if%><a href="Soft.asp?Action=view&amp;id=<%=rs("soft_id")%>"><%=utf8(rs("soft_title"))%></a><%
if DateDiff("d",rs("soft_date"),now())<1 then
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/new.gif' alt='NEW'/>"
else
response.write " NEW "
end if
end if
%><br/><%rs.MoveNext
Next
if page>=rs.PageCount then
'Response.Write ("下-页")        
else
Response.Write("<a href='?postid=1&amp;keyword="&keyword&"&amp;Page=" & (Page+1) & "'>下-页</a>")
end if
if page<=1 then
'Response.Write ("上-页 ")
else        
Response.Write("<a href='?postid=1&amp;keyword="&keyword&"&amp;Page=" & (Page-1) & "'>上-页</a>")
end if
if rs.PageCount>2 then
%><br/><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
<anchor>GO>><go href="?postid=1" method="post">
<postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/>
<postfield name="keyword" value="<%=keyword%>"/>
</go></anchor><br/>
共(<%=utf8(page)%>/<%=rs.pageCount%>)页
<%
response.write "<br/>如果没有找到你想要的，"
response.write "请<a href='gb.asp'>告诉</a>我们，<br/>我们会会尽快更新上传！！！"
end if
else
response.write "没有搜索到这类内容!"
response.write "请简明语句再次搜索!<br/>"
response.write "如果没有找到你想要的，"
response.write "请<a href='gb.asp'>告诉</a>我们，<br/>我们会会尽快更新上传！！！"
end if
rs.close
set rs=nothing
else
response.redirect "wapls_404.asp?id=12"
end if
end Function
Function Pic
Response.write "<card id='index' title='图像类搜索'>"
Response.write "<p align='"&const1&"'>"
keyword=Request("keyword")
if keyword<>"" then
		set rs=server.createobject("adodb.recordset")
		sql="select * from wapls_pic where pic_keyword like '%"&keyword&"%'"
      		rs.open sql,conn,1,1
if not (rs.bof and rs.eof)  then 
page = Request("Page")
rs.PageSize = pagenum	'一页显示记录
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then	'判断Page是否为数字
Page=1
Else
Page=Cint(Page)		'转换成短整形Integer
End IF
IF Page > rs.PageCount Then
rs.AbsolutePage = rs.PageCount	'设置当前显示页等于最后一页
ElseIF Page <= 0 Then
rs.AbsolutePage = 1		'设置当前页等于第一页
Else
rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
End IF
Else
rs.AbsolutePage = 1
End IF
Page = rs.AbsolutePage
For i=1 to rs.PageSize
If rs.Eof Then
Exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rs("pic_good")=2 then%>[精]<%end if%><%if rs("pic_good")=1 then%>[荐]<%end if%><%if rs("istop")=1 then%>[顶]<%end if%><a href="pic.asp?Action=view&amp;id=<%=rs("pic_id")%>"><%=utf8(rs("pic_title"))%></a><%
if DateDiff("d",rs("pic_date"),now())<1 then
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/new.gif' alt='NEW'/>"
else
response.write " NEW "
end if
end if
%><br/><%rs.MoveNext
Next
if page>=rs.PageCount then
'Response.Write ("[下-页]")        
else
Response.Write("[<a href='?postid=2&amp;keyword="&keyword&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
end if
if page<=1 then
'Response.Write ("[上-页] ")
else        
Response.Write("[<a href='?postid=2&amp;keyword="&keyword&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
end if
if rs.PageCount>2 then
%><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
<anchor>GO>><go href="?postid=2" method="post">
<postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/>
<postfield name="keyword" value="<%=keyword%>"/>
</go></anchor><br/>
共(<%=utf8(page)%>/<%=rs.pageCount%>)页
<%
end if
else
response.write "没有搜索到这类内容!<br/>"
response.write "请简明语句再次搜索!<br/>"
end if
rs.close
set rs=nothing
else
response.redirect "wapls_404.asp?id=12"
end if
end Function
Function Music
Response.write "<card id='index' title='影音类搜索'>"
Response.write "<p align='"&const1&"'>"
keyword=Request("keyword")
if keyword<>"" then
		set rs=server.createobject("adodb.recordset")
		sql="select * from wapls_Music where Music_keyword like '%"&keyword&"%'"
      		rs.open sql,conn,1,1
if not (rs.bof and rs.eof)  then 
page = Request("Page")
rs.PageSize = pagenum	'一页显示记录
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then	'判断Page是否为数字
Page=1
Else
Page=Cint(Page)		'转换成短整形Integer
End IF
IF Page > rs.PageCount Then
rs.AbsolutePage = rs.PageCount	'设置当前显示页等于最后一页
ElseIF Page <= 0 Then
rs.AbsolutePage = 1		'设置当前页等于第一页
Else
rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
End IF
Else
rs.AbsolutePage = 1
End IF
Page = rs.AbsolutePage
For i=1 to rs.PageSize
If rs.Eof Then
Exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rs("Music_good")=2 then%>[精]<%end if%><%if rs("Music_good")=1 then%>[荐]<%end if%><%if rs("istop")=1 then%>[顶]<%end if%><a href="Music.asp?Action=view&amp;id=<%=rs("Music_id")%>"><%=utf8(rs("Music_title"))%></a><%
if DateDiff("d",rs("Music_date"),now())<1 then
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/new.gif' alt='NEW'/>"
else
response.write " NEW "
end if
end if
%><br/><%rs.MoveNext
Next
if page>=rs.PageCount then
'Response.Write ("[下-页]")        
else
Response.Write("[<a href='?postid=3&amp;keyword="&keyword&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
end if
if page<=1 then
'Response.Write ("[上-页] ")
else        
Response.Write("[<a href='?postid=3&amp;keyword="&keyword&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
end if
if rs.PageCount>2 then
%><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
<anchor>GO>><go href="?postid=3" method="post">
<postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/>
<postfield name="keyword" value="<%=keyword%>"/>
</go></anchor><br/>
共(<%=utf8(page)%>/<%=rs.pageCount%>)页
<%
end if
else
response.write "没有搜索到这类内容!<br/>"
response.write "请简明语句再次搜索!<br/>"
end if
rs.close
set rs=nothing
else
response.redirect "wapls_404.asp?id=12"
end if
end Function
Function Article
Response.write "<card id='index' title='文章类搜索'>"
Response.write "<p align='"&const1&"'>"
keyword=Request("keyword")
if keyword<>"" then
		set rs=server.createobject("adodb.recordset")
		sql="select * from wapls_Art where Art_keyword like '%"&keyword&"%'"
      		rs.open sql,conn,1,1
if not (rs.bof and rs.eof)  then 
page = Request("Page")
rs.PageSize = pagenum	'一页显示记录
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then	'判断Page是否为数字
Page=1
Else
Page=Cint(Page)		'转换成短整形Integer
End IF
IF Page > rs.PageCount Then
rs.AbsolutePage = rs.PageCount	'设置当前显示页等于最后一页
ElseIF Page <= 0 Then
rs.AbsolutePage = 1		'设置当前页等于第一页
Else
rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
End IF
Else
rs.AbsolutePage = 1
End IF
Page = rs.AbsolutePage
For i=1 to rs.PageSize
If rs.Eof Then
Exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rs("Art_good")=2 then%>[精]<%end if%><%if rs("Art_good")=1 then%>[荐]<%end if%><%if rs("istop")=1 then%>[顶]<%end if%><a href="Article.asp?Action=money&amp;id=<%=rs("Art_id")%>"><%=utf8(rs("Art_title"))%></a><%
if DateDiff("d",rs("Art_date"),now())<1 then
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/new.gif' alt='NEW'/>"
else
response.write " NEW "
end if
end if
response.write "<br/>"
if rs("user_view")<>"0" then
response.write "<small>↑此条内容属于"
if rs("user_view")="1" then
response.write "会员"
end if
if rs("user_view")="2" then
response.write "VIP"
end if
response.write "需要"&rs("moneypay")&"金币阅读↑</small><br/>"
end if
rs.MoveNext
Next
if page>=rs.PageCount then
'Response.Write ("[下-页]")        
else
Response.Write("[<a href='?postid=4&amp;keyword="&keyword&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
end if
if page<=1 then
'Response.Write ("[上-页] ")
else        
Response.Write("[<a href='?postid=4&amp;keyword="&keyword&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
end if
if rs.PageCount>2 then
%><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
<anchor>GO>><go href="?postid=4" method="post">
<postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/>
<postfield name="keyword" value="<%=keyword%>"/>
</go></anchor><br/>
共(<%=utf8(page)%>/<%=rs.pageCount%>)页
<%
end if
else
response.write "没有搜索到这类内容!<br/>"
response.write "请简明语句再次搜索!<br/>"
end if
rs.close
set rs=nothing
else
response.redirect "wapls_404.asp?id=12"
end if
end Function
Function news
Response.write "<card id='index' title='新闻类搜索'>"
Response.write "<p align='"&const1&"'>"
keyword=Request("keyword")
if keyword<>"" then
		set rs=server.createobject("adodb.recordset")
		sql="select * from wapls_news where news_keyword like '%"&keyword&"%'"
      		rs.open sql,conn,1,1
if not (rs.bof and rs.eof)  then 
page = Request("Page")
rs.PageSize = pagenum	'一页显示记录
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then	'判断Page是否为数字
Page=1
Else
Page=Cint(Page)		'转换成短整形Integer
End IF
IF Page > rs.PageCount Then
rs.AbsolutePage = rs.PageCount	'设置当前显示页等于最后一页
ElseIF Page <= 0 Then
rs.AbsolutePage = 1		'设置当前页等于第一页
Else
rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
End IF
Else
rs.AbsolutePage = 1
End IF
Page = rs.AbsolutePage
For i=1 to rs.PageSize
If rs.Eof Then
Exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rs("istop")=1 then%>[顶]<%end if%><a href="news.asp?Action=money&amp;id=<%=rs("news_id")%>"><%=utf8(rs("news_title"))%></a>(<%=Month(rs("news_date"))%>.<%=day(rs("news_date"))%>-<%=Hour(rs("news_date"))%>:<%=Minute(rs("news_date"))%>)
<%
if DateDiff("d",rs("news_date"),now())<1 then
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/new.gif' alt='NEW'/>"
else
response.write " NEW "
end if
end if
response.write "<br/>"
if rs("user_view")<>"0" then
response.write "<small>↑此条内容属于"
if rs("user_view")="1" then
response.write "会员"
end if
if rs("user_view")="2" then
response.write "VIP"
end if
response.write "需要"&rs("moneypay")&"金币阅读↑</small><br/>"
end if
rs.MoveNext
Next
if page>=rs.PageCount then
'Response.Write ("[下-页]")        
else
Response.Write("[<a href='?postid=5&amp;keyword="&keyword&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
end if
if page<=1 then
'Response.Write ("[上-页] ")
else        
Response.Write("[<a href='?postid=5&amp;keyword="&keyword&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
end if
if rs.PageCount>2 then
%><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
<anchor>GO>><go href="?postid=5" method="post">
<postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/>
<postfield name="keyword" value="<%=keyword%>"/>
</go></anchor><br/>
共(<%=utf8(page)%>/<%=rs.pageCount%>)页
<%
end if
else
response.write "没有搜索到这类内容!<br/>"
response.write "请简明语句再次搜索!<br/>"
end if
rs.close
set rs=nothing
else
response.redirect "wapls_404.asp?id=12"
end if
end Function
%>
<br/><a href='index.asp'>返回网站首页</a>
<!--#include file="wapls_down.asp"-->

						