我设计了一个登陆界面,连接数据库有点问题,大家帮我看看。
代码声明块:
<script runat="server">
sub Login(obj as Object, e as EventArgs)
dim intId as integer=0
dim Conn as new OleDbConnection("Provider=SQLOLEDB;Data Source=saipserver;"& _
"Initial Catalog=banking;Integrated Security=SSPI;")
dim str as string="select userid from tbluser where username=@username and pass=@pass"
dim objCmd as OleDbCommand=new OleDbCommand("str",conn)
dim objParam as OleDbParameter
ObjParam=objCmd.Parameters.Add("@UserName",OleDbType.BSTR)
objParam.Value=tbUsername.Text
objParam=objCmd.Parameters.Add("@Password",OleDbType.BSTR)
objParam.Value=tbPassword.Text
try
objCmd.Connection.Open
intId=CType(objCmd.ExecuteScalar,Integer)
objCmd.Connection.Close
catch ex as OleDbException
lblMessage.Text=ex.Message
end try
if intId<>0 then
Response.Cookies("Account").Value=intID
Response.redirect("account.aspx")
else
lblMessage.Text="<font color=red>Sorry,invalid username or password!</font><p>"
end if
end sub
</script>
tbluser是一个表:其中有三个字段:username,pass,userid(主键)
连接数据库要配置什么东西吗?