进来看看吧!超简单!白送分了!!哈哈! ( 积分: 50 )

  • 主题发起人 主题发起人 yang_ysb
  • 开始时间 开始时间
Y

yang_ysb

Unregistered / Unconfirmed
GUEST, unregistred user!
<% @ language = VBScript %>
<% Response.Buffer =True%>
<html>
<body>
<%Session(&quot;allow&quot;)=&quot;True&quot;%>
<%
'获取用户输入的用户名和密码
Name=Request.Form(&quot;username&quot;)
pass=request.Form(&quot;password&quot;)
datafile=&quot;TTBGuanLi_ysbaxp.mdb&quot;
set MyConn=server.createobject(&quot;adodb.Connection&quot;)
MyConn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)};
DBQ= &quot;
&amp;
server.mappath(&quot;&quot;&amp;
datafile &amp;&quot;&quot;)
SQL=&quot;Select * from tbiLogin where instr(uasename,name) and instr(password,pass) &quot;
Set RS = MyConn.Execute(SQL)///// 这个地方为什么会有错误呀
应该怎么改呀,各位老大给看看吧?

If not RS.eof then
 
<% @ language = VBScript %>
<% Response.Buffer =True%>
<html>
<body>
<%Session(&quot;allow&quot;)=&quot;True&quot;%>
<%
'获取用户输入的用户名和密码
Name=Request.Form(&quot;username&quot;)
pass=request.Form(&quot;password&quot;)
datafile=&quot;TTBGuanLi_ysbaxp.mdb&quot;
set MyConn=server.createobject(&quot;adodb.Connection&quot;)
MyConn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)};
DBQ= &quot;
&amp;
server.mappath(&quot;&quot;&amp;
datafile &amp;&quot;&quot;)
SQL=&quot;Select * from tbiLogin where instr(uasename,name) and instr(password,pass) &quot;
Set RS = MyConn.Execute(SQL)///// 这个地方为什么会有错误呀
应该怎么改呀,各位老大给看看吧?

If not RS.eof then
 
试试:
SQL=&quot;Select * from tbiLogin where instr(uasename,&quot;+name+&quot;) and instr(password,&quot;+pass+&quot;) &quot;
 
试过了
不过还是没有用呀
Set RS = MyConn.Execute(SQL)///// 这个地方为什么会有错误呀
应该怎么改呀,各位老大给看看吧?
这个地方还是出错呀
为什么呢????
 
instr()里面后一个参数该是单引号吧!
 
建立对象
 
字符应该要加引号吧
SQL='Select * from tbiLogin where instr(uasename,&quot;'+name+'&quot;) and instr(password,&quot;'+pass+'&quot;) '
 
后退
顶部