一个BBS的源代码(五)-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

一个BBS的源代码(五)
\\\'=================================
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>
<TD class=menu>
<FORM action="<%= ASP_FILE_NAME %>" method=POST>
<INPUT type=hidden name=Job value=Adduser>
<P>飞林庄->经验交流->注册账号</P>
<P>
必须的资料：<BR>
<FONT color=#ff0000>账号</FONT>：
<INPUT id=Userid name=Userid size=40 maxLength=80><BR>
这是你的个人标识，可以使用中文或者英文。<BR>
<FONT color=#ff0000>密码</FONT>：
<INPUT id=Password name=Password type=password maxLength=80 size=25><BR>
为保障你的账号的正当权益，请谨慎选择你的密码！<BR>
<FONT color=#ff0000>重复密码</FONT>：
<INPUT id=Confirm name=Confirm type=password maxLength=80 size=25><BR>
确认你的密码。<BR>
<FONT color=#ff0000>电子邮件</FONT>：
<INPUT id=Email name=Email size=60 maxlength=80><BR>
这是我们的唯一必须的个人资料。
</P>
<%
\\\' <P>
\\\' 个人资料：<BR>
\\\' 真实性名：<INPUT id=Username maxLength=80 name=Username><BR>
\\\' 性别：
\\\' <INPUT id=Sex name=Sex type=radio value=男>男
\\\' <INPUT id=Sex name=Sex type=radio value=女>女<BR>
\\\' 年龄： <INPUT id=Age name=Age size=3 maxlength=4>
\\\' </P>
\\\' <P>
\\\' 联系方法：<BR>
\\\' 省份：<SELECT id=Province name=Province size=1>
\\\' <OPTION value="北京" selected> 北京 </OPTION>
\\\' <OPTION value="北京"> 广东 </OPTION>
\\\' <OPTION value="广西"> 广西 </OPTION>
\\\' <OPTION value="海南"> 海南 </OPTION>
\\\' <OPTION value="福建"> 福建 </OPTION>
\\\' <OPTION value="天津"> 天津 </OPTION>
\\\' <OPTION value="湖南"> 湖南 </OPTION>
\\\' <OPTION value="湖北"> 湖北 </OPTION>
\\\' <OPTION value="河南"> 河南 </OPTION>
\\\' <OPTION value="河北"> 河北 </OPTION>
\\\' <OPTION value="山东"> 山东 </OPTION>
\\\' <OPTION value="山西"> 山西 </OPTION>
\\\' <OPTION value="黑龙江"> 黑龙江 </OPTION>
\\\' <OPTION value="辽宁"> 辽宁 </OPTION>
\\\' <OPTION value="上海"> 上海 </OPTION>
\\\' <OPTION value="甘肃"> 甘肃 </OPTION>
\\\' <OPTION value="青海"> 青海 </OPTION>
\\\' <OPTION value="新疆"> 新疆 </OPTION>
\\\' <OPTION value="西藏"> 西藏 </OPTION>
\\\' <OPTION value="宁夏"> 宁夏 </OPTION>
\\\' <OPTION value="四川"> 四川 </OPTION>
\\\' <OPTION value="云南"> 云南 </OPTION>
\\\' <OPTION value="吉林"> 吉林 </OPTION>
\\\' <OPTION value="内蒙古"> 内蒙古 </OPTION>
\\\' <OPTION value="陕西"> 陕西 </OPTION>
\\\' <OPTION value="安徽"> 安徽 </OPTION>
\\\' <OPTION value="贵州"> 贵州 </OPTION>
\\\' <OPTION value="江苏"> 江苏 </OPTION>
\\\' <OPTION value="重庆"> 重庆 </OPTION>
\\\' <OPTION value="浙江"> 浙江 </OPTION>
\\\' <OPTION value="江西"> 江西 </OPTION>
\\\' </SELECT><BR>
\\\' ＩＣＱ：<INPUT id=ICQ maxLength=80 name=ICQ size=30><BR>
\\\' 公司/个人主页：<INPUT id=Homepage name=Homepage maxLength=80 size=60>
\\\' </P>
%>
<P>
<INPUT id=submit4 name=submit4 type=submit value=" 我填好了！"><BR>
<INPUT id=reset2 name=reset2 type=reset value=" 我要重新填！ "><BR>
</P>
</FORM>
</TD>
</TR>
</TABLE>

返回类别: 教程
上一教程: 用ASP做一个记事本编缉器
下一教程: ASPJPEG组件高级使用方式介绍

您可以阅读与"一个BBS的源代码(五)"相关的教程:
· 一个BBS的源代码(四)
· 一个BBS的源代码(三)
· 一个BBS的源代码(一)
· 一个BBS的源代码(二)
· 一个BBS的源代码(六)


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接