📄 cls_page.asp

📁 一个简历管理系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
'程序名称：萍萍多用户简历系统
'程序版本：v1.0
'开发环境：SQL Server 2005 + IIS6.0（SQL Server 2000也能用）
'程序设计：秋忆工作室
'作者网站：http://www.skymean.com
'联系邮箱：mylove21@163.com
%>
<%
Class ResumePage
	Public HeadMode
	
	Private Sub Class_Initialize()
		HeadMode = 0
	End Sub
	
	Public Function Head(Byval strTitle)
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=sys.HTML_Encode(strTitle)%></title>
<link rel="stylesheet" type="text/css" href="InterFace/<%=SystemSkin%>/<%=SystemSkin%>.css" />
<script type="text/javascript" src="inc/js.js"></script>
</head>

<body>
<%
		If HeadMode = 1 Then Exit Function
%>
<div id="pagebg">
<div id="PageMain">
<div id="banner"></div>
<div id="navigate">
<div id="greeting">
<%
		If sys.IsLogin Then
			sys.Echo("<b>"&sys.HTML_Encode(sys.m_UserName)&"</b>，你好。")
		End If
		sys.Echo("欢迎来到个人简历系统！<span id=""NoLoginTip"">")
		If Not sys.IsLogin Then
			sys.Echo("您还没有登录哦！")
		End If
		sys.Echo("</span>今天是<script type=""text/javascript"" src=""inc/ServerTime.asp?type=123""></script>")
%>
</div>
<div id="nav">
<%
		sys.Echo("<a href=""default.asp"">首页</a> ")
		If Not sys.IsLogin Then
			sys.Echo("<a href=""login.asp"">登录</a> ")
			sys.Echo("<a href=""login.asp?action=reg"">注册</a> ")
		End If
		sys.Echo("<a href=""admin.asp"">管理</a>")
%>
</div>
</div>
<%
	End Function

	Public Function Foot()
		If HeadMode = 1 Then
			sys.Echo("</body>"&vbcrlf&"</html>")
			Exit Function
		End If
%>
<div id="bottom">
<div id="copyright">
<font color="#660000"><%=SystemName%></font> v<%=SystemVersion%><br>
Copyright <font face="Times New Roman">&copy;</font> <%=Year(Date())%> <font color="#000099"><b>skymean.com</b></font> All Rights Reserved
</div>
<%sys.ShowScriptErr()%>
</div>
</div>
</div>
</body>
</html>
<%
	End Function

Public Function LoginFrm()
%>
<div id="function">
	<div class="function_top">用户登录</div>
	<div class="function_mid login">
		<form action="login.asp?action=CheckLogin" method="post">
		<input type="hidden" name="act" value="login" />
		<p>用户名：<input type="text" name="username" id="username" class="input" /></p>
		<p>密　码：<input type="password" name="password" id="password" class="input" /></p>
		<p><input type="submit" value="登 录" />&nbsp;&nbsp;&nbsp;<input type="button" value="注 册" onclick="window.location.href='login.asp?action=reg';" /></p>
		</form>
	</div>
	<div class="function_bottom"></div>
</div>
<%
End Function

Public Function ControlPanel()
%>
<div id="function2">
	<div class="function_top">控制面板</div>
	<div class="function_mid ctrl_panel">
		<ul>
			<li><a href="viewResume.asp" target="_blank">我的简历</a></li>
			<li><a href="modify.asp?action=add" target="_blank">添加简历</a></li>
			<li><a href="#" onclick="OpenWin('modify.asp?action=uploadPhoto',450,210);return false;">上传相片</a></li>
			<li><a href="modify.asp?action=modify" target="_blank">修改简历</a></li>
			<li><a href="login.asp?action=logout" onclick="return window.confirm('确定要退出登录吗?');">退出登录</a></li>
		</ul>
	</div>
	<div class="function_bottom"></div>
</div>
<%
End Function
	
Public Sub default()
	Dim int_RPP,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
	int_RPP = 10 '设置每页显示数目
	int_showNumberLink_ = 10 '数字导航显示数目
	showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
	str_nonLinkColor_ = "#999999" '非热链接颜色
	toF_="<font face=webdings title=""首页"">9</font>"  			'首页 
	toP10_=" <font face=webdings title=""上十页"">7</font>"			'上十
	toP1_=" <font face=webdings title=""上一页"">3</font>"			'上一
	toN1_=" <font face=webdings title=""下一页"">4</font>"			'下一
	toN10_=" <font face=webdings title=""下十页"">8</font>"			'下十
	toL_="<font face=webdings title=""最后一页"">:</font>"
