| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 546 人关注过本帖
标题:[原创]应客户要求做的收费广告系统(部分)
只看楼主 加入收藏
huyuntao
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-6-15
收藏
 问题点数:0 回复次数:0 
[原创]应客户要求做的收费广告系统(部分)

具体的功能:
实现每页显示30条广告,即将过期的广告位于最上位置,到期后出队,不在第一页显示,转成免费广告。第2页的第一条广告入队,在第一页显示,收费广告按照失效期排队,即将到期的位于最上,依次类推。当所有收费广告列完后,然后排列免费广告,免费广告按照添加时间的倒序排列,最后添加的越靠前。
<%
Class Time_M
Public Typt_Data(6),Sql,AClassID,BClassID,ProvinceID
'类的初始化
Private Sub Class_Initialize()
'初始化
Conn.ExeCute("update info set begintime='2100-01-01 00:00:00.000',endtime='2100-01-01 00:00:00.000',vip=0 where EndTime<GetDate()")
If Request("ID")<>"" Then
Call GetType(Request("ID"))
Else
End If
Typt_Data(0)=Array("Select * From Info Order By EndTime,AddDate desc")
Typt_Data(1)=Array("Select * From Info Where AClassID="&AClassID&" And Vip=1 Order By EndTime,AddDate desc")
Typt_Data(2)=Array("Select * From Info Where BClassID="&BClassID&" And Vip=1 Order By EndTime,AddDate desc")
Typt_Data(3)=Array("Select * From Info Where ProvinceID="&ProvinceID&" And Vip=1 Order By EndTime,AddDate desc")
Typt_Data(4)=Array("Select * From Info Where AClassID="&AClassID&" And ProvinceID="&ProvinceID&" And Vip=1 Order By EndTime,AddDate desc")
Typt_Data(5)=Array("Select * From Info Where BClassID="&BClassID&" And ProvinceID="&ProvinceID&" And Vip=1 Order By EndTime,AddDate desc")
Sql=Typt_Data(Request("DisPlay"))(0)
End Sub
'取管理员审核产品的类别
Function GetType(ID)
Set Rs=OpenRs("Select * From Info Where ID="&ID)
AClassID=Rs("AClassID")
BClassID=Rs("BClassID")
ProvinceID=Rs("ProvinceID")
CloseRs(Rs)
End Function
'添加数据
Function Check(ID)
'如果/0<满足条件的条数<=30/
'信息的开始时间为当前时间
'如果/30<满足条件的条数<=60/
'信息的开始时间为第1条信息的开始时间+1s
'如果/60<满足条件的条数<=90/
'信息的开始时间为第31条信息的开始时间+1s
Dim Count,PList,ListArray
PList=""
Set Rs=OpenRs(Sql)
Echo Sql
If Rs.ReCordCount=0 Then
Count=0
Else
Count=Rs.ReCordCount
Do While Not Rs.Eof
PList=PList&","&Rs("ID")
Rs.MoveNext
Loop
End If
CloseRs(Rs)
ListArray=Split(PList,",")
If Count<=29 Then
'Echo "当前时间"
Set Rs=OpenRs("Select * From Info Where ID="&ID)
Rs("BeginTime")=Now()
Rs("EndTime")=Now()+7
Rs("Vip")=1
Rs.UpDate
CloseRs(Rs)
Else
'Echo "-30的时间"
Set Rs=OpenRs("Select * From Info Where ID="&ID)
Set RRs=OpenRs("Select * From Info Where ID="&ListArray(Count-29))
Rs("BeginTime")=DateAdd("s",i,RRS("EndTime"))
Rs("EndTime")=DateAdd("s",i,RRS("EndTime"))+7
Rs("Vip")=1
CloseRs(RRs)
Rs.UpDate
CloseRs(Rs)
End If
Echo"<script language=javascript>window.location='Info.asp';</script>"
End Function
End Class
%>
上面是处理这个功能类的代码,下面的为前台显示代码
因代码中包含html,会造成混乱,所以将代码写入文本

2KV7MJik.txt (1.68 KB) [原创]应客户要求做的收费广告系统(部分)


注:OpenRs();ClosrRs();Echo()都是自定义函数
---------------------OpenRs()------------------------------
'打开记录集
Function OpenRS(Sql)
on error resume next
dim rs
Set rs=Server.createobject("adodb.recordset")
rs.Open sql,Conn,3,3
if err then
response.write "<br>出现了错误:" & err & "<br>sql:" & sql
end if
on error goto 0
if isobject(rs) then
set openrs=rs
end if
End Function
-----------------------CloseRs()----------------------------------
'关闭记录集
Function CloseRS(RS)
RS.Close
set RS=nothing
End Function
------------------------Echo()-----------------------------------------
'//自定义输出函数
Function Echo(Str)
Response.Write Str
End Function

搜索更多相关主题的帖子: 收费 系统 客户 广告 
2006-06-19 17:31
快速回复:[原创]应客户要求做的收费广告系统(部分)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028079 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved