<!--#include file="setting/conn.asp"--><%:SoonBiz.chkcls("read"):SoonBiz.iseditor=True:SoonBiz.execute("update "& sheethead &"_message set hits=hits+1 where cid="& cid &" and classid="& classid &" and id="&id)
If Not SoonBiz.loadcache ("read",cid,classid,id,topicid,0) Then
pagemain ():htmlstr=SoonBiz.huiqiaoHtml(htmlstr):htmlstr=SoonBiz.replaceallflag(htmlstr):SoonBiz.savehtml()
End If:SoonBiz.endhtml:Setallnothing:Sub pagemain():Dim jintong(1,2):Dim uidlist:Dim i,j:Dim table,tr:Dim shujun:Dim Rs,arrs,sql:jintong(0,0)=xmlchannel.getattribute("cha_name") : jintong(1,0)="message.asp?u="&cid:jintong(0,1)=SoonBiz.GetXmlvalue("class","class[@id='"& classid &"']","title") : jintong(1,1)="messagelist.asp?u="& cid &"w{$classid}":jintong(0,2)="{$title}" : jintong(1,2)="#":navstate=SoonBiz.GetNavstate(jintong):Dim myfield,arrmyfield:Dim islock:Dim jinfangfield:myfield="aa.id,uid,nickname,classid,stime,hits,reps,retime,title,content,enickname,tname,ip,istop,isgood,islock,point,topicid,etime,adcomman" :myfield=myfield & ",user_face,user_regtime,user_point,user_post,user_repost,user_gid,user_design" :sql="select "& myfield &" from "& sheethead &"_message as aa left join "& sheethead &"_user as bb on aa.uid=bb.id where aa.id="&id:sql=sql & " and aa.isdel=0 and aa.ispass=1 ":Set rs=SoonBiz.Execute(sql)
If rs.eof Then
ShowErr("1018")
Else:islock=rs("islock"):arrs=rs.getrows(1)
End If:rs.close:Set rs=Nothing:arrmyfield=split(myfield,","):jinfangfield=ubound(arrmyfield):SoonBiz.topplus=SoonBiz.topplus & "<script type=""text/javascript"">var messagetitlepoint="""& messagetitlepoint &""";</script>":htmlstr=SoonBiz.JsGroupName & SoonBiz.Tp(cid,pn,"index"):htmlstr=Replace(htmlstr,"{$navstate}",navstate):htmlstr=Replace(htmlstr,"{$replyhref}","javascript:showreply("& islock &");") :htmlstr=Replace(htmlstr,"{$action}","messagepost.asp?act=saverepost&amp;u="& u) :htmlstr=replace(htmlstr,"{$admessage}","""messagead.asp?act=admessage&amp;u="& u & """ onclick=""return showinnew(this,420,380)"""):htmlstr=replace(htmlstr,"{$edithref}","messageedit.asp?act=editmessage&amp;u="& u &"&amp;uid={$uid}"):htmlstr=replace(htmlstr,"{$quote}","javascript:track(0,'{$nickname}','{$stime}',"& islock &");"):htmlstr=Replace(htmlstr,"{$adminimg}","<iframe name='upfile' id=""upfile"" src=""user/user_img.asp?act=nolist&amp;cid=7&amp;obj=content&amp;fid=m"& id &""" frameborder=""0"" scrolling=""no"" width=""100%"" height=""20""></iframe>") :htmlstr=ReplaceHref(htmlstr):For j=0 To jinfangfield
If instr(htmlstr,"{$"& arrmyfield(j)) > 0 Then
Select Case arrmyfield(j):Case "user_regtime"
If instr(htmlstr,"{$user_regtime}") > 0 Then htmlstr=Replace(htmlstr,"{$user_regtime}",SoonBiz.Format_time(arrs(j,0),4))
Case "title":SoonBiz.Title=arrs(j,0):Case "content"
If instr(htmlstr,"{$content}")>0 and autoimg=1 Then ':had:orget|isthemcancame''should:"only:never"
htmlstr=replace(htmlstr,"{$content}",SoonBiz.filtimg(arrs(j,0)))
End If:End Select:htmlstr=Replace(htmlstr,"{$"& arrmyfield(j) &"}",arrs(j,0)&"")
End If:Next:htmlstr=Replace(htmlstr,"{$remessagelist}",remessagelist):End Sub:Function remessagelist() :Dim myfield,arrmyfield:Dim jinfangfield:Dim tr,table:Dim i,j:Dim sql,rs,arrs:myfield="aa.id,uid,nickname,stime,title,content,enickname,ip,getpoint,etime" :myfield=myfield & ",user_face,user_regtime,user_point,user_post,user_repost,user_gid,user_design" :sql="select "& myfield &" from "& sheethead &"_remessage as aa left join "& sheethead &"_user as bb on aa.uid=bb.id where aa.isdel=0 and ispass=1 and forumid="&id:Set rs=SoonBiz.Execute(sql)
If rs.eof Then
arrs=""
Else:arrs=rs.getrows(-1)'couldourcouldbeing'neverlike:same:::'hasher::'me
End If:rs.close:Set rs=Nothing:arrmyfield=split(myfield,","):jinfangfield=ubound(arrmyfield):tr=SoonBiz.JsGroupName & SoonBiz.Tp(cid,pn,"repost"):tr=replace(tr,"{$id}","{$aa.id}"):tr=replace(tr,"{$admessage}","""messagead.asp?act=adreply&amp;u="& u & "&amp;thisid={$aa.id}&amp;floor={$i}"" onclick=""return showinnew(this,420,380)"""):tr=replace(tr,"{$edithref}","""messageedit.asp?act=editreply&amp;u="& u&"&amp;thisid={$aa.id}&amp;uid={$uid}"""):tr=replace(tr,"{$quote}","javascript:track({$aa.id},'{$nickname}','{$stime}');"):tr=ReplaceHref(tr)
If isarray(arrs) Then
Dim jinfang:jinfang=ubound(arrs,2):Redim soonhost(jinfang):For i=0 To jinfang:soonhost(i)=tr
If instr(soonhost(i),"{$i}")>0 Then soonhost(i)=Replace(soonhost(i),"{$i}",i+1)
For j=0 To jinfangfield
If instr(soonhost(i),"{$"& arrmyfield(j)) > 0 Then'=they"some:)at'thenoutsaidonlytheforanfrom:it/
Select Case arrmyfield(j):Case "user_regtime"
If instr(soonhost(i),"{$user_regtime}") > 0 Then soonhost(i)=Replace(soonhost(i),"{$user_regtime}",SoonBiz.Format_time(arrs(j,i),4))
Case "content"
If instr(soonhost(i),"{$content}")>0 and autoimg=1 Then
soonhost(i)=replace(soonhost(i),"{$content}",SoonBiz.filtimg(arrs(j,i)))
End If:End Select:soonhost(i)=Replace(soonhost(i),"{$"& arrmyfield(j) &"}",arrs(j,i)&"")'mightotherstillis:might&:!make:thismuch:"thethanhave[
End If:Next:Next:remessagelist=join(soonhost,"")
Else:remessagelist=""
End If:End Function:Function ReplaceHref(str) :str=Replace(str,"{$groupname}","<script type=""text/javascript"">document.write(groupname[{$user_gid}]);</script>"):str=Replace(str,"{$userinfo}","user/user_info.asp?id={$uid}"):str=Replace(str,"{$userposthref}","messagelist.asp?act=30&amp;u="& cid &"w"& classid &"&amp;uid={$uid}&amp;nickname={$nickname}") :str=Replace(str,"{$posthref}","messagecreat.asp?u="& cid &"w"&classid):ReplaceHref=str:End Function
%>