• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 用ASP建造自己的聊天室

        聊天室想必你一定去过吧,但想不想建立自己的聊天室呢?其实这一点都不难,Active Server Script提供了Application对象和Session对象,Application对象代表了一个Active Server应用程序,也就是一个Web网页,Session对象则表示一个用户,代表一个用户对这个页面的一次访问,通过Application对象可以让访问它的所有用户共享信息,并可以在Web服务器运行期间持久地保存数据,而Session对象也可以在用户的一次访问期间持久地保持数据,利用这两个对象,就可以十分方便地建造自己的Chat应用程序。

      ---- 一、Application对象:

      ---- 1.属性:Application对象没有内置的属性,但用户可以定义自己的属性:

      ---- Application(“属性名称”)=值,一旦分配了属性,它就会一直存在,直到Web服务器关闭服务,而且它能被所有用户读取,所以可以用它在用户之间发送谈话内容。

      ---- 2.方法:当两个用户同时对Application属性的值进行写入操作时,会出现一方的修改被另一方的操作直接覆盖掉的情况,为了避免这种现象,用户可以调用Lock方法进行锁定,这样只有当前用户才能够对Application的属性进行操作,用户完成操作后调用Unlock方法解锁,使得其他用户也可以修改Application的属性。

      ---- 3.事件:创建Active Server应用程序需要在Web服务器上存放应用程序的虚拟主目录下创建Global.asa文件,它含有Application对象和Session对象的事件处理例程,

      ASP上两个防止SQL注入式攻击Function
      ASP错误处理,ASP网站防范黑客技巧,巧用ASP技术保护DHTML源代码,用ASP取出HTML里面的图片地址的函数,ASP实现网页打开任何类型文件都保存,ASP木马Webshell安全解决办案,几招让你的网站免受采集之苦,ASP使用MYSQL数据库全攻略,Ad Rotator 组件参考,在Asp中使用存储过程数值类型值,asp防止同时登陆的问题,使用ASP重启服务器,在ASP程序中实现数据库事务控制,深入理解ASP中FSO的神奇功能,Asp中一些FSO方面的函数,用ASP编程实现网络内容快速查找,ASP实现文件直接下载,Adodb.Stream 组件的使用说明,全国省市县无刷新多级关联菜单,ASP上两个防止SQL注入式攻击Function
      ASP

      通常,Application_Onstart事件用来定义应用级的属性。

      ---- 二、创建一个Chat应用程序:程序运行时如下图所示(略)

      ---- 1.设置应用程序的变量:这里需建立两个应用程序级的变量,gchars数组用来存放用户的谈话内容,gcounter用做计数器,控制页面的显示行数,在这里我们让页面最多显示最近的10行谈话内容。当应用程序启动时这些变量必须进行初始化,所以它们的创建都要在Global.asa文件中的Application_onstart事件中:

          < script language="vbscript" runat="server" >

      sub application_onstart()

      dim lchars(10)

      application("gchars")=lchars

      application("gcounter")=0

      end sub

      < /script >

      ---- 2.确定处理ASP的方式:当用户第一次请求这个ASP文件时,用的是GET方法,然后,当用户输入完谈话内容后提交时用的是POST方法,在这里表单是向自身提交的,所以这个ASP文件会被再次请求,我们通过测试Request . ServerVariales(“Request_Method”)变量来确定文件被请求的方式:IF Request . ServerVariales(“Request_Method”)=“POST” then

      ---- 3.确定讲话者:当用户第一次提交谈话内容时需输入自己的姓名,一旦在txtname框中输入数据后,程序将建立一个会话级变量来存放用户姓名,并自动显示在txtname框中,用户就不需再次输入了,除非你想用另一个名字加入会谈。

          IF len(request(“txtname”)) >0 then

      Session(“ssname”)=request(“txtname”)

      End if

      < h5 >您的姓名:

      < input type=“type” name=“txtname”

      length=“20” value=< %=session(“ssname”)% > >

      ----

      ---- 4.处理用户的谈话内容:首先要确定已经为Chat写入的谈话行数,为方便阅读,在这里将显示行数限定为10行,如果Application(“gcounter”)大于9,则将其置为0,然后将谈话者姓名和内容一起存放到Application(“gchars”)数组中:

      Application(“gchars”)

      (Application(“gcounter”))=Session(“ssname”) &

      “:” & request(txttalk)

      然后将计数器加1:Application(“gcounter”) =Application(“gcounter”)+1

      ---- 5.将数组内容写入到客户的浏览器中:用户提交谈话内容后,程序必须将数组内容写到客户的浏览器中,让聊天室中的所有人都能看到被提交的谈话内容:

          if application("gcounter")=0 then

      lstemp=application("gchars")(0)

      else

      for x=0 to application("gcounter")-1

      lstemp=lstemp & "< br >" & application("gchars")(x)

      next

      end if

      ---- 最后,用Response.write方法将lstemp变量的值写到客户的浏览器中去:

      response.write lstemp

      ---- 下面给出Default.asp的完整代码:

      < %response.expires=0

      response.buffer=true% >

      < html >< head >< title >Chat sample< /title >< /head >

      < body >< center >

      < h3 >我的聊天室< /h3 >< /center >< hr >

      < % if request.servervariables("request_method")="POST" then

      if len(request("txtname")) >0 then

      session("ssname")=request("txtname")

      end if

      application.lock

      mcounter=application("gcounter")

      mchars=application("gchars")

      if mcounter >9 then

      mcounter=0

      end if

      mchars(mcounter)=session("ssname")

      & ":" & request("txttalk")

      mcounter=mcounter+1

      application("gcounter")=mcounter

      application("gchars")=mchars

      application.unlock

      end if % >

      < % if application("gcounter")=0 then

      lstemp=application("gchars")(0)

      else

      for x=0 to application("gcounter")-1

      lstemp=lstemp & "< br >" & application("gchars")(x)

      next

      end if

      response.write lstemp % >

      < hr >< center >

      < form action="default.asp" method=post name="aspform" >

      < b >< a href="default.asp" >

      更新显示< /a >< /b >

      < h5 >发言:

      < input type="text" name="txttalk" size="70" >< br >

      < h5 >您的姓名:

      < input type="text" name="txtname" length="20"

      value=< %=session("ssname")% > >

      < input type="submit" name="cmdpost" default="true" value="发送" >

      < /form >< /center >< /body >< /html >

      ---- 以上代码在NT4.0、IIS4.0、IE4.0中和Pwin98、PWS、IE4.0中分别运行通过。

      ASP上两个防止SQL注入式攻击Function
      ASP错误处理,ASP网站防范黑客技巧,巧用ASP技术保护DHTML源代码,用ASP取出HTML里面的图片地址的函数,ASP实现网页打开任何类型文件都保存,ASP木马Webshell安全解决办案,几招让你的网站免受采集之苦,ASP使用MYSQL数据库全攻略,Ad Rotator 组件参考,在Asp中使用存储过程数值类型值,asp防止同时登陆的问题,使用ASP重启服务器,在ASP程序中实现数据库事务控制,深入理解ASP中FSO的神奇功能,Asp中一些FSO方面的函数,用ASP编程实现网络内容快速查找,ASP实现文件直接下载,Adodb.Stream 组件的使用说明,全国省市县无刷新多级关联菜单,ASP上两个防止SQL注入式攻击Function
      ASP

    • 0
    • 0
    • 0
    • 57
    • 单栏布局 侧栏位置: