" background="images/<%=rs_style("bg_img")%>">
<%'**********************若tid有密碼************************
sql="select * from tid where tid="&request("tid")
set rs_check=conn.execute(sql)
forum_cookies=bbsid+Cstr(request("tid"))+request.cookies("UserID")
if rs_check("have_pass")=0 or request.cookies(forum_cookies)="yes"then
'**********************************************************%>
<%response.cookies("tid")=request("tid")%>
<%Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From Titles Where TitleID="& TitleID,conn,1,3
If rs Is Nothing Or rs.EOF Then
Response.Redirect "index.asp?msg=此主題已被刪除!"
End If
a=rs("count")+1
rs("count")=a
rs.Update%>
<%Set rus=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM ID WHERE user='" & rs("Name") & "'"
rus.Open SQL,conn,2,2
myself=request.serverVariables("PATH_INFO")
Set rsDetail=Server.CreateObject("ADODB.Recordset")
'rsDetail搬到上面來是要讓頂端快速跳頁使用
rsDetail.Open "Select * From Details Where TitleID=" & TitleID & " Order By DetailID ",conn,1,3
Page = cint(Request("Page"))
rsDetail.PageSize =rstitle("reply_counts") ' 設定每頁顯示 6 筆
If Page<1 Then
Page=1
ELSEIF Page>rsDetail.PageCount Then
Page=rsDetail.PageCount
END IF%>
<%Set rsTitles=Server.CreateObject("ADODB.Recordset") '上一主題連結用
rsTitles.Open "Select * From Titles Where tid="&tid&" Order By LastNewsDate",conn,1,1
While not rsTitles.eof
aa=rsTitles("TitleID")
rsTitles.movenext
if rsTitles.eof and aa = rs("TitleID") then
Response.Write ""
elseif aa = rs("TitleID") then%>
【&tid=<%=Request("tid")%>&postname=<%=rsTitles("Name")%>>上一篇】(<%=Left(rsTitles("subject"),4)%>...)
<% end if
Wend%>
<%Set rsTitles=Server.CreateObject("ADODB.Recordset") '下一主題連結用
rsTitles.Open "Select * From Titles Where tid="&tid&" Order By LastNewsDate Desc",conn,1,3
While not rsTitles.eof
aa=rsTitles("TitleID")
rsTitles.movenext
if rsTitles.eof and aa = rs("TitleID") then
Response.Write ""
elseif aa = rs("TitleID") then%>
【&tid=<%=Request("tid")%>&postname=<%=rsTitles("Name")%>>下一篇】(<%=Left(rsTitles("subject"),4)%>...)
<% end if
Wend%>
%"" height="32" background="images/<%=rs_style("table_tit_img1")%>" bgcolor="<%=rs_style("table_tit_color1")%>">
◎主題：<%=rs("subc")%><%=rs("Subject")%>
<%'開啟判斷版主資料表
SQL = "Select * From tid where tid="&tid
Set passed2rs = conn.Execute(SQL)%>
<%master=split(passed2rs("tidadmin"),"|")
for i = 1 to ubound(master)-1 '檢驗版主
if master(i)=usercookie and rs("Name")<>usercookie and request.cookies("admin_pass")<>bbsid then
Response.Write "(刪除此主題)"
end if
next%>
<%If request.cookies("admin_pass")=bbsid Or rs("Name")= usercookie Then
Response.Write "(刪除此主題)"
End If %>
<%if NOT rus.EOF THEN%>
">
<%if not rus("homepage")="" then%>">
"><%end if%>
<%if rus("msnm")<>Empty then%>
<%end if
if rus("homepage")<>Empty then%>
<%end if
if rus("yim")<>Empty then%>
&.src=pg">
">
<%end if%>">
">
<%End if%>
<%if NOT rus.EOF THEN%>
<%sql="SELECT * FROM member_sort where level="&rus("level")
set rs12=conn.execute(sql)%>
來自：<%=rus("comefrom")%>
等級：<%=rs12("levelname")%>
發表：共<%=rus("postsum")+rus("replycount")%>篇
狀態：
<%sql="select * from online where name='"&rus("user")&"'"
set rs_1=conn.execute(sql)
if rs_1.eof then
response.write "離線"
else
response.write "線上"
end if%>
註冊：
<%if rs11 Is Nothing Or rs11.EOF Then%>
<%=DateValue(DateAdd("h",rstitle("servertimezone"),rus("registtime")))%>
<%else%>
<%=DateValue(DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rus("registtime")))%>
<%end if%>
經驗值：<%value=rus("postsum")*0.4+rus("replycount")*0.3+DateDiff("d",rus("registtime"),Date)*0.3%><%=value%>
威望值：<%value=rus("postsum")*2+rus("replycount")%><%=value%>
現金：<%=rus("money")%>
存款：<%=rus("bankmoney")%>
<%END IF%>
<%if NOT rus.EOF THEN%><%=rs("Name")%><%end if%>
發表於
<%if rs11 Is Nothing Or rs11.EOF Then%>
<%=DateAdd("h",rstitle("servertimezone"),rs("CreateDate"))%>
<%else%>
<%=DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rs("CreateDate"))%>
<%end if%>
<%if rsidid("en_save")=true and rs("save_date")<>empty then%>(文章保存到
<%if rs11 Is Nothing Or rs11.EOF Then%>
<%=datevalue(Dateadd("d",rs("save_date"),DateAdd("h",rstitle("servertimezone"),rs("CreateDate"))))%>
<%else%>
<%=datevalue(Dateadd("d",rs("save_date"),DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rs("CreateDate"))))%>
<%end if%>
)<%end if%>
<%
set rsc=conn.execute("select moneyname from moneyrule")
moneyname = rsc(0)
StrContent = rs("Words")
buyflag = false
managerflag = false
fileflag=false
SQL = "Select * From tid where tid="&request("tid")
Set tid_admin_p = conn.Execute(SQL)
mastera=split(tid_admin_p("tidadmin"),"|")
for i = 1 to ubound(mastera)-1
if mastera(i)=request.cookies("UserID") then managerflag = true:exit for
next
Set rsc=conn.execute("select count(*) from buydetail where userid='"&request.cookies("UserID")&"' and postid="&Request("TitleID")&"")
IF rsc(0) <> 0 Then buyflag = true
IF (Int(rs("salemoney"))>0 and request.cookies("admin_pass")<>bbsid) and (Int(rs("salemoney"))>0 and request("postname")<>request.cookies("UserID")) and (Int(rs("salemoney"))>0 and not managerflag) and (Int(rs("salemoney"))>0 and not buyflag) Then
'Response.Write "
"
Else
%>
<%
fileflag=true
If rsset("UBBcode")=True Then
If rsset("htmlencode")=True Then
subjectcolor UBBCode(StrContent),rs
Else
subjectcolor UBBCode(HTMLEncode(StrContent)),rs
End If
'htmlencode函式是顯示原始碼
Else
If rsset("htmlencode")=True Then
subjectcolor StrContent,rs
Else
subjectcolor HTMLEncode(StrContent),rs
End If
End If
End IF
%>
<%if not rs("file")=empty then
file=rs("file")
file_2=Right(file,3)
Dim Fo
Set Fo = CreateObject("Scripting.FileSystemObject")'判斷檔案是否被刪了
If not Fo.FileExists(Server.MapPath("./upload/"&file)) Then
response.write " ***附加檔案已不存在*** "
else
if fileflag then
if file_2="jpg" then
response.write " 此主題相關圖片如下："&file&" "&"screen.width-160) this.width=screen.width-160""> "
elseif file_2="JPG" then
response.write " 此主題相關圖片如下："&file&" "&"screen.width-160) this.width=screen.width-160""> "
elseif file_2="gif" then
response.write " 此主題相關圖片如下："&file&" "&"screen.width-160) this.width=screen.width-160""> "
elseif file_2="bmp" then
response.write " 此主題相關圖片如下："&file&" "&"screen.width-160) this.width=screen.width-160""> "
elseif file_2="rar" then
response.write " 按此下載檔案："&file&" "
elseif file_2="zip" then
response.write " 按此下載檔案："&file&" "
else
response.write " 按此下載檔案："&file&" "
end if
end if
End If
end if%>
<%end if'page=1的end if%>
<%rs.Close:Set rs=Nothing%>
<%If rsDetail.Eof Then
Response.Write "
Sorry !! 目前尚無回覆...
"
Else
rsDetail.AbsolutePage = Page ' 將資料錄移至 PAGE 頁
For SH=1 to rsDetail.PageSize ' 顯示資料%>
<%Set res=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM ID WHERE user='"&rsDetail("Name")&"'"
res.Open SQL,conn,1,1%>
%" height="132" align=top bgcolor="#EEEFF0">
<%IF NOT RES.eof then%><%=rsDetail("Name")%><%else%>無此帳號<%end if%>
<%IF NOT res.eof then%>
">
<%if not res("homepage")="" then%>">
"><%end if%>
<%if res("msnm")<>Empty then%>
<%end if
if res("homepage")<>Empty then%>
<%end if
if res("yim")<>Empty then%>
&.src=pg">
">
<%end if%>">
">
<%End if%>
<%IF NOT RES.eof then%>
<%sql="SELECT * FROM member_sort where level="&res("level")
set rs13=conn.execute(sql)%>
來自：<%=res("comefrom")%>
等級：<%=rs13("levelname")%>
發表：共<%=res("postsum")+res("replycount")%>篇
狀態：
<%sql="select * from online where name='"&res("user")&"'"
set rs_2=conn.execute(sql)
if rs_2.eof then
response.write "離線"
else
response.write "線上"
end if%>
註冊：
<%if rs11 Is Nothing Or rs11.EOF Then%>
<%=DateValue(DateAdd("h",rstitle("servertimezone"),res("registtime")))%>
<%else%>
<%=DateValue(DateAdd("h",rstitle("servertimezone")+rs11("timezone"),res("registtime")))%>
<%end if%>
經驗值：<%value=res("postsum")*0.4+res("replycount")*0.3+DateDiff("d",res("registtime"),Date)*0.3%><%=value%>
威望值：<%value=res("postsum")*2+res("replycount")%><%=value%>
現金：<%=res("money")%>
存款：<%=res("bankmoney")%>
<%end if%>
"> <%IF NOT res.eof then%><%=rsDetail("Name")%><%end if%> 回覆於
<%if rs11 Is Nothing Or rs11.EOF Then%>
<%=DateAdd("h",rstitle("servertimezone"),rsDetail("NewsDate"))%>
<%else%>
<%=DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rsDetail("NewsDate"))%>
<%end if%>
" bgcolor="<%=rs_style("table_bg_color")%>">
" bgcolor="<%=rs_style("table_bg_color")%>">
<% '判斷html和ubb開閉
If rsset("UBBcode")=True Then
If rsset("htmlencode")=True Then %>
<%subjectcolor UBBCode(rsDetail("Words")),rsDetail%><%Else%><%subjectcolor UBBCode(HTMLEncode(rsDetail("Words"))),rsDetail
End If 'htmlencode函式是顯示原始碼 %>
<%Else
If rsset("htmlencode")=True Then %>
<%subjectcolor rsDetail("Words"),rsDetail%>
<%Else%><%subjectcolor HTMLEncode(rsDetail("Words")),rsDetail
End If %>
<% End If%>
<%if not rsDetail("file")=empty then
file=rsDetail("file")
file_2=Right(file,3)
Dim Fo2
Set Fo2 = CreateObject("Scripting.FileSystemObject")'判斷檔案是否半刪了
If not Fo2.FileExists(Server.MapPath("./upload/"&file)) Then
response.write " ***附加檔案已不存在*** "
else
if file_2="jpg" then
response.write " 此主題相關圖片如下："&file&" "&"screen.width-160) this.width=screen.width-160""> "
elseif file_2="JPG" then
response.write " 此主題相關圖片如下："&file&" "&"screen.width-160) this.width=screen.width-160""> "
elseif file_2="gif" then
response.write " 此主題相關圖片如下："&file&" "&"screen.width-160) this.width=screen.width-160""> "
elseif file_2="bmp" then
response.write " 此主題相關圖片如下："&file&" "&"screen.width-160) this.width=screen.width-160""> "
elseif file_2="rar" then
response.write " 按此下載檔案："&file&" "
elseif file_2="zip" then
response.write " 按此下載檔案："&file&" "
else
response.write " 按此下載檔案："&file&" "
end if
End If
end if%>
<%rsDetail.MoveNext
If rsDetail.EOF Then Exit For
Next
End If%>
<%If rsDetail.PageCount=0 Then%>
頁次1/1
<%Else%>
<%End If%>
%" border="0">
<%'*************************版主的管理選項
Set passed3rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From tid where tid="&request("tid")
passed3rs.Open SQL, conn,1,1
if passed3rs("tidadmin")<>"" then
tidadmin=split(passed3rs("tidadmin"),"|")
for i = 1 to ubound(tidadmin)-1 '檢驗版主
if tidadmin(i)=request.cookies("UserID") and request.cookies("admin_pass")<>bbsid then%>
<%end if
next
end if
'***************************************版主管理選項結束%>
<%if request.cookies("admin_pass")=bbsid then'管理員%>
<%else'*********tid密碼的轉向**********************************************
response.redirect "forum_check.asp?tid="&request("tid")
end if'******************************************************************%>
">
&tid=<%=request("tid")%>">
">
">
">
<%if NOT rus.EOF THEN%><%=rs("Name")%><%end if%>
發表於
<%if rs11 Is Nothing Or rs11.EOF Then%>
<%=DateAdd("h",rstitle("servertimezone"),rs("CreateDate"))%>
<%else%>
<%=DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rs("CreateDate"))%>
<%end if%>
<%if rsidid("en_save")=true and rs("save_date")<>empty then%>(文章保存到
<%if rs11 Is Nothing Or rs11.EOF Then%>
<%=datevalue(Dateadd("d",rs("save_date"),DateAdd("h",rstitle("servertimezone"),rs("CreateDate"))))%>
<%else%>
<%=datevalue(Dateadd("d",rs("save_date"),DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rs("CreateDate"))))%>
<%end if%>
)<%end if%>
發表主題 
回覆主題
編輯
<% Response.Write "
傳訊息
