搜索列表
-
如何最准确地统计在线用户数？
【编程10000问】' 设置好global.asa 文件,如下:<script LANGUAGE="VBScript" RUNAT="Server">Sub Application_OnStart Application("ActiveUsers") = 0 ' 设置计数初始值,可以根据自己的需要哦.End SubSub Session_OnStart Sess...
|如何|何最|最准|准确|确地|地统|统计|计在|在线|线用|用户|户数|数？|？| -
如何防止计数器刷新计数？
【编程10000问】如何防止计数器刷新计数？<html><head><title>千花飞舞之真实的计数器</title></head><body><%dim tms,counter,countlendim images(20)h1="<p> 千花飞舞计数器</font></p>"If IsEmpty(Session("hasbeenConnected")) thenset rs=server....
|如何|何防|防止|止计|计数|数器|器刷|刷新|新计|计数|数？|？| -
不用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也|也能|能实|实现|现统|统计|计在|在线|线人|人数|数吗|吗？|？| -
如何制作一个Web日程安排表？
【编程10000问】chunfeng.asp' 该页面可以看到已安排了哪些事情,并在底部链接可按月前后翻动.' 该代码包含获得数据连接的函数,如果数据源一旦有变化,则只有一个位置需要编辑连接信息(服务器、用户和口令). <@ LANGUAGE="VBscript" ENABLESESSIONSTATE = False ％＞ ＜％ ' 表...
|如何|何制|制作|作一|一个|个W|We|eb|b日|日程|程安|安排|排表|表？|？| -
如何显示最后十名来访者？
【编程10000问】<%Application.LockIF NOT isArray( Application( "lastTen" ) ) THEN DIM dummy( 10, 3 ) Application( "lastTen" ) = dummy' 创建或者取得最近10个Application数组.END IF lastTen = Application( "lastTen" )Application.UnLockIF lastTen( 9, 0 ) <> ...
|如何|何显|显示|示最|最后|后十|十名|名来|来访|访者|者？|？| -
如何显示数据库的结构？
【编程10000问】<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#CCCCCC" text="#000000"><h2 align="center">星河影动之查看数据库结构</h2><p> <%on error resume nexttable=request("table")&...
|如何|何显|显示|示数|数据|据库|库的|的结|结构|构？|？| -
如何读取一个.ini文件？
【编程10000问】<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="Application"></OBJECT><script LANGUAGE=VBScript RUNAT=Server>Const CONST_FL_NAME = "\GetAttributeCode.ini"Const CON...
|如何|何读|读取|取一|一个|个i|in|ni|i文|文件|件？|？| -
如何编写TOP 10之类的排行榜？
【编程10000问】<% @ LANGUAGE="VBscript" %><% OPTION EXPLICIT %><!--#include file="DataConn.asp"--><!--#include file="FuncSet.asp"--><% dim rs,sql,IDa,IDb,s,RegUser,a,b,c Set rs=Server.CreateObject("ADODB.recordset")&...
|如何|何编|编写|写T|TO|OP|P1|10|0之|之类|类的|的排|排行|行榜|榜？|？| -
网上考试设计思路是怎样的？
【编程10000问】global.asa < script LANGUAGE=VBScript RUNAT=Server >Sub Application_OnStart dbPath = "DBQ=" & Server.Mappath("onlinetest.mdb") dbConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbPath ...
|网上|上考|考试|试设|设计|计思|思路|路是|是怎|怎样|样的|的？|？| -
如何实现网上考试？
【编程10000问】login.asp' 考生验证.<％@ Language=VBScript％><％name=trim(request("name"))passwd=trim(request("passwd"))if name<>"" and passwd<>"" then' 检查考生是否输入用户名和密码.Set conn = Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Acces...
|如何|何实|实现|现网|网上|上考|考试|试？|？| -
如何用变量实现群聊和悄悄话？
【编程10000问】如何用变量实现群聊和悄悄话？<%if Request.Form("xt")="on" then ' 判断是否悄悄话.Application.Lock' 是悄悄话,继续往下处理.application(session("username"))=temppos&application(session("username"))' 只有发言人和发言对象才能看到此发言,实现悄悄话. application(Request.f...
|如何|何用|用变|变量|量实|实现|现群|群聊|聊和|和悄|悄悄|悄话|话？|？| -
如何判断电子邮件的地址格式是否正确？
【编程10000问】第一种办法：<% Function IsValidEmail(Email) ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr ...
|如何|何判|判断|断电|电子|子邮|邮件|件的|的地|地址|址格|格式|式是|是否|否正|正确|确？|？|