%>
<div style="width:100%;">
<div id="left">
<%
	If sys.IsLogin Then
		ControlPanel()
	Else
		LoginFrm()
	End If
%>
</div>

<div id="right">
<div class="table_mar">
<%
	Dim sql,rs,i,rs2,Sex,Birthday,RealName
	Dim keyword,sType,AddSql
	AddSql = ""
	keyword = Trim(Request("keyword"))
	sType = Trim(Request("type"))
	If Not sys.ChkEmpty(keyword) Then
		Select Case sType
			Case "1"
				AddSql = " AND [UserName] LIKE '%"&Replace(keyword,"'","''")&"%'"
			Case "2"
				If sys.IsNum(keyword) Then
					AddSql = " AND [ID]=" & Clng(keyword)
				End If
			Case "3","4"
				Dim datetime(1)
				If IsDate(keyword) Then
					keyword = FormatDateTime(keyword)
					datetime(0) = Year(keyword)&"-"&Month(keyword)&"-"&Day(keyword)
					datetime(1) = DateAdd("d",1,datetime(0))
					If sType = "3" Then
						AddSql = " AND DATEDIFF(minute,'"&datetime(0)&"',[RegisterTime])>=0 AND DATEDIFF(minute,'"&datetime(1)&"',[RegisterTime])<0"
					Else
						AddSql = " AND DATEDIFF(minute,'"&datetime(0)&"',[ReleaseTime])>=0 AND DATEDIFF(minute,'"&datetime(1)&"',[ReleaseTime])<0"
					End If
				End If
		End Select
	End If
	
	ConnData()
	sql = "SELECT [ID],[UserName],[ReleaseTime] FROM [User] WHERE [ReleaseTime] IS NOT NULL"&AddSql&" ORDER BY [ReleaseTime] DESC"
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,Conn,1,1
	If Not (rs.Eof And rs.Bof) Then
		rs.PageSize=int_RPP
		cPageNo=Request.QueryString("Page")
		If Not sys.IsNum(cPageNo) Then cPageNo = 1
		cPageNo = Clng(cPageNo)
		If cPageNo>rs.PageCount Then cPageNo=rs.PageCount 
		If cPageNo<=0 Then cPageNo=1
		rs.AbsolutePage=cPageNo
%>
<table class="TableStyle2" cellspacing="1" cellpadding="0">
  <tr style="font-weight:bold">
    <td>姓　名</td>
    <td>性　别</td>
    <td>年　龄</td>
    <td>发布日期</td>
    <td>浏览方式</td>
  </tr>
<%
		For i=1 To int_RPP
			If rs.Eof Then Exit For
			Sex = Empty
			Birthday = Empty
			RealName = Empty
			sql = "SELECT [Sex],[Birthday],[RealName] FROM [BasicInfo] WHERE [UserID]=" & rs(0)
			Set rs2 = Conn.Execute(sql)
			If Not (rs2.Eof And rs2.Bof) Then
				Sex = rs2(0)
				Birthday = rs2(1)
				RealName = rs2(2)
			End If
			rs2.Close
			Set rs2 = Nothing

			If Not sys.ChkEmpty(Sex) Then
				If Sex = False Then
					Sex = "男"
				ElseIf Sex = True Then
					Sex = "女"
				Else
					Sex = "<font color=""#808080"">[未知]</font>"
				End If
			Else
				Sex = "<font color=""#808080"">[未知]</font>"
			End If

			If Not sys.ChkEmpty(Birthday) Then
				Birthday = DateDiff("yyyy",Birthday,Date())
			Else
				Birthday = "<font color=""#808080"">[未知]</font>"
			End If

			If sys.ChkEmpty(RealName) Then
				RealName = "[<font color=""#663333"">"&sys.HTML_Encode(rs(1))&"</font>]"
			Else
				RealName = sys.HTML_Encode(RealName)
			End If
%>
  <tr>
    <td><%=RealName%></td>
    <td><%=Sex%></td>
    <td><%=Birthday%></td>
    <td><%=sys.DateToStr(rs(2),"Y_m_d")%></td>
    <td><a href="viewResume.asp?uid=<%=rs(0)%>" target="_blank">有相片</a>&nbsp;<a href="viewResume.asp?mode=NoPicture&uid=<%=rs(0)%>" target="_blank">无相片</a></td>
  </tr>
<%
			rs.MoveNext
		Next
%>
</table>
12 下一页
💿 文件大小 117 K
👤 上传用户 xu__tiger
📂 所属分类企业管理
🏷️ 相关标签

#管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -