|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 |
|