viewresume.asp

一个简历管理系统

<%@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_viewResume.asp" -->
<!--#include file="inc/Cls_md5.asp" -->
<!--#include file="inc/Cls_admin.asp" -->
<%
Dim action, vr
action = LCase(Trim(Request.QueryString("mode")))

Select Case action
	Case "photo"
		Call rp.Picture(Trim(Request.QueryString("uid")))
	Case Else
		rp.Head("浏览简历")
		sys.Echo("<div class=""br2""></div>")
		Set vr = New viewResume
		vr.ShowAll()
		Set vr = Nothing
		rp.Foot()
End Select

CloseAllObj()
%>