帮看看这段asp程序哪错了..

程序如下：其中access数据库中我把表BUILDNO设为了数字型，TIME设为了日期时间性....提示错误说少了个end,不知道哪错了，谢谢..程序功能为：接受username,password，cpuid，验证username和password如果正确则继续验证时间，和我数据库中设置的时间比较如果小于我数据库中的TIME则继续验证cpuid是否和数据库中的相等，否则就加把cpuid加1=============================================<%@LANGUAGE = VBScript.Encode%><!--#include file="conn.asp"--><%dim rs,sql,username,password,founderr,msg,state,cpuidusername=trim(request("name"))password=trim(request("password"))cpuid=trim(request("cpuid"))if username="" then   founderr=true   msg="username参数无效！"elseif cpuid="" then   founderr=true   msg="cpuid参数无效！"else   founderr=falseend ifif password="" then   founderr=true   msg="password参数无效！"else   founderr=falseend ifif founderr=true then   response.write msgelse   set rs=Server.CreateObject("ADODB.RecordSet")   sql="select * from reguser"                 rs.open sql,conn,1,1   if rs("NAME")=username and rs("PASS")=password then    if   datediff("d",rs("TIME"),date())<=0    then         if rs("CUPID")=cpuid then            response.write rs("ONLINIP")            rs("STATE")="true"            rs.update          else if rs("BUILDNO")<=10 then            rs("STATE")="true"            response.write rs("ONLINIP")            rs("BUILDNO")=rs("BUILDNO")+1            rs("CUPID")=cpuid            rs.update          else if rs("BUILDNO")>10 then            rs("STATE")="flase"            rs.update            response.write "CPUID超额"          end if              else          response.write "用户名已过期"      end if     else          response.write "输入的用户名不存在"   end if   rs.close   set rs=nothingend ifcall closeconn()%>=====================

答案：前半节的数据库连接不知道是你没写出来,还是没有.如果没有就是有错了.
ADODB.R 这个好像都是用的大写.

最好是写成这样.
set rsf=server.CreateObject("ADODB.Recordset") 
sql="select * from shop_shjclass where shjclassid="&shjclassid&""
 rsf.open sql,conn,1,1

其他：太多，你把你弹出的错抓图上来 得到 直接复制代码，换过去试一下
<%@LANGUAGE = VBScript%>
<!--#include file="conn.asp"-->
<%
dim rs,sql,username,password,founderr,msg,state,cpuid
username=trim(request("name"))
password=trim(request("password"))
cpuid=trim(request("cpuid"))
if username="" then
	founderr=true
	msg="username参数无效！"
elseif cpuid="" then
	founderr=true
	msg="cpuid参数无效！"
else
	founderr=false
end if
if password="" then
	founderr=true
	msg="password参数无效！"
else
	founderr=false
end if
if founderr=true then
	response.write msg
else
	set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from reguser"
	rs.open sql,conn,1,1
	if rs("NAME")=username and rs("PASS")=password then
		if datediff("d",rs("TIME"),date())<=0 then
			if rs("CUPID")=cpuid then
				response.write rs("ONLINIP")
				rs("STATE")="true"
				rs.update
			elseif rs("BUILDNO")<=10 then
				rs("STATE")="true"
				response.write rs("ONLINIP")
				rs("BUILDNO")=rs("BUILDNO")+1
				rs("CUPID")=cpuid
				rs.update
			elseif rs("BUILDNO")>10 then
				rs("STATE")="flase"
				rs.update
				response.write "CPUID超额"
			end if
		else
			response.write "用户名已过期"
		end if
	else
		response.write "输入的用户名不存在"
	end if
	rs.close
	set rs=nothing
end if
call closeconn()
%> 根据提示修改即可

上一个：asp程序访问不了后台,我的空间支持ASP程序求高手帮忙
下一个：如何在html中加入asp程序啊