可能ID号不对应。在回复是把db表中相应的ID写入reply表中,取出时只需取reply表中相应的ID的记录。例:
<%
...
dim sql,reRs
Set reRs=Server.CreateObject("ADODB.RecordSet")
sql="select * from Tb_Ainfo where A_Qid="&Request("id")
reRs.open sql,oConn,1,3
if reRs.bof and reRs.eof then
Response.Write ""
else
Do while not reRs.eof
%>
<tr>
<td width="100%" colspan="3" height="18">
<p align="center"><font size="2" color="#008000">作者:</font><font size="2" color="#3399FF"><%=reRs("A_Author")%></font> <font size="2" color="#008000">回复时间:</font><font size="2" color="#3399FF"><%=reRs("A_Time")%></font></p>
</td>
</tr>
<tr bgcolor=#EBEBEB>
<td width="100%" colspan="3" height="18"> <%
Dim reCont
reCont=reRs("A_Contents")
reCont=Replace(reCont,vbcrlf,"<br> "&vbcrlf)
Response.Write reCont
%></td>
<%
reRs.MoveNext
Loop
end if
set reRs=nothing
%>