金盾信安-中国门户

<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_king_STRING Recordset1.Source = "SELECT useid, usepassword FROM reg" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form("textfield")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="/loginsuccess.htm" MM_redirectLoginFailed="/LoginFail.htm" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_king_STRING MM_rsUser.Source = "SELECT useid, usepassword" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM reg WHERE useid='" & Replace(MM_valUsername,"'","''") &"' AND usepassword='" & Replace(Request.Form("textfield2"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> 金盾信安-中国门户

金安邮箱

收藏本站

公司论坛

联系我们

2007年11月12日星期一 9:46

用户登录

用户你好，请首先登录

用户名称

用户密码

金安通告

通告（2007年10月16日）

关于白银分公司的处罚决定

关于总公司市场部的业绩评价

金安新闻

“金卡工程与城市信息化”主题论坛	[2007-10-20]
2007胡润IT富豪榜揭晓李彦宏成IT	[2007-10-22]
2007“开放创新高峰论坛”在北京举	[2007-10-25]
IBM推出免费桌面办公软件	[2007-10-28]
RFID创新应用加快我国信息化进程	[2007-10-31]
公安部在云南试点实行数字审讯系统	[2007-09-20]
甲骨文跻身数据仓库数据库管理系统	[2007-08-16]
中国普天发布全球第一片智能存储卡	[2007-09-20]
中国网络广告市场Q3价值26亿元成	[2007-09-25]
重庆机场查获首例二代假身份证	[2007-10-08]