<% on error resume next function icon2id(texticon) iconfile = right(texticon,len(texticon)-11) icon2id = left(iconfile,instr(iconfile,".")-1) end function function displayed_name(textid,tnum) sqld = "Select top 1 displayname_option from board_parameter" set rsd = server.CreateObject("ADODB.RecordSet") rsd.open sqld,conn,1,3 dno = rsd("displayname_option") rsd.close if asc(mid(textid,1,1)) < 48 or asc(mid(textid,1,1)) > 57 then sql = "select name from webboard where tnum="&tnum set rsf = server.CreateObject("ADODB.RecordSet") rsf.open sql,conn,1,3 nick = rsf("name") rsf.close else sql = "select username,Nickname from information where ID='"&textid&"'" set rsf = server.CreateObject("ADODB.RecordSet") rsf.open sql,conn,1,3 nick = rsf(dno) rsf.close end if displayed_name = nick end function function ranker(pnum) sql_ranker = "select * from ranker order by [order]" set rs_ranker = Server.CreateObject("ADODB.Recordset") rs_ranker.open sql_ranker,Conn,1,3 rs_ranker.movefirst do while not rs_ranker.eof if pnum > rs_ranker("criteria") then position = rs_ranker("definition") else exit do rs_ranker.movenext loop rs_ranker.close ranker = position end function gID=Request.QueryString("GID") Sql1="Select * from webboard where qnum=" & gID & " order by anum" set rs_checkroomid = Server.CreateObject("ADODB.Recordset") rs_checkroomid.open Sql1,Conn,1,3 rs_checkroomid.movefirst roomid = rs_checkroomid("roomid") topic = rs_checkroomid("topic") rs_checkroomid.close set rs_access = Server.CreateObject("ADODB.Recordset") sql_access = "select * from [room] where roomid="&roomid rs_access.open sql_access,Conn,1,3 accessibility = rs_access("accessibility") rs_access.close %> <%=topic%> <% if accessibility = 4 and session("classid") <> mdcuclass then %>
เกิดข้อผิดพลาด
กรุณา Login ก่อนอ่านกระทู้นี้ครับ

ล็อกอินก่อนตอบนะครับ username password  New user?
<% else sqlcount = "Select tcount from webboard where qnum="&gID&" and anum=0" set rsc = server.createobject("ADODB.RecordSet") rsc.open sqlcount,Conn,1,3 tcount = rsc("tcount") rsc("tcount")=tcount+1 tcount = rsc("tcount") rsc.update rsc.close Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql1,Conn,1,3 RS.movefirst lockedtopic = RS("lockedtopic") premadetopic = "Re : " & RS("topic") premadetopic = replace(premadetopic,chr(34),""") Do while not RS.EOF if RS("anum") = 0 then headclass = "thaihead" else headclass = "mthaitext" end if %> <% useicon = rs("useicon") ganswer=rs("message") ganswer=HTMLreplace(ganswer) ganswer=changetag(ganswer) ganswer=replace(ganswer,chr(13),"
") if useicon then message=smiley(ganswer) else message=ganswer end if %>
>"> <%=RS("topic")%> : <%if rs("anum")=0 then%> (อ่าน <%=tcount%> ครั้ง) <%end if%> > #reply'"> <%if session("username") = rs("name") then%> '"> <%if rs("anum") <> 0 then%>'"> <%end if end if%>
">

<%=displayed_name(icon2id(rs("icon")),rs("tnum"))%>

<% set rs_showpostnumber = server.CreateObject("ADODB.recordset") rs_showpostnumber.open("select postcount,board_signature from information where ID='" &icon2id(rs("icon"))&"'"),Conn,1,3 if rs_showpostnumber.recordcount <> 0 then postcount = rs_showpostnumber("postcount") signature = rs_showpostnumber("board_signature") %><%=ranker(postcount)%>
Post : <%=postcount%> <%=rs(">
<% else %>
<%if rs("icon")="image/icon/premium.gif" then response.Write("VIP Guest") else response.Write("Guest")%> <%=rs(">
<% end if rs_showpostnumber.close %> เมื่อ <%=rs("date")%>		<%=message%>
  <%if len(signature) > 0 then signature=replace(signature,chr(13),"
") %>
<%=smiley(changetag(signature))%> <%end if%>
<% if RS("fileatt") = "yes" then %>

">

<% end if %>
<% RS.MoveNext signature = "" Loop RS.Close scriptcalled = request.ServerVariables("SCRIPT_NAME") %>

<%if lockedtopic then%>
<%else%> <% if (session("classid") <> mdcuclass) and accessibility > 2 then %>
ล็อกอินก่อนตอบนะครับ username password  New user?
<% else %>
<% if session("classid") = mdcuclass then %> <% else end if %> <% displaymode = request.QueryString("displaymode") if displaymode = "quote" then tnum=cint(request.QueryString("tnum")) sql_quote="select * from webboard where tnum="&tnum set rs_quote = server.CreateObject("ADODB.RecordSet") rs_quote.open sql_quote,Conn,1,3 qmsg = rs_quote("name")&" wrote on "&rs_quote("date")&"[quote]"&rs_quote("message")&"[/quote]" rs_quote.close else qmsg="" end if %>
เขียนตอบข้อความที่นี่ครับ
ผู้ตอบ <% if session("classid") = mdcuclass then %> "> "> "> <% elseif request.QueryString("replier")="vip" then %> <% else %> <% end if %>
หัวข้อ
Emoticons
Tag
รูปประกอบ <%sql = "select filesize from board_parameter" set rs = server.CreateObject("ADODB.RecordSet") rs.open sql,conn,1,3 maxfilesize = rs("filesize") rs.close%> (ไม่เกิน <%=round(maxfilesize/1024, 1)%> kB, Preview ไม่ได้)
คำตอบ
 
ใช้ emoticon ใช้ ไม่ใช้
ใช้ bbtag ใช้ ไม่ใช้
<% end if end if %> <%end if%>