|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况; 在global中完成两件事
新居间在耳目员名单的初始化(application_onstart)
Dim nameindex(0)
useronlinename=" "
onliners=0
Application("hxf_c_onlinelist")=nameindex
Application("hxf_c_useronlinename")=useronlinename
Application("hxf_c_chatrs")=onliners
将这一段提早在rs.close setrs=nothing
然后到场
rs.Close
rs.Open "select id from reginfo where grade>6",conn
do while not (rs.EOF or rs.BOF)
--chatroomsn=rs("id")
--Application("hxf_c_onlinelist"&chatroomsn)=nameindex
--Application("hxf_c_useronlinename"&chatroomsn)=useronlinename
--rs.MoveNext
loop
关于Session_OnEnd的修正应当在前面说才对
然后就是到场聊天室了hqtchat.asp关于这儿的挪用咱们应当加两个参数
chatroomsn和chatroomname聊天室的房间号和聊天室的称号
chatroomsn=request.querystring("chatroomsn")
chatroomname=request.querystring("chatroomname")
创立session("hxf_c_mylocale")=chatroomsn
换聊天室的称号
chatroomname=Application("hxf_c_chatroomname")
为chatroomname=Application("hxf_c_chatroomname")&mychatroomname
换
crm="<%=Application("hxf_c_chatroomname")%>";
为crm="<%=Application("hxf_c_chatroomname")&mychatroomname%>";
然后就是交换了找出你一切文件中的application("hxf_c_useronlinename")为application("hxf_c_useronlinename"&session("hxf_c_mylocale"))
交换application("hxf_c_onlinelist")为application("hxf_c_onlinelist"&session("hxf_c_mylocale"))固然Application_OnStrat中的局部除外
现实是我是在chatroomsn=session("hxf_c_mylocale")以后用chatroomsn换失落了下面的session("hxf_c_mylocale")在轮回中如许挪用session并非一个好主张
如许每一个房间有了本人的自力的在线名单了
下一步是甚么?我只能对我本人地点聊天室中的人措辞并且也只能收到统一房间中的人说的话是的那咱们应当在咱们说的每句话中到场一个关于房间号的信息,可是我其实不想再加一个sd信息如许会好费事的,因而我看中了syscolor,先改syscolor中的blue和black由于这两个值 是不定长的欠好处置,改成0000ff和000000好了有甚么 变更呢没有只是也是六个字符长的了如许更优点理好了下一步吧
那咱们说的话就是newsd(537)=addwordcolor&cstr(chatroomsn)了
机械人吗?它是如许说的autonewsd(537)=sayscolor&cstr(chatroomsn)
个中的chatroomsn=session("hxf_c_mylocale")
好了,咱们说的话中有了咱们的房间信息了若何吸收呢
在t.asp中
Select Case sift
Case "0","1","2"
中的每个case中咱们都在if判 断中多加一个检测
and mid(sd(i+5),7)=chatroomsn
色彩住信息中多出的房间号如今不处置出没有关系的
javascript注释RGB信息时会本人去除的
假如想也能够是 show(j+5)=left(sd(i+5),6)
好了,如今看起来没有事了咱们切实其实有了分歧的房间了只是好象没有进口罢了
如许好了你可以本人加我是在hqtchat中另加了一个框架我加在f3的上方你可以自便
<frame src="selectchatroom.asp?chatroomsn=<%=chatroomsn%>" name="chatroomfrm" scrolling="NO" noresize marginwidth="0" marginheight="0">
个中的selectchatroom.asp为
<%Response.Expires=0
mychatroomsn=session("hxf_c_mylocale")
chatroomsn=Request.QueryString("chatroomsn")
%>
<form name=form1>
<select name=chatroomselect +chatroomname;
</script>
如许就好了不是很复杂吗
新的房间在线名单不会更新
你可以用refresh 和settimeout 然而我想或许不会有几何人关怀,而老是重读数据库并非个好的主张假如你要用 refresh的话我建议是三分钟
现实上如许的房间只要六级的人能开假如你的办事器再的足够好,你可让每一个人都能开固然你应当在限制了房间数目以后及时更新,如许会更风趣些,一切的房间都没有新的办理功效?恰是由于如许我才只让六级的人才网能有本人的房间,固然他不在线就!!
好象就如许了,应当没有错了,本人做了呀
现实上我已调试经由过程了,也算了我给人人的元宵礼品吧
</p> 对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了, |
|