台灣最大程式設計社群網站
線上人數
712
 
會員總數:246039
討論主題:189629
歡迎您免費加入會員
討論區列表 >> ASP.NET >> [NET]一個ASP.NET的問題
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[NET]一個ASP.NET的問題
價值 : 0 QP  點閱數:1293 回應數:4
樓主

maduka 版主
高級專家
9119 53
6734 2958
發送站內信

捐贈 VP 給 maduka
以下是在下的一部分程式
<%
Dim DBConnection As OLEDBConnection
Dim DBCommand As OLEDBCommand
Dim DBReader As OLEDBDataReader

conn_test_str = "Provider=SQLOLEDB;"
conn_test_str = conn_test_str & "Server=" & SERVER_NAME
conn_test_str = conn_test_str & ";UID=" & UID
conn_test_str = conn_test_str & ";PWD=" & SQLPWD
conn_test_str = conn_test_str & ";DataBase=" & DATABASE_NAME

DBConnection = New OLEDBConnection(conn_test_str)
DBConnection.Open()

SQL = "Select * From AOS_SYSTEM_FILE Where SYSTEM_NUMBER <> 'S99' ORDER BY SYSTEM_SEQ"

DBCommand = New OLEDBCommand( SQL, DBConnection )
DBReader = DBCommand.ExecuteReader()
%>
' -----好用的分隔線^^"-------------
<%
Do While DBReader.Read()
  Response.Write DBReader.Item("SYSTEM_NAME") 
Loop
%>
在下發現,若是將程式用<%%>分隔成兩個部分,第二個部分的DBReader就會產生未宣告的錯誤
不知道大家有沒有遇到過..
有沒有解決的方法呢??
謝謝

本篇文章發表於2002-04-07 00:22
1樓
回應

sabcat
檢舉此回應
我測過了..不會有問題呀...
我是copy你的程式...再把它改成連結自己的access資料庫
用的是ASP.NET 1.0語法
我想問一下~~你有將 System.Data及System.Data.OleDb這兩個Namespace載入吧?
還有..在使用conn_test_str,SQL變數前..有先宣告吧?
另外.... Response.Write的用法有變..參數要放在()裡
ex. Response.Write(DBReader.Item("SYSTEM_NAME")
還有...VB.NET可使用像C++一樣的快捷運算元 (+=、-=、*=、/= ...之類)
所以你的conn_test_str就可以簡化了
ex.conn_test_str += "Server=" & SERVER_NAME
本篇文章回覆於2002-04-07 06:26
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

maduka
捐贈 VP 給 maduka 檢舉此回應
這就怪了-____-'''
在下把程式都貼上來好了

<%@ Language="VB" Debug="true"%>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OLEDB" %>
<%

'----------定義變數----------
Dim DeConnection As Integer
Dim i As Integer

Dim conn_test_str As String
Dim SQL AS String

Dim DBConnection As OLEDBConnection
Dim DBCommand As OLEDBCommand
Dim DBReader As OLEDBDataReader

conn_test_str = "Provider=SQLOLEDB;"
conn_test_str = conn_test_str & "Server=" & SERVER_NAME
conn_test_str = conn_test_str & ";UID=" & UID
conn_test_str = conn_test_str & ";PWD=" & SQLPWD
conn_test_str = conn_test_str & ";DataBase=" & DATABASE_NAME

DBConnection = New OLEDBConnection(conn_test_str)
DBConnection.Open()

'----------找出主系統的資料----------
SQL = "Select * From AOS_SYSTEM_FILE Where SYSTEM_NUMBER <> 'S99' ORDER BY SYSTEM_SEQ"

DBCommand = New OLEDBCommand( SQL, DBConnection )
DBReader = DBCommand.ExecuteReader()
%>
<body onload="document.body.focus();">
<p align="center">
<img border="0" src="images/index.JPG" width="487" height="302"></p>
<form method="POST" action="tree.asp" Runat="Server">
  <table width="100%" Class="td10">
    <tr>
      <td width="50%" align="right">使用者名稱:</td>
      <td width="50%">
      <ASP:TEXTBOX type="text" id="username" size="10" maxlength="8" Class="inputbox10" Value="maduka" onblur="this.className = 'inputbox10'" onfocus="this.className = 'inputing10'" Runat="Server"/></td>
    </tr>
    <tr>
      <td width="50%" align="right">密碼:</td>
      <td width="50%">
      <ASP:TEXTBOX type="password" id="password" size="10" maxlength="8" Class="inputbox10" Value="0002" onblur="this.className = 'inputbox10'" onfocus="this.className = 'inputing10'" Runat="Server"/></td>
    </tr>
    <tr>
      <td width="50%" align="right">選擇作業:</td>
      <td width="50%">
      <%
      Response.Write ("<ASP:DropDownList id=""System_Select"" Runat=""Server"" onblur=""this.className = 'inputbox10'"" onfocus=""this.className = 'inputing10'"" Class=""inputbox10"">")
      Response.Write ("  <ASP:ListItem Value="""" Selected=""True"">請選擇作業項目</ASP:ListItem>")
      Do While DBReader.Read()
        Response.Write ("<ASP:ListItem Value=""" & DBReader.Item("SYSTEM_NUMBER") & """>" & DBReader.Item("SYSTEM_NAME") & "</ASP:ListItem>")
      Loop
      Response.Write ("</ASP:DropDownList>")
      %>
      </td>
    </tr>
  </table>
  <p align="Center">
  <ASP:Button TEXT="進入系統" Class="BB" id="input" Runat="Server"/> 
  <ASP:Button TEXT="重新設定" Class="BB" id="clean" Runat="Server"/>
  </p>
</form>
麻煩大家幫在下看一下,謝謝
本篇文章回覆於2002-04-07 22:53
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

嗯...
檢舉此回應
我記得Do While DBReader.Read()
  Response.Write DBReader.Item("SYSTEM_NAME") 
Loop
要放在
<script language="VB" runat="server">

Do While DBReader.Read()
  Response.Write DBReader.Item("SYSTEM_NAME") 
Loop

</script>
之間...

之前有相關文章...連結忘了...用這樣試試吧...^_^...不能用別打我喔...>_<...
本篇文章回覆於2004-01-05 13:26
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

Eddie
檢舉此回應
建議您使用DataBind的方式來做,asp.net如果還用asp的coding方式
這樣就顯示不出.net的威力囉~~
本篇文章回覆於2004-01-05 15:22
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

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