<% ArticleID = request("id") if ArticleID = "" then Response.Write("参数错误!") Response.end end if if IsNumeric(ArticleID) = false then Response.Write("参数错误!") Response.end end if ArticleID = clng(ArticleID) set rs = server.createobject("adodb.recordset") sql = "select Title,ClassID,UpdateTime from JK_Article where ArticleID = "&ArticleID&"" rs.open sql,conn,1,1 if rs.bof and rs.eof then Response.Write("参数错误!") Response.end else Title = rs("Title") ClassID = rs("ClassID") UpdateTime = rs("UpdateTime") end if rs.close set rs = nothing filename=replace(replace(replace(CStr(UpdateTime)," ",""),":",""),"-","") set rs = server.createobject("adodb.recordset") sql = "select ClassPath from JK_ArticleClass where ClassID = "&ClassID&"" rs.open sql,conn,1,1 if rs.bof and rs.eof then Response.Write("参数错误!") Response.end else ClassPath = rs("ClassPath") end if rs.close set rs = nothing Function PingLun() set rs = server.createobject("adodb.recordset") sql = "select * from JK_Article_Comment where ArticleID = "&ArticleID&" and Locked = 'false' order by CommentDateTime desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then PingLun = "" else CommentNum=rs.recordcount onepage=10 rs.pagesize=onepage pages=rs.pagecount page=request("page") if page<=0 then page=1 if page>pages then page=pages pump=onepage*(page-1) rs.move pump PingLun = "" for i=1 to onepage if rs.eof then exit for CommentUser = rs("CommentUser") CommentContent = rs("CommentContent") CommentDateTime = rs("CommentDateTime") PingLun = PingLun & "" PingLun = PingLun & "" rs.movenext next PingLun = PingLun & "
" PingLun = PingLun & CommentDateTime &"   评论人:"& CommentUser &"
" & CommentContent &"
" PingLun = PingLun & "
"& page &"/"& pages &" 共计"& CommentNum &"条评论 [首页] [上一页] [下一页] [尾页]
" end if rs.close set rs = nothing end Function %> 评论:<%=Title%>--求医问药网
首页 | 搜索 | 女性 | 男性 | 医院 | 问药 | 疾病 | 药店 | 保健 | 养生 | 长寿 | 中医 | 中药 | 心理 | 自救
快讯 | 美容 | 瘦身 | 丰胸 | 防晒 | 家居 | 饮食 | 性爱 | 怀孕 | 宝宝 | 运动 | 健身 | 健美 | 偏方 | 秘方
健康快讯·家庭生活·保健养生·两性空间·中医中药·女性天地·心灵鸡汤·男人世界·育儿宝典·家居饮食·健康问答
  您的位置: 求医问药 > 关于 <%=Title%> 的评论
   

<%=Title%>

以下网友留言只代表网友个人观点,不代表本站观点。立即发表评论
<%=PingLun()%>
网上大名:  
  爱国 守法 自律 真实 文明  
  您的评论:  
     
 
 
   
 
温馨提示:如果您怀疑自己有某种健康问题,可尽快去 名医名院 就医治疗。
关于我们 | 联系方式 | 广告服务 | 招商引资 | 友情链接 | 设为首页 | 网站地图 | 网站导航
Copyright © 2005-2009 求医问药 jk58.com All rights reserved
本站信息仅供参考 不能作为诊断及医疗的依据
声明:本站部分信息来自互联网,若有版权问题请及时与本站联系。