仓酷云

标题: ASP网页设计革新帧，文件名fresh.asp [打印本页]

作者: 仓酷云 时间: 2015-1-16 23:32
标题: ASP网页设计革新帧，文件名fresh.asp
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。革新|文件名革新帧：文件名fresh.asp

<%
OptionExplicit
dimmsg,tmsg,ws,action,user,whoto,tcolor,kicklist,chatpoin,chatcomm,chatdata,sendid,i,reciid
dimtsecretly,thidename,dispstr,tchatpoin,tuserpoin,tchatcomm,j

dimsendname,address1,reciname
user=request("user")
whoto=request.form("whoto")
tmsg=request.form("SAYS")
tmsg=replace(tmsg,"","")
tmsg=replace(tmsg,",",",")
tmsg=replace(tmsg,"<","<")屏障一切的Html标志
tmsg=replace(tmsg,"<img","<img")摊开<img标志
tmsg=replace(tmsg,"<b","<b")摊开<b标志
ifrequest.form("ws")="on"then
ws=true
else
ws=false
endif

kicklist=application("kicklist")
是不是被踢用户
ifinstr(kicklist,"#"&user&"")>0then
response.write"<script>parent.top.location=kickout.htm;</script>"
response.end
endif
ifinstr(kicklist,""&Request.ServerVariables("remote_addr")&"")>0then
response.write"<script>parent.top.location=kickout.htm;</script>"
endif
chatpoin=application("chatpoin")谈天室指针
chatcomm=application("chatcomm")谈天室内容
chatdata=application("chatdata")谈天室用户数据
sendid=-1
reciid=-1
fori=0to50
ifchatdata(i,0)=userandchatdata(i,1)=Request.ServerVariables("remote_addr")thensendid=i注重，在些反省IP地点，防备被穿墙
ifchatdata(i,0)=whotothenreciid=i
next
ifsendid=-1then
response.write"用户没有进进谈天室"
response.end
endif
chatdata(sendid,4)=(chatdata(sendid,4)mod104)置标记，防备被主动踢出谈天室
msg=right(time,8)&","&user&","&request.form("action")&","&whoto&","&request.form("color")
ifwsthen
msg=msg&",1"
else
msg=msg&",0"
endif
msg=""&msg&","&tmsg
ifreciid=-1andwhoto"一切人"thenws=true:reciid=sendid:msg=msg&"<fontcolor=red>("&whoto&"不在此谈天室）</font>"
msg=msg&"<br>"
iftmsg""then
ifwsthen私语
ifwhoto"一切人"thenchatdata(sendid,3)=chatdata(sendid,3)&msg
ifreciid-1andsendidreciidthenchatdata(reciid,3)=chatdata(reciid,3)&msg
application.lock
application("chatdata")=chatdata
application.unlock
endif
ifnotwsorwsandwhoto="一切人"then属于全体人的数据
ifchatpoin=49then
chatpoin=0数组转头，轮回挪用
callcheckname
else
chatpoin=chatpoin+1
endif
chatcomm(chatpoin)=msg将内容写进application内
application.lock
application("chatcomm")=chatcomm
application("chatpoin")=chatpoin
application.unlock
endif
endif

%><metahttp-equiv="refresh"content="3;URL=refresh.asp?user=<%=user%>"><%
tsecretly=chatdata(sendid,3)取私聊内容
thidename=chatdata(sendid,5)取埋没名单
dimtmpstr
iftsecretly""then显现私聊内容
response.writethidename
dispstr=""
dimtemps
tsecretly=split(tsecretly,"<br>")
fori=0toubound(tsecretly)-1
tmpstr=split(tsecretly(i),",")
ifinstr(thidename,","&tmpstr(3)&"")<1thendispstr=dispstr&","&replace(tsecretly(i),"<br>","")
next
chatdata(sendid,3)=""清空私聊内容
endif

tuserpoin=chatdata(sendid,2)用户指针
tchatpoin=chatpoin
</p>帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。

作者: 简单生活 时间: 2015-1-20 09:47
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 飘灵儿 时间: 2015-1-20 22:50
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 透明 时间: 2015-1-25 16:50
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

作者: 灵魂腐蚀 时间: 2015-1-26 14:03
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 山那边是海 时间: 2015-2-4 15:02
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: admin 时间: 2015-2-10 02:08
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 仓酷云 时间: 2015-2-28 14:49
ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

作者: 莫相离 时间: 2015-3-9 23:51
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 金色的骷髅 时间: 2015-3-17 03:09
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

欢迎光临仓酷云 (http://ckuyun.com/)