繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个BBS的源代码(五)
- ASP
- 生成像资源管理器一样的树形目录
- 将连接数据库的代码隐藏在DLL中
- ASP中从数据库读取二进制文件数据代码
- asp查询xml的代码，实现了无刷新、模糊查询功能
- 一个asp函数， 解决SQL Injection漏洞
- 在ASP中利用COM组件开发Web应用程序
- 关于如何利用COM+，来提高ASP执行权限的问题!
- 升级MD5.ASP，打造完全动态不重复的安全加密代码
- ASP安全检测与过滤函数SafeCheck
- 在ASP中，用JScript脚本实现分页的另类办法
- 查看服务器Application/Session变量工具
- 自己写的一个简单ASP调用存储过程查询
- ASP登陆验证页应做的安全问题
- 使用ASP与javascript配合实现多个复选框数据关联显示
- Windows 2003下不注册组件用ASP发邮件
- 数据分页方法新思路，速度非常快！
- ASP程序中同一个用户不允许同时登陆两次
- 分栏显示记录集的表格演示，并实现了分页
- 关于Adodb.Stream的写数据库数据到客户端文件的实践
- 将ASP的Debug变得简单的两个函数
ASP 中的 一个BBS的源代码(五)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 89 ::
收藏到网摘: n/a
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>-><A href="<%= ASP_FILE_NAME %>">经验交流</A>-><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&g
评论 (0) All
