关于使用vb开发asp三层结构网站程序的问题

[ftg1985]

小弟用vb写了一个类（工程名是mydb,class名是ceshi），作为网站的逻辑层。我现在刚刚写了一个登陆模块，就出现了问题。
错误提示信息是错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'mycheak.cheakadmain'
/zhongrun/login.asp, 第 5 行

下面是这个类的源代码
Private myapplication As Application
Private myrequest As Request
Private myresponse As Response
Private mysession As Session
Private myserver As Server

Public Sub OnStartPage(myst As ScriptingContext)
Set myrequest = myst.Request
Set myresponse = myst.Response
Set mysession = myst.Session
Set myserver = myst.Server
Set myapplication = myst.Application
End Sub

Public Sub OnEndPage()
Set myapplication = Nothing
Set myrequest = Nothing
Set myresponse = Nothing
Set mysession = Nothing
Set myserver = Nothing
End Sub

Public Function mycon()
mysql = "Driver={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=4488321;DATABASE=wzmg"
Set conn = myserver.CreateObject("adodb.connection")
conn.Open (mysql)
End Function


Function filter_Str(InString)
NewStr = Replace(InString, "'", "''")
NewStr = Replace(NewStr, "<", "<")
NewStr = Replace(NewStr, ">", ">")
NewStr = Replace(NewStr, "chr(60)", "<")
NewStr = Replace(NewStr, "chr(37)", ">")
NewStr = Replace(NewStr, """", """)
NewStr = Replace(NewStr, ";", ";;")
NewStr = Replace(NewStr, "--", "-")
NewStr = Replace(NewStr, "/*", " ")
NewStr = Replace(NewStr, "%", " ")
filter_Str = NewStr
End Function

Public Function cheakadmin(name As String, password As String)
Dim user As String
Dim pass As String
Dim result As Integer
user = filter_Str(name)
pass = filter_Str(password)
Set rs = myserver.CreateObject("adodb.recordset")
sql = "select * from admainbiao where adname=" & user
rs.Open sql, mycon.conn, 1, 3
If rs.EOF And rs.BOF Then
myresponse.Write ("<script language='javascript'>")
myresponse.Write ("alert('您输入的用户名称错误，请重新输入！');")
myresponse.Write ("location='adminlogin.asp';")
myresponse.Write ("</script>")
Else
If rs("adpass") = pass Then
myresponse.Write ("<script language='javascript'>")
myresponse.Write ("alert('登录成功！');")
myresponse.Write ("</script>")
Else
myresponse.Write ("<script language='javascript'>")
myresponse.Write ("alert('您输入的密码错误，请重新输入！！！')")
myresponse.Write ("</script>")
End If
End If
End Function

下面是asp登陆页源代码
<%
name=request.Form("username")
password=request.Form("password")
Set mycheak=server.CreateObject("wzhtclass.ceshi")
mycheak.cheakadmain
Set mycheak=nothing
%>

请各位高手帮帮忙啊！！！！

[ftg1985]

难道就没有人知道吗

[toury]

1,Public Function cheakadmin(name As String, password As String)
2,对象不支持此属性或方法: 'mycheak.cheakadmain
自己看出来了吗?

[yowbell]

帮你顶

[look4sword]

楼上有人说了，参数都不加，真服了你啊。

[ftg1985]

楼上的大哥，我猜你一定是一位人民教师，怎么和我老师一个口气，简直是一个德行。

[bingdian37]

楼主的愿望是好的

但需要补充一下基础知识

你的分数应该再多加些,让你印象深刻点,这样你以后就不会范这样的错误啦

[bingdian37]

哈哈,我不是什么人民教师

楼主有些受不了了