国产毛片午夜福利,国产黄网,国产亚洲天堂,97国产精品

    • 

  • 

    • 






    
  
    
    
    
      
    
        



    
  
    
    
    
  
    

    


            		
        
    
    
    		
  
    

    

    
  
    
    




    
  
    

    


    
  
    
     
  
    

    


    
  
    
            
            慧網(wǎng)動(dòng)態(tài)        
            
            常見(jiàn)問(wèn)題        
            
            網(wǎng)絡(luò)營(yíng)銷(xiāo)        
            
            網(wǎng)站設(shè)計(jì)        
            
            行業(yè)動(dòng)態(tài)        
            
            網(wǎng)站優(yōu)化        
      
    

    


    
  
    
    用ASP建立一個(gè)簡(jiǎn)單的聊天室.  
    

    


    
  
    
    發(fā)布時(shí)間：2008-04-25　　　瀏覽次數(shù)：1184384  
    

    


    
  
    
    
    
      
    用ASP建立一個(gè)簡(jiǎn)單的聊天室
    

    下面介紹其主要步驟: 字串8 
    

    1,添加Global.asa文件里面的代碼. 

    字串9
    

    

    這部分代碼主要處理Application_onStart事件,在此事件中,定義了一個(gè)有15個(gè)元素的數(shù)據(jù),并把它賦給了一個(gè)Application對(duì)象的屬性.Global.asa文件的內(nèi)容如下. 字串5 
    

    

    


    
以下為引用的內(nèi)容：
    ＜SCRIPT LANGUAGE="VBScript" RUNAT="Server"＞
    SUB Application_OnStart
    dim maChats(15) 定義一個(gè)具有15個(gè)元素的數(shù)據(jù).
    Application("gaChats")=maChats 存儲(chǔ)談話(huà)的內(nèi)容.
    Application("giCounter")=0 存儲(chǔ)已有的談話(huà)數(shù)目.
    END SUB
    ＜/SCRIPT＞
    

    字串8
    

    


    2,在AspChat.asp文件中添加代碼. 

    字串8
    

    

    注意,要把這部分代碼添加在主頁(yè)中的兩條水平線(xiàn)之間,也是文本中的兩個(gè)＜hr＞之間.程序首先判斷申請(qǐng)這幅主頁(yè)時(shí),是否用的是"Post"方法,因?yàn)楸纠写翱诘奶峤环椒ㄊ?post".而一般次申請(qǐng)這幅主頁(yè)時(shí),用的是"get"方法.所以如果采用的是"post"方法的話(huà),說(shuō)明是某一瀏覽者在提交自己的談話(huà)內(nèi)容時(shí)的重新申請(qǐng),這要進(jìn)行處理,因?yàn)橛钟行碌恼勗?huà)內(nèi)容了.否則,說(shuō)明某一瀏覽者次申請(qǐng)此主頁(yè),并沒(méi)有提交什么談話(huà),因此只需要把當(dāng)前的談話(huà)內(nèi)容顯示出來(lái)可以了. 字串8 
    

    

    


    
以下為引用的內(nèi)容：
    ＜p align="center"＞＜font size=5＞一個(gè)簡(jiǎn)單的聊天室＜/font＞＜/p＞
    ＜br＞
    ＜%
    處理輸入
    if Request.ServerVariables("Request_Method")="POST" then
    標(biāo)明講話(huà)者
    if len(Request("txtWho"))＞0 then
    Session("ssWho")=Request("txtWho")
    end if
    封鎖Application對(duì)象
    Application.Lock
    創(chuàng)建本地引用指針
    mlCounter=Application("giCounter")
    maChats=Application("gaChats")
    如果寫(xiě)入的行數(shù)超過(guò)10,則重新開(kāi)始記數(shù).
    if mlCoundter＞9 then
    mlCoundter=0
    end if
    增加用戶(hù)的輸入,計(jì)數(shù)器加1 字串4 
    maChat(mlChounter)=Session("ssWho")&":"&Request("txtCents")
    mlCounter=mlCounter+1
    把局部變量設(shè)置為在應(yīng)用范圍內(nèi)有效.
    Applicati "giCounter")=mlCounter
    Application("gaChats")=maChat
    Application對(duì)象的封鎖
    Application.Unlock
    end if
    %＞
    ＜%
    寫(xiě)入TextArea
    if Application("giCounter")=0 then
    lstemp=Application("gaChats")(0)
    else
    for x=0 to Application("giCounter")-1
    lstemp=lstemp&"＜br＞"Application("gaChats")(x)
    next
    end if
    Response.white lstemp
    %＞
    ＜hr＞
    

    字串5
    

    

    3,把txtWho的內(nèi)容初始化. 字串8 
    

    也是當(dāng)瀏覽者輸入過(guò)一次自己的姓名以后不用再次輸入了,為了區(qū)分每個(gè)不同的瀏覽者,在這里使用了"Session"對(duì)象.利用Session("ssWho")記載瀏覽者的姓名.下面的代碼直接寫(xiě)在以上代碼的下面存入AspChat.asp中. 字串7 
    

    

    


    
以下為引用的內(nèi)容：
    ＜form method="POST" action="aspchat.asp" name="frmAsp"＞
    ＜div align="center"＞＜center＞＜p＞發(fā)言:＜input type="text" name="txtCents" size="34"＞＜/p＞
    ＜/center＞＜/div＞＜div align="center"＞＜center＞＜p＞對(duì)象:＜input type="submit" value="送出" name="B1"＞＜/p＞
    ＜/center＞＜/div＞
    ＜/form＞
    

    字串1
    

    


    4.完成. 字串7 
    

    只要把2,3步的代碼前后加入完整的htm文件代碼然后存為aspchat.asp可以了,這是一個(gè)很簡(jiǎn)單的asp聊天室程序,大家可以隨著學(xué)習(xí)的深入不斷加強(qiáng)它的功能
        
    
    
    
        
        
    
    
  
    

    


    
  
    
    
    
      
      
      立即預(yù)約