geniusjoy

<%
Set Conn=Server.CreateObject("Adodb.Connection")
C&Server.MapPath("database.mdb")
Conn.Open ConnStr
%>
<!--#include file=conn.asp-->
<%
dim loginname
loginname=trim(request.Form("txtusername"))
set rs=server.CreateObject("adodb.recordset")
sql="select loginuser,userpassword from account where loginuser='"& loginname &"'"
   if rs.state=1 then rs.close
   else
   rs.open sql,conn,1,1
   end if
if rs.eof and rs.bof then
   response.Write "没有用户名".<a href=index.asp>返回</a>
   response.End()
end if
if request.Form("txtpwd")<>rs.fields("userpassword")
   response.Write"密码错误!"<a href=index.asp>返回</a>
end if
   session("loginuser")=rs.fields("loginname")
   response.Redirect("login.asp")
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
这ASP出现了HTTP500的错误,不知道还有那里错了,请大家帮帮忙,看一下,万分感谢.

geniusjoy

<%
dim connstr
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("datebase.mdb")
set conn=server.CreateObject("adodb.connection")
conn.open connstr
%>
这样写也出现HTTP500错误啊？
请问是什么原因啊 ？

geniusjoy

谢谢你～～！我现在试一下

geniusjoy

出现：“component 'richtx32.ocx' or one of its dependencies not correctly registerde:a file is missing or invalid”

geniusjoy

请问应该怎么写才对呢?

geniusjoy

大部分是我写的,一些是代码不行,发到QQ群哪里人家叫我改的.

geniusjoy

管理员能说些例子教教我吗?
我学了不久,很多东西都不会哦

geniusjoy

不会吧.IF和then怎么错了? 能否解释一下吗?

geniusjoy

谢谢管理员来帮忙,有不懂的我再来问哦..
万分感谢

geniusjoy

<%
Set Conn=Server.CreateObject("Adodb.Connection")
C& Server.MapPath("database.mdb")
Conn.Open ConnStr
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select loginuser,userpassword from account where loginuser='"&trim(request("txtusername"))&"'"
   if rs.state=1 then rs.close
rs.open sql,conn,1,1
if rs.eof=true then
   response.Write "没有用户名".<a href=index.asp>返回</a>
   response.End()
end if
if request.Form("txtpwd")<>rs.fields("userpassword") then
   response.Write"密码错误!"<a href=index.asp>返回</a>
end if
   session("loginuser")=rs.fields("loginname")
   response.Redirect("login.asp")
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
这样写我是HTTP500出错阿:'( .还有那里错呢?