请高手指教出现这个提示是什么原因?

原代码如下:

Public Function UserLoginChecked()

                'on error resume next

    UserName = KS.R(Trim(KS.C("UserName")))

    PassWord= KS.R(Trim(KS.C("Password")))

    RndPassword=KS.R(Trim(KS.C("RndPassword")))

    IF UserName="" Then

       UserLoginChecked=false

       Exit Function

    ElseIf IsObject(Session(KS.SiteSN&"UserInfo")) Then

       UserLoginChecked=True

    Else

     Dim UserRs

     If DataBaseType=1 Then

      Dim Cmd : Set Cmd = Server.CreateObject("ADODB.Command")

      Set Cmd.ActiveConnection=conn

      Cmd.CommandText="KS_UserSQL"

      Cmd.CommandType=4

      CMD.Prepared = true  

      Cmd.Parameters.Append cmd.CreateParameter("@username",200,1,50,username)

      Cmd.Parameters.Append cmd.CreateParameter("@password",200,1,50,password)

      Set UserRs=Cmd.execute

       Else

        Set UserRS=Server.CreateOBject("ADODB.RECORDSET")

        UserRS.Open "Select top 1 a.*,b.SpaceSize From KS_User a inner join KS_UserGroup b on a.groupid=b.id Where UserName='" & UserName & "' And PassWord='" & PassWord & "'",Conn,1,1

       End If

从装一下系统，看看还有没有！

If DataBaseType=1 Then
      Dim Cmd : Set Cmd = Server.CreateObject("ADODB.Command")
      Set Cmd.ActiveConnection=conn
      Cmd.CommandText="KS_UserSQL"
      Cmd.CommandType=4
      CMD.Prepared = true   
      Cmd.Parameters.Append cmd.CreateParameter("@username",200,1,50,username)
      Cmd.Parameters.Append cmd.CreateParameter("@password",200,1,50,password)
      Set UserRs=Cmd.execute
       Else
        Set UserRS=Server.CreateOBject("ADODB.RECORDSET")
        UserRS.Open "Select top 1 a.*,b.SpaceSize From KS_User a inner join KS_UserGroup b on a.groupid=b.id Where UserName='" & UserName & "' And PassWord='" & PassWord & "'",Conn,1,1
       End If

改为

        Set UserRS=Server.CreateOBject("ADODB.RECORDSET")
        UserRS.Open "Select top 1 a.*,b.SpaceSize From KS_User a inner join KS_UserGroup b on a.groupid=b.id Where UserName='" & UserName & "' And PassWord='" & PassWord & "'",Conn,1,1

免费版没存储过程

你这个是自己转换数据库了，但缺少相应的存储过程

你若是access数据库是不会执行上面判断登录与否函数里调用存储过程KS_UserSQL的语句的

你可以按报纸层方法修改，让程序直接查询数据库

也可以在SQL数据库中加个存储过程：KS_UserSQL





CREATE PROCEDURE [KS_UserSQL]

@username nvarchar(50),

@password nvarchar(50)

AS

Select top 1 a.*,b.SpaceSize From KS_User a inner join KS_UserGroup b on a.groupid=b.id Where UserName=@username  And PassWord=@password

GO





这个存储过程比较简单，里面有两个输入参数

若是自己从access-->SQL转的话，在7.0会遇到好几处这类错误的,有些可能会比较麻烦些