loginck.asp

易方4.0程序+邮局接口+序列号+销售系统

<%
If session("SessLogin")<>"EfsVhostAdminLoginTrue" then
	Response.redirect "login.asp"
	Response.End
End if
Set UData = Conn.Query("EfangAdmin","Admin_User='" & session("SessAdminUserName") & "'")
If UData.BOF or UData.EOF Then
	Response.redirect "Login.asp?Cmd=Exit"
	Response.End
End If
If UData("Admin_State")<>1 Then
	Response.redirect "Login.asp?Cmd=Exit"
	Response.End
End If
session("SessAdminPOP") = UData("Admin_Popedom")
Set LgData = UData
%>