wap_check.asp

来自「新的简单易用的公司管理系统」· ASP 代码 · 共 24 行

<!--#include file=conn.asp-->
<!--#include file=inc/md5.asp-->
<!--#include file=inc/function.asp-->
<%
Dim rs1,uid,pwd
uid=ReplaceBadChar(trim(request("ewap_user")))
pwd=trim(request("ewap_pwd"))
set rs1=server.createobject("adodb.recordset")
sql1="select * from com where USR='"&uid&"'and pwd='"&md5(pwd)&"'"
rs1.open sql1,cn,1,1
	if not (rs1.bof and rs1.eof) then

	session("admin")=uid
	session.timeout=60
	response.redirect"wap_add.asp"
	rs.close
	set rs=nothing
	cn.close
	set cn=nothing
	else
	response.redirect"wap_login.asp"

	end if
%>