如何在静态的新闻页面里做新闻回复，就像sina那样

Question

用
<form action="xxx">
</form>
啊，
xxx可以是servlet

Answer 1

很简单的
如果是纯粹的HTML就不行了
你看不是shtml---->有html的性质和动态包含的性质

Answer 2

纯Html里可以用Javascript调用XML

Answer 3

看看下面这段，有点乱
<TABLE dataFld=评论 dataSrc=#comments cellSpacing=1 cellPadding=2 width=540 bgColor=#cccccc dataPageSize=15 border=0><THEAD><TR><TD colspan="3" align=middle bgColor=#efefef>
<div align="center">
<a href="http://www.sheing.com/article/NewsReview.asp?FileName=08543772929">
察看评论详细内容</a>&nbsp;&nbsp;&nbsp;&nbsp;共有评论<span datasrc=#comments datafld=数量></span>条 </div></TD></TR><TR><TD width="15%" align=middle bgColor=#efefef>作者笔名</TD><TD width="75%" align=middle bgColor=#efefef>简短内容</FONT></TD><TD width="10%" align=middle bgColor=#efefef>发表时间</TD></TR></THEAD><TBODY><TR><TD bgColor=#ffffff><SPAN dataFld=作者笔名>&nbsp;</SPAN></TD><TD bgColor=#ffffff><SPAN dataFld=简短内容>正在下载数据...</SPAN></TD><TD bgColor=#ffffff><SPAN>&nbsp;</SPAN><INPUT dataFld=发表时间 onpropertychange=previousSibling.innerText=value.substring(5,16);previousSibling.title=value type=hidden></TD></TR></TBODY></TABLE><SPAN id=xmlspan></SPAN><SCRIPT id=xmlscript defer></SCRIPT><SCRIPT>xmlscript.src="http://www.sheing.com/article/ReadReview.asp?FileName=08543772929";</SCRIPT></DIV> <table width="100%" border="0" cellpadding="3" cellspacing="1"><form name="form1" method="post" action="http://www.sheing.com/article/NewsReview.asp"><tr><td width="20%"><div align=right>笔名：</div></td><td width="79%"> <input name="MemName" type="text" id="MemName" value=""><input name="NoName" type="checkbox" id="NoName" value="1">匿名用户<input name="FileName" type="hidden" id="FileName" value="08543772929"><input name="action" type="hidden" id="action" value="add"></td></tr><tr><td> <div align="right">评论内容：<br>(最多300个字符) </div></td><td> <textarea name="RevContent" cols="40" rows="8" id="RevContent"></textarea></td></tr><tr><td></td><td> <input type="submit" name="Submit" value="发表">&nbsp;&nbsp;</td></tr></form></table>

Answer 4

如何处理回复本身不难，关键是现在如何能够把用户的回复列表返回到已有的静态页面上，还能够管理这些回复呢，比如有人骂人，肯定要把该回复给删了呀，这些功能都如何来实现呢？btw：Ispy(晓剑)贴的代码实在是有点乱，偶还得用编辑器调好 :)

Answer 5

那段是我的一个ASP CMS里面弄出来的，具体你看看www.sheing.com

Answer 6

管理直接用JSP或者JavaBean之类的...
我贴一个ASP的...
这个是和我上面贴的HTML配套的。
===================================================================================
if Request("FileName")="" Then
xmlcontext = "xmlspan.innerHTML="
xmlcontext = xmlcontext & """"
xmlcontext = xmlcontext & "<xml id=comments><评论文章列表>"
    xmlcontext = xmlcontext & "<数量></数量>"
xmlcontext = xmlcontext & "<评论><作者笔名></作者笔名><简短内容>欢迎发表评论</简短内容><发表时间></发表时间></评论>"
xmlcontext = xmlcontext & "</评论文章列表></xml>"
xmlcontext = xmlcontext & """;"
Response.write(xmlcontext)
Response.End
Else
    Dim TempRsNewsObj,TempFlag
    TempFlag = true
    Set TempRsNewsObj = Conn.Execute("Select ReviewTF from News where FileName='" & Request("FileName") & "'")
    if Not TempRsNewsObj.Eof then
   if TempRsNewsObj("ReviewTF") = false then
   TempFlag = False
   end if
   else
   TempFlag = False
   end if
   if TempFlag = False then
   xmlcontext = "xmlspan.innerHTML="
   xmlcontext = xmlcontext & """"
   xmlcontext = xmlcontext & "<xml id=comments><评论文章列表>"
       xmlcontext = xmlcontext & "<数量></数量>"
   xmlcontext = xmlcontext & "<评论><作者笔名></作者笔名><简短内容>此文章不允许评论</简短内容><发表时间></发表时间></评论>"
   xmlcontext = xmlcontext & "</评论文章列表></xml>"
   xmlcontext = xmlcontext & """;"
   Response.write(xmlcontext)  
   Response.end
   Else
     Dim Rs
     set Rs = server.CreateObject ("ADODB.RecordSet")
     Sql = "select top 10 * from Review where FileName='" &Replace(request("FileName"),"'","''")&"' and DelFlag=false order by RevID desc"     Rs.Open Sql,Conn,1,3
 if rs.eof and rs.bof Then
   xmlcontext = "xmlspan.innerHTML="
   xmlcontext = xmlcontext & """"
   xmlcontext = xmlcontext & "<xml id=comments><评论文章列表>"
       xmlcontext = xmlcontext & "<数量>0</数量>"
   xmlcontext = xmlcontext & "<评论><作者笔名></作者笔名><简短内容>暂时没有评论</简短内容><发表时间></发表时间></评论>"
   xmlcontext = xmlcontext & "</评论文章列表></xml>"
   xmlcontext = xmlcontext & """;"
   Response.write(xmlcontext)  
   Response.end
 Else
     xmlcontext = "xmlspan.innerHTML="
         xmlcontext = xmlcontext & """"
     xmlcontext = xmlcontext & "<xml id=comments><评论文章列表>"
     xmlcontext = xmlcontext & "<数量>"&Rs.recordcount&"</数量>"
     while not Rs.eof 
         xmlcontext = xmlcontext & "<评论><作者笔名>"&rs("MemName")&"</作者笔名>"
         xmlcontext = xmlcontext & "<简短内容>"&left(rs("RevContent"),60)&"</简短内容>"
     xmlcontext = xmlcontext & "<发表时间>"&rs("RevTime")&"</发表时间></评论>"
     Rs.movenext
 wend
     xmlcontext = xmlcontext & "</评论文章列表></xml>"
     xmlcontext = xmlcontext & """;"
     Response.write(xmlcontext)  
     Response.end
     End if
 Rs.close
 set Rs=nothing
 
  end if
end if================================================