 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'============================== Case "Write" \\\'============================== \\\' 发表文章 %> <TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650> <TR> <TD class=menu> <P><A href="/">飞林庄</A>-><A href="<%= ASP_FILE_NAME %>">经验交流</A></P> <FORM action="<%= ASP_FILE_NAME %>" id=FORM1 method=post name=FORM1> <INPUT type=hidden name=Job value=Add> 账号：<INPUT id=Userid maxLength=30 name=Userid size=30> 密码：<INPUT id=Password name=Password type=password><BR> 题目：<INPUT id=Title maxLength=80 name=Title size=72><BR> <TEXTAREA cols=80 id=Content name=Content rows=20></TEXTAREA><BR> <INPUT id=Mailme name=Mailme value=Yes type=checkbox style="BORDER-BOTTOM: #f0f0d0; BORDER-LEFT: #f0f0d0; BORDER-RIGHT: #f0f0d0; BORDER-TOP: #f0f0d0">有回复时发邮件通知我 <INPUT type=submit value=" 发 表 "> <INPUT type=reset value=" 重 写 "> </FORM> </TD> </TR> </TABLE> <% \\\'================================ Case "Add","Reply" \\\'================================ \\\' 把文章加进数据库 \\\' 检查数据 Userid = Trim(Request("Userid")) Password = Trim(Request("Password")) Title = Trim(Request("Title")) Content = Rtrim(Request("Content")) If Request("Mailme") = "Yes" Then Mailme = 1 Else Mailme = 0 WrongMsg = "" If Userid = "" Then WrongMsg = WrongMsg + "<DD><LI>请输入你的账号。" If Password = "" Then WrongMsg = WrongMsg + "<DD><LI>请输入你的密码。" If Title = "" Then WrongMsg = WrongMsg + "<DD><LI>请输入文章题目。" If Content = "" Then WrongMsg = WrongMsg + "<DD><LI>请输入内容。" If WrongMsg = "" Then Userid = SqlStr( Userid ) Password = SqlStr( Password ) Title = SqlStr( Title ) Content = SqlStr( Content ) \\\' 检察账号与密码 SQL = "SELECT COUNT(*) FROM bbsmember WHERE [账号]=\\\'" & Userid & "\\\' AND [密码]=\\\'" & Password & "\\\'" RecMember.Open SQL , Con , 1 If RecMember.Fields(0).Value = 0 Then MemberExist = True Else MemberExist = False RecMember.Close If MemberExist Then WrongMsg = WrongMsg + "<DD><LI>用户名不存在或者密码不对。" Else \\\' 加进数据库 If Job = "Add" Then SQL = "INSERT INTO bbs ([作者],[题目],[内容],[邮件通知]) VALUES(\\\'" &_ SqlStr( Userid ) & "\\\',\\\'" &_ SqlStr( Title ) & "\\\',\\\'" &_ SqlStr( Content ) & "\\\'," &_ Mailme & ")" Else \\\' 回复文章数加一 Con.Execute( "UPDATE bbs SET [回复]=[回复]+1 WHERE [序号]=" & Session("BBS_Which") ) \\\' \\\' 邮件通知原作者 \\\' SQL = "SELECT [题目],[时间],[邮件通知] FROM bbs WHERE [序号]=" & Session("BBS_Which") RecBBS.Open SQL , Con , 1 If RecBBS.Fields("邮件通知") Then FirstTitle = RecBBS.Fields("题目") WriteTime = RecBBS.Fields("时间") 返回类别: 教程 上一教程: 改MDB为ASP就能防下载技术的探讨 下一教程: XMLHTTP组件获取远程文件并筛选出目标数据 您可以阅读与"一个BBS的源代码(四)"相关的教程: · 一个BBS的源代码(五) · 一个BBS的源代码(二) · 一个BBS的源代码(一) · 一个BBS的源代码(六) · 一个BBS的源代码(三) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
