討論區快速選單
知識庫快速選單
程式設計俱樂部Facebook粉絲團 網路投保旅行平安險 討論區最近新進100則主題
[ 回上頁 ] [ 討論區發言規則 ]
資料庫無法正確連線
更改我的閱讀文章字型大小
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 上午 11:50:34
各位高手們大家好:
  我想請問一下,我要做幾個資料庫,但是當我按照書本做設定及建置資料庫時,卻造成資料庫無法正確連線,沒辦法將我在IE瀏覽器上面網頁輸入的資料轉進資料庫裡面,不知道是否因為ASP程式與ACCESS資料庫設定錯誤的關係,我實在不懂耶!千萬拜託麻煩請大家趕快教教我,千萬拜託,感激不盡,謝謝。
作者 : bluetulip(BlueTulip) Visual Basic優秀好手貼文超過1000則人氣指數超過10000點
[ 貼文 1127 | 人氣 28366 | 評價 4070 | 評價/貼文 3.61 | 送出評價 15 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人angel_0512註記此篇回應為很有道理 2004/7/14 上午 11:59:11
偶說小璇璇啊....
妳不覺得把妳連結資料庫的那一段程式碼貼上來比較好嗎?
要不大伙要怎麼幫妳呢?難不成丟幾個教學網站給妳? ^^"
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 02:26:30
啊!程式碼太多了,我貼不上來啊!!
作者 : bluetulip(BlueTulip) Visual Basic優秀好手貼文超過1000則人氣指數超過10000點
[ 貼文 1127 | 人氣 28366 | 評價 4070 | 評價/貼文 3.61 | 送出評價 15 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人angel_0512註記此篇回應為很有道理 2004/7/14 下午 02:28:17
好歹要把連結資料庫的那一段貼上來吧 ^^"
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 02:39:16
請問一下是這個嗎?如果是的話,千萬拜託麻煩請你們大家教教我,千萬拜託,感激不盡,謝謝。


<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<!--#include file="../Connections/Greens.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  MM_dupKeyRedirect="Message.asp"
  MM_rsKeyConnection=MM_Greens_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form("Email"))
  MM_dupKeySQL="SELECT Email FROM tMember WHERE Email='" & MM_dupKeyUsernameValue & "'"
  MM_adodbRecordset="ADODB.Recordset"
  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
  MM_rsKey.ActiveConnection=MM_rsKeyConnection
  MM_rsKey.Source=MM_dupKeySQL
  MM_rsKey.CursorType=0
  MM_rsKey.CursorLocation=2
  MM_rsKey.LockType=3
  MM_rsKey.Open
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>

>好歹要把連結資料庫的那一段貼上來吧 ^^'
作者 : bluetulip(BlueTulip) Visual Basic優秀好手貼文超過1000則人氣指數超過10000點
[ 貼文 1127 | 人氣 28366 | 評價 4070 | 評價/貼文 3.61 | 送出評價 15 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 02:58:51
嗯....連Access資料庫,是*.mdb檔嗎?
可是在程式碼中沒看到喵.... @@"
作者 : wenyuan78(小元元)
[ 貼文 12 | 人氣 278 | 評價 190 | 評價/貼文 15.83 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人angel_0512註記此篇回應為很有道理 2004/7/14 下午 03:14:41
看了你貼的程式..

我想..資料庫連結的程式應該是在Greens.asp
你應該是要貼出Greens.asp吧
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 04:06:42
這是Greens.asp的程式碼,我依照Dreamweaver的書上去做設定,而它自動產生的。

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_Greens_STRING
MM_Greens_STRING = "dsn=Greens;"
%>
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 04:07:45
可是我自己也找不到耶!!

>嗯....連Access資料庫,是*.mdb檔嗎?
>可是在程式碼中沒看到喵.... @@'
>
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 04:11:21
第二段程式

<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form2") Then

  MM_editConnection = MM_Greens_STRING
  MM_editTable = "tMember"
  MM_editRedirectUrl = "Addmem_success.asp"
  MM_fieldsStr = "Email|value|Password|value|Mem_Name|value|Sex|value|Birthday|value|postcode|value|Address|value|Telephone|value"
  MM_columnsStr = "Email|',none,''|Password|',none,''|Mem_Name|',none,''|Sex|',none,''|Birthday|',none,''|Postcode|none,none,NULL|Address|',none,''|Telephone|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
     MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
     MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
     MM_formVal = MM_emptyVal
    Else
     If (MM_altVal <> "") Then
     MM_formVal = MM_altVal
     ElseIf (MM_delim = "'") Then ' escape quotes
     MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
     Else
     MM_formVal = MM_delim + MM_formVal + MM_delim
     End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
     MM_tableValues = MM_tableValues & ","
     MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
     Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 04:14:04
第三段程式
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>加入會員</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
     if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
     if (p<1 || p==(val.length-1)) errors+='- '+nm+' 必須輸入電子郵件地址.\n';
     } else if (test!='R') { num = parseFloat(val);
     if (isNaN(val)) errors+='- '+nm+' 必須輸入密碼.\n';
     if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
     min=test.substring(8,p); max=test.substring(p+1);
     if (num<min || max<num) errors+='- '+nm+' 必須再輸入確認密碼 '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  }
   if (form2.Password.value!=form2.Surepassword.value){
   errors +='您所輸入的密碼及確認密碼兩個欄位資料不同!\n';}
   if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
</head>
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 04:15:32
第四段程式

<body bgcolor="#CCFFCC" text="#666600" link="#009900" vlink="#006600" alink="#00FF00">
<table width="750" height="143" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="414" height="212" valign="top"> <blockquote>
     <p><br>
     <font color="#003300"><strong>表格中標示<font color="#FF0000">*</font>符號的部份請務必填寫</strong></font></p>
     </blockquote>
     <form ACTION="<%=MM_editAction%>" METHOD="POST" name="form2" onSubmit="MM_validateForm('Email','','RisEmail','Mem_Name','','R','Surepassword','','R');return document.MM_returnValue">
     <table align="center" cellpadding="2" cellspacing="2" bordercolor="#006666" border="1" width="571">
     <tr>
     <td width="97" bgcolor="#00CCCC"><font color="#FF0000">*</font><font color="#000000">帳號:</font></td>
     <td width="454" bgcolor="#66CCCC">
     <input type="text" name="Email" size="20">
     <font color="#006600">(請輸入您的E-mail做為會員帳號)</font></td>
     </tr>
     <tr>
     <td bgcolor="#00CCCC"><font color="#FF0000">*</font><font color="#000000">密碼:</font></td>
     <td bgcolor="#66CCCC"> <input type="password" name="Password" value="" size="15">
     </td>
     </tr>
     <tr>
     <td bgcolor="#00CCCC"><font color="#FF0000">*</font><font color="#000000">確認密碼:</font></td>
     <td bgcolor="#66CCCC"> <input type="password" name="Surepassword" size="15">
     </td>
     </tr>
     <tr>
     <td bgcolor="#00CCCC" height="32"><font color="#FF0000">*</font><font color="#000000">姓名:</font></td>
     <td bgcolor="#66CCCC" height="32"> <input name="Mem_Name" type="text" id="Mem_Name">
     </td>
     </tr>
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 04:16:43
第五段程式

     <tr>
     <td bgcolor="#00CCCC"><font color="#000000">性別:</font></td>
     <td bgcolor="#66CCCC"> <input type="radio" name="Sex" value="女" checked>
     <font color="#000000">女</font> <input type="radio" name="Sex" value="男">
     <font color="#000000">男</font></td>
     </tr>
     <tr>
     <td bgcolor="#00CCCC"><font color="#000000">生日:</font></td>
     <td bgcolor="#66CCCC"> <input type="text" name="Birthday" size="20">
     <font color="#006600">(請以"年/月/日"的方式輸入) </font></td>
     </tr>
     <tr>
     <td bgcolor="#00CCCC"><font color="#000000">郵遞區號 :</font></td>
     <td bgcolor="#66CCCC"><input name="postcode" type="text" id="postcode" size="6"></td>
     </tr>
     <tr>
     <td bgcolor="#00CCCC"><font color="#000000">住址:</font></td>
     <td bgcolor="#66CCCC"> <input type="text" name="Address" size="30">
     </td>
     </tr>
     <tr>
     <td bgcolor="#00CCCC"><font color="#000000">電話:</font></td>
     <td bgcolor="#66CCCC"> <input type="text" name="Telephone" size="15">
     <font color="#006600">(請不要使用特殊字元,如-、*或括號…等) </font></td>
     </tr>
     <tr>
     <td bgcolor="#00CCCC" colspan="2"> <div align="center">
     <input type="submit" name="Submit" value="送出">
     <input type="reset" name="Submit2" value="重新填寫">
     </div></td>
     </tr>
     </table>
     <input type="hidden" name="MM_insert" value="form2">
     </form>
     <p> </p></td>
  </tr>
</table>
</body>
</html>
作者 : wenyuan78(小元元)
[ 貼文 12 | 人氣 278 | 評價 190 | 評價/貼文 15.83 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人angel_0512註記此篇回應為很有道理 2004/7/14 下午 04:27:35
MM_Greens_STRING = "dsn=Greens;"

問題應該是在這裡吧..
你是否有去設定一個DSN名稱叫Greens

先到ODBC裡檢查一下吧
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 04:41:56
對啊!可是不知道問題要怎麼解決耶!可否請你們大家教教我呢?千萬拜託,感激不盡,謝謝。


>MM_Greens_STRING = 'dsn=Greens;'
>
>問題應該是在這裡吧..
>你是否有去設定一個DSN名稱叫Greens
>
>先到ODBC裡檢查一下吧
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 05:00:09
我是用Greens.mdb來做Access資料庫的,我依照Dreamweaver書上所寫的設定,並在Dreamweaver裡面設定一個資料來源名稱(DSN)為Greens的檔案,結果它就自動產生一個Connections的資料夾,資料夾裡面也產生一個Greens.asp的檔案,不好意思,那請問一下大家,不知道這些地方及上述我所貼的程式碼有沒有什麼問題呢?千萬拜託麻煩請大家趕快教教我,千萬拜託,感激不盡,謝謝。
作者 : angel_0512(宇璇) 人氣指數超過30000點
[ 貼文 127 | 人氣 32334 | 評價 0 | 評價/貼文 0 | 送出評價 37 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/14 下午 05:08:50
不好意思,是否可以請你們大家告訴我幾個不錯關於資料庫及ASP的教學網站嗎?千萬拜託,感激不盡,謝謝。


>偶說小璇璇啊....
>妳不覺得把妳連結資料庫的那一段程式碼貼上來比較好嗎?
>要不大伙要怎麼幫妳呢?難不成丟幾個教學網站給妳? ^^'
作者 : bluetulip(BlueTulip) Visual Basic優秀好手貼文超過1000則人氣指數超過10000點
[ 貼文 1127 | 人氣 28366 | 評價 4070 | 評價/貼文 3.61 | 送出評價 15 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人angel_0512註記此篇回應為很有道理 2004/7/14 下午 05:21:37
藍色小舖(有大量的ASP、PHP範例)
http://asp.database.net.tw
小正正教室(教學文件中有針對DreamWeaver MX & UltraDev的部份)
http://www.class2u.idv.tw

個人覺得小正正比較適合,因為藍色小舖是討論程式碼為主,
而你要找的應該是以DreamWeaver 和 UltraDev 為主的網站會快一點。
就先這兩個吧!時間不是很夠的喵!
還有問題就再貼上來問吧!

明天要請考試假的 BlueTulip @@"
 板主 : 徵求中
 > 資料庫設計與應用 - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - 資料庫設計與應用 - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
資料庫設計與應用
1 ㄉ一ˊㄎㄜˋ 350 
2 好說 120 
3 BlueTulip 110 
4 老芋仔 90 
5 坤哥 80 
6 cnliou 80 
7 小朱 60 
8 HKLN.net 60 
9 小元元 60 
10 Aries 50 
資料庫設計與應用
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.09375