搜索列表
-
如何实时获知多少人在线？
【编程10000问】global.asa<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart ' Sub Application_OnStart 是好在服务器每次启动的时候激活的方法. Session.Timeout = 3 ' 定义用户在线时间,如果在定义时间内没有活动连接,则删掉他的se...
|如何|何实|实时|时获|获知|知多|多少|少人|人在|在线|线？|？| -
如何让计数器只对新进用户计数？
【编程10000问】如何让计数器只对新进用户计数？<script language=vbscript runat=server>sub application_onstartfilepath=server.mappath("/count")filename=filepath+"\counter.txt"set fs=createobject("scripting.filesystemobject")if not fs.fileexists(filename) then fs.createtextfile(filename) &...
|如何|何让|让计|计数|数器|器只|只对|对新|新进|进用|用户|户计|计数|数？|？| -
如何防止计数器刷新计数？
【编程10000问】如何防止计数器刷新计数？<html><head><title>千花飞舞之真实的计数器</title></head><body><%dim tms,counter,countlendim images(20)h1="<p> 千花飞舞计数器</font></p>"If IsEmpty(Session("hasbeenConnected")) thenset rs=server....
|如何|何防|防止|止计|计数|数器|器刷|刷新|新计|计数|数？|？| -
如何防范利用刷新来“作弊”的计数器？
【编程10000问】如何防范利用刷新来“作弊”的计数器？<%If IsEmpty(Session("Connected")) Then Application.Lock Application("counter") = Application("counter") + 1 Application.UnLockEnd If Session("Connected") = True%><html><body BGCO...
|如何|何防|防范|范利|利用|用刷|刷新|新来|来作|作弊|弊的|的计|计数|数器|器？|？| -
不用Global.asa也能实现统计在线人数吗？
【编程10000问】不用Global.asa也能实现统计在线人数吗？<%sessionID = session.SessionIDtimeout = 5' 设置session保持的时间.Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("count.mdb")'Conn_String = "activeUser"' 最好设置DSN = "activeuser",因为我们需要在...
|不用|用G|Gl|lo|ob|ba|al|la|as|sa|a也|也能|能实|实现|现统|统计|计在|在线|线人|人数|数吗|吗？|？| -
如何拒绝同一张表单被多次提交？
【编程10000问】如何拒绝同一张表单被多次提交？formtest.asp' 表单文件.<%Randomize ' 初始化随机数种子.num1=rnd()' 产生随机数.num1=int(26*num1)+65 ' 修改num1的范围,使其是A-Z范围的Ascii码,防止表单名出错.session("antry")="test"&chr(num1) ' 产生随机字符串.%><form name="test" action="testact.a...
|如何|何拒|拒绝|绝同|同一|一张|张表|表单|单被|被多|多次|次提|提交|交？|？| -
如何在网站中插播广告？
【编程10000问】如何在网站中插播广告？首先，我们要写一个adrot.txt以调用：adrot.txtredirect width 550height 60border 0*images/chunfengad.gifhttp://www.shenzhaoyang.com欢迎访问闪亮日子之精彩春风！50' 显示百分比images/intelsad.gifhttp://www.intels.net欢迎访问随风起舞！50 然后，在要显示广告条的页面里添加下...
|如何|何在|在网|网站|站中|中插|插播|播广|广告|告？|？| -
如何制作一个Web日程安排表？
【编程10000问】chunfeng.asp' 该页面可以看到已安排了哪些事情,并在底部链接可按月前后翻动.' 该代码包含获得数据连接的函数,如果数据源一旦有变化,则只有一个位置需要编辑连接信息(服务器、用户和口令). <@ LANGUAGE="VBscript" ENABLESESSIONSTATE = False ％＞ ＜％ ' 表...
|如何|何制|制作|作一|一个|个W|We|eb|b日|日程|程安|安排|排表|表？|？| -
如何按时间显示最新标志
【编程10000问】<%mytime=rs("time") '数据库中保存时间nowtime=now() '当前时间if datediff("d",mytime,nowtime)<1 then '比较当前时间和数据库中时间，如相差小于1，即显示图片new.gif%><img src="images/new.gif"><%end if%>
|如何|何按|按时|时间|间显|显示|示最|最新|新标|标志|志| -
怎样获知数据库的连接属性？
【编程10000问】<%@ Language=VBScript %><% Option Explicit dim objCNN dim intCTProps dim item dim vbCRLF vbCRLF = chr(10) &n...
|怎样|样获|获知|知数|数据|据库|库的|的连|连接|接属|属性|性？|？| -
如何阻止别人非法链接你网站的图片？
【编程10000问】getimage.asp<% Option ExplicitDim strBuffer, FilePathstrBuffer = Request.ServerVariables("HTTP_REFERER")strBuffer = mid(strBuffer, InStr(strBuffer,".") + 1)strBuffer = left(strBuffer, InStr(strBuffer, "/") - 1)FilePath = "/HIDDENIMAGES/"If strBuffer = "i...
|如何|何阻|阻止|止别|别人|人非|非法|法链|链接|接你|你网|网站|站的|的图|图片|片？|？| -
如何在ASP里显示进度条？
【编程10000问】response.buffer=true' 应用缓存技术.dim lostnum' 防止dmax过大而dstep过小.dim shownumdelayshow(dstep,dmax)sub delayshow(dstep,dmax)' dmax表示要处理多少dmax(步)才能完成全过程，dstep表示已处理的占全过程的大致百分比. dim total ' 显示所有画面.dim dtemp ' 过渡变量.total=100dtemp=dstepdste...
|如何|何在|在A|AS|SP|P里|里显|显示|示进|进度|度条|条？|？|
