chiaopi
2008-12-15, 05:43 PM
<%
Dim oConn, oRs, filePath, strSQL
filePath = Server.MapPath("anetdb.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&FilePath
Set oRs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM 客戶基本資料"
oRs.Open strSQL, oConn, 3, 3
oRs.AddNew
oRs.Fields("公司名稱") = Request("companyname")
oRs.Fields("網址") = Request("url")
oRs.Fields("建立日期") = date
oRs.Update
oRs.Close
%>
上述紅色部份的敘述為新增功能
在某些頁面新增沒問題
有些卻有問題﹝錯誤500)
可能的問題是什麼呢
抱歉請教一下了
贊助商連結
Dim oConn, oRs, filePath, strSQL
filePath = Server.MapPath("anetdb.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&FilePath
Set oRs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM 客戶基本資料"
oRs.Open strSQL, oConn, 3, 3
oRs.AddNew
oRs.Fields("公司名稱") = Request("companyname")
oRs.Fields("網址") = Request("url")
oRs.Fields("建立日期") = date
oRs.Update
oRs.Close
%>
上述紅色部份的敘述為新增功能
在某些頁面新增沒問題
有些卻有問題﹝錯誤500)
可能的問題是什麼呢
抱歉請教一下了
贊助商連結