admin_check.asp

1.手机浏览2.手机发布3.手机搜索4.栏目二级分类5.中文/英语操作支持

<%
'┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
'┃ 奇网天下·7WAP企业（移动）信息系统                                 ┃
'┃                                                                    ┃
'┃ Copyright All Rights Reserved.                                     ┃
'┃ 官方： www.7wap.cn                                                 ┃
'┃ 作者： 孙岩清                                                      ┃
'┃ 授权： BEAT版 未经授权不得商业使用。                               ┃
'┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
'┃ Version   1.0                                                      ┃
'┃ Description   开发建议/使用问题/扔砖头：BBS.7WAP.CN                ┃
'┃ Create       2005.11.18    beat3                                   ┃
'┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
%>
<!--#include file=conn.asp-->
<!--#include file=inc/md5.asp-->
<!--#include file=inc/function.asp-->
<%
If not isnumeric(request.form("ewap_code")) then
         response.write"<script>alert('"&ewap_(26)&"');this.location.href='admin_login.asp'</script>"
         response.end
else
Dim U_code,real

U_code=int(request.form("ewap_code"))
real=int(session("ewap"))
If U_code<>real then
         response.write"<script>alert('"&ewap_(26)&"');this.location.href='admin_login.asp'</script>"
         response.end
else
Dim rs1,uid,pwd
uid=ReplaceBadChar(trim(request.form("sys")))
pwd=trim(request.form("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 "admin_index.asp"
	rs.close
	set rs=nothing
	cn.close
	set cn=nothing
	else
	response.write"<script>alert('"&ewap_(27)&"');this.location.href='admin_login.asp'</script>"

	end if
end if
end if

%>