一个BBS的源代码五 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 一个BBS的源代码五

一个BBS的源代码五 时间：2004/10/7 19:04:00来源：本站整理作者：蓝点我要评论(0)

'=================================
Case "Modify"
'================================
' 修改文章

Which = Request("Which")
WhichID = GetID( Which )

If Left( Which , 1 ) = "E" Then Table = "bbs" Else Table = "bbsreply"

WrongMsg = ""

If Request("Modify") = "Yes" Then

Userid = Request("Userid")
Password = Request("Password")
Title = Trim(Request("Title"))
Content = Rtrim(Request("Content"))

If Title = "" Then WrongMsg = WrongMsg + "

题目不能为空。

If Content = "" Then WrongMsg = WrongMsg + "

内容不能为空。

If WrongMsg = "" Then

RecBBS.Open "SELECT [作者] FROM " & Table & " WHERE [序号]=" & WhichID , Con , 1

If RecBBS.Fields("作者") = Userid Then

SQL = "SELECT COUNT(*) FROM bbsmember WHERE [账号]='" & SqlStr(Userid) & "' AND [密码]='" & SqlStr(Password) & "'"

RecMember.Open SQL , Con , 1

If RecMember.Fields(0) > 0 Then

SQL = "UPDATE " & Table & " SET [题目]='" & SqlStr(Title) & "',[内容]='" & SqlStr(Content) & "' WHERE [序号]=" & WhichID

Con.Execute( SQL )

Else

WrongMsg = "

密码不正确。

End If

RecMember.Close

Else

WrongMsg = "

用户名不正确。

End If

RecBBS.Close

End If

Title = ""

Content = ""

SQL = "SELECT [题目],[内容] FROM " & Table & " WHERE [序号]=" & WhichID

RecBBS.Open SQL , Con , 1

If Not RecBBS.EOF Then

Title = RecBBS.Fields("题目")

Content = RecBBS.Fields("内容")

End If

RecBBS.Close

飞林庄->经验交流-><%=>
<% If WrongMsg <> "" Then %>

修改失败！

<%= wrongmsg="">

<% else="">

修改成功！

<% end="" if="">

账号：

密码：

题目：
<%= content=""></%=>

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

Case "Apply"

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

' 申请账号

飞林庄->经验交流->注册账号

必须的资料：

账号：

这是你的个人标识，可以使用中文或者英文。

密码：

为保障你的账号的正当权益，请谨慎选择你的密码！

重复密码：

确认你的密码。

电子邮件：

这是我们的唯一必须的个人资料。

<%
'

' 个人资料：

' 真实性名：

' 性别：
'男
'女

' 年龄：
'

'

' 联系方式：

' 省份：'北京'广东'广西'海南'福建'天津'湖南'湖北'河南'河北'山东'山西'黑龙江'辽宁'上海'甘肃'青海'新疆'西藏'宁夏'四川'云南'吉林'内蒙古'陕西'安徽'贵州'江苏'重庆'浙江'江西'

' ＩＣＱ：

' 公司/个人主页：
'

%>

文章评论

查看所有0条评论>>