login.asp

来自「asp与MYSQL的源码」· ASP 代码 · 共 86 行

<%
if len(request("logout")) > 0 then
	session("username") = ""
end if
if len(request("username")) = 0 then
%>
<!--#include file="top.asp"-->
<CENTER>
<TABLE bgcolor=#E7F1EC cellpadding=5 cellspacing=1 style="border:solid black 1pt;">
	<TR>
		<TD bgcolor="#339999" align=center width=250 class=celltitle>MySQLAdmin Login</TD>
	</TR>
	<TR>
		<TD>
			<FORM ACTION=login.asp method=post>
			<TABLE WIDTH=250 cellpadding=0 cellspacing=0 border=0>
				<TR>
					<TD colspan=2 align=center class=mainmenu>
						<%
						select case request("error")
							case "100"
								Response.Write "Invalid Username or Password.<BR>"
							case "999"
								Response.Write "An unspecified error has occured.  Contact your system administrator!<BR>"
							case else
								Response.Write "<BR>"
						end select
						%>
						<BR>
					</TD>
				</TR>
				<TR>
					<TD class=cellsmallcontent><B>Host:</TD>
					<TD><INPUT TYPE=Host NAME=Host style="width:95px;" value='localhost'></TD>
				</TR>
				<TR>
					<TD class=cellsmallcontent><B>UserName:</TD>
					<TD><INPUT TYPE=TEXT NAME=UserName style="width:95px;"></TD>
				</TR>
				<TR>
					<TD class=cellsmallcontent><B>Password:</TD>
					<TD><INPUT TYPE=password NAME=Password style="width:95px;"></TD>
				</TR>
				<TR>
					<TD colspan=2 align=center><INPUT TYPE=SUBMIT VALue=Login></TD>
				</TR>
			</TABLE>
			</FORM>
		</TD>
	</TR>
</TABLE>
<!--#include file="bottom.asp"-->
<%
else
	on error resume next
	dsn = "driver={MySQL};server=" & request("host") & ";uid=" & request("username") & ";pwd=" & request("password") & ";"
	
	set cn = server.CreateObject("ADODB.Connection")
	cn.Open dsn
	
	
	if cn.State = 0 then
		dsn = "driver={MySQL ODBC 3.51 Driver};server=" & request("host") & ";uid=" & request("username") & ";pwd=" & request("password") & ";"
		err.Clear 
		cn.Open dsn
		
		if cn.State = 1 then
			session("driver_version") = "3.51"
		end if
	else
		session("driver_version") = "2"
	end if
	
	if err.number = -2147467259 then
		Response.Redirect "login.asp?error=100"
	elseif err.number = 0 then
		session("username") = request("username")
		session("password") = request("password")
		session("host") = request("host")
		Response.Redirect "index.asp"
	else
		Response.Redirect "login.asp?error=999"
	end if
	set cn = nothing
End If
%>