cls_page.asp

一个简历管理系统

<%
	Else
		If Not sys.ChkEmpty(AddSql) Then
			Select Case sType
				Case "1"
					sys.Echo(sys.WarnningBox("找不到与用户名“"&sys.HTML_Encode(keyword)&"”相关的数据"))
				Case "2"
					sys.Echo(sys.WarnningBox("找不到用户编号为“"&sys.HTML_Encode(keyword)&"”的数据"))
				Case "3"
					sys.Echo(sys.WarnningBox("找不到注册时间在“"&sys.HTML_Encode(keyword)&"”的数据"))
				Case "4"
					sys.Echo(sys.WarnningBox("找不到发布时间在“"&sys.HTML_Encode(keyword)&"”的数据"))
			End Select
		Else
			sys.Echo(sys.WarnningBox("还没有发布任何简历"))
		End If
	End If
%>
<div id="search">
<form action="<%=sys.SelfName(0)%>" method="get">
搜索关键字&nbsp;
<input type="text" name="keyword" id="keyword" size="16" value="<%=sys.HTML_Encode(keyword)%>" />&nbsp;
按 <select name="type" size="1">
	<option value="1"<%If sType="1" Then sys.Echo(" selected")%>>用户名</option>
	<option value="2"<%If sType="2" Then sys.Echo(" selected")%>>用户编号</option>
	<option value="3"<%If sType="3" Then sys.Echo(" selected")%>>注册时间</option>
	<option value="4"<%If sType="4" Then sys.Echo(" selected")%>>发布时间</option>
   </select>&nbsp;
<input type="submit" value="搜 索" />
</form>
</div>
<div style="margin-top:10px"><%=sys.fPageCount(rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)%></div>
</div>
</div>
</div>
<%
	rs.Close
	Set rs = Nothing
End Sub

Public Sub Login()
%>
<div style="width:100%;">
<div id="loginfrm">
<div class="topLeft"></div>
<div class="topMid"></div>
<div class="topRight"></div>
<div class="middle"></div>
<div class="form login">
	<form action="<%=sys.SelfName(0)%>?action=CheckLogin" method="post">
	<input type="hidden" name="act" value="login" />
	<p>用户名：<input type="text" name="username" id="username" class="input4" /></p>
	<p>密　码：<input type="password" name="password" id="password" class="input4" /></p>
	<p title="记住登录下次浏览时不再需要登录"><input type="checkbox" name="record" id="record" value="1" checked /> <label for="record">记住本次登录</label></p>
	<p><input type="submit" value="登 录" />&nbsp;&nbsp;&nbsp;&nbsp;<input type="button" value="注 册" onclick="window.location.href='<%=sys.SelfName(0)%>?action=reg';" /></p>
	</form>
</div>
<div class="bottom"></div>
</div>
</div>
<%
End Sub

Public Sub Register()
	If sys.IsLogin Then sys.Go "default.asp",301
%>
<div style="width:100%;">
<div id="left"><%LoginFrm()%></div>

<div id="right">
<div class="table_mar register">
<div style="color:#FF0000;text-align:left">*以下均为必填项</div>
<form action="<%=sys.SelfName(0)%>?action=SaveReg" method="post">
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td width="110" align="right">会员名：</td>
    <td width="150"><input type="text" name="username" class="input" /></td>
    <td align="left"><li class="regtip">4-16个字符(包括小写字母、数字、下划线、中文)，一个汉字为两个字符。一旦注册成功会员名不能修改。</li></td>
  </tr>
  <tr>
    <td align="right">密　码：</td>
    <td><input type="password" name="password" class="input" /></td>
    <td align="left"><li class="regtip">密码由5个以上字符组成，建议使用英文字母加数字或符号的组合密码，不要单独使用英文字母、数字或符号作为您的密码。</li></td>
  </tr>
  <tr>
    <td align="right">再输入一遍密码：</td>
    <td><input type="password" name="password2" class="input" /></td>
    <td align="left"><li class="regtip">请再输入一遍您上面输入的密码。</li></td>
  </tr>
  <tr>
    <td align="right">电子邮件：</td>
    <td><input type="text" name="email" class="input" /></td>
    <td align="left"><li class="regtip">没有电子邮件？推荐使用<a href="http://cn.yahoo.com/" target="_blank">雅虎3.5G免费超大邮箱</a>、<a href="http://mail.sogou.com/" target="_blank">搜狐邮箱</a>和<a href="http://mail.163.com/" target="_blank">网易邮箱</a>。</li></td>
  </tr>
</table>
<div style="margin:10px;">
<input type="hidden" name="act" value="save" />
<input type="submit" value="提 交 注 册 信 息" />
</div>
</form>
</div>
</div>
</div>
<%
End Sub

