on error resume next
dim reback
rs("id")=request("id")
reback=request.form("reback")
if reback<>"" then
sql="select * from cndb where id="&request("id")
rs.open sql,cn,1,3
rs.addnew
rs("reback")=reback
rs.update
rs.close
set rs=nothing
response.Redirect("留言板.asp")
response.end
end if
<form id="form" name="form" method="post" action="reback.asp?id=<%=rs("id")%>">
<table width="300" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="99" height="83"><div align="center">回复内容</div></td>
<td width="201"><label>
<textarea name="reback" id="reback" cols="50" rows="8" class="bg_b05"></textarea>
</label></td>
</tr>
<tr>
<td height="43" colspan="2"><label>
<input type="submit" name="Submit" value="回复" />
<input type="reset" name="Submit2" value="重置" />
</label></td>
</tr>
</table>
</form>