c_denglu.asp

来自「OA最新破解2008版 全新 破解 希望大家用着舒服」· ASP 代码 · 共 23 行

<!--#include file="D_lj.asp" -->
<%
	mingzi=Trim(Request.Form("mingzi"))
	mima=Request.Form("mima")
		if mingzi="" or mima="" then
			response.Redirect("b_denglu.asp?fanhui=kong")
		elseif Instr(mingzi,"=")>0 or Instr(mingzi,"'")>0 or Instr(mingzi,"(")>0 or Instr(mingzi,")")>0 then
			response.Redirect("b_bankuai.asp")
		else
			set dl=lj.execute("select mima from huiyuan where mingzi='"& mingzi &"'")
				if dl.eof then
					Response.Redirect("b_denglu.asp?fanhui=mei")
				elseif dl("mima")<>mima then
					Response.Redirect("b_denglu.asp?fanhui=mima")
				else
					response.Cookies("mingzi")=mingzi
					response.Cookies("mingzi").expires=#2037-1-1#
					response.Cookies("mima")=mima
					response.Cookies("mima").expires=#2037-1-1#
					Response.Redirect("b_bankuai.asp")
				end if
		end if
%>