建站
咨詢
售后
建站咨詢
新聞中心
asp點虐 (vb) 登錄代碼
protected void lkbtLogin_Click(object sender, System.EventArgs e)
專注于為中小企業(yè)提供成都網站建設、網站設計服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)蘆溪免費做網站提供優(yōu)質的服務。我們立足成都，凝聚了一批互聯(lián)網行業(yè)人才，有力地推動了上千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網站建設實現(xiàn)規(guī)模擴充和轉變。
{
if(txtVerifyNum.Text.Trim() != Session["SessionAppendNumber"殲大].ToString())
{
oprtb.AlertMsg("輸入的驗證氏散豎碼錯誤",Page);
return;
}
DataSet ds = new DataSet();
string sql = "select UserID,Name,DepartID,CompanyID,";
sql = sql+"(select Name from Depart where ((DepartID=UserList.DepartID) and ( CompanyID=UserList.CompanyID))) as DepartName,";
sql = sql+"(select Name from Company where (CompanyID=UserList.CompanyID)) as CompanyName ";
sql = sql+"from UserList where UserID='" + txtUserID.Text.Trim() +"' and Password='" + Encrypt.EncryptPwd(txtPassword.Text.Trim(),"MD5") + "' and Cancellation = 0";
//string sql = "select * from UserList where UserID='" + txtUserID.Text.Trim() +"' and Password='" + Encrypt.EncryptPwd(txtPassword.Text.Trim(),"MD5") + "' and Cancellation = 0";
ds = oprtb.SelectTable(sql);
if (ds.Tables[0].Rows.Count = 0)
{
oprtb.AlertMsg("輸入的用戶名或密碼錯誤",Page);
return;
}
else
{
string UHAddress = Request.UserHostAddress;
string currentTime = DateTime.Now.ToString("yyyyMMdd hhmmss");
//登陸成功
Session["UserID"] = ds.Tables[0].Rows[0]["UserID"].ToString();
Session["Name"] = ds.Tables[0].Rows[0]["Name"].ToString();
Session["DepartID"] = ds.Tables[0].Rows[0]["DepartID"掘鄭].ToString();
Session["DepartName"] = ds.Tables[0].Rows[0]["DepartName"].ToString();
Session["CompanyID"] = ds.Tables[0].Rows[0]["CompanyID"].ToString();
Session["CompanyName"] = ds.Tables[0].Rows[0]["CompanyName"].ToString();
//設置用戶的登陸時間
oprtb.SetStartTime(txtUserID.Text.Trim());
//設置用戶的登陸標記
string s_mark = txtUserID.Text.Trim() + "_" + UHAddress + "_" + currentTime;
oprtb.SetLoginMark(s_mark,txtUserID.Text.Trim());
//保存登陸標記
Session["LoginMark"] = s_mark;
MCompany.SystemLog slstru = new YesErp.MCompany.SystemLog();
slstru.SystemLog_IP = UHAddress;
slstru.SystemLog_LogIn = System.DateTime.Now;
slstru.SystemLog_Name = ds.Tables[0].Rows[0]["Name"].ToString();//用戶姓名
slstru.SystemLog_ID = Int32.Parse(ds.Tables[0].Rows[0]["UserID"].ToString());//用戶ID
//寫系統(tǒng)日志
oprtb.LoginSystemLog(slstru);
//oprtb.AlertMsg("登錄成功",Page);
Session["LoginTime"] = System.DateTime.Now;
//判斷并轉到新的頁面
oprtb.ChangeUrl("../index.aspx",Page);
}
}
一個vb點虐 的用戶登陸頁面代碼
悶談Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click
If TextBox Text = Or TextBox Text = Then
Label Text = 請確認您的輸入！
Return
End If
Dim sql As String = select * from pwd where stu_id=@stu_id and pwd=@pwd
Dim m As SqlCommand = New SqlCommand（sql conn）
m Parameters Add（螞型碰租裂New SqlParameter（ @stu_id SqlDbType Int ））
m Parameters（ @stu_id ） Value = TextBox Text
m Parameters Add（New SqlParameter（ @pwd SqlDbType Char ））
m Parameters（ @pwd ） Value = TextBox Text
Dim dr As SqlDataReader
conn Open（）
dr = m ExecuteReader
If dr Read Then
Session（ stu_id ） = TextBox Text
dr Close（）
m Cancel（）
Dim sql_ As String = update stu_base set point=point+ where stu_id=@stu_id
m = New SqlCommand（sql_ conn）
m Parameters Add（New SqlParameter（ @stu_id SqlDbType Int ））
m Parameters（ @stu_id ） Value = Session（ stu_id ）
m ExecuteNonQuery（）
m Cancel（）
Response Redirect（ detail aspx？stu_id= Session（ stu_id ） ）
Else
Label Text = 您還沒有注冊或賬號密碼錯誤
End If
End Sub
Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click
TextBox Text =
TextBox Text =
lishixinzhi/Article/program/net/201311/13960
寫一個vb點虐 代碼，關于登陸和關閉Q~程序，窗口如下已經設計好。
你設計一個界面，讓別人來寫代碼，可能嗎？
另外根據你鍵殲的鄭亮孫想法，VB.NET沒法實現(xiàn)，需要用C++寫DLL注入，還要破喊鏈解QQ的加密函數！
vb點虐 + access 登陸 驗證
分開瞎鬧寫看看搜肢：世神世
Dim cl_Reader As OleDbDataReader
set cl_Reader =cl_Cmd.ExecuteReader
當前題目：vb點虐 登陸代碼 vb登錄頁面
網頁地址：http://www.dlmjj.cn/article/ddpjdsd.html
