access类的数据库也要设置吗

gypworks526

你进入控制面板---,odbc-----看看那个按钮是off还是on .如果是off,点击它,变成on .然后再看看..

广州快乐网

on,但是我本身有数据库的呀，是.mdb形式（ACCESS），还要创建吗，其中有一个DBQ的要填写，我填写了N次都说不行，也是路径问题，哎

gypworks526

IX win主机的也没有用过,但是一般的主机都不需要设置这个的.
你在路径前面加个"/"再试试看可行:
TimesDB="/data/#TimesShop.mdb"

你把数据库库连接所有的语句 都帖出来看看..

广州快乐网

<%
dim conn,connstr,startime,TimesDB,rs,UserAgent
startime=timer()
'数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase = 0
'数据库名称和路径
TimesDB="Data/#TimesShop.mdb"

Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx
Fy_Cl = 1                '处理方式：1=提示信息,2=转向页面,3=先提示再转向
Fy_Zx = "index.Asp"        '出错时转向的页面
On Error Resume Next
Fy_Url=Request.ServerVariables("QUERY_STRING")
Fy_a=split(Fy_Url,"&")
redim Fy_Cs(ubound(Fy_a))
On Error Resume Next
for Fy_x=0 to ubound(Fy_a)
Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")-1)
Next
For Fy_x=0 to ubound(Fy_Cs)
If Fy_Cs(Fy_x)<>"" Then
If Instr(LCase(Request(Fy_Cs(Fy_x))),"'")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"%20and%20")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"%20select%20")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"%20update%20")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"%20chr")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"delete%20from")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),";")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"%20insert%20")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"%20mid")<>0 Or Instr(LCase(Request(Fy_Cs(Fy_x))),"master.")<>0 Then
Select Case Fy_Cl
  Case "1"
Response.Write "<Script Language=JavaScript>alert('                   出现错误！参数 "&Fy_Cs(Fy_x)&" 的值中包含非法字符串！\n\n  请不要在参数中出现：;,and,select,update,insert,delete,chr 等非法字符！');window.close();</Script>"
  Case "2"
Response.Write "<Script Language=JavaScript>location.href='"&Fy_Zx&"'</Script>"
  Case "3"
Response.Write "<Script Language=JavaScript>alert('                   出现错误！参数 "&Fy_Cs(Fy_x)&"的值中包含非法字符串！\n\n  请不要在参数中出现：;,and,select,update,insert,delete,chr 等非法字符！');location.href='"&Fy_Zx&"';</Script>"
End Select
Response.End
End If
End If
Next

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&TimesDB&"")
On Error Resume Next
        Set conn = Server.CreateObject("ADODB.Connection")
        conn.open connstr
        If Err Then
                err.Clear
                Set Conn = Nothing
                Response.Write "数据库连接出错，请检查Conn.asp中的数据库指向。"'
                Response.End
        End If
       
Dim strTitle,LngDiscount,strUserName,LngUserID,LngGrpID,LngDeposit,rsVip,strUserEmail
LngDiscount = 1
LngUserID = 0
LngDeposit = 0
strUserName = "非会员"
strTitle = "非会员"
if HTMLEncode(Request.Cookies("timesshop")("username")) <> "" then
set rsVip=server.CreateObject("adodb.recordset")
rsVip.open "select [User].GrpID,[User].UserID,[User].Score,[User].UserEmail,[User].Deposit,[User].UserName,TimesGrp.GrpName,TimesGrp.Stars from [User] Inner Join TimesGrp On [User].GrpID = TimesGrp.GrpID where username='"&HTMLEncode(Request.Cookies("timesshop")("username"))&"' ",conn,1,1
strTitle = rsVip("GrpName")
LngDiscount = rsVip("Stars")
LngGrpID = Clng(rsVip("GrpID"))
strUserName = rsVip("UserName")
LngUserID = Clng(rsVip("UserID"))
LngScore = Clng(rsVip("Score"))
LngDeposit = rsVip("Deposit")
strUserEmail = rsVip("UserEmail")
rsVip.close
set rsVip=nothing
End If

Select Case LngGrpID
        Case ""
                LstPrice = "Price1"
        Case 4
                LstPrice = "Price2"
        Case 30
                LstPrice = "Price3"
        Case 31
                LstPrice = "Price4"
        Case 32
                LstPrice = "Price5"
End Select


'//增添规则，非会员价与会员价相同
LstPrice = "Price2"

dim css_new_moneyName
css_new_moneyName = "先汇款价格"



'/////////////从特价网过来的用户，记录cookies
dim css_tjw_source,css_tjw_uid
css_tjw_source = lcase(request.querystring("source"))
css_tjw_uid = request.querystring("uid")
if css_tjw_source = "tejiawang" then
        if isnumeric(css_tjw_uid) and css_tjw_uid <> "" then
                css_tjw_uid = abs(fix(css_tjw_uid))
               
                response.cookies("tjw")("uid") = css_tjw_uid
        end if
end if
'///////////////////////////////
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/css.css" rel="stylesheet" type="text/css">

gypworks526

在前面加上"/",也不行吗?

是不是IX不支持使用  "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&TimesDB&"")     这一种连接方法.
你把这个换成另一种连接方法试试看:
  "DBQ=" + server.mappath(""&TimesDB&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"  
这个我也不能确定,因为平常使用这两种方法任意一种,都可以连接的,你换一下试试吧.

广州快乐网

都试过了，不行

gypworks526

我也找不出原因了
你联系他们客服问问,看看他们能不能帮你处理一下.

广州快乐网

联系了，他们说要设置那个ODBC，但是路径也不对，什么也干不了

gypworks526

需要设置ODBC,他们官方有个视频教程,你去看看.

[ 本帖最后由 gypworks526 于 2010-1-15 04:56 PM 编辑 ]

广州快乐网

我设置好了，还是不行，估计还要做什么工作