仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 429|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计一个BBS的源代码(六)

[复制链接]
老尸 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:32:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。源代码<%
==================================================================================================
Case"Adduser"
==================================================================================================
增加用户
==============

Userid=Trim(Request("Userid"))
Password=Trim(Request("Password"))
Confirm=Trim(Request("Confirm"))
Email=Trim(Request("Email"))

WrongMsg=""

IfUserid=""ThenWrongMsg=WrongMsg+"<DD><LI>账号为空。</LI>"
IfPassword=""ThenWrongMsg=WrongMsg+"<DD><LI>暗码为空。</LI>"
IfConfirm=""ThenWrongMsg=WrongMsg+"<DD><LI>反复暗码为空。</LI>"
IfEmail=""ThenWrongMsg=WrongMsg+"<DD><LI>邮件地点为空。</LI>"

IfWrongMsg=""Then

IfPasswordConfirmThenWrongMsg=WrongMsg+"<DD><LI>两次输出暗码不不异。</LI>"
IfNotCheckEmail(Email)ThenWrongMsg=WrongMsg+"<DD><LI>不法邮件地点。</LI>"

IfWrongMsg=""Then
SQL="SELECT*FROMbbsmemberWHERE[账号]="&SqlStr(Userid)&""
RecMember.OpenSQL,Con,1
IfRecMember.BOFANDRecMember.EOFThenUserExist=FalseElseUserExist=True
RecMember.Close

IfNotUserExistThen
SQL="INSERTINTObbsmember([账号],[暗码],[邮件])VALUES("&_
SqlStr(Userid)&","&_
SqlStr(Password)&","&_
SqlStr(Email)&")"
Con.Execute(SQL)
Else
WrongMsg=WrongMsg+"<DD><LI>用户名已存在。</LI>"
EndIf

EndIf

EndIf

%>
<TABLEalign=centerborder=0cellPadding=7cellSpacing=0width=650>
<TR>
<TDclass=menu>
<%
IfWrongMsg=""Then显现乐成信息
%>
祝贺你!你已乐成注册!<BR><BR>
<Ahref="/">前往“飞林庄”</A><BR>
<Ahref="<%=ASP_FILE_NAME%>?Job=List">前往“履历交换”</A><BR>
<Ahref="<%=ASP_FILE_NAME%>?Job=Write">宣布文章</A><BR>
<%
Else显现毛病信息
%>
操纵失利:<BR>
<%=WrongMsg%><BR><BR>
<Ahref="javascript:history.back()">前往上一页</A>
<%
EndIf
%>
</TD>
</TR>
</TABLE>

<%



==================================================================================================
Case"Send"
==================================================================================================
发送邮件
(把文章发送到用户信箱)
=============================

Which=Request("Which")
Email=Trim(Request("Email"))

%>
<TABLEalign=centerborder=0cellPadding=7cellSpacing=0width=650>
<TR>
<TD
</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的
只想知道 该用户已被删除
沙发
发表于 2015-1-20 09:48:30 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
兰色精灵 该用户已被删除
板凳
发表于 2015-1-29 06:38:40 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
分手快乐 该用户已被删除
地板
发表于 2015-2-2 21:55:56 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
谁可相欹 该用户已被删除
5#
发表于 2015-2-8 08:08:48 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
admin 该用户已被删除
6#
发表于 2015-2-25 01:53:50 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
若相依 该用户已被删除
7#
发表于 2015-3-7 15:17:49 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
海妖 该用户已被删除
8#
发表于 2015-3-15 08:46:25 | 只看该作者
那么,ASP.Net有哪些改进呢?
活着的死人 该用户已被删除
9#
发表于 2015-3-21 22:02:11 | 只看该作者
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-26 00:56

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表