Public Sub SaveReg()
	If sys.IsLogin Then sys.Go "default.asp",301
	
	If Lcase(Request.Form("act")) <> "save" Then
		Exit Sub
	End If
	sys.CheckSubmit(True)
	
	Dim username,password,password2,email,IsErr,UserID,md5c
	IsErr = False
	username = LCase(Trim(Request.Form("username")))
	password = Request.Form("password")
	password2 = Request.Form("password2")
	email = Trim(Request.Form("email"))
	
	If sys.ChkEmpty(username) Then
		IsErr = True
		sys.ShowMsg "错误：用户名不能为空！","",""
	ElseIf sys.StrLen(username) < 4 Or sys.StrLen(username) > 16 Then
		IsErr = True
		sys.ShowMsg "错误：用户名长度必须为4-16个字符（一个汉字为两个字符）！","",""
	End If
	If IsErr Then sys.Abort()
	
	If sys.ChkEmpty(password) Then
		IsErr = True
		sys.ShowMsg "错误：密码不能为空！","",""
	ElseIf password <> password2 Then
		IsErr = True
		sys.ShowMsg "错误：再次输入密码不相同！","",""
	ElseIf Len(password) < 5 Then
		IsErr = True
		sys.ShowMsg "错误：密码长度必须5个字符以上！","",""
	End If
	If IsErr Then sys.Abort()
	
	If sys.ChkEmpty(email) Then
		IsErr = True
		sys.ShowMsg "错误：电子邮箱不能为空！","",""
	ElseIf Not sys.IsEmail(email) Then
		IsErr = True
		sys.ShowMsg "错误：电子邮箱无效，请检查是否填写正确。","",""
	End If
	If IsErr Then sys.Abort()
	
	Dim sql,rs
	ConnData()
	Set md5c = New MD5
	password = md5c.md5(password)
	Set md5c = Nothing
	sql = "SELECT [ID] FROM [User] WHERE [UserName]='"&Replace(username,"'","''")&"'"
	Set rs = Conn.Execute(sql)
	If Not (rs.Eof And rs.Bof) Then
		IsErr = True
		sys.ShowMsg "错误：用户“"&username&"”已经存在，请选择其它用户名。","",""
	End If
	rs.Close
	Set rs = Nothing
	If IsErr Then sys.Abort()

	UserID = sys.LastValue("User","ID")
	If sys.IsNum(UserID) Then
		UserID = UserID + 1
	Else
		sys.ShowMsg "抱歉，系统数据错误，请与管理员联系。","",""
		sys.Abort()
	End If
	
	sql = "INSERT INTO [User]([ID],[UserName],[Password],[RegisterTime]) VALUES("&UserID&",'"&Replace(username,"'","''")&"','"&password&"','"&Now()&"')"
	Conn.Execute(sql)
	sql = "INSERT INTO [ContactInfo]([UserID],[Email]) VALUES("&UserID&",'"&Replace(email,"'","''")&"')"
	Conn.Execute(sql)
	
	sys.ShowMsg "恭喜！注册成功，点击确定返回登录……","login.asp",""
	sys.Abort()
End Sub

Public Sub Picture(Byval nUID)
	Response.Clear
	Response.Expires = -9999 
	Response.AddHeader "Pragma","no-cache"
	Response.AddHeader "cache-ctrol","no-cache"

	Dim UserID,sql,rs,IsErr
	IsErr = False
	UserID = nUID
	If Not sys.IsNum(UserID) Then sys.Abort()
	
	ConnData()
	sql = "SELECT [ID] FROM [User] WHERE [ID]=" & UserID
	Set rs = Conn.Execute(sql)
	If rs.Eof And rs.Bof Then
		IsErr = True
	End If
	rs.Close
	Set rs = Nothing

	If Not IsErr Then
		IsErr = True
		sql = "SELECT [Photo] FROM [BasicInfo] WHERE [UserID]=" & UserID
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open sql,Conn,1,1
		If Not (rs.Eof And rs.Bof) Then
			If Not IsNull(rs(0)) Then
				IsErr = False
				Response.ContentType = "image/*"
				Response.BinaryWrite rs(0).GetChunk(rs(0).ActualSize)
				Response.Flush
			End If
		End If
		rs.Close
		Set rs = Nothing
	End If

	If IsErr Then
		Dim s,fso,nopic
		nopic = Server.MapPath("InterFace/"&SystemSkin&"/nopic.gif")
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		If fso.FileExists(nopic) Then
			Set s = Server.CreateObject("ADODB.Stream")
			s.Open
			s.Type = 1
			s.LoadFromFile(nopic)
			Response.ContentType = "image/*"
			Response.BinaryWrite s.Read
			Response.Flush
			s.Close
			Set s = Nothing
		End If
		Set fso = Nothing
	End If
	
	sys.Abort()
End Sub
End Class
%>