loging.asp

来自「十分好的音乐网站源码 十分好的音乐网站源码十分好的音乐网站源码十分好的音乐网站」· ASP 代码 · 共 38 行

<%response.buffer=true%>
<!--#include file=../conn/adodb1.asp -->
<!--#include file="md5.asp"--> 

<%
dim user,pwd,ip,de,yzm
user=trim(request.form("user"))
pwd=md5(trim(request.form("pwd")))
ip=request.ServerVariables("remote_addr")
de=now()
yzm=request.form("yzm")

if yzm<>session("verifycode") then
response.write"<SCRIPT language=JavaScript>alert('验证码错误！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if

dim sql,sq,rs
set rs=server.createobject("adodb.recordset")
sql="select * from admin where user='"& user &"' and pwd='"& pwd &"'"
rs.open sql,db,1
if rs.recordcount>0 then
session("cjuser")=user
session("pwdd")=pwd
sq="insert into loging(uid,pwd,ip,da,jb) values ('"&user&"','"&pwd&"','"&ip&"','"&de&"','管理员')"
db.execute(sq)
session("user")=user
response.redirect "manage.asp"
else
response.write"<SCRIPT language=JavaScript>alert('对不起用户名或密码错误！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
rs.close
set rs=nothing
db.close
set db=nothing
%>