Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "板主密码查询"
ReDim param(0) ' 声明
param(0) = CLng(boardid) ' Cint 不可忽略
Set rs = cmd.Execute( ,param )
boardmanager=rs("板主")
if password< > rs("密码") then %>
< html>
< head>
< title>身份验证< /title>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< /head>
< body bgcolor="#FFFFFF">
密码错误
< /body>
< /html>
< %
else
session("beenthere")=boarded
Set cmd.ActiveConnection = conn
cmd.CommandText = "板主密码查询"
ReDim param(0) ' 声明
param(0) = CLng(boardid) ' Cint 不可忽略
Set rs = cmd.Execute( ,param )
boardmanager=rs("板主")
if password< > rs("密码") then %>
< html>
< head>
< title>身份验证< /title>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< /head>
< body bgcolor="#FFFFFF">
密码错误
< /body>
< /html>
< %
else
session("beenthere")=boarded
| 对此文章发表了评论 |
