搜索列表
-
如何让计数器只对新进用户计数？
【编程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...
|如何|何防|防范|范利|利用|用刷|刷新|新来|来作|作弊|弊的|的计|计数|数器|器？|？| -
ASP问答集
【编程10000问】问：为什么我的记录集的RecordCount值总是返回-1？ 答：你应当使用这种模式来打开存取数据库的记录集： rec.open strSQL,conn,1,1 其中的strSQL是操作数据库的SQL语句;conn是联接数据库的Connection 变量。 问：我在ASP脚本中写了很多的注释...
|AS|SP|P问|问答|答集|集| -
如何显示最后十名来访者？
【编程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 ) <> ...
|如何|何显|显示|示最|最后|后十|十名|名来|来访|访者|者？|？| -
如何读取一个.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文|文件|件？|？| -
如何把一个Excel文件放到ASP页面中去？
【编程10000问】<%set xlApp = Server.CreateObject("Excel.Application")xlApp.Visible = false' 使服务端不出现Excel窗口.set myWorkbook = xlApp.Workbooks.Add' 建立一个worksheet.set myWorksheet = myWorkbook.Worksheets(1)myWorksheet.Range("A1").Value = '精彩春风通讯录'myWorksheet.Range("A1")...
|如何|何把|把一|一个|个E|Ex|xc|ce|el|l文|文件|件放|放到|到A|AS|SP|P页|页面|面中|中去|去？|？| -
网上考试设计思路是怎样的？
【编程10000问】global.asa < script LANGUAGE=VBScript RUNAT=Server >Sub Application_OnStart dbPath = "DBQ=" & Server.Mappath("onlinetest.mdb") dbConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbPath ...
|网上|上考|考试|试设|设计|计思|思路|路是|是怎|怎样|样的|的？|？| -
asp下载防盗链代码
【ASP编程】asp下载防盗链代码第一种: 终于对下载系统做了个防盗链措施，在下载的页面头部做了如下代码，相关代码如下： 复制代码 代码如下:<% From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.Se...
asp下载防盗链代码 -
如何用变量实现群聊和悄悄话？
【编程10000问】如何用变量实现群聊和悄悄话？<%if Request.Form("xt")="on" then ' 判断是否悄悄话.Application.Lock' 是悄悄话,继续往下处理.application(session("username"))=temppos&application(session("username"))' 只有发言人和发言对象才能看到此发言,实现悄悄话. application(Request.f...
|如何|何用|用变|变量|量实|实现|现群|群聊|聊和|和悄|悄悄|悄话|话？|？| -
如何判断用户是否非正常离开聊天室？
【编程10000问】如何判断用户是否非正常离开聊天室？ total = application("AllPeople")' 聊天总人数. aryHuman = split(total,";") for i = lbound(aryHuman) to ubound(aryHuman) - 1 if application("user" & i) = "online" then if int(timer)...
|如何|何判|判断|断用|用户|户是|是否|否非|非正|正常|常离|离开|开聊|聊天|天室|室？|？| -
如何判断发言是否为空？
【编程10000问】if len(usersays)<>0 then session("whoto")=request.form("whoto") session("action")=request.form("action") if instr(usersays,chr(39))>0 then usersays=replace(usersays,chr(39),"\"&chr(39)) end if if instr(usersays,chr(34))>0 then us...
|如何|何判|判断|断发|发言|言是|是否|否为|为空|空？|？|
