<% Set DataConn=server.CreateObject ("ADODB.Connection")
mdbpath = server.mappath("DB.mdb")
DataConn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & mdbpath
Set Rs=Server.CreateObject ("ADODB.Recordset")
Set RsBuf=Server.CreateObject ("ADODB.recordSet")
Set Rs2=Server.CreateObject ("ADODB.Recordset")
FormName="message"
Kd=1
RsPageCnt=50
ArcRsPageCnt=6
BId="TS01"
TB_TDTitleColor="BgColor=#666666"
TB_TDBgColor="BgColor=#8f8f8f"
TB_TBSet="cellspacing=1 cellpadding=2 BgColor=#CCCCCC"
'新增
if request("AddBtn")="發 表" then
'資料寫入資料庫中-----------------------
Rs.Open "Select Top 1 * From BBS",DataConn,1,3
Rs.AddNew
Rs("BId")="TS01"
if Request("TopGid")<>"" then
Rs("TopGid")=Request("TopGid")
RsBuf.open "select GId,Acount from BBS where GId="&Request("TopGId"),DataConn,1,3
end if
Rs("Writer")=Request("writer")
'Rs("Email")=Request("Email")
Rs("WriterIP")=Request.ServerVariables("Remote_Addr")
Rs("Subject")=Request("Subject")
Rs("Content")=CvtContent(request("Content"),80)
Rs("Utime")=now
Rs.Update
Rs.Close
if Request("AddType")="AddTop" then
BackURL="window.location.href='"&FormName&".asp?Kd="&Kd&"&Ftype=Detail&BId=" &Request("BId")& "&RsPage="&Request("RsPage")& "';"
else
BackURL="window.location.href='"&FormName&".asp?Kd="&Kd&"&Ftype=ArcDetail&BId=" &Request("BId")& "&TopGid=" &Request("TopGid")& "&ArcRsPage="&Request("ArcRspage")&"&RsPage="&Request("RsPage")&"';"
end if%>
<%Response.End
end if
if request("DelComplete")="刪除" then
DelStr="Delete From BBS where Gid in ("&Request("CbDel")&")"
Dataconn.Execute(DelStr)
Dataconn.Execute("Delete From BBS where TopGid in ("&Request("CbDel")&")")
if Request("FType")="Detail" then
'BackURL="window.location.href='"&FormName&".asp?Kd="&Kd&"&Ftype=Detail&BId=" &Request("BId")& "&RsPage="&Request("RsPage")& "';"
else
'BackURL="window.location.href='"&FormName&".asp?Kd="&Kd&"&Ftype=ArcDetail&BId=" &Request("BId")& "&TopGid=" &Request("TopGid")& "&ArcRsPage="&Request("ArcRspage")&"&RsPage="&Request("RsPage")&"';"
end if
BackURL="window.location.href='gb.asp';"
%>
<% Response.End
end if
if request("loginoff")="管理者登出" then
Session("SunKiLogined")=false
end if%>
台灣糖尿病協會
<%
select Case Request("Ftype")
Case "Add":
Content=""
if request("Qid")<>"" then
Set RsTmp=DataConn.Execute("Select writer,Content from BBS where Gid="&Request("QId"))
if not RsTmp.Eof then
Content="[MYQUOTE]引用 "&RsTmp("Writer")&chr(13)&RsTmp("Content")&"[/MYQUOTE]"&chr(13)
end if
end if
%>
<%'-------------------------------------
if Request("AddType")="AddTop" then
BackURL="""window.location.href='"&FormName&".asp?Kd="&Kd&"&Ftype=Detail&BId=" &Request("BId")& "&RsPage="&Request("RsPage")& "'"""
else
BackURL="""window.location.href='"&FormName&".asp?Kd="&Kd&"&Ftype=ArcDetail&BId=" &Request("BId")& "&TopGid=" &Request("TopGid")& "&ArcRsPage="&Request("ArcRspage")&"&RsPage="&Request("RsPage")&"'"""
end if
'------------------------------------------%>
value="取 消">
<%
'單一文章的內容
Case "ArcDetail":
QryStr="Select * From BBS where TopGId="&Request("TopGId")&" or Gid="&Request("TopGid")&" order by UTime"
Rs.Open Qrystr,DataConn,1,3
if NOT Rs.EOF then
if Rs("BCount")<>"" then
Rs("BCount")=Rs("BCount")+1
else
Rs("BCount")=1
end if
Rs.Update
end if
Set RsTmp=DataConn.Execute("Select * From BBS where Gid="&Request("TopGid")) '頁次設定
Rs.PageSize=ArcRsPageCnt
ArcRsPage=Xif(Request("ArcRsPage")="","1",Request("ArcRsPage"))
Rs.AbsolutePage=Cint(ArcRsPage)
NextPage=Xif((ArcRsPage+1)1,(ArcRsPage-1),1)
%>
<%
Case else
Qflag=0
if request("QryBtn")="查詢" then
if Request("QrySubject")<>"" then
Qflag=1
QryStr="Subject like '%"&Request("QrySubject")&"%'"
end if
Session("SunKiQrystr")=""
end if
if Qflag=1 then
QryStr="Select subject,Gid,Writer,Utime,BCount From BBS Where TopGid Is Null and "&QryStr&" order By UTime desc"
else
if Session("SunKiQrystr")<>"" then
QryStr=Session("SunKiQrystr")
else
QryStr="Select subject,Gid,Writer,Utime,BCount From BBS Where TopGid Is Null order By UTime desc"
end if
end if
Rs.Open QryStr,DataConn,1,1
Session("SunKiQrystr")=QryStr
if not rs.EOF then
'頁次設定
Rs.PageSize=RsPageCnt
RsPage=Xif(Request("RsPage")="","1",Request("RsPage"))
Rs.AbsolutePage=Cint(RsPage)
NextPage=Xif((RsPage+1)1,(RsPage-1),1)
else
RsPage=1
NextPage=1
PriorPage=1
end if
%>
