無法顯示資料庫資料- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1185

會員總數：246209
討論主題：189782

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> ASP >> 無法顯示資料庫資料

[]

[我要回覆]

無法顯示資料庫資料
價值 : 10 QP 點閱數:980 回應數:4

樓主

Ben

0	6
243	34

發送站內信

<DIV CLASS="abgne_tab">
<UL CLASS="tabs">
<LI><A HREF="#tab1">處室公告</A></LI>
<LI><A HREF="#tab2">榮譽事蹟</A></LI>
<LI><A HREF="#tab3">獎助學金</A></LI>
</UL>
<DIV CLASS="tab_container">

<DIV ID="tab1" CLASS="tab_content">
<%

SQLstr="Select * From Message Where mType='"& ("處室公告") &"' Order By ID DESC"

Set con=OpenOrGet_DateBase("stock_con")

IF Page="" THEN
Set rs=Open_RsAndPageSize(con,SQLstr,"stock_rs",10)
Else
Set rs=OpenOrGet_RsAndPageSize(con,SQLstr,"stock_rs",10)
End IF

Page=CLng(Request("Page"))

IF Page < 1 THEN Page =1
IF Page >rs.PageCount THEN Page = rs.PageCount

Response.Write SQLstr

'-------判斷資料庫是否有資料------
On Error Resume Next
'--------判斷結束-----------------

%>
<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="6" WIDTH="100%">
<TR BGCOLOR="#9ec3e1">
<TD ID="TDC" CLASS="KKK000" WIDTH="15%" HEIGHT="20">單位</TD>
<TD ID="TDC" CLASS="KKK000" WIDTH="55%">標題</TD>
<TD ID="TDC" CLASS="KKK000" WIDTH="15%">公告日期</TD>
<% IF Session("mPws") = "Yes" THEN %>
<TD ID="TDC" CLASS="KKK000" WIDTH="15%">管理模式</TD>
<% END IF %>
</TR>
<%

Rec=1

rs.AbsolutePage = Page
For iPage=10*(Page-1)+1 to 10*Page

IF (Rec Mod 2)=1 Then
BGSwitch="FFFFFF"
Else
BGSwitch="e8e8e8"
End IF

Rec=Rec + 1

%>
<% IF rs.EOF THEN %>
<TR>
<TD COLSPAN="4" ID="TDC" CLASS="blue055CC4" HEIGHT="60">目前尚無資料</TD>
</TR>
<% ELSE %>
<TR BGCOLOR="<%=BGSwitch%>">
<TD ID="TDC"><%=rs("mUnit")%></TD>
<TD ID="TDL"><A HREF="board_brow.asp?Action=&Kind=處室公告&mmID=<%=rs("ID")%>" CLASS="bord"><%=rs("mTitle")%></A></TD>
<TD ID="TDL"><%=rs("mYear")%>-<%=rs("mMonth")%>-<%=rs("mDay")%></TD>
<% IF Session("mPws") = "Yes" THEN %>
<TD ID="TDC">
<% IF Session("OffName") = rs("mUnit") THEN %>
<A HREF="modifyboard.asp?Action=&mmID=<%=rs("ID")%>" CLASS="bord">修改</A> |
<A HREF="deleteboard.asp?Action=&mmID=<%=rs("ID")%>" onClick="if(!confirm('您是否確定要刪除此公告？')){return false;}" CLASS="bord">刪除</A>
<% END IF %>
</TD>
<% END IF %>
</TR>
<% END IF %>
<% rs.MoveNext %>
<% IF rs.EOF THEN Exit For %>
<% Next %>
</TABLE>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3" WIDTH="100%">
<TR>
<TD ID="TDC" WIDTH="20%"></TD>
<TD ID="TDC" WIDTH="60%">
<SPAN STYLE="letter-spacing: 3pt">
<IMG SRC="images/bill/left.gif" WIDTH="11" HEIGHT="11">
<% IF Page <> 1 THEN %>
<A HREF="index.asp?Action=Browse&Page=1" CLASS="red">
<u>第一頁</u></A>
<A HREF="index.asp?Action=Browse&Page=<%=Page-1%>" CLASS="red">
<u>上一頁</u></A>
<% End IF %>
<% IF Page <> rs.PageCount THEN %>
<A HREF="index.asp?Action=Browse&Page=<%=Page+1%>" CLASS="red">
<u>下一頁</u></A>
<A HREF="index.asp?Action=Browse&Page=<%=rs.PageCount%>" CLASS="red">
<u>最後一頁</u></A>
<% End IF %>
<IMG SRC="images/bill/right.gif" WIDTH="11" HEIGHT="11">
</SPAN>
</TD>
<TD ID="TDR" WIDTH="20%">
<SPAN STYLE="letter-spacing: 2pt"><%=Page%> 頁／<%=rs.PageCount%> 頁  </SPAN>
</TD>
</TR>
</TABLE>
</DIV>



