一个BBS的源代码(五)

2016-01-29 17:10 2 1 收藏

一个BBS的源代码(五),一个BBS的源代码(五)

【 tulaoshi.com - ASP 】

  '=================================
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 + "<DD<LI题目不能为空。</LI"
If Content = "" Then WrongMsg = WrongMsg + "<DD<LI内容不能为空。</LI"

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 = "<DD<LI密码不正确。</LI"
End If
RecMember.Close
Else
WrongMsg = "<DD<LI用户名不正确。</LI"
End If
RecBBS.Close
End If

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
%
<TABLE align=center border=0 cellPadding=1 cellSpacing=0 width=650
<TR
<TD class="menu"
<A href="/"飞林庄</A-&gt;<A href="<%= ASP_FILE_NAME %"经验交流</A-&gt;<A href="<%= ASP_FILE_NAME %?Job=Content&Which=<%= Session("BBS_Which") %"<%= Session("BBS_WhichTitle") %</A
<% If WrongMsg < "" Then %
<BR<BR修改失败!<BR<BR
<%= WrongMsg %<BR
<% Else %
<BR<BR修改成功!<BR<BR
<% End If %
<FORM action="<%= ASP_FILE_NAME %" method=post
<INPUT type=hidden name=Job value=Modify
<INPUT type=hidden name=Modify value=Yes
<INPUT type=hidden name=Which value="<%= Which %"
账号:<INPUT type=text id=Userid name=Userid size=30 maxlength=80<BR
密码:<INPUT type=password id=Password name=Password size=30 maxlength=80<BR<BR
题目:<INPUT type=text id=Title name=Title value="<%= Title %"
<TEXTAREA id=Content name=Content cols=80 rows=16<%= Content %</TEXTAREA<BR
<INPUT type=submit value="确认修改"
</FORM
</TD
</TR
</TABLE

<%
'===============================
Case "Apply"
'===============================
' 申请账号
%

<TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650
<TR
<TD class=menu
<FORM action="<%= ASP_FILE_NAME %" method=POST
<INPUT type=hidden name=Job value=Adduser
<P飞林庄-&gt;经验交流-&gt;注册账号</P
<P
必须的资料:<BR
<FONT color=#ff0000账号</FONT:
<INPUT id=Userid name=Userid size=40 maxLength=80<BR
这是你的个

来源:http://www.tulaoshi.com/n/20160129/1500553.html

延伸阅读
标签: Web开发
一个可以找出源代码中所有中文的工具 填写需要查找的路径$sf即可。 功能 1 找出所有中文 2 忽略注释语句中的中文 3 可添加需要忽略的文件和文件夹 4 生成日志文件 如果您正发愁为自己的软件更新语言包 请使用此工具。 我的例子: http://127.0.0.1/tools/searchcn.php http://127.0.0.1/tools/cnlog.txt 代...
标签: PHP
  okey.php主要处理用户登录和发布的信息处理 <? if ($username)                       //是否有用户信息 $useinfo=$username."|".$userpass; setcookie("FlyFoxNet",$useinfo,time(...
using System; using System.Windows.Forms; using System.Drawing; using System.Drawing.Drawing2D; using System.ComponentModel; namespace wzsbmain {  /// <summary  /// Summary description for LabelGradient.  /// </summary     public class wzsbmainLabel : System.Windows.Forms.Label &nbs...
标签: PHP
  其实写这几篇代码的时间不过近三天而已,事前即没有经过详细思考和计划(可以说一点计划都没有)那天想起做个论坛试试,于是就做起来了,而我也是才接触了将近一个月时间的PHP,以前也没真正写过程序之类的东东,在写这段代码的两天半时间里,有好几次遇到困难,都想放弃,但是我还是写出来了,而且没想到居然能用,所以中间可能有很多...
标签: Web开发
New Document aa aa aa

经验教程

104

收藏

57
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部