ASP网页编程之办理用户踢人文件admin/admin.asp
由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。办理用户踢人文件admin/admin.asp<%
user=request.form("user")
adbut=request.form("kaction")
whoto=request.form("hdish")
%><metahttp-equiv="refresh"content="4;URL=../refresh.asp?user=<%=user%>">
<%
chatdata=application("chatdata")
chatcomm=application("chatcomm")
chatpoin=application("chatpoin")
sendid=finduser(user)
ifsendid<51andchatdata(sendid,1)=Request.ServerVariables("remote_addr")then
ifsession("admlevel")="9"then
reciid=finduser(whoto)
selectcaseadbut
case"sip"
ifreciid<51then
dispstr=right("0"&time,8)&",体系,0,"&user&",ff0000,0,"&whoto&"的IP地点是"&chatdata(whotoid,1)
else
dispstr=right("0"&time,8)&",体系,0,"&user&",ff0000,0,"&whoto&"不在此谈天室"
endif
%><scriptlanguage=javascript>
parent.comm=newArray(<%=dispstr%>);
parent.writecomm();</script><%
case"kip"
ifreciid<51andsendidreciidthen
kicklist=application("kicklist")
ifinstr(kicklist,","&chatdata(reciid,1)&"")<1then
kicklist=kicklist&","&chatdata(reciid,1)&""
chatpoin=chatpoin+1mod50
chatcomm(chatpoin)=""&right("0"&time,8)&",体系,0,一切人,ff0000,0,"&whoto&"地点的IP被办理员踢出了谈天室"
application.lock
application("kicklist")=kicklist
application("chatpoin")=chatpoin
application("chatcomm")=chatcomm
application.unlock
endif
endif
case"name"
ifreciid<51andsendidreciidthen
kicklist=application("kicklist")
ifinstr(kicklist,",#"&chatdata(reciid,0)&"")<1then
kicklist=kicklist&",#"&chatdata(reciid,0)&""
chatpoin=chatpoin+1mod50
tmp=chatdata(reciid,0)
chatdata(reciid,0)=""
chatdata(reciid,1)=""
fori=0to50
chatdata(i,4)=(chatdata(i,4)mod4)+4
next
chatcomm(chatpoin)=""&right("0"&time,8)&",体系,0,一切人,ff0000,0,"&whoto&"被办理员踢出了谈天室"
application.lock
application("kicklist")=kicklist
application("chatpoin")=chatpoin
application("chatcomm")=chatcomm
application("chatdata")=chatdata
application("onliuser")=replace(application("onliuser"),","&tmp&"","")
application.unlock
endif
endif
endselect
endif
endif
functionfinduser(fuser)
reval=51
fori=0to50
ifchatdata(i,0)=fuserthen
reval=i
exitfor
endif
next
finduser=reval
endfunction
%></p>由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况； 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 那么，ASP.Net有哪些改进呢？ 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
页:
[1]