一个统计当前在线用户的解决方案在做一个在线交流的网站时，有个问题很令我头疼，就是关于实时统计在线用户的问题，客户要求：统计当前在线人数、游客人数、会员人数、在线用户列表，包括游客、会员和管理员（如果是游客，则自动生成游客的ID，如果是会员，则显示会员姓名）。因为它要求有实时性，则首先我将用global.asa解决的想法pass掉。问题的关键是如何判断用户已经离开，和当用户离开时如何执行一个文件或一个函数。经过和网上一些朋友的探讨，终于解决了这个问题。解决的原理为：编写一个通用页面，所谓的通用页面，就是应用里的每个页面都包含这个页面，例如：header.asp，在这个页面里，用XMLHTTP写一...
http://www.jb51.net//article/12891.htm
作用：将页面中的电话号码生成图片格式。[code]<%Call Com_CreatValidCode(Request.QueryString("tel")) Public Sub Com_CreatValidCode(pTel) '----------禁止缓存 Response.Expires = 0 Response.AddHead...
http://www.jb51.net//article/12833.htm
有段字符串： asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf 没任何规律的...我要把里面的{#kljlkkm#}和{#wdfs#}查找出来...1、Split办法： [code]<% Dim I, sCode, aCode, sNewCode sCode = "asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf" ...
http://www.jb51.net//article/12771.htm
[code]<% Response.AppendToLog "数据库正在被访问" %> [/code]执行这段代码后，在你的IIS日志中可能会出现下面的字符串： [code]127.0.0.1, -, 01/01/00, 12:00:34, W3SVC1,WEBSERVER, 127.0.0.1, 161342, 485, 228, 200, 0,get, /somefile.asp,&n...
http://www.jb51.net//article/12720.htm
如果你用ODBC连接(DSN方式或其它方式)到远程计算机的MDB文件，这将产生一个错误： Microsoft OLE DB Provider for ODBC Drivers error '80004005' 大致意思是该文件可能被其他用户访问或无足够的权限访问。 下面有两种方式，避免这个错误： 方式a. 使用DAO引擎访问 Dim File, Conn, RS Const ReadOnly =&...
http://www.jb51.net//article/12719.htm
说明：1、此工具可以批量替换网站上asp,.txt,php,aspx...等等文本型的字符2、将replace.asp上传至网站根目录后，运行http://网站域名/replace.asp3、为了安全，使用本程序后请删除或更名[code]<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%option explicitResponse.Buffer=trueResponse.CharSet="GB2312"Server.ScriptTimeout=9999999%> <html> <...
http://www.jb51.net//article/12330.htm
<? function phpescape($str) { $sublen=strlen($str); $retrunString=""; for ($i=0;$i...
http://www.jb51.net//article/11259.htm
'**************************************************'函数名：CreateKeyWord'作 用：由给定的字符串生成关键字'参 数：Constr---要生成关键字的原字符串'返回值：生成的关键字'**************************************************Function CreateKeyWord(byval Constr,Num) If Constr="" or IsNull...
http://www.jb51.net//article/11237.htm
'-------------------------'--检查目录是否存在'----------------------Function CheckDir(byval FolderPath) dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(Server.MapPa...
http://www.jb51.net//article/11234.htm
'=================================================='过程名：SaveRemoteFile'作 用：保存远程的文件到本地'参 数：LocalFileName ------ 本地文件名'参 数：RemoteFileUrl ------ 远程文件URL'==================================================Function SaveRemoteFile(LocalFileName,Remo...
http://www.jb51.net//article/11230.htm
'=================================================='函数名: CheckFile'作 用：检查某一文件是否存在'参 数：FileName ------ 文件地址 如:/swf/1.swf'返回值：False ---- True'================================================== Public Function&n...
http://www.jb51.net//article/11229.htm