goo討論區View

<% Mydatabase = "../DB/bbs.mdb" messageid = Request("articleid") set adocon=Server.CreateObject("ADODB.Connection") param = "driver={Microsoft Access Driver (*.mdb)};DriverID=25;FIL=MSAccess;" adocon.Open param & ";dbq=" & Server.MapPath(Mydatabase) set rs = Server.CreateObject("ADODB.Recordset") art = " select * from Article,User where Article.Article_ID = '"&messageid&"' AND User.Article_ID = '"&messageid&"'" rs.Open art, adocon, 1,3 bts = rs("Article_BrowseTimes") + 1 btid = rs("Article_ID") btsql = " update Article set Article_BrowseTimes = "&bts&" where Article_ID = '"&btid&"' " set rs = adocon.Execute(btsql) rs.Open art, adocon, 1,3 replyLink = rs("Article_Link") replyCount = rs("ReplyPost_Count") '抓討論區的名字 set adocon1=Server.CreateObject("ADODB.Connection") param1 = "driver={Microsoft Access Driver (*.mdb)}" adocon1.Open param1 & ";dbq=" & Server.MapPath(Mydatabase) set rs1 = Server.CreateObject("ADODB.Recordset") sqlstr1 = "select * from Discuss where Discuss_ID ='"&Request("Discuss")&"' " rs1.Open sqlstr1, adocon1, 1,1 DiscussN = rs1("Discuss_Name") rs1.Close adocon1.close %>

討論區

&Page=<% = request("Page") %>">[ 發表回應文章 ]

&Page=<% = request("Page") %>">[ 回到 <%=DiscussN%> 討論區 ]

[ 回上一頁 ]

作者 : <% = rs("User_Name") %>

性別 : <% = rs("User_Sex") %>

<% if rs("User_Url") <> "" then %>

" target="_blank">

<% end if %>

<% if rs("User_Icq") <> "" then %>

ICQ : <% = rs("User_Icq") %>

<% end if %>

<% if rs("User_8dcall") <> "" then %>

8dCall(CICQ) : <% = rs("User_8dcall") %>

<% end if %>

文章主題 : <% = rs("Article_Title") %>

人氣指數 : <% = rs("Article_BrowseTimes") %>

發表時間 :<% = rs("Article_Date") %> <% = rs("Article_Time") %>

<% = Replace(rs("Article_Memo"), vbCrLf, "
" ) %>

<% = rs("User_IP") %>

<% if replyCount <> 0 then rs.Close replyart = " select Article_ID from Article where Article_Link = '"&messageid&"' Order by Article_Date + Article_Time " 'set rs = adocon.Execute(replyart) rs.Open replyart, adocon, 1,1 rs.MoveLast rs.MoveFirst re = rs.RecordCount ReDim ReplyArtID(re) replynum = 0 While Not rs.EOF ReplyArtID(replynum) = rs("Article_ID") replynum = replynum + 1 rs.MoveNext Wend num = 0 While num < replynum rai = ReplyArtID(num) replyall = " select * from Article,User where Article.Article_ID = '"&ReplyArtID(num)&"' AND User.Article_ID = '"&ReplyArtID(num)&"'" set rs = adocon.Execute(replyall) %>

作者 : <% = rs("User_Name") %>

性別 : <% = rs("User_Sex") %>

<% if rs("User_Url") <> "" then %>

" target="_blank">

<% end if %>

<% if rs("User_Icq") <> "" then %>

ICQ : <% = rs("User_Icq") %>

<% end if %>

<% if rs("User_8dcall") <> "" then %>

8dCall(CICQ) : <% = rs("User_8dcall") %>

<% end if %>

這是第 <% = num + 1 %> 篇回應文章