private void Button2_Click(object sender, System.EventArgs e)
{
RegistInfo f=new RegistInfo();
if(f.Login(TbUid.Text,TbPwd.Text))
{
Session["user"]=TbUid.Text;
if(f.CheckUserTempExist(TbUid.Text))
{
Response.Redirect("template/select.aspx");
}
else
{
Response.Redirect("structure/index.aspx");
}
}
else
{
lblMessage.Text=f.ErrMessage;
} }//检查用户名和密码
public bool Login(string uid, string pwd)
{
// Create Instance of Connection and Command Object
conn = new SqlConnection(strConn);
comm = new SqlCommand("pLogin", conn); // Mark the Command as a SPROC
comm.CommandType = CommandType.StoredProcedure; // Add Parameters to SPROC
SqlParameter prmUid = new SqlParameter("@uid", SqlDbType.VarChar, 8);
prmUid.Value = uid;
comm.Parameters.Add(prmUid); SqlParameter prmPwd = new SqlParameter("@pwd", SqlDbType.VarChar, 8);
prmPwd.Value = pwd;
comm.Parameters.Add(prmPwd); SqlParameter prmExist = new SqlParameter("@exist", SqlDbType.Int);
prmExist.Direction = ParameterDirection.Output;
comm.Parameters.Add(prmExist); try
{
conn.Open();
comm.ExecuteNonQuery();
conn.Close();
int exist = Convert.ToInt32(prmExist.Value); if(exist == 1)
return true;
else
{
errMessage = "用户名或密码错误,请您确认后重新输入!";
return false;
}
}
catch (Exception e)
{
errMessage = e.Message ;
return false;
}
}
解决方案 »
- 请问“显示全部”信息如何做?用javascript。谢谢
- DataList怎样循环完大类下在循环小类 ?十分火急
- 刚完成的一个系统后台管理框架,请提点建议
- 求一正则表达式写法
- 一个简单的问题,怎么为自定义控件添加BackColor属性?[在线等]
- 如何把JAVASCRIPT变量中的数据传递到其他页面??
- 一个整了我一周的问题!高手们,救救我吧!
- 如何在函数里修改Application
- 将GridView数据导出到excel文件遇到错误:只能在执行 Render() 的过程中调用 RegisterForEventValidation
- ASP.NET中WEB控件的大小如何锁定
- 有关 datalist 在 aspx 中的格式化
- 就要转正了,散分,顺便聊聊待遇。
Dim strConn, strSQL As String
Dim myConn As OleDbConnection
Dim myCommand As OleDbCommand
Dim dr As OleDbDataReader
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("intranet.mdb") & ""
strSQL = "select u.userid,p.partid,u.chinesename,u.englishname,u.email from [user] u,[partment] p "
strSQL = strSQL & "where u.userid='" & username.Text & "' and u.password='" & password.Text & "' and u.partid = p.partid"
myConn = New OleDbConnection(strConn)
myCommand = New OleDbCommand(strSQL, myConn)
myConn.Open()
dr = myCommand.ExecuteReader
If dr.Read Then
Session("UserId") = dr.Item(0)
If dr.IsDBNull(1) Then
Session("UserDep") = ""
Else
Session("UserDep") = dr.Item(1)
End If
If dr.IsDBNull(2) Then
Session("UserCName") = ""
Else
Session("UserCName") = dr.Item(2)
End If
If dr.IsDBNull(3) Then
Session("UserEName") = ""
Else
Session("UserEName") = dr.Item(3)
End If
If dr.IsDBNull(4) Then
Session("UserEmail") = ""
Else
Session("UserEmail") = dr.Item(4)
End If
Page.Response.Redirect("main.aspx")
Else
Session("UserId") = ""
Session("UserDep") = ""
Session("UserCName") = ""
Session("UserEName") = ""
Session("UserEmail") = ""
lblmsg.ForeColor = System.Drawing.Color.Red
lblmsg.Text = "用户名或密码错误,请重新输入"
username.Text = ""
password.Text = ""
End If
myConn.Close()
End Sub