BBS论坛Word格式.docx
- 文档编号:21339450
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:35
- 大小:108.63KB
BBS论坛Word格式.docx
《BBS论坛Word格式.docx》由会员分享,可在线阅读,更多相关《BBS论坛Word格式.docx(35页珍藏版)》请在冰豆网上搜索。
强制声明变量%>
!
--#IncludeFile="
odbc_connection.asp"
-->
config.asp"
html>
head>
<
title>
bbs论坛<
/title>
metahttp-equiv="
Content-Type"
content="
text/html;
charset=gb2312"
>
linkrel="
stylesheet"
type="
text/css"
href="
bbs.css"
>
scriptlanguage="
JAVASCRIPT"
functioncheck_Null(){
if(document.frmReg.txtUserId.value=="
"
){
alert("
用户名不能为空!
);
returnfalse;
}
if(document.frmReg.txtPwd.value=="
密码不能为空!
returntrue;
}
/script>
/head>
body>
h1align="
center"
fontface="
黑体"
%=conBBSTitle%>
/font>
/h1>
formname="
frmReg"
method="
POST"
action="
log_in.asp"
onSubmit="
Javascript:
returncheck_Null();
tablewidth='
100%'
border='
1'
bordercolorlight='
#80BFFF'
bgcolor='
#E1F3F4'
bordercolordark='
cellspacing='
0'
cellpadding='
align='
center'
<
trbgcolor="
#E1F3F4"
height="
40"
<
tdvalign="
middle"
<
%IfSession("
strUserId"
)<
Then%>
已登录用户<
inputtype="
text"
name="
txtUserId"
size="
15"
value="
%=Session("
)%>
disabled>
<
ahref="
log_out.asp"
【注销】<
/a>
log_updatePWD.asp"
【修改密码】<
log_update.asp"
【修改个人信息】<
%Else%>
用户名<
密码<
PassWord"
txtPwd"
submit"
登录"
button"
注册"
onClick="
window.open('
log_register1.asp'
'
_self'
)"
%EndIf%>
/td>
/tr>
/table>
/form>
br>
#C5EDE7"
30"
align="
tdwidth="
20%"
&
nbsp;
40%"
论坛栏目<
文章数<
%
'
以下建立记录集对象实例rs
Dimrs,strSql
strSql="
Select*FromtbForum"
Setrs=conn.Execute(strSql)
下面利用循环输出所有栏目,其中I变量用来顺序显示图片
DimI
DoWhileNotrs.Eof
I=I+1
Response.Write"
trheight='
60'
valign='
middle'
td>
ahref='
bbs_list.asp?
intForumId="
&
rs("
ID"
)&
"
'
imgsrc='
images/"
I&
.gif'
strForumName"
lngForumCount"
rS.MoveNext
Loop
关闭对象
rs.Close
Setrs=Nothing
conn.Close
Setconn=Nothing
%>
/body>
/html>
2)BBS列表页bbs_list.asp
%OptionExplicit%>
function.asp"
下面一段分别获取本页面需要的两个变量,首先获取论坛栏目编号变量---------------------------
DimintForumId
intForumId=CInt(Request.QueryString("
intForumId"
))'
获取传递过来的论坛编号
'
获取数据页码变量
DimintPage
IfRequest.QueryString("
intPage"
Then
intPage=CInt(Request.QueryString("
))'
获取传递过来的页码,转换为数字
Else
intPage=1'
其他情况下设为1,当从首页过来或发表文章后就设为1
EndIf
下面输出发表文章和返回首页的超链接---------------------------------------------------
Response.Write"
bbs_insert.asp?
intForumId&
【发表文章】<
index.asp'
【返回论坛】<
p>
'
为了美观,输出一个空行
下面首先输出表格的标题栏-----------------------------------------------------------------
trbgcolor='
#C5EDE7'
height='
30'
thwidth='
5%'
编号<
/th>
55%'
主题<
点击<
回复<
20%'
发表时间<
10%'
作者<
下面建立记录集实例rs,请注意Open方法的参数-----------------------------------------------
Dimrs,strSql
strSql="
Select*FromtbBBSWhereintForumId="
AndintLayer=1OrderBydtmSubmitDesc"
Setrs=Server.CreateObject("
ADODB.Recordset"
)
rs.OpenstrSql,conn,1'
因为要分页显示,所以用键盘指针
下面如果非空就显示记录
IfNotrs.BofAndNotrs.EofThen
以下主要为了分页显示
rs.PageSize=conPageSize'
设置每页显示多少条记录,从配置文件中读取
rs.AbsolutePage=intPage'
设置当前显示第几页
下面利用循环显示当前页的所有记录
ForI=1Tors.PageSize'
循环输出当前页的所有记录
Ifrs.EofThenExitFor'
如果到了记录集结尾,就跳出循环
tdalign='
left'
bbs_particular.asp?
ID="
intPage="
intPage&
myHTMLEncode(rs("
strTitle"
))&
intHits"
intChild"
dtmSubmit"
mailto:
strEmail"
Next
下面输出表格的结束标记,表格到此结束
Response.Write"
下面输出当前页和总页数--------------------------------------------------------------------------
palign='
right'
当前显示第"
页/共"
rs.PageCount&
页"
下面一段依次输出第1页、上一页、下一页和最后页的超链接
intPage=1&
【第1页】<
IfintPage>
1Then
(intPage-1)&
【上一页】<
Else
【上一页】"
EndIf
IfintPage<
rs.PageCountThen
(intPage+1)&
【下一页】<
【下一页】"
【最后页】<
rs.Close
Setrs=Nothing
conn.Close
Setconn=Nothing
%>
3)发表新文章页bbs_insert.asp
%optionexplicit%>
--#Includefile="
linkhref="
rel="
JavaScript"
--
if(document.frmInsert.txtTitle.value=="
主题不能为空!
if(document.frmInsert.txtUserId.value=="
//-->
发表文章<
frmInsert"
javascript:
tableborder="
0"
width="
80%"
cellspacing="
cellpadding="
class="
s2"
tr>
文章主题:
txtTitle"
50"
文章内容:
textarearows="
10"
txtBody"
cols="
60"
/textarea>
用户名:
--注释:
下面根据是否已经登录显示不同的用户名,如没有登录,则为“过客”-->
20"
过客"
E-mail:
txtEmail"
tdcolspan="
2"
这里用隐藏文本框将intForumId变量传递了过去-->
hidden"
txtForumId"
%=Request.QueryString("
确定提交"
返回论坛"
history.back();
如果提交了表单,就执行下面的添加语句
IfTrim(Request.Form("
))<
DimstrTitle,strBody,intLayer,intFatherId,intChild,intHits,strIP,strUserId,strEmail,intForumId
strTitle=myDangerEncode(Trim(Request.Form("
)))'
返回文章标题
strBody=myDangerEncode(Request.Form("
))'
返回文章内容
IfSession("
strUserId=Session("
)'
返回作者用户名
strUserId="
'
如果是未登录用户,则统一命名为过客
strEmail=myDangerEncode(Request.Form("
返回作者E-mail
intForumId=Request.Form("
)'
获取隐藏文本框传递回来的栏目编号
intLay
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- BBS 论坛