<DIV align=center>周点击排行ASP源代码 上传作者：[蜻蜓]　　阅读：[139] 次　　上传时间：[2005-12-11]　　信息来源：[http://www.loveroom8.com] </DIV>

<% '数据库连接未写,请自己写代码 '周排行程序开始 Set rswh= Server.CreateObject ("ADODB.RecordSet")   sqlwh = "select * from flashzpin where id="&id   rswh.open sqlwh,conn,3,3   sunday=rswh("sunday")  'sunday 数据库子段显示星期天的日期 if  date()-sunday<=7 then sqlweek="update flashzpin set weekhit=weekhit+1 where id="&id  'weekhit为周点击次数 set rshit=conn.execute(sqlweek) else  '否则周点击为1, 也就说从1开始重新累计 sqlweek="update flashzpin set weekhit=1,sunday=date()-weekday(date())+1 where id="&id set rshit=conn.execute(sqlweek) end if '周排行程序结束 %>

［此帖子已被 海蓝港湾 在 2005-12-23 14:31:48 编辑过］

数据类型	VarType函数返回值	数据类型	VarType函数返回值
Empty	0	String	8
Null	1	Object	9
Integer	2	Error	10
Long	3	Boolean	11
Single	4	Variant	12
Double	5	Dataobject	13
Currency	6	Byte	17
Date(Time)	7	Array	8192

注：数据类型也可通过VBScript的内部函数进行转换。