你会一种语言就可以省力的多了作者: 泡个帅滴上床 时间: 2010-1-18 00:06
bbs表
bbs_id自动编号
..
..
reply_id 标识'0'为主题,非0就写入对应该的主题号bbs_id
发表主题
rs.addnew
..
..
rs("reply_id")=0
rs.update
rs.close
set rs=nothing
回复主题
rs.addnew
...
...
rs("reply_id")=request.querystring("bbs_id")
rs.update
rs.close
set rs=nothing
检索主题
sql="select * from bbs where reply_id=0 order by bbs_id desc"
检索对应的回复
sql="select * from bbs where reply_id="&rs("bbs_id")&" order by bbs_id desc"作者: 渴望光明 时间: 2010-1-18 00:06
无根泉大哥。不行喔---------------------你的回复主题 rs.addnew ... ... rs("reply_id")=request.querystring("bbs_id") rs.update rs.close set rs=nothing 这个是不是错了。出现了如下错误:
----------错误类型: ADODB.Field (0x800A0BCD) BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。 /位置/10007.asp, 第 329 行浏览器类型: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.作者: |°妳卟懂莪 时间: 2010-1-18 00:06
回复是对应某的主 题的,
所以你先判断这个主题存不存在,
id=request.querystring("bbs_id")'通过get得到相应的主题号
if id="" or not isnumeric(id) then
a=a+"参数有误" '自定义变量a,存储错误信息
else
set rs=server.createobject("adodb.recordset")
sql="select * from bbs where bbs_id="&id
rs.open sql,conn
if rs.eof then
a=a+"没有找到这条记录!"
end if
end if
if a<>"" then '如果变量a的值不为空,说明存在错误,
response.write"<script>alert('"&a&"');history.back();</script>" '弹出错误信息,点击返回上一页
else
... '用表格显示该主题的所有信息
...
....
end if '以上为显示主题对应的详细信息,
将这个主题的编号做为参数传给回复页
reply.asp?bbs_id=<%=rs("bbs_id")%>'当前了,如果复杂一 些,你也可以加上那个版块的编号,还有页码
如果reply.asp?boardID=10&bbs_ID=<%=rs("bbs_id")%>&page=1
然后在回复时就可以得到上级主题的ID