<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% If application(siternd & "55tropencomment") = 1 Then Const dbpath = "../" Set ctr_page = New tr_page id = tr_killstr(request.querystring("id"), 1, 8, 1, "", "", "", "", 2) %> var tmpstr=("
<%=application(siternd & "55trcommentnotice")%>
"); tmpstr=tmpstr+("
../<%end if%>user/usersave.asp\" target=\"ifr1\" onSubmit=\"return checkguest(this)\">"); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); <%if ishtml=2 then%> tmpstr=tmpstr+(""); <%else%> tmpstr=tmpstr+(""); <%end if%> tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+("
昵称 * email 主页 验证码 \" style=\"cursor:hand; \" title=\"点击更换\" onClick=\"javascript:this.src='../core/Code.asp?rd='+randomString(10)+''\" height=\"24\" border=\"0\" width=\"70\">\" style=\"cursor:hand; \" title=\"点击更换\" onClick=\"javascript:this.src='./core/Code.asp?rd='+randomString(10)+''\" height=\"24\" border=\"0\" width=\"70\">"); tmpstr=tmpstr+(""); tmpstr=tmpstr+("\" name=\"ownarticle\" />"); tmpstr=tmpstr+(""); tmpstr=tmpstr+("
"); tmpstr=tmpstr+("
"); tmpstr=tmpstr+(""); <% pageno = tr_killstr(request.querystring("pageno"), 1, 8, 1, "", "", "", "", 1) sql = "select id,username,content,addtime,homepage,asuser,answer,astime from tr_comment where types=1 and ownarticle="&id&" and ispass=1 and isdel=0 order by addtime desc , id desc " page_size = 20 pagei = 0 n = (pageno -1) * page_size Call ctr_page.create_rs(sql, rs, conn, page_size, pageno) If Not rs.EOF Then Do While Not rs.EOF If pagei>= page_size Then Exit Do pagei = pagei + 1 n = n + 1 %> tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); <% rs.movenext Loop Else %> tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); tmpstr=tmpstr+(""); <% End If rs.Close %> tmpstr=tmpstr+("
"); tmpstr=tmpstr+("
"); tmpstr=tmpstr+("

"); <%if isweburl(rs("homepage")) then%> tmpstr=tmpstr+("<%=tojs2(rs("username"),"")%>"); <%else%> <%=tojs2(rs("username"),"tmpstr")%> <%end if%> tmpstr=tmpstr+(" 说： <%=tojs2(rs("content"),"")%>

") tmpstr=tmpstr+("

<%=tojs2(FormatDate(rs("addtime"), 1),"") %>

") <%if len(rs("answer"))>1 then%> tmpstr=tmpstr+("

管理员 回复：<%=tojs2(rs("answer"),"")%>

"); tmpstr=tmpstr+("

<%=tojs2(FormatDate(rs("astime"), 1),"") %>

"); <%end if%> tmpstr=tmpstr+("
"); tmpstr=tmpstr+("
还没有人评论，赶快抢个沙发吧。
"); <%if ctr_page.page_count>1 then%> <%= tojs2(ctr_page.create_page2("",ctr_page.page_count,pageno,"trpage","dataload"),"tmpstr")%> <% end if%> function changeText(tmp){ top.document.getElementById('showcomment').innerHTML = tmp; top.document.getElementById('showcomment').className = "trcomment trbor2"; } changeText(tmpstr) <%End If %>