ASP网页编程之一个收费的复杂谈天室源代码

只看该作者 · 发表于 2015-1-16 22:28:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。chat.html
<html>
<head><title>Chat</title></head>
<framesetrows="*,100">
<framesrc="chatopinions.asp">
<framesrc="chatform.asp">
</frameset>
</html>

chatopinions.asp
<html>
<head>
<METAHTTP-EQUIV=refreshcontent="5;URL=chatopinions.asp"></head>
<bodybgcolor=FFFFFF>
<center>
<tableborder=0width=350>
<tr><tdwidth=50>
<%=Application("A9")%></td><tdwidth=300><%=Application("B9")%>
</td></tr><tr><td>
<%=Application("A8")%></td><td><%=Application("B8")%>
</td></tr><tr><td>
<%=Application("A7")%></td><td><%=Application("B7")%>
</td></tr><tr><td>
<%=Application("A6")%></td><td><%=Application("B6")%>
</td></tr><tr><td>
<%=Application("A5")%></td><td><%=Application("B5")%>
</td></tr><tr><tdwidth=50>
<%=Application("A4")%></td><td><%=Application("B4")%>
</td></tr><tr><td>
<%=Application("A3")%></td><td><%=Application("B3")%>
</td></tr><tr><td>
<%=Application("A2")%></td><td><%=Application("B2")%>
</td></tr><tr><td>
<%=Application("A1")%></td><td><%=Application("B1")%>
</td></tr></table>
<tableborder=0width=350>
<tr><tdalign=right>
Getyourchatat<AREF="http://www.submitside.com">Submitside</A>:freescript.
</td></tr></table>
</center>
</body>
</html>

chatform.asp
<%
IfRequest.Form("Opinion")=""then
ShowForm()
else
ifSession("AA")=""then
NewUser()
GoAhead()
else
GoAhead()
endif
endif%>
<%SubShowForm()%>

<html><bodybgcolor=FFFFFF>
<center>
<formmethod=postaction=chatform.asp>
<tableborder=0><tr><td>
<%ifSession("AA")=""then%>
Choseanameornickname
<inputtype=textname=Namesize=20><BR>
Typeyouropinion
<%else%>
<%=Session("AA")%>
<%endif%>
<inputtype=textsize=60name=Opinionvalue="<%=request.form("Opinion")%>"><BR>
<inputtype=submitvalue="Submit">
</td><tr></table>
</form>
</center>
</body>
</html>

<%EndSub%>

<%SubGoAhead()%>

<%
BB=Request.form("Opinion")
BB=server.htmlencode(BB)

Application.Lock
Application("B1")=Application("B2")
Application("B2")=Application("B3")
Application("B3")=Application("B4")
Application("B4")=Application("B5")
Application("B5")=Application("B6")
Application("B6")=Application("B7")
Application("B7")=Application("B8")
Application("B8")=Application("B9")
Application("B9")=BB

Application("A1")=Application("A2")
Application("A2")=Application("A3")
Application("A3")=Application("A4")
Application("A4")=Application("A5")
Application("A5")=Application("A6")
Application("A6")=Application("A7")
Application("A7")=Application("A8")
Application("A8")=Application("A9")
Application("A9")=Session("AA")
Application.Unlock
%>

<html>
<head></head><bodybgcolor=FFFFFF>
<center>
<formmethod=postaction=chatform.asp>
<tableborder=0><tr><td>
<%=Session("AA")%><inputtype=textsize=60name=Opinion>
<BR><inputtype=submitvalue="Submit">
</td></tr></table>
</form>
</center>
</body>
</html>

<%EndSub%>

<%SubNewUser()%>
<%
AA=Request.form("Name")
AA=server.htmlencode(AA)
Session("AA")=AA
%>

<%EndSub%>
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。

只看该作者 · 发表于 2015-1-19 13:37:29

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

只看该作者 · 发表于 2015-1-24 21:05:25

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

只看该作者 · 发表于 2015-2-2 13:34:20

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

只看该作者 · 发表于 2015-2-7 21:43:25

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-2-23 12:24:50

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

只看该作者 · 发表于 2015-3-7 08:58:08

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

只看该作者 · 发表于 2015-3-14 16:33:48

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

只看该作者 · 发表于 2015-3-21 13:15:22

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页编程之一个收费的复杂谈天室源代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子