一个bbs的源代码_一个BBS的源代码六

2017-08-23 新闻资讯阅读：

<%
'=====================================
Case "Adduser"
'=====================================
' 添加用户
'==============

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

WrongMsg = ""

If Userid = "" Then WrongMsg = WrongMsg + "

账号为空。

If Password = "" Then WrongMsg = WrongMsg + "

密码为空。

If Confirm = "" Then WrongMsg = WrongMsg + "

重复密码为空。

If Email = "" Then WrongMsg = WrongMsg + "

邮件地址为空。

If WrongMsg = "" Then

If Password <> Confirm Then WrongMsg = WrongMsg + "

两次输入密码不相同。

If Not CheckEmail( Email ) Then WrongMsg = WrongMsg + "

非法邮件地址。

If WrongMsg = "" Then

SQL = "SELECT * FROM bbsmember WHERE [账号]='" & SqlStr(Userid) & "'"

RecMember.Open SQL , Con , 1

If RecMember.BOF AND RecMember.EOF Then UserExist = False Else UserExist = True

RecMember.Close

If Not UserExist Then

SQL = "INSERT INTO bbsmember ([账号],[密码],[邮件]) VALUES('" &_

SqlStr( Userid ) & "','" &_

SqlStr( Password ) & "','" &_

SqlStr( Email ) & "')"

Con.Execute( SQL )

Else

WrongMsg = WrongMsg + "

用户名已经存在。

End If

<%
If WrongMsg = "" Then ' 显示成功信息
%>
恭喜你！你已经成功注册！

返回“飞林庄”

?Job=List">返回“经验交流”

?Job=Write">发表文章

<%
Else ' 显示错误信息
%>
操作失败：

<%= wrongmsg="">

返回上一页
<%
End If
%>

'==============================

Case "Send"

'==============================

' 发送邮件

' （把文章发送到用户信箱）

'=============================

Which = Request("Which")

Email = Trim( Request("Email") )

一个bbs的源代码_一个BBS的源代码六

http://m.hzclsc.cn/anzhuo/1394.html

推荐访问: