Question

asp评论系统的代码修改.

asp评论系统修改.
先附上代码:
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="bod4">
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="1" bgcolor="#BFBFBF"></td>
</tr>
<tr>
<td height="1" bgcolor="#D4D4D4"></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td colspan="2" align="left"><hr width="100%" size="1"></td>
</tr>
<%
rs.close()
Rs.Open"select * from pl where house_id="&HID&" order by rq desc",conn,1,1
if rs.eof then
response.write"<tr><td colspan=""2"">暂时还没有评论</td></tr>"
else
dim pp
pp=0
do while not rs.eof and pp<5
%>
<tr>
<td width="34%" align="left"><strong>昵称:</strong><%=rs("nc")%></td>
<td width="66%" align="left"><strong>时间:</strong><%=rs("rq")%></td>
</tr>

<tr>
<td colspan="2" align="left"><%=rs("lr")%></td>
</tr>

<tr>
<td colspan="2"><hr width="100%" size="1"></td>
</tr>
<%
pp=pp+1
rs.movenext
loop
rs.close
end if
%>
<tr>
<td colspan="2"> </td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
if request("action")="add" then
house_id=request.Form("house_id")
nc=request.form("nc")
dl=request.Form("dl")
lr=request.form("lr")
conn.execute("INSERT into pl(house_id,nc,email,lr) values("&house_id&",'"&nc&"','"&dl&"','"&lr&"')")
response.write"<script language=""javascript"">alert('评论成功!')</script>"
response.Redirect("news_hous.asp?hId="&hid&"")
end if
%>
<!--#include file="bottom.asp"-->
</body>
</html>

问题:由于当时,政府和谐的问题,文章评论系统中的,文本提交的那一段代码给删了.现在和谐问题已经解决,但是文本提交这段代码由于本人不懂,所以无法恢复,,本想找做网站的程序员帮忙搞定.但是不巧,程序员却已经离职了,无法联系.是在没办法,

那位高手帮忙把这段代码补全? 在下感激不尽, 先附上10分,补全之后在追加分,

Answer 1

应该简单的，你把代码发全，说的清楚一点要做什么，仔细看一下才行，有问题HI我

Answer 2

估计没有人给你做！！！程序员走了你再请一个不就完了！

Answer 3

算了,我把我的回答删了

Answer 4

看看有没有备份吧