仓酷云

标题: ASP网页设计一个BBS的源代码(六) [打印本页]

作者: 老尸 时间: 2015-1-16 23:32
标题: ASP网页设计一个BBS的源代码(六)
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显现乐成信息
%>
祝贺你！你已乐成注册！ 
<Ahref="/">前往“飞林庄”</A> 
<Ahref="<%=ASP_FILE_NAME%>?Job=List">前往“履历交换”</A> 
<Ahref="<%=ASP_FILE_NAME%>?Job=Write">宣布文章</A> 
<%
Else显现毛病信息
%>
操纵失利： 
<%=WrongMsg%> 
<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
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的

作者: 只想知道 时间: 2015-1-20 09:48
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 兰色精灵 时间: 2015-1-29 06:38
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 分手快乐 时间: 2015-2-2 21:55
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 谁可相欹 时间: 2015-2-8 08:08
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

作者: admin 时间: 2015-2-25 01:53
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

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

作者: 海妖 时间: 2015-3-15 08:46
那么，ASP.Net有哪些改进呢？

作者: 活着的死人 时间: 2015-3-21 22:02
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

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