📄 一个bbs的源代码.txt

📁 用纯ＡＳＰ代码实现图片上传并存入数据库中
💻 TXT
📖 第 1 页 / 共 2 页
字号:
上一页 12
</TABLE>


<%

一个BBS的源代码(四)    


--------------------------------------------------------------------------------

 【menu】 于 2000-2-2 10:45:20 加贴在 Joy ASP ↑：

'==================================================================================================
Case "Write"
'==================================================================================================
' 发表文章

%>

<TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650>
<TR>
<TD class=menu>
<P><A href="/">飞林庄</A>-&gt;<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("时间")

' 取得原作者邮件地址
SQL = "SELECT [邮件] FROM bbsmember WHERE [账号]='" & SqlStr(Userid) & "'"
RecMember.Open SQL , Con , 1
If Not RecMember.EOF Then
Email = RecMember.Fields("邮件")
If CheckEmail( Email ) Then
' 发出通知邮件（邮件使用HTML）

' 邮件内容
EmailContent = "" &_
"<HTML><HEAD><TITLE>回复通知</TITLE></HEAD><BODY style='font-size:9pt'>" & Chr(13) &_
"<PRE>" & Chr(13) &_
"敬爱的用户：" & Chr(13) & Chr(13) & _
" 你于" & WriteTime & "在<A href=""http://asp.gbsource.net/asp/bbs/" & ASP_FILE_NAME & """>飞林庄“经验交流”</A>里发表文章：" &_
FirstTitle & "。" & Chr(13) & Chr(13) &_
" 用户" & Userid & "于<U>" & Now() & "</U>回复你的文章。" & Chr(13) & Chr(13) & Chr(13) & Chr(13) &_
"_____________________________________________________________" & Chr(13) & Chr(13) &_
"回复如下：" & Chr(13) & Chr(13) &_
"<B>题目</B>：" & Title & Chr(13) &_
"<B>内容</B>：" & Chr(13) &_
Server.HTMLEncode( Content ) &_
"</PRE>" & Chr(13) &_
"<BR><BR><A href=""http://www.gbsource.net"">华源网络</A> . <A href=""http://asp.gbsource.net"">飞林庄</A>" & Chr(13) &_
"</BODY></HTML>" & Chr(13)

' 发出
Set NewMail = Server.CreateObject("CDONTS.NewMail")
NewMail.BodyFormat = 0
NewMail.MailFormat = 0
NewMail.To = Email
NewMail.From = "asp@gbsource.net"
NewMail.Subject = "回复通知——飞林庄"
NewMail.Body = EmailContent
NewMail.Send
Set NewMail = Nothing

End If
End If
RecMember.Close

End If
RecBBS.Close

SQL = "INSERT INTO bbsreply ([原文],[作者],[题目],[内容]) VALUES(" &_
Session("BBS_Which") & ",'" &_
SqlStr( Userid ) & "','" &_
SqlStr( Title ) & "','" &_
SqlStr( Content ) & "')"
End If

Con.Execute( SQL )

' 作者发表文章数加一
Con.Execute( "UPDATE bbsmember SET [文章数]=[文章数]+1 WHERE [账号]='" & SqlStr(Userid) & "'" )

End If

End If

%>
<TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650>
<TR>
<TD class=menu>
<%
If WrongMsg = "" Then ' 显示成功信息
%>
操作成功！<BR><BR>
<% If Job = "Reply" Then %>
<A href="<%= ASP_FILE_NAME %>?Job=Content&Which=<%= Session("BBS_Which") %>">返回</A>
<% Else %>
<A href="<%= ASP_FILE_NAME %>?Job=List">返回</A>
<% End If %>
<%
Else ' 显示错误信息
%>
操作失败：<BR>
<%= WrongMsg %>
<BR><BR>
<A href="javascript:history.back()">返回上一页</A>
<%
End If
%>
</TD>
</TR>
</TABLE>

<%
一个BBS的源代码(五)    


--------------------------------------------------------------------------------

 【menu】 于 2000-2-2 10:46:27 加贴在 Joy 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>
这是你的个人标识，可以使用中文或者英文。<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>


一个BBS的源代码(六)    


--------------------------------------------------------------------------------

 【menu】 于 2000-2-2 10:47:13 加贴在 Joy ASP ↑：

<%
'==================================================================================================
Case "Adduser"
'==================================================================================================
' 添加用户
'==============

Userid = Trim(Request("Userid"))
Password = Trim(Request("Password"))
Confirm = Trim(Request("Confirm"))
Email = Trim(Request("Email"))

WrongMsg = ""

If Userid = "" Then WrongMsg = WrongMsg + "<DD><LI>账号为空。</LI>"
If Password = "" Then WrongMsg = WrongMsg + "<DD><LI>密码为空。</LI>"
If Confirm = "" Then WrongMsg = WrongMsg + "<DD><LI>重复密码为空。</LI>"
If Email = "" Then WrongMsg = WrongMsg + "<DD><LI>邮件地址为空。</LI>"

If WrongMsg = "" Then

If Password <> Confirm Then WrongMsg = WrongMsg + "<DD><LI>两次输入密码不相同。</LI>"
If Not CheckEmail( Email ) Then WrongMsg = WrongMsg + "<DD><LI>非法邮件地址。</LI>"

If WrongMsg = "" Then
SQL = "SELECT * FROM bbsmember WHERE [账号]='" & SqlStr(Userid) & "'"
RecMember.Open SQL , Con , 1
If RecMember.BOF AND RecMember.EOF Then UserExist = False Else UserExist = True
RecMember.Close

If Not UserExist Then
SQL = "INSERT INTO bbsmember ([账号],[密码],[邮件]) VALUES('" &_
SqlStr( Userid ) & "','" &_
SqlStr( Password ) & "','" &_
SqlStr( Email ) & "')"
Con.Execute( SQL )
Else
WrongMsg = WrongMsg + "<DD><LI>用户名已经存在。</LI>"
End If

End If

End If

%>
<TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650>
<TR>
<TD class=menu>
<%
If WrongMsg = "" Then ' 显示成功信息
%>
恭喜你！你已经成功注册！<BR><BR>
<A href="/">返回“飞林庄”</A><BR>
<A href="<%= ASP_FILE_NAME %>?Job=List">返回“经验交流”</A><BR>
<A href="<%= ASP_FILE_NAME %>?Job=Write">发表文章</A><BR>
<%
Else ' 显示错误信息
%>
操作失败：<BR>
<%= WrongMsg %><BR><BR>
<A href="javascript:history.back()">返回上一页</A>
<%
End If
%>
</TD>
</TR>
</TABLE>

<%



'==================================================================================================
Case "Send"
'==================================================================================================
' 发送邮件
' （把文章发送到用户信箱）
'=============================

Which = Request("Which")
Email = Trim( Request("Email") )

%>
<TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650>
<TR>
<TD
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -