：：留言板：：

<% session("save")="reply" dim id,sql,page,cc id=cint((request("id"))) page=cint((request("page"))) sql="select * from notes where id=" &id Set RS = Server.CreateObject("ADODB.RecordSet") rs.open sql, conn, 1, 2 if rs.eof then rs.close response.redirect "index.asp" else rs("hits")=rs("hits")+1 rs.update %> ：：留言板：：

<% rs.close getRecords "select *from notes where replyID=" &id cc=1 do while not rs.eof %> <% cc=cc+1 rs.movenext if cc >intpagesize then exit do loop end if %>

※ <%=rs("title")%>

<%=rs("username")%>

<%=rs("addtime")%>

.gif" align="absmiddle"> <%=rs("title")%>	<%if session("hadbeenlogin") then%> "> <%end if%>
	<%if session("hadbeenlogin") then%> "> <%end if%>
<%=ubbCode(rs("content"))%>

<%=rs("username")%>

<%=rs("addtime")%>

.gif" align="absmiddle"> <%=rs("title")%>	<%if session("hadbeenlogin") then%> "> <%end if%>
	<%if session("hadbeenlogin") then%> "> <%end if%>
<%=ubbCode(rs("content"))%>

<% showpage "id=" &id%>

：：：您可以在此直接回复当前主题：：：

发表人：

" class="input">

选择表情：

文件上传：

留

言

内

容

'">

<% rs.close set rs=nothing %>