关于使用vb开发asp三层结构网站程序的问题
小弟用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
%>
请各位高手帮帮忙啊!!!!