admin_login_che.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/commom.asp-->

<%
Dim adminname,adminpassword,verifycode
adminname=Trim(Split(const_admin,"|")(0))
adminpassword=Trim(Split(const_admin,"|")(1))
verifycode=Trim(REquest.Form("verifycode"))
if Trim(Request("admin"))=adminname and Trim(Request("password"))=adminpassword and verifycode=Session("Rand") then
	session("adminname")=adminname
	Session("adminpassword")=adminpassword
	response.Redirect "admin_index.asp"
else
   response.redirect "admin_login.asp"
end if
%>