欢迎光临爱时尚女性网
 

一个BBS的源代码(六)

2012-7-18 编辑:knwz 来源:爱时尚女性网 阅读次数:1179
  导读: 操作失败: 返回上一页 ...
<%
'=====================================
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


    End If


    End If


    %>







    <%






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


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


    %>



    文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

     
     
    链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
    Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
    本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。