搜索列表
-
如何用下拉列表显示数据库里的内容？
【编程10000问】<%Dim objDC, objRSSet objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30' 创建数据库连接objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverI...
|如何|何用|用下|下拉|拉列|列表|表显|显示|示数|数据|据库|库里|里的|的内|内容|容？|？| -
如何编写翻页函数？
【编程10000问】page.inc<% Sub ShowPageBar(TotalPage,CurPage,strUrl) ' 参数TotalPage:全部页数;CurPage:当前页数;strUrl:翻页使用的连接地址. DIM strPage CurPage=GetValidPageNO(TotalPage,CurPage) Response.Write "<TABLE WIDTH=''100%''>" Response.Write "<tr><...
|如何|何编|编写|写翻|翻页|页函|函数|数？|？| -
如何用变量实现群聊和悄悄话？
【编程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...
|如何|何判|判断|断发|发言|言是|是否|否为|为空|空？|？| -
如何编写一个最简单的聊天程序？
【编程10000问】chat.html <html> <head><title>精彩春风之简单聊天</title></head> <frameset rows="*,100"> <frame src="chatopinions.asp"> <frame src="chatform.asp"> </frameset> </html> chatopinions.asp<html> <...
|如何|何编|编写|写一|一个|个最|最简|简单|单的|的聊|聊天|天程|程序|序？|？| -
统计在线人数是实时的吗？
【编程10000问】global.asa<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStartApplication("ActiveUsers") = 0' 从0开始计起.不过你可以把它设得更多哦,这样即使没人在线,人家一来你网站还会看到有900多人在线呢.End Sub Sub Session_OnStartSession.Timeout = 20' 把...
|统计|计在|在线|线人|人数|数是|是实|实时|时的|的吗|吗？|？| -
如何制作一个防止多次刷新计数的图片计数器？
【编程10000问】请问如何做一个专业的图片计数器？ <％countlong=8 ' 定义计数器位数. On Error Resume Next ' 忽略所有的错误. count=server.mappath(count.txt) set cou = server.createobject(scripting.filesystemobject) set out=cou.opentextfile(count,1,fa...
|如何|何制|制作|作一|一个|个防|防止|止多|多次|次刷|刷新|新计|计数|数的|的图|图片|片计|计数|数器|器？|？| -
如何随机显示图片计数器？
【编程10000问】count.asp＜ html ＞＜ head ＞＜ meta http-equiv="Content-Type"content="text/html; charset=gb2312" ＞＜title＞随风起舞之千变计数器＜/title＞＜/head＞＜body＞＜p＞＜%dim outcountfile=server.mappath("aspcount.txt")set objfile=server.createobject("scripting.filesystemobject")' 定义一个服务器组件.se...
|如何|何随|随机|机显|显示|示图|图片|片计|计数|数器|器？|？| -
如何实现点击数的计算？
【编程10000问】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＞ counter.asp＜% path="d:data" file=request("save") url=request("url") Set fs = CreateObject("Scripting.FileSystemObject") if fs.FileExists(path...
|如何|何实|实现|现点|点击|击数|数的|的计|计算|算？|？| -
如何最准确地统计在线用户数？
【编程10000问】' 设置好global.asa 文件,如下:<script LANGUAGE="VBScript" RUNAT="Server">Sub Application_OnStart Application("ActiveUsers") = 0 ' 设置计数初始值,可以根据自己的需要哦.End SubSub Session_OnStart Sess...
|如何|何最|最准|准确|确地|地统|统计|计在|在线|线用|用户|户数|数？|？| -
如何实时获知多少人在线？
【编程10000问】global.asa<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart ' Sub Application_OnStart 是好在服务器每次启动的时候激活的方法. Session.Timeout = 3 ' 定义用户在线时间,如果在定义时间内没有活动连接,则删掉他的se...
|如何|何实|实时|时获|获知|知多|多少|少人|人在|在线|线？|？|
