可以放在存储过程中验证:<script language="VB" runat=server> Dim conn As OleDbConnection dim connstr as string sub Page_load(sender as object,e as eventargs) if not (isPostback) then
end if end sub Sub Login_Click(Src As Object, E As EventArgs) connstr=ConfigurationSettings.AppSettings("Mcon") conn=new oledbconnection(connstr) Dim Mycommand As New OleDbCommand("UseManaged", Conn) Mycommand.CommandType = CommandType.StoredProcedure dim sampParm as Oledbparameter sampParm = Mycommand.Parameters.Add("@UserID", OleDbType.Varchar,8) sampParm.Value=UserID.value sampParm = Mycommand.Parameters.Add("@PassWord", OleDbType.Varchar,8) sampParm.Value =UserPass.value sampParm = Mycommand.Parameters.Add("@Message", OleDbType.varchar,20) sampParm.Direction = ParameterDirection.Output sampParm = Mycommand.Parameters.Add("@StandsName", OleDbType.varchar,50) sampParm.Direction = ParameterDirection.Output sampParm = Mycommand.Parameters.Add("@UserName", OleDbType.varchar,10) sampParm.Direction = ParameterDirection.Output sampParm = Mycommand.Parameters.Add("@Usertype", OleDbType.varchar,20) sampParm.Direction = ParameterDirection.Output sampParm = Mycommand.Parameters.Add("@Authonity", OleDbType.varchar,30) sampParm.Direction = ParameterDirection.Output sampParm = Mycommand.Parameters.Add("@CurrDate", OleDbType.varchar,10) sampParm.Direction = ParameterDirection.Output Conn.Open() Dim sampReader As OleDbDataReader = Mycommand.ExecuteReader() sampReader.Close() Conn.Close() if Mycommand.Parameters("@Message").Value="登陆成功" then Dim Cookie As HttpCookie Cookie = New HttpCookie("opiLoginID") Cookie.Values.Add("UserID",UserID.value) Cookie.Values.Add("Password",UserPass.value) Cookie.Values.add("StandsName",Mycommand.Parameters("@StandsName").value) Cookie.values.add("UserName",Mycommand.Parameters("@UserName").value) Cookie.Values.add("UserType",Mycommand.Parameters("@UserType").value) Cookie.Values.add("Authonity",Mycommand.Parameters("@Authonity").value) Cookie.Values.add("CurrDate",Mycommand.Parameters("@CurrDate").value) Response.AppendCookie(Cookie) Response.Redirect("system.aspx") else Response.Redirect("err.aspx") end if End Sub Sub Exit_click(src AS Object, E as EventArgs) End Sub </script>
上面是VB.Net代码,自己改成C#的用吧.
在DataAccessProjects层定义一个验证密码的类,WebUIProjects层调用此类的方法,进行密码验证。 建议贴主参考.NET自带的两个企业级示例,Duwamish和FMStocks7,这两个文件在[.net的安装盘]\Program Files\Microsoft Visual Studio .NET\Enterprise Samples
http://my320.kaxb.com
http://x119.homelinux.net:23/default.html
https://207.44.142.89 (点击Yes进入网站)
private void Button1_Click(object sender, System.EventArgs e)
{
DataAccess.login yanzheng;
yanzheng.aa();
}
其中login是DataAccess中的类,aa是其中的方法,但出现错误:DataAccess not found
为什么??
可能原因:
1.windows权限。
2.DataAccess不在asp.net代码可访问的命名空间内。
我需要知道你详细的开发状况。
Dim conn As OleDbConnection
dim connstr as string
sub Page_load(sender as object,e as eventargs)
if not (isPostback) then
end if
end sub
Sub Login_Click(Src As Object, E As EventArgs)
connstr=ConfigurationSettings.AppSettings("Mcon")
conn=new oledbconnection(connstr)
Dim Mycommand As New OleDbCommand("UseManaged", Conn)
Mycommand.CommandType = CommandType.StoredProcedure
dim sampParm as Oledbparameter
sampParm = Mycommand.Parameters.Add("@UserID", OleDbType.Varchar,8)
sampParm.Value=UserID.value
sampParm = Mycommand.Parameters.Add("@PassWord", OleDbType.Varchar,8)
sampParm.Value =UserPass.value
sampParm = Mycommand.Parameters.Add("@Message", OleDbType.varchar,20)
sampParm.Direction = ParameterDirection.Output
sampParm = Mycommand.Parameters.Add("@StandsName", OleDbType.varchar,50)
sampParm.Direction = ParameterDirection.Output
sampParm = Mycommand.Parameters.Add("@UserName", OleDbType.varchar,10)
sampParm.Direction = ParameterDirection.Output
sampParm = Mycommand.Parameters.Add("@Usertype", OleDbType.varchar,20)
sampParm.Direction = ParameterDirection.Output
sampParm = Mycommand.Parameters.Add("@Authonity", OleDbType.varchar,30)
sampParm.Direction = ParameterDirection.Output
sampParm = Mycommand.Parameters.Add("@CurrDate", OleDbType.varchar,10)
sampParm.Direction = ParameterDirection.Output
Conn.Open()
Dim sampReader As OleDbDataReader = Mycommand.ExecuteReader()
sampReader.Close()
Conn.Close()
if Mycommand.Parameters("@Message").Value="登陆成功" then
Dim Cookie As HttpCookie
Cookie = New HttpCookie("opiLoginID")
Cookie.Values.Add("UserID",UserID.value)
Cookie.Values.Add("Password",UserPass.value)
Cookie.Values.add("StandsName",Mycommand.Parameters("@StandsName").value)
Cookie.values.add("UserName",Mycommand.Parameters("@UserName").value)
Cookie.Values.add("UserType",Mycommand.Parameters("@UserType").value)
Cookie.Values.add("Authonity",Mycommand.Parameters("@Authonity").value)
Cookie.Values.add("CurrDate",Mycommand.Parameters("@CurrDate").value)
Response.AppendCookie(Cookie)
Response.Redirect("system.aspx")
else
Response.Redirect("err.aspx")
end if
End Sub
Sub Exit_click(src AS Object, E as EventArgs)
End Sub
</script>
建议贴主参考.NET自带的两个企业级示例,Duwamish和FMStocks7,这两个文件在[.net的安装盘]\Program Files\Microsoft Visual Studio .NET\Enterprise Samples