soft.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

<!--#include file="wapls_up.asp"-->
<%
'==================================
'=文 件 名：soft.asp
'=适用版本：蓝色世纪WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.wapls.com
'=文件功能：网站软件前台
'=文件作者：蓝色阳光
'=发行时间：2007-02-01
'==================================
IF  Request.QueryString("Action")="view" Then
	call view
elseIF  Request.QueryString("Action")="cat" Then
	call cat
elseIF  Request.QueryString("Action")="cla" Then
	call cla
elseIF  Request.QueryString("Action")="er" Then
	call er
elseIF  Request.QueryString("Action")="d" Then
	call d
elseIF  Request.QueryString("Action")="fl" Then
	call fl
elseIF  Request.QueryString("Action")="gs" Then
	call gs
elseIF  Request.QueryString("Action")="pt" Then
	call pt
elseIF  Request.QueryString("Action")="remarklist" Then
	call remarklist
else
	call main
End IF
'========软件主页列表=======
Function main
dim sql
%>
<card id="index" title="软件频道">
<p align="<%=const1%>">
<%
if len(mb_soft)>1 then
response.write ""&outHTM(mb_soft)&"<br/>"
end if
set rsc=server.createobject("ADODB.Recordset")
Sqlc="select top "&pagenum&" * from wapls_soft order by istop=1,soft_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("soft_good")=2 then%>[精]<%end if%><%if rsc("soft_good")=1 then%>[荐]<%end if%><%if rsc("istop")=1 then%>[顶]<%end if%><a href="?Action=view&amp;id=<%=rsc("soft_id")%>"><%=utf8(rsc("soft_title"))%></a><%
if DateDiff("d",rsc("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/><%Rsc.MoveNext
	Next
	end if
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
else
%>
----------<br/>
<%end if
set rs=server.createobject("ADODB.Recordset")
Sql="select * from wapls_soft_cat order by cat_num asc"
rs.open Sql,conn,1,1
if not (rs.bof and rs.eof)  then 
	For i=1 to rs.RecordCount
		If Rs.Eof Then
			exit For
		End If
		if rs("cat_br")="1" then
			br="<br/>"
		else
			br=""
		end if%>
<a href="?Action=cat&amp;id=<%=rs("cat_id")%>"><%=utf8(rs("cat_name"))%></a><%=br%>
<%
Rs.MoveNext
	Next
	end if
Rsc.close
set rsc=nothing
Rs.close
set rs=nothing
end Function
'========软件分类列表=======
Function cat
catid=TRim(Request("id"))
set rs=server.createobject("ADODB.Recordset")
Sql="select * from wapls_soft_cat WHERE cat_id="&catid
rs.open Sql,conn,1,1
if not (rs.bof and rs.eof) then
title=rs("cat_name")
cattitle=rs("cat_title")
%>
<card id="index" title="<%=title%>分类">
<p align="<%=const1%>">
<%
if len(cattitle)>1 then
%>
<%=outHTM(rs("cat_title"))%><br/>
<%
end if
set rsv=server.createobject("ADODB.Recordset")
Sqlv="select * from wapls_soft_class WHERE cat_id="&catid&" order by class_num asc"
rsv.open Sqlv,conn,1,1
if not (rsv.bof and rsv.eof)  then 
page = Request("Page")
rsv.PageSize = pagenum	'一页显示记录
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then	'判断Page是否为数字
Page=1
Else
Page=Cint(Page)		'转换成短整形Integer
End IF
IF Page > rsv.PageCount Then
rsv.AbsolutePage = rsv.PageCount	'设置当前显示页等于最后一页
ElseIF Page <= 0 Then
rsv.AbsolutePage = 1		'设置当前页等于第一页
Else
rsv.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
End IF
Else
rsv.AbsolutePage = 1
End IF
Page = rsv.AbsolutePage
For i=1 to rsv.PageSize
If rsv.Eof Then
Exit For
End If
	if rsv("class_br")="1" then
			br="<br/>"
		else
			br=""
		end if
%>
<a href="?Action=cla&amp;id=<%=rsv("class_id")%>"><%=utf8(rsv("class_name"))%></a><%=br%>
<%
rsv.MoveNext
Next
if page>=rsv.PageCount then
'Response.Write ("[下-页]")        
else
Response.Write("[<a href='?Action=cat&amp;id="&catid&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
end if
if page<=1 then
'Response.Write ("[上-页] ")
else        
Response.Write("[<a href='?Action=cat&amp;id="&catid&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
end if
if rsv.PageCount>2 then
%><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
<anchor>GO>><go href="?Action=cat&amp;id=<%=catid%>" method="post">
<postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/></go></anchor><br/>
共(<%=utf8(page)%>/<%=rsv.pageCount%>)页<br/><%end if%>
<%
else
response.write "暂无分类!<br/>"
end if
Rsv.close
set rsv=nothing
else
response.redirect "wapls_404.asp?id=2"
end if
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
else
%>
----------<br/>
<%end if%>
<a href="soft.asp">[软件频道]</a>
<%
end Function
'========软件子分类列表=======
Function cla
classid=TRim(Request("id"))
set rs=server.createobject("ADODB.Recordset")
Sql="select * from wapls_soft_class WHERE class_id="&classid
rs.open Sql,conn,1,1
catid=rs("cat_id")
if not (rs.bof and rs.eof) then
title=rs("class_name")
classtitle=rs("class_title")
%>
<card id="index" title="<%=title%>">
<p align="<%=const1%>">
<%
if len(classtitle)>1 then
%>
<%=outHTM(rs("class_title"))%><br/>
<%
end if
set rsv=server.createobject("ADODB.Recordset")
Sqlv="select * from wapls_soft WHERE class_id="&classid&" order by soft_date desc"
rsv.open Sqlv,conn,1,1
if not (rsv.bof and rsv.eof)  then 
page = Request("Page")
rsv.PageSize = pagenum	'一页显示记录
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then	'判断Page是否为数字
Page=1
Else
Page=Cint(Page)		'转换成短整形Integer
End IF
IF Page > rsv.PageCount Then
rsv.AbsolutePage = rsv.PageCount	'设置当前显示页等于最后一页
ElseIF Page <= 0 Then
rsv.AbsolutePage = 1		'设置当前页等于第一页
Else
rsv.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
End IF
Else
rsv.AbsolutePage = 1
End IF
Page = rsv.AbsolutePage
For i=1 to rsv.PageSize
If rsv.Eof Then
Exit For
End If
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
end if
if rsv("soft_good")=2 then%>[精]<%end if%><%if rsv("soft_good")=1 then%>[荐]<%end if%><%if rsv("istop")=1 then%>[顶]<%end if%><a href="?Action=view&amp;id=<%=rsv("soft_id")%>"><%=utf8(rsv("soft_title"))%></a><%
if DateDiff("d",rsv("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/><%rsv.MoveNext
Next
if page>=rsv.PageCount then
'Response.Write ("[下-页]")        
else
Response.Write("[<a href='?Action=cat&amp;id="&classid&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
end if
if page<=1 then
'Response.Write ("[上-页] ")
else        
Response.Write("[<a href='?Action=cat&amp;id="&classid&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
end if
if rsv.PageCount>2 then
%><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
<anchor>GO>><go href="?Action=cat&amp;id=<%=classid%>" method="post">
<postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/></go></anchor><br/>
共(<%=utf8(page)%>/<%=rsv.pageCount%>)页<br/><%end if%>
<%
else
response.write "暂无软件!<br/>"
end if
Rsv.close
set rsv=nothing
else
response.redirect "wapls_404.asp?id=2"
end if
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
else
%>
----------<br/>
<%end if%>
<a href="?Action=cat&amp;id=<%=catid%>">[返回分类]</a><br/>
<a href="soft.asp">[软件频道]</a>
<%
end Function
'========软件内容=======
Function view
softid=TRim(Request("id"))
session("wapls_sessiondown")=wapls_sessiondown
set rsv=server.createobject("ADODB.Recordset")
Sqlv="select * from wapls_soft WHERE soft_id="&softid
rsv.open Sqlv,conn,1,3
soft_showpic=rsv("soft_showpic")
		Set Rs0 = Server.CreateObject("Adodb.Recordset")
Sql0 = "SELECT remark_id FROM wapls_remark WHERE class_id=1 and list_id="&rsv("soft_id")&" order by remark_id desc"
		Rs0.Open Sql0,conn,1,1
		remark=rs0.RecordCount
		Rs0.close
		set rs0=nothing
%>
<card id="index" title="软件描述">
<p align="<%=const1%>">
<b><%=utf8(rsv("soft_title"))%></b><br/>
位置:<a href="soft.asp">软件</a>>><a href="?Action=cat&amp;id=<%=rsv("cat_id")%>"><%=utf8(rsv("cat_name"))%></a>>><a href="?Action=cla&amp;id=<%=rsv("class_id")%>"><%=utf8(rsv("class_name"))%></a><br/>
<%
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
else
%>
----------<br/>
<%
end if
if len(soft_showpic)>1 then
response.write "<a href='"&soft_showpic&"'>截图</a>/"
end if
%><a href="?Action=remarklist&amp;id=<%=rsv("soft_id")%>">相关评论(<%=remark%>)</a><br/>
软件格式:<a href="?Action=gs&amp;gs=<%=rsv("soft_gs")%>"><%=rsv("soft_gs")%></a><br/>
软件大小:<%=rsv("soft_size")%><br/>
授权方式:<%=rsv("soft_mode")%>软件<br/>
<%
if len(mb_logo)>1 then
response.write "推荐程度:<img src='"&mb_logo&"/"&rsv("soft_commend")&"star.gif' alt='"&rsv("soft_commend")&"'/><br/>"
else
response.write "推荐程度:"
if rsv("soft_commend")=2 then
response.write "**"
elseif rsv("soft_commend")=3 then
response.write "***"
elseif rsv("soft_commend")=4 then
response.write "****"
elseif rsv("soft_commend")=5 then
response.write "*****"
else
response.write "*"
end if
response.write "<br/>"
end if
set rsfl=server.createobject("ADODB.Recordset")
Sqlfl="select * from wapls_fl WHERE fl_id="&rsv("soft_fl")
rsfl.open Sqlfl,conn,1,1
set rspt=server.createobject("ADODB.Recordset")
Sqlpt="select * from wapls_pt WHERE pt_id="&rsv("soft_pt")
rspt.open Sqlpt,conn,1,1
%>
所属分类:<a href="?Action=fl&amp;id=<%=rsv("soft_fl")%>"><%=rsfl("fl_title")%></a><br/>
浏览次数:<%=rsv("soft_rcount")%>次<br/>
下载次数:<%=rsv("soft_dcount")%>次<br/>
适用机型:<a href="?Action=pt&amp;id=<%=rsv("soft_pt")%>"><%=rspt("pt_title")%></a><br/><%=rspt("pt_content")%><br/>
添加日期:<%=Year(rsv("soft_date"))%>-<%=Month(rsv("soft_date"))%>-<%=day(rsv("soft_date"))%>/<%=Hour(rsv("soft_date"))%>:<%=Minute(rsv("soft_date"))%><br/>
==软件下载==<br/>
<%if rsv("user_view")<>"0" then
response.write "下载权限:"
if rsv("user_view")="1" then
response.write "会员"
end if
if rsv("user_view")="2" then
response.write "VIP"
end if
response.write "<br/>需要金额:<b>"&rsv("moneypay")&"</b>金币<br/>"
end if
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/down.gif' alt='>>'/>"
end if%><a href="?Action=d&amp;id=<%=rsv("soft_id")%>&amp;url=1"><%=rsv("soft_url1_name")%></a><br/>
<%if rsv("soft_url2")<>"" then
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/down.gif' alt='>>'/>"
end if%><a href="?Action=d&amp;id=<%=rsv("soft_id")%>&amp;url=2"><%=rsv("soft_url2_name")%></a><br/><%end if%>
<%if rsv("soft_url3")<>"" then
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/down.gif' alt='>>'/>"
end if%><a href="?Action=d&amp;id=<%=rsv("soft_id")%>&amp;url=3"><%=rsv("soft_url3_name")%></a><br/><%end if%>
<%if rsv("soft_url4")<>"" then
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/down.gif' alt='>>'/>"
end if%><a href="?Action=d&amp;id=<%=rsv("soft_id")%>&amp;url=4"><%=rsv("soft_url4_name")%></a><br/><%end if%>
<a href="?Action=er&amp;id=<%=rsv("soft_id")%>">这里投诉无法下载</a><br/>
==软件简介==<br/>
<%=utf8(rsv("soft_content"))%><br/>
<%
Rspt.close
set rspt=nothing
Rsfl.close
set rsfl=nothing
Set Rs1 = Server.CreateObject("Adodb.Recordset")
Sql1="SELECT * FROM wapls_soft WHERE cat_id="&rsv("cat_id")&" and soft_id>"&rsv("soft_id")&" order by soft_id asc"
	Rs1.Open Sql1,conn,1,1		
		if not (rs1.bof and rs1.eof)  then 	
Response.Write("<br/>下一个:<a href='?Action=view&amp;id="&rs1("soft_id")&"'>"&rs1("soft_title")&"</a>")
		end if
    		Rs1.close
		set rs1=nothing

	Set Rs1 = Server.CreateObject("Adodb.Recordset")
Sql1="SELECT * FROM wapls_soft WHERE cat_id="&rsv("cat_id")&" and soft_id<"&rsv("soft_id")&"  order by soft_id desc"
	Rs1.Open Sql1,conn,1,1
		if not (rs1.bof and rs1.eof)  then 		
Response.Write("<br/>上一个:<a href='?Action=view&amp;id="&rs1("soft_id")&"'>"&rs1("soft_title")&"</a>")
    		end if
		Rs1.close
		set rs1=nothing
%>
<br/><a href="?Action=cla&amp;id=<%=rsv("class_id")%>">[返回上级]</a>
<br/><a href="?Action=cat&amp;id=<%=rsv("cat_id")%>">[返回分类]</a>
<%
rsv("soft_rcount")=rsv("soft_rcount")+1
rsv.update()
Rsv.close
set rsv=nothing
end Function
'========软件下载=======
Function d
if session("wapls_sessiondown")<>wapls_sessiondown then	
response.redirect "wapls_404.asp?id=3"
end if
softid=TRim(Request("id"))
url=TRim(Request("url"))
set rsv=server.createobject("ADODB.Recordset")
Sqlv="select * from wapls_soft WHERE soft_id="&softid
rsv.open Sqlv,conn,1,3
if not (rsv.bof and rsv.eof) then
rsv("soft_dcount")=rsv("soft_dcount")+1
rsv.update()
%>
<!--#include file="Wapls_moneypay.asp"-->
<%
if url=2 then 
response.redirect rsv("soft_url2")
elseif url=3 then 
response.redirect rsv("soft_url3")
elseif url=4 then 
response.redirect rsv("soft_url4")
else
response.redirect rsv("soft_url1")