login.asp

蜘蛛人产品反馈系统

<%
Function CheckLogin(Login, Password)
	Set conn = Server.CreateObject("ADODB.Connection")
	cnnstr="provider=microsoft.jet.OLEDB.4.0;data source=" & server.mappath("websking.mdb")
	conn.Open cnnstr
    conn.CursorLocation=3
	set rts=server.CreateObject("ADODB.recordset")	
	
	strSQL = "SELECT * FROM logintable " & _
			 "WHERE UserNm = '" & Login & "'" 
	rts.ActiveConnection=conn
    rts.LockType=3
    rts.CursorLocation=3
    rts.CursorType=3
    rts.Open strSQL
	if rts.EOF then 
		CheckLogin = "无此帐号"
	elseif rts("password") <> Password then
		CheckLogin = "密码错误"
	else 
		CheckLogin = "成功登录"
	end if
End Function
UserNm = Request("UserNm")
UserPasswd  = Request("UserPasswd")
step=request("selecttype")
strCheckLogin = CheckLogin(UserNm, UserPasswd)
if strCheckLogin = "成功登录" then 
	session("logined")="sf32*7$"
	if step=1 then
	  Response.Redirect "view.asp"
	end if
	if step=0 then
	  Response.Redirect "changepwd.asp"
	end if
end if
%>

<script language = vbscript>
msgbox "[<% = strCheckLogin %>]请再次输入" '
</script>