" '-------A登录信息 if myid=0 then Response.write "欢迎您:登陆/注册
----------
"& chr(13) else '检查有几条新留言 dim newguest newguest = 0 IF myid > 0 THEN newguest = ForNewGuest(myid) END IF if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if end if '--------------------------- dim rs,rspr,rsn set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from [gbook] where [ID]=" & ID,conn,1,1 set rsn=Server.CreateObject("ADODB.Recordset") rsn.open"select * from [gbook] where [ID]<"& ID &" order by [ID] desc",conn,1,1 set rspr=Server.CreateObject("ADODB.Recordset") rspr.open"select * from [gbook] where [ID]>"& ID &" order by [ID] asc",conn,1,1 if rs.EOF then response.write("无此留言！
") else if rs("uid")=0 then response.write"作者："&ubb(rs("name"))&"
" else response.write"作者："&ubb(rs("name"))&"
" end if response.write(UBB2(rs("text")) & "
") response.write("时间：" & fordate(rs("YD_time")) & "
") if rs("retext")<>"" then response.write"回复："&UBB(rs("retext"))&"
" response.write"时间："&rs("retime")&"
" end if if rsn.recordcount>0 then response.write("下条 ") if rspr.recordcount>0 then response.write("上条 ") if rsn.recordcount>0 or rspr.recordcount>0 then response.write("
") rsn.close set rsn=nothing response.write"----------
" rspr.close set rspr=nothing end if conn.close set conn=nothing response.write"返回上级
" response.write"返回首页
" response.write"