<%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 %>