ASP编程：最初一个：聊客用来屏障不想见到的人ad...
由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。下载最初一个：聊客用来屏障不想见到的人admin/hideuser.asp<%
whoto=request.form("whoto")
user=request.form("user")
screen=request.form("hdish")
chatdata=application("chatdata")
selectcasescreen
case"1"
sendid=finduser(user)
reciid=finduser(whoto)
ifsendid<51andreciid<51then
ifinstr(chatdata(sendid,5),","&whoto&"")<1then
chatdata(sendid,5)=chatdata(sendid,5)&","&whoto&""
application.lock
application("chatdata")=chatdata
application.unlock
dispstr=right("0"&time,8)&",体系,0,"&user&",ff0000,0,你乐成屏障"&whoto&"的谈天内容"
else
dispstr=right("0"&time,8)&",体系,0,"&user&",ff0000,0,"&whoto&"已在屏障名单中"
endif
else
ifreciid=51thendispstr=right("0"&time,8)&",体系,0,"&user&",ff0000,0,"&whoto&"不在此谈天室"
endif
case"0"
sendid=finduser(user)
reciid=finduser(whoto)
ifsendid<51then
ifwhoto="一切人"then
chatdata(sendid,5)=""
else
chatdata(sendid,5)=replace(chatdata(sendid,5),","&whoto&"","")
endif
dispstr=right("0"&time,8)&",体系,0,"&user&",ff0000,0,你乐成排除对"&whoto&"的谈天内容的屏障"
application.lock
application("chatdata")=chatdata
application.unlock
endif
case"2"
sendid=finduser(user)
dispstr=right("0"&time,8)&",体系,0,"&user&",ff0000,0,你屏障了："&mid(replace(chatdata(sendid,5),"",""),2)
endselect
functionfinduser(fuser)
reval=51
fori=0to50
ifchatdata(i,0)=fuserthen
reval=i
exitfor
endif
next
finduser=reval
endfunction
%>
<scriptlanguage=javascript>
parent.comm=newArray(<%=dispstr%>);
parent.writecomm();</script>
<metahttp-equiv="refresh"content="60;URL=../refresh.asp?room=<%=room%>&user=<%=user%>"></p>我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
页:
[1]