%option explicit%>
<%
dim newsid
dim conn, cmd, rs
dim reg
dim flag, msg
dim title1, content, joindate, classname, showname, enablecomment, readtimes, hasimg
dim i
Randomize
i=Int(2 * Rnd)
hasimg=false
newsid=gp(2, "iid", 1)
set cmd=server.CreateObject("adodb.command")
cmd.commandtype=4
cmd.commandtext="news_getnewsinfo"
cmd.parameters.append cmd.createparameter("return", 3, 4)
cmd.parameters.append cmd.createparameter("@newsid", 20, 1, , newsid)
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.open connstr
cmd.activeconnection=conn
set rs=cmd.execute
flag=cmd("return")
if flag=1 then
conn.close
set conn=nothing
else
title1=rs("title")
content=rs("content")
joindate=rs("joindate")
classname=rs("classname")
showname=rs("showname")
enablecomment=rs("enablecomment")
readtimes=rs("readtimes")
set reg=new RegExp
reg.pattern="
]+>"
reg.IgnoreCase=true
hasimg=reg.test(content)
%>
资讯频道
|
|
<%
dim commentlist,hascomment
dim rscount,pgcount
CONST THEPAGE=5
CONST PAGE=1
cmd.parameters.refresh
cmd.commandtype=4
cmd.commandtext="comment_getpage"
cmd.parameters.append cmd.createparameter("return", 3, 4)
cmd.parameters.append cmd.createparameter("@pagesize", 2, 1, , THEPAGE)
cmd.parameters.append cmd.createparameter("@gopage", 20, 1, , page)
cmd.parameters.append cmd.createparameter("@newsid", 20, 1, ,newsid)
cmd.parameters.append cmd.createparameter("@who", 16, 1, ,0)
cmd.parameters.append cmd.createparameter("@recordcount", 20, 2)
cmd.parameters.append cmd.createparameter("@pagecount", 20, 2)
cmd.parameters.append cmd.createparameter("@newstitle", 200, 2, 50)
cmd.activeconnection=conn
set rs=server.CreateObject("adodb.recordset")
set rs=cmd.execute
if rs.state then
if rs.eof then
hascomment=false
else
commentlist=rs.getrows
hascomment=true
end if
rs.close
rscount=cint(cmd("@recordcount"))
pgcount=cint(cmd("@pagecount"))
else
hascomment=false
rscount=0
pgcount=0
end if
set rs=nothing
set cmd=nothing
conn.close
set conn=nothing
%>
<%
end if
%>