<% NID=Request("NID") If NID="" or not isnumeric(NID) then Response.Redirect "../Index.asp" Response.End() End If Set Rsc=Server.CreateObject("ADODB.Recordset") Sqlc="select * from Netsys_News_Cn where NID="&NID Rsc.open Sqlc,Conn,1,3 If Not Rsc.eof and Not Rsc.bof then Rsc("NViews")=Rsc("NViews")+1 NTitle = Rsc("NTitle") NAuthor = Rsc("NAuthor") NSource = Rsc("NSource") NViews = Rsc("NViews") NTime = Rsc("NTime") ClassID = Rsc("ClassID") NContent = Rsc("NContent") Rsc.update Else Response.Write "" Response.End End If %> <%=Ntitle%>_<%=os("web_name")%> " />
 
表演视频
<%=NTitle%>

作者:<%=NAuthor%> 来源:<%=NSource%> 点击:<%=NViews%> 时间:<%=NTime%>

<%=NContent%>


 


用户评论
<% set rs1=server.CreateObject("adodb.recordset") sql1="select * from lun Where show=true and pid=0 and newsid="&Nid&" order by times, id desc" rs1.open sql1,conn,1,1 do while not Rs1.eof %>
<%=rs1("username")%>于<%=rs1("times")%>说:
<%=rs1("mg")%>
<% set rs2=server.CreateObject("adodb.recordset") sql2="select * from lun Where show=true and pid=1 and newsid="&Nid&" order by times, id desc" rs2.open sql2,conn,1,1 do while not Rs2.eof %>
<%=rs2("username")%> 于 <%=rs2("times")%>回复:
<%=rs2("mg")%>
<% rs2.movenext loop rs2.close set rs2=nothing %> <% rs1.movenext loop rs1.close set rs1=nothing %>
我要评论
网名:
内容:
<% Rsc.close Set Rsc=Nothing %>