——知识改变命运 行动改变结果——
北斗影视传媒工作室
BBS 的框架结构
总体说明: 总体说明: 说明 的发文功能,需要建立如下的网页框架: 一,要实现 BBS 的发文功能,需要建立如下的网页框架: Index.asp 网站的首页 Password.asp 用户登录页面 Check.asp 密码和账户信息的验证页面 Add.asp 信息发表页面 Add_save.asp 信息保存页面 Show.asp 信息展示页面 Conn.asp 数据库连接文件
ADOVBS.INC
系统自带文件
作者:罗恒平
的数据库, 的文件夹下. 二,需要建立名为 BBS 的数据库,并置于名为 date 的文件夹下.数据库中应包含如下表 表:bbs 用于存储由 add.asp 提交来的信息 (根据需要还可以添加其他字段) 关键字段 id 关键字段 Id 文章标题 Title 账号 Name 发文作者 Author 密码 password 发文时间 Time 内容 content
表:pwd 用来设置管理员的账号和密码信息
(根据网页要实现的功能,还可以添加其他的表,视功能而定) 文件, 三,需要用到数据库连接文件 conn.asp 和 ADO
VBS.INC 文件,这两个文件放在名为 inc 的 需要用到数据库连接文件 文件夹下. 文件夹下.
代码解析 代码: 一,index.asp 中的 asp 代码:
第一部分:
代码解析 网页 ASP 代码解析
说明:此代码放置代码视图中代码的首行
第二部分:说明:此代码应放置在(在设计视图中)功能展示区. <% Dim strSQL,objRS strSQL = "SELECT * FROM bbs order by time desc" Set objRS=server.CreateObject("adodb.recordset") objRS.open strSQL,Conn,1,1'打开记录集 打开记录集
dim pages,allpages,page pages = 20 '定义每页显示的纪录数. 定义每页显示的纪录数. 定义每页显示的纪录数 objRS.pagesize = pages '定义每页显示的纪录数. 定义每页显示的纪录数. 定义每页显示的纪录数 allpages = objRS.pagecount '计算一共能分多少页 计算一共能分多少页
——知识改变命运 行动改变结果——
北斗影视传媒工作室
page = Request.QueryString("page")'通过浏览器传递的页数 通过浏览器传递的页数 'if 语句属于基本的排错处理 if isEmpty(page) or Cint(page) < 1 then page = 1 elseif Cint(page) > allPages then page = allPages end if objRS.AbsolutePage = page
if objRS.eof then response.Write("没有信息 没有信息~~") 没有信息 else Do while not objRS.eof and pages > 0 response.Write("
") pages = pages-1 objRS.movenext loop end if
objRS.movefirst Response.Write "
g=0 align=center>" Response.Write "" dim j for j = 1 to allpages Response.Write "["&;j&;"]&;nbsp; | " objRS.movenext next Response.Write "
" Response.Write "
" objRS.close set objRS = nothing call closeconn() %>
——知识改变命运 行动改变结果——
北斗影视传媒工作室
二,password.asp 的 ASP 代码解析
此部分在
设计视图中,应该是建立名为 myform 的表单,并在表单中放入文本域和提交按钮,此处文 本域的命名应该与数据库 BBS 中的 pwd 表中的字段相一致.特别要说明一点:表单 myform 在属性面板中 的动作要指向 check.asp 页面,当然,这个设置在代码中也会体现出来的. 第一部分:在 head 与 body 之间输入此代码 第二部分:在 ti