login.asp

来自「一个简历管理系统」· ASP 代码 · 共 36 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<%
'程序名称：萍萍多用户简历系统
'程序版本：v1.0
'开发环境：SQL Server 2005 + IIS6.0（SQL Server 2000也能用）
'程序设计：秋忆工作室
'作者网站：http://www.skymean.com
'联系邮箱：[e-mail]
%>
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/Cls_system.asp" -->
<!--#include file="inc/Cls_page.asp" -->
<!--#include file="inc/Cls_md5.asp" -->
<%
Dim action
action = LCase(Trim(Request.QueryString("action")))

Select Case action
	Case "reg"
		rp.Head("会员注册")
		Call rp.Register()
	Case "savereg"
		Call rp.SaveReg()
	Case "checklogin"
		sys.CheckLogin()
	Case "logout"
		sys.Logout()
	Case Else
		rp.Head("会员登录")
		Call rp.Login()
End Select

rp.Foot()
CloseAllObj()
%>