count.asp' 计数器的核心程序.<%Set conn = Server.CreateObject("ADODB.Connection")dbpath=server.MapPath("count.mdb")conn.open "driver={Mi...
counter.htm<a href=counter.asp?save=123&url=http://127.0.0.1/>http://127.0.0.1</a> 共点击次数:<script src=view.asp?save=123></script> c...
count.asp< html >< head >< meta http-equiv="Content-Type"content="text/html; charset=gb2312" ><title>随风起舞之千变计数器</title></head><bod...
' 设置好global.asa 文件,如下:<script LANGUAGE="VBScript" RUNAT="Server">Sub Application_OnStart Application("Ac...
global.asa<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart ' Sub Application_OnStart ...
如何让计数器只对新进用户计数?<script language=vbscript runat=server>sub application_onstartfilepath=server.mappath("/count")filename=filep...
如何防范利用刷新来“作弊”的计数器?<%If IsEmpty(Session("Connected")) Then Application.Lock Application("counter") = ...
如何防止计数器刷新计数?<html><head><title>千花飞舞之真实的计数器</title></head><body><%dim tms,counter,countlendi...
不用Global.asa也能实现统计在线人数吗?<%sessionID = session.SessionIDtimeout = 5' 设置session保持的时间.Conn_String = "DRIVER={Microsoft Access Driv...
如何拒绝同一张表单被多次提交?formtest.asp' 表单文件.<%Randomize ' 初始化随机数种子.num1=rnd()' 产生随机数.num1=int(26*num1)+65 ' 修改num1的范围,使其是A-Z范围的Ascii码,防止表...
如何在网站中插播广告?首先,我们要写一个adrot.txt以调用:adrot.txtredirect width 550height 60border 0*images/chunfengad.gifhttp://www.shenzhaoyang.com欢迎访问...
chunfeng.asp' 该页面可以看到已安排了哪些事情,并在底部链接可按月前后翻动.' 该代码包含获得数据连接的函数,如果数据源一旦有变化,则只有一个位置需要编辑连接信息(服务器、用户和口令). <@ LANGUAGE="VBscript...
<%CountdownDate = #1/1/2008 00:00:00AM#If Date >= CountdownDate Then Response.Write "2008 北京"  ...
<%Option ExplicitDim strDate ' 记录输入的日期,字符型.Dim datDate &nbs...
<%id = Request("id")newpassword = Request("password")newpasswordtemp = Request("passwordtemp") If newpassword <> new...
如何计算出当前日期属于定义时间段内的第几星期?Function CalculateWeekNo(BeginDate,EndDate,InputDate)dim wdate(500,8)z=0x=0strlong=len(CStr(inputdate))-9in...
<%id = Request("id")newpassword = Request("password")newpasswordtemp = Request("passwordtemp")If newpassword <> newpasswo...
forget.asp' 申请.<html><head><title>闪亮日子之用户密码核实</title></head><div align="center"><center>...
<%@language="vbscript" %><% set mail= server.CreateObject("cdonts.newmail") mail.subject="恭喜,您在随风起舞注册成功,感谢您的参与!" mail.to ...
randompassword.asp<% Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword genPassword = "" Randomize ' 用Randomi...