台灣最大程式設計社群網站
線上人數
1185
 
會員總數:246209
討論主題:189782
歡迎您免費加入會員
討論區列表 >> ASP >> 無法顯示資料庫資料
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
無法顯示資料庫資料
價值 : 10 QP  點閱數:980 回應數:4
樓主

Ben
門外漢
0 6
243 34
發送站內信

<!-- #include file=database.asp -->
<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%> 頁&nbsp;&nbsp;</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%> 頁&nbsp;&nbsp;</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
捐贈 VP 給 No.18 檢舉此回應
貼一堆程式碼...只寫"新增資料後無法立即更新顯示出資料" , 我們怎麼猜啊

1.先確認資料真的有寫入資料庫成功
2.如果確定有寫入成功,但無法立即更新顯示資料,請確認頁面資料是否有做重新讀取的動作 (網頁的機制 ,頁面要有post 到server做重新讀取後,再回傳頁面才會重新更新)
本篇文章回覆於2014-03-05 11:09
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.