checkin.asp

客户管理系统使用ASP.NET和Access

<!-- #include file="conn.asp" -->
<!--#include file="../include/md5.asp"-->
<%
function ChkPost()
	dim server_v1,server_v2
	chkpost=false
	server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
	server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
	if mid(server_v1,8,len(server_v2))<>server_v2 then
		chkpost=false
	else
		chkpost=true
	end if
end function
%>

<%
 name=request.form("name")
 pass=md5(md5(request.form("pass")))
if instr(pass,"'")>0 or instr(name,"'")>0 then
  response.redirect "../error/error.asp?T=1"
  else
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where name='"&name&"' and pass='"&pass&"'"
  rs.open sql,conn,3,3
  if not rs.eof and not rs.bof then
  session("admin")=rs("name")
  session("adminid")=rs("id")
  Session("webedituser")=rs("name")
  Session("webeditbase") =rs("sbase")
  Session("webeditrun")=rs("srun")

  rs("lastip")=Request.serverVariables("REMOTE_ADDR")
  rs("lastsj")=now
  rs("n")=rs("n")+1
  rs.update
  response.redirect "./"
  else
  response.redirect "../error/error.asp?T=1"
  end if
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  end if
%>