首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

小弟我是新手 大家来帮忙看看啊

2012-03-25 
我是新手 大家来帮忙看看啊!我编了一登陆页面下面是VBScript部分%Dimzh,mmzhRequest.Form( zh )mmReq

我是新手 大家来帮忙看看啊!
我编了一登陆页面   下面是VBScript部分
<%
  Dim   zh,mm
  zh=Request.Form( "zh ")
  mm=Request.Form( "mm ")  
  If   zh <> " "   and   mm <> " "   Then%>
  <!--#include   file= "ljsjk.asp "-->
    <%
    Dim   dbcmd
    Set   dbcmd=Server.CreateObject( "Adodb.Command ")
    dbcmd.ActiveConnection=dbcn
    dbcmd.CommandText= "Select   mm,yhsf   From   yhxx   Where   zh= ' "&zh& " ' "
    dbcmd.CommandType=1
    Set   dbrs=dbcmd.Execute
    If   not   dbrs.Eof   And   not   dbrs.Bof   Then
If   dbrs( "mm ")=mm   Then
Session( "username ")=zh
If   dbrs( "yhsf ")= "1 "   Then
Response.Redirect( "yhgl.asp ")
    Else
Response.Write( "密码不对,请重新输入! ")
    End   If
  Else
Response.Write( "对不起,您还没有注册! ")
  End   If%>
  <%dbcn.Close
  Set   dbcn=Nothing
  end   if
  End   if%>

ljsjk.asp为
<%
Dim   dbcn
Set   dbcn=Server.CreateObject( "Adodb.Connection ")
dbcn.ConnectionString= "=dbq= "&Server.MapPath( "DATA\SPXXGLXT.mdb ")& ";Driver={Microsoft   Access   Driver(*.mdb)} "
dbcn.ConnectionTimeOut=40
dbcn.open
%>
可是运行总是出现
错误类型:
Microsoft   OLE   DB   Service   Components   (0x80040E73)
指定的初始化字符串不符合   OLE   DB   规定。
/ljsjk.asp,   第   6   行

请问我该怎么解决啊!谢谢了!


[解决办法]
dbcn.ConnectionString= "dbq= "&Server.MapPath( "DATA\SPXXGLXT.mdb ")& ";Driver={Microsoft Access Driver(*.mdb)} "
[解决办法]
把=去掉么~

热点排行