<DIV ID="tab2" CLASS="tab_content">
<%

SQLstr1="Select * From Message Where mType='"& ("榮譽事蹟") &"' Order By ID DESC"

Set con1=OpenOrGet_DateBase1("stock_con1")

IF Page="" THEN
Set rs1=Open_RsAndPageSize(con1,SQLstr1,"stock_rs1",10)
Else
Set rs1=OpenOrGet_RsAndPageSize(con1,SQLstr1,"stock_rs1",10)
End IF

Page=CLng(Request("Page"))

IF Page < 1 THEN Page =1
IF Page >rs1.PageCount THEN Page = rs1.PageCount

Response.Write SQLstr1

'-------判斷資料庫是否有資料------
On Error Resume Next
'--------判斷結束-----------------

%>
<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="6" WIDTH="100%">
<TR BGCOLOR="#9ec3e1">
<TD ID="TDC" CLASS="KKK000" WIDTH="15%" HEIGHT="20">單位</TD>
<TD ID="TDC" CLASS="KKK000" WIDTH="55%">標題</TD>
<TD ID="TDC" CLASS="KKK000" WIDTH="15%">公告日期</TD>
<% IF Session("mPws") = "Yes" THEN %>
<TD ID="TDC" CLASS="KKK000" WIDTH="15%">管理模式</TD>
<% END IF %>
</TR>
<%

Rec=1

rs1.AbsolutePage = Page
For iPage=10*(Page-1)+1 to 10*Page

IF (Rec Mod 2)=1 Then
BGSwitch="FFFFFF"
Else
BGSwitch="e8e8e8"
End IF

Rec=Rec + 1

%>
<% IF rs1.EOF THEN %>
<TR>
<TD COLSPAN="4" ID="TDC" CLASS="blue055CC4" HEIGHT="60">目前尚無資料</TD>
</TR>
<% ELSE %>
<TR BGCOLOR="<%=BGSwitch%>">
<TD ID="TDC"><%=rs1("mUnit")%></TD>
<TD ID="TDL"><A HREF="board_brow.asp?Action=&Kind=榮譽事蹟&mmID=<%=rs1("ID")%>" CLASS="bord"><%=rs1("mTitle")%></A></TD>
<TD ID="TDL"><%=rs1("mYear")%>-<%=rs1("mMonth")%>-<%=rs1("mDay")%></TD>
<% IF Session("mPws") = "Yes" THEN %>
<TD ID="TDC">
<% IF Session("OffName") = rs1("mUnit") THEN %>
<A HREF="modifyboard.asp?Action=&mmID=<%=rs1("ID")%>" CLASS="bord">修改</A> |
<A HREF="deleteboard.asp?Action=&mmID=<%=rs1("ID")%>" onClick="if(!confirm('您是否確定要刪除此公告？')){return false;}" CLASS="bord">刪除</A>
<% END IF %>
</TD>
<% END IF %>
</TR>
<% END IF %>
<% rs1.MoveNext %>
<% IF rs1.EOF THEN Exit For %>
<% Next %>
</TABLE>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3" WIDTH="100%">
<TR>
<TD ID="TDC" WIDTH="20%"></TD>
<TD ID="TDC" WIDTH="60%">
<SPAN STYLE="letter-spacing: 3pt">
<IMG SRC="images/bill/left.gif" WIDTH="11" HEIGHT="11">
<% IF Page <> 1 THEN %>
<A HREF="index.asp?Action=Browse&Page=1" CLASS="red">
<u>第一頁</u></A>
<A HREF="index.asp?Action=Browse&Page=<%=Page-1%>" CLASS="red">
<u>上一頁</u></A>
<% End IF %>
<% IF Page <> rs1.PageCount THEN %>
<A HREF="index.asp?Action=Browse&Page=<%=Page+1%>" CLASS="red">
<u>下一頁</u></A>
<A HREF="index.asp?Action=Browse&Page=<%=rs1.PageCount%>" CLASS="red">
<u>最後一頁</u></A>
<% End IF %>
<IMG SRC="images/bill/right.gif" WIDTH="11" HEIGHT="11">
</SPAN>
</TD>
<TD ID="TDR" WIDTH="20%">
<SPAN STYLE="letter-spacing: 2pt"><%=Page%> 頁／<%=rs1.PageCount%> 頁  </SPAN>
</TD>
</TR>
</TABLE>
</DIV>



<DIV ID="tab3" CLASS="tab_content">
<%

SQLstr2="Select * From Message Where mType='"& ("獎助學金") &"' Order By ID DESC"

Set con2=OpenOrGet_DateBase("stock_con2")

