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

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

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

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

以下為引用的內(nèi)容：
 <%'將歡迎的內(nèi)容記入application數(shù)組并調(diào)整順序%>

 <%'將姓名記入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)&">"&"請(qǐng)重新登陸"&"</a>"
res.close
else
session("sChater_Name")=name
Welcome_Message="common"&","&"系統(tǒng)"&","&"所有人"&","&"<font color="&chr(34)&"#ff98ff"&chr(34)&">"&"各位看官，"&session("sChater_Name")&"來(lái)也"&"</font>"&"<br>"
'這句話請(qǐng)大家一定要注意，如果你讀了我的上一篇文章你應(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
%>

下面是三個(gè)關(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")來(lái)保存當(dāng)前的房間名，因此可以被每個(gè)房間的
提交子過程調(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
%>