 |
باش ھۆججەت قىسقۇچتىكى Conn.asp نى ئېچىپ DATA_BAC/OGUL.BALA دىگىنى سانداننىڭ ئادىرىسى شۇ. شۇنى ماس تەڭشىسىڭىز بۇلىدۇ.
بۇنىمۇ قىلىپ باقتىم ChkLogin.Asp نى قانداق تەڭشەيمىز سەۋەبى شۇمىكى دەيمە
<%
username=trim(Request.form("username"))
password =md5(Trim(Replace(Request("password"), "'", "")))
CheckCode = Replace(Trim(Request("CheckCode")),"'","")
if CheckCode = CStr(Session("CheckCode")) then
Response.Write("")
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&password&"'"
rs.open sql,conn,1,3
if not rs.EOF then
rs("LoginTimes")=rs("LoginTimes")+1
rs("LoginTime")=now()
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
Session("Admin")=rs("username")
Session("AdminID")=rs("id")
Session("IsAdmin")=true
Session("key")=rs("type")
Session.timeout=900
Response.Redirect ("Admin.Asp")
else
response.write("")
Response.End
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
|
 |