在asp聊天室里實(shí)現(xiàn)房間功能和用戶顯示(2)_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：ASP中檢查沒有數(shù)據(jù)提交的頁面
      用戶在訪問站點(diǎn)時經(jīng)常遇到一些煩人的信息，比如他們經(jīng)常不知何故地在沒有實(shí)際提交數(shù)據(jù)給表單時就到了下一個頁面，或者經(jīng)常達(dá)到一個頁面，它是以查詢字符串的形式轉(zhuǎn)來的，比如?ID=236454。

如
       
      


      在gloable.asa中進(jìn)行了如上的定義后，我們就可以在后面的頁面中應(yīng)用了。我們假設(shè)先有一個用戶的登陸確認(rèn)（從數(shù)據(jù)庫中確認(rèn)用戶的信息）大致的代碼如下： 
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      <!-- 
      #include virtual="/chat/inc/Convert.inc" 
      --> <%'將歡迎的內(nèi)容記入application數(shù)組并調(diào)整順序%> 
      <!-- 
      #include virtual="/chat/inc/RoomRefresh.inc" 
      --> 
      <!-- 
      #include virtual="/chat/inc/Logname.inc" 
      --> <%'將姓名記入application數(shù)組%> 
      <% 
      if request.servervariables("Request_Method")="POST" and session("sChater_Name")="" then 
      name=request.form("txtName") 
      pass=request.form("txtPass") 
      set res=session("res") 
      sql="Select * From Chater_Message Where Name='"&name&"' And Pass='"&pass&"';" 
      res.open sql,,3,3 
      if res.BOF then 
      response.write "Login Failed"&"<br>" 
      response.write "<a href="&chr(34)&"LoginPage.htm"&chr(34)&">"&"請重新登陸"&"</a>" 
      res.close 
      else 
      session("sChater_Name")=name 
      Welcome_Message="common"&","&"系統(tǒng)"&","&"所有人"&","&"<font color="&chr(34)&"#ff98ff"&chr(34)&">"&"各位看官，"&session("sChater_Name")&"來也"&"</font>"&"<br>" 
      '這句話請大家一定要注意，如果你讀了我的上一篇文章你應(yīng)該知道是什么意思。 
      application.lock 
      call convert(Welcome_Message) 
      call logname(session("sChater_Name"),session("sRoom_Name")) 
      call roomrefresh() 
      application.unlock 
      res.close 
      response.redirect "ChatPage.htm" 
      end if 
      end if 
      %>       		

        
      

          


      


      


      下面是三個關(guān)鍵的子程序，在后面也有大量的應(yīng)用。 
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      convert.inc 
      <% 
      sub convert(Message) 
      dim tmpChat_Value() 
      pChat_Value=application(session("sRoom_Name")&"_Value") 
      pChat_Number=application(session("sRoom_Name")&"_Number") 
      '由于使用了session("sRoom_Name")來保存當(dāng)前的房間名，因此可以被每個房間的 
      提交子過程調(diào)用。 
      if pChat_Number>=50 then 
      pChat_Number=0 
      end if 
      redim tmpChat_Value(pChat_Number) 
      for i=0 to pChat_Number 
      tmpChat_Value(i)=pChat_Value(i) 
      next 
      pChat_Value(0)=Message 
      for i=0 to pChat_Number 
      pChat_Value(i 1)=tmpChat_Value(i) 
      next 
      pChat_Number=pChat_Number 1 
      application(session("sRoom_Name")&"_Value")=pChat_Value 
      application(session("sRoom_Name")&"_Number")=pChat_Number 
      end sub 
      %>

            
      logname.inc 
      <% 
      sub logname(Chater_Name,Room_Name) 
      pChater_Value=application(session("sRoom_Name")&"er_Value") 
      pChater_Number=application(session("sRoom_Name")&"er_Number") 
      if pChater_Number>=150 then 
      pChater_Number=0 
      end if 
      pChater_Value(pChater_Number)=Chater_Name&"["&Room_Name&"]" 
      pChater_Number=pChater_Number 1 
      application(session("sRoom_Name")&"er_Value")=pChater_Value 
      application(session("sRoom_Name")&"er_Number")=pChater_Number 
      end sub 
      %> 
      roomferesh.inc 
      <% 
      sub roomrefresh() 
      pRoom_Number=application("gRoom_Number") 
      pRoom_Value=application("gRoom_Value") 
      for i=0 to pRoom_Number-1 
      Room_Name=left(pRoom_Value(i),instr(pRoom_Value(i),"(")-1) 
      pRoom_Value(i)=left(pRoom_Value(i),instr(pRoom_Value(i),"[")-1)&"["&application(Room_Name&"er_Number")&"]"&"人" 
      next 
      application("gRoom_Number")=pRoom_Number 
      application("gRoom_Value")=pRoom_Value 
      end sub 
      %> 
      

                  		

        
      

          


      


      


      分享：ASP后門之終極偽裝
      記得當(dāng)年asp木馬出來的時候號稱“永不被殺的木馬”，呵呵，時至今日，隨便什么殺毒軟件都能將其殺得片甲不留^_^呵呵，受到木馬換殼躲避殺毒軟件思路影響，我們也可以給asp木馬“
      


      

      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2008-08-22


      


      



      


      



      相關(guān)ASP教程：