IF Page="" THEN
Set rs2=Open_RsAndPageSize(con2,SQLstr2,"stock_rs2",10)
Else
Set rs2=OpenOrGet_RsAndPageSize(con2,SQLstr2,"stock_rs2",10)
End IF

Page=CLng(Request("Page"))

IF Page < 1 THEN Page =1
IF Page >rs2.PageCount THEN Page = rs2.PageCount

'-------判斷資料庫是否有資料------
On Error Resume Next
'--------判斷結束-----------------

%>
<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="6" WIDTH="100%">
<TR BGCOLOR="#9ec3e1">
<TD ID="TDC" CLASS="KKK000" WIDTH="15%" HEIGHT="20">單位</TD>
<TD ID="TDC" CLASS="KKK000" WIDTH="55%">標題</TD>
<TD ID="TDC" CLASS="KKK000" WIDTH="15%">公告日期</TD>
<% IF Session("mPws") = "Yes" THEN %>
<TD ID="TDC" CLASS="KKK000" WIDTH="15%">管理模式</TD>
<% END IF %>
</TR>
<%

Rec=1

rs2.AbsolutePage = Page
For iPage=10*(Page-1)+1 to 10*Page

IF (Rec Mod 2)=1 Then
BGSwitch="FFFFFF"
Else
BGSwitch="e8e8e8"
End IF

Rec=Rec + 1

%>
<% IF rs2.EOF THEN %>
<TR>
<TD COLSPAN="4" ID="TDC" CLASS="blue055CC4" HEIGHT="60">目前尚無資料</TD>
</TR>
<% ELSE %>
<TR BGCOLOR="<%=BGSwitch%>">
<TD ID="TDC"><%=rs2("mUnit")%></TD>
<TD ID="TDL"><A HREF="board_brow.asp?Action=&Kind=獎助學金&mmID=<%=rs2("ID")%>" CLASS="bord"><%=rs2("mTitle")%></A></TD>
<TD ID="TDL"><%=rs2("mYear")%>-<%=rs2("mMonth")%>-<%=rs2("mDay")%></TD>
<% IF Session("mPws") = "Yes" THEN %>
<TD ID="TDC">
<% IF Session("OffName") = rs2("mUnit") THEN %>
<A HREF="modifyboard.asp?Action=&mmID=<%=rs2("ID")%>" CLASS="bord">修改</A> |
<A HREF="deleteboard.asp?Action=&mmID=<%=rs2("ID")%>" onClick="if(!confirm('您是否確定要刪除此公告？')){return false;}" CLASS="bord">刪除</A>
<% END IF %>
</TD>
<% END IF %>
</TR>
<% END IF %>
<% rs2.MoveNext %>
<% IF rs2.EOF THEN Exit For %>
<% Next %>
</TABLE>

新增資料後無法立即更新顯示出資料,可以幫我看看出了甚麼問題嗎??

本篇文章發表於2014-03-04 13:52

1樓作者回應 Ben	拜託幫幫忙啊!! 本篇文章回覆於2014-03-04 14:37 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓作者回應 Ben	拜託幫幫忙. 本篇文章回覆於2014-03-04 16:13 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應 MIS2000 Lab	錯誤訊息是什麼？你檢查過資料庫是否還存在？是否能連上去？（應該是這一段<!-- #include file=database.asp -->）本篇文章回覆於2014-03-05 08:42 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應 No.18	貼一堆程式碼...只寫"新增資料後無法立即更新顯示出資料" , 我們怎麼猜啊 1.先確認資料真的有寫入資料庫成功 2.如果確定有寫入成功,但無法立即更新顯示資料,請確認頁面資料是否有做重新讀取的動作 (網頁的機制 ,頁面要有post 到server做重新讀取後,再回傳頁面才會重新更新) 本篇文章回覆於2014-03-05 11:09 == 簽名檔 == --未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.

1樓作者回應 Ben	拜託幫幫忙啊!! 本篇文章回覆於2014-03-04 14:37 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓作者回應 Ben	拜託幫幫忙. 本篇文章回覆於2014-03-04 16:13 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應 MIS2000 Lab	錯誤訊息是什麼？你檢查過資料庫是否還存在？是否能連上去？（應該是這一段<!-- #include file=database.asp -->）本篇文章回覆於2014-03-05 08:42 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應 No.18	貼一堆程式碼...只寫"新增資料後無法立即更新顯示出資料" , 我們怎麼猜啊 1.先確認資料真的有寫入資料庫成功 2.如果確定有寫入成功,但無法立即更新顯示資料,請確認頁面資料是否有做重新讀取的動作 (網頁的機制 ,頁面要有post 到server做重新讀取後,再回傳頁面才會重新更新) 本篇文章回覆於2014-03-05 11:09 == 簽名檔 == --未登入的會員無法查看對方簽名檔--