ASP网页编程之完成谈天室的悄然话功能（上）（转贴）...
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。谈天室获得措辞内容,并过滤个中的剧本语句usersays=request.form("says")
ifinstr(usersays,"《script")》0then
usersays=""
endif
判别是不是有发言内容，没有的话就不作处置
iflen(usersays)《》0then
session("whoto")=request.form("whoto")
session("action")=request.form("action")
ifinstr(usersays,chr(39))》0then
usersays=replace(usersays,chr(39),""&chr(39))
endif
ifinstr(usersays,chr(34))》0then
usersays=replace(usersays,chr(34),""&chr(34))
endif
application.lock
界说一个扳谈缓冲区，前面将给人人细心剖析一下
dimchats(20)
forn=1to20
chats(n)=application("chats")(n)
next
username=request.Form("user")
usertime=Time
usertime="("&right(usertime,8)&")"
user_whoto=request.Form("whoto")
user_action=request.Form("action")
ifapplication("counter")》19then
application("counter")=0
endif
不是私语就加一
ifrequest.form("action")《》"私语"then
application("counter")=application("zj_1counter")+1
counter=application("zj_1counter")
用户的举措处置
selectcaserequest.FORM("action")
case"措辞"
ifrequest.FORM("whoto")="ALL"then
chats(counter)="《fontcolor=blue》"&usertime&"《/font》《fontcolor=black》"&username&"《/font》:《fontcolor=#0000aa》"&usersays&"《/font》《BR》《BR》"
else
chats(counter)="《fontcolor=blue》"&usertime&"《/font》《fontcolor=black》"&username&"《/font》《i》与《fontcolor=#00bb00》"&request.FORM("whoto")&"《/font》说《/i》:《fontcolor=#0000aa》"&usersays&"《/font》《BR》《BR》"
endif
case"叫唤"
chats(counter)="《fontcolor=blue》"&usertime&"《/font》《fontcolor=black》"&username&"《/font》《i》冲《fontcolor=#00bb00》"&request.FORM("whoto")&"《/font》大呼《/i》:《B》《fontcolor=#0000aa》"&usersays&"《/font》《/B》《BR》《BR》"
case"亲亲"
chats(counter)="《fontcolor=blue》"&usertime&"《/font》《fontcolor=black》"&username&"《/font》《i》亲了亲《fontcolor=#00bb00》"&request.FORM("whoto")&"《/font》的面颊《/i》:《fontcolor=#0000aa》"&usersays&"《/font》《BR》《BR》"
case"拥抱"
chats(counter)="《fontcolor=blue》"&usertime&"《/font》《fontcolor=black》"&username&"《/font》《i》悄悄的抱着《fontcolor=#00bb00》"&request.FORM("whoto")&"《/font》《/i》:《fontcolor=#0000aa》"&usersays&"《/font》《BR》《BR》"
case"暴怒"
chats(counter)="《fontcolor=blue》"&usertime&"《/font》《fontcolor=black》"&username&"《/font》《i》朝《fontcolor=#00bb00》"&request.FORM("whoto")&"《/font》横眉竖目道《/i》:《fontcolor=#0000aa》"&usersays&"《/font》《BR》《BR》"
case"轻推"
chats(counter)="《fontcolor=blue》"&usertime&"《/font》《fontcolor=black》"&username&"《/font》《i》悄悄地推了推《fontcolor=#00bb00》"&request.FORM("whoto")&"《/font》的胳膊《/i》:《fontcolor=#0000aa》"&usersays&"《/font》《BR》《BR》"
case"傻笑"
chats(counter)="《fontcolor=blue》"&usertime&"《/font》《fontcolor=black》"&username&"《/font》《i》傻兮兮的朝《fontcolor=#00bb00》"&request.FORM("whoto")&"《/font》笑笑《/i》:《fontcolor=#0000aa》"&usersays&"《/font》《BR》《BR》"
case"拳打"
chats(counter)="《fontcolor=blue》"&usertime&"</p>ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！ Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
页:
[1]