login.asp

一套比较完整的内部技术支持全部源代码,请大家共同分享

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%page=1%>
<!--#include file="Connections/tar.asp" -->
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.Form("username") <> "") Then
  rs__MMColParam = Request.Form("username")
End If
%>
<%
Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_tar_STRING
rs.Source = "SELECT * FROM user_list WHERE IF_ok='1' and username = '" + Replace(rs__MMColParam, "'", "''") + "'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

%>
<%
if rs.eof or rs.bof then
%>
<script language=javascript>
alert("不正确的用户名");
history.go(-1);
</script>
<%
else
	if rs("password")=request.form("password") then
		session("username")=rs("username")
		session("issupport")=rs("if_support")
		session("isadmin")=rs("IF_ADMIN")
		if session("URL")="" then
			response.redirect("default.asp")
		else
			response.redirect session("URL")
		end if
	else
	%>
<script language=javascript>
alert("不正确的密码");
history.go(-1);
</script>
<%
	end if
end if
%>
<%
rs.Close()
Set rs = Nothing
%>