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的错误,不知道还有那里错了,请大家帮帮忙,看一下,万分感谢.

Nothing

C&Server.MapPath("database.mdb")

这句肯定不对吧

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错误啊？
请问是什么原因啊 ？

Nothing

使用这个工具，能看到报什么错
这个工具是我以前为了调试ASP程序写的

http://www.lihuasoft.net/download/show.php?id=32

geniusjoy

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

geniusjoy

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

Nothing

那个程序是VB写的，要用到richtextbox控件，你到网上下载一个。

Nothing

你的代码写的够烂的，你看看下面的if语句，有这样写的吗？？？？
  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

geniusjoy

请问应该怎么写才对呢?

geniusjoy

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