<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Response.Charset="UTF-8"%> <%Session.CodePage=65001%> 第酒团 <% if request("action")="addComments" then Comments=request("Comments") id=request("id") insql="insert into Comments (newsid,Content) values ("&id&",'"&Comments&"')" conn.execute(insql) end if updatesql="update news set clicknum=clicknum+1 where id="&request("id") conn.execute(updatesql) %>
<% set rs=server.CreateObject("adodb.recordset") rs.open "select * from news where id="&request("id")&"",conn,1,1 if rs.bof and rs.eof then response.Write("") else %>
 
<%if request.Cookies("username")<>"" then%> <% set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from Comments where newsid="&request("id")&" order by id desc",conn,1,1 if rs1.bof and rs1.eof then response.Write("") else i=0 do while not rs1.eof%> <% rs1.movenext i=i+1 loop end if rs1.close set rs1=nothing %> <%end if%>
 
<%=request("id")%> 的日志
   
<%= rs("title") %>
  <%if rs("propics")<>"" then%> " width="315" height="152" /> <%else%> <%end if%> Browse (<%= rs("clicknum") %>) | Comments (<%= conn.execute("select count(id) from Comments where newsid="&rs("id")&"")(0) %>)
   
  <%= rs("Content") %>
   
  添加评论
 

" />

 
><%=rs1("content")%>
  <<返回

 

 
<% end if rs.close set rs=nothing %>