📄 person_letters.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%link="person_letters.asp"%>
<!--#include file="checkpmember.asp" -->
<!--#include file="flagandexpend.asp" -->
<!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>求职信-个人求职管理中心-<%=SiteTitle%></title>
<link href="../css/<%=MainWebCss%>.css" rel="stylesheet" type="text/css" />
<script language="JavaScript">
<!--
//功能：去掉字符串前后空格
//返回值：去掉空格后的字符串
function fnRemoveBrank(strSource)
{
return strSource.replace(/^\s*/,'').replace(/\s*$/,'');
}
function String.prototype.lenB()
{
return this.replace(/[^\x00-\xff]/g,"**").length;
}
function Juge(theForm)
{
if (fnRemoveBrank(theForm.title.value) == "")
{
alert("请输入求职信标题!");
theForm.title.focus();
return (false);
}
if (fnRemoveBrank(theForm.content.value) == "")
{
alert("请输入求职信内容!");
theForm.content.focus();
return (false);
}
if ((theForm.content.value).lenB()>=2000)
{
alert("求职信内容太长了，要求不多于2000个字符!");
theForm.content.focus();
return (false);
}
}
-->
</script></head>
<body>
<center>
<div id="head">
<div id="logo"><img src="<%=SiteUrl&InstallDir&LogoUrl%>" alt="欢迎访问<%=SiteName%>" /></div>
<div id="banner"><%Call Loginshow()%></div>
<ul><%Call Membernav(1)%></ul>
</div>
<%Call Pmembermenu(4)%>
<div class="maintaba">
<%step=trim(request("step"))
Select Case step
Case "Add"
Call ShowData()
Case "Modify"
Call ShowData()
Case "SaveData"
Call SaveData()
Case "Del"
Call Del()
Case Else
Call main()
End Select%>
</div>
<%call bottom()
conn.close:set conn=nothing%>
<%Sub main()%>
<span class="maintit">求职信</span>
<ul>
<li>你可以在这里保存求职信，附在简历上发给招聘单位。你可以保存<%=Group_Plimits(7)%>份不同内容的求职信，以适应不同职位的需求,目前你已经添加并保存过<%=Pletternums%>份。</li>
<%
set rs=server.createobject("ADODB.Recordset")
sql="select letter_id,letter_title from job_p_letter where letter_pmember='"&pmember_login&"' order by letter_announcedate desc"
rs.open sql,conn,1,1
if not rs.eof then
%>
<li>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' bgcolor="#99CCFF" class="tabb">
<tr>
<td width='30' align='middle' valign='center'><B>ID</B></td>
<td align='middle' valign='center'><B>求职信标题</B></td>
<td width='70' align='middle' valign='center'><B>预览/打印</B></td>
<td width='41' align='middle' valign='center'><B>修改</B></td>
<td width='41' align='middle' valign='center'><B>删除</B></td>
</tr>
<%for i=1 to rs.recordcount%>
<tr>
<td align="center" bgcolor='#FFFFFF'><%=rs("letter_id")%></td>
<td bgcolor="#FFFFFF"><%=rs("letter_title")%></td>
<td align="center" bgcolor='#FFFFFF'><a href="letter_preview.asp?id=<%=rs("letter_id")%>" target="_blank"><img src="../images/sign_04.gif" border="0"></a></td>
<td align="center" bgcolor="#FFFFFF"><A href="person_letters.asp?step=Modify&id=<%=rs("letter_id")%>"><IMG height=17 alt=修改求职信 src='../images/sign_05.gif' width=16 border=0></A></td>
<td align="center" bgcolor="#FFFFFF"><input type="image" onClick="if (confirm('确定删除该求职信吗？')) window.location='person_letters.asp?step=Del&id=<%=rs("letter_id")%>'" src="../images/sign_07.gif" style="border-width:0px;"></td>
</tr>
<%rs.movenext
next
%>
</table>
</li>
<%end if
rs.close
set rs=nothing%>
<li><input name="btnAdd" type="button" class="inputa2" onClick="javascript:window.location.href='person_letters.asp?step=Add'" value="新增求职信"></li>
</ul>
<%End Sub%>
<%Sub ShowData()
if request("id")<>"" and step="Modify" then
letter_id=clng(trim(request("id")))
set rs=server.createobject("ADODB.Recordset")
sql="select letter_title,letter_content from job_p_letter where letter_id="&letter_id&""
rs.open sql,conn,1,1
letter_title=rs("letter_title")
letter_content=rs("letter_content")
rs.close
set rs=nothing
else
'判断求职信是否达到上限
If CheckPFlag("Plimits",7)=False then
response.write "<script language=javascript>alert('您填写的求职信数量已达到上限，请联系网站客服进行升级！');location.href='person_letters.asp';</script>"
response.end()
end if
end if %>
<span class="maintit"><%if step="Modify" then%>修改<%else%>新增<%end if%>求职信</span>
<ul>
<form name="lettermodi" action="person_letters.asp?step=SaveData&id=<%=letter_id%>" method="post" onSubmit="return Juge(this)">
<li><FONT color=#ff6600>＊</FONT>求职信标题：<input name="title" type="text" id="title" size="40" maxlength="50" value="<%=letter_title%>"></li>
<li><FONT color=#ff6600>＊</FONT>求职信内容：<textarea name="content" id="content" rows="8" cols="60"><%=ChangeStrbox(letter_content)%></textarea>
（限2000字符）</li>
<li><input name="btnSave" type="submit" class="inputa3" value="保 存">
<input name=Exit type=button class="inputa3" onClick="javascript:window.location.href='person_letters.asp'" value="返 回"></li></form></ul>
<%End Sub%>
<%Sub SaveData()
letter_title=CheckStr(trim(request("title")))
if letter_title="" then
Response.Write ("<script language=JavaScript>{alert('错误：求职信标题不能为空!');location.href = 'javascript:history.go(-1)';}</script>")
Response.End
end if
letter_content=CheckStrbox(request("content"))
If letter_content="" Then
Response.Write ("<script language=JavaScript>{alert('错误：求职信内容不能为空!');location.href = 'javascript:history.go(-1)';}</script>")
Response.End
Else
If lenmix(letter_content)>=2000 Then
response.write "<script language=javascript>alert('错误：求职信内容太长了，要求不多于2000个字符!！');location.href='javascript:history.back()';</script>"
response.end
End If
End If
'把信息存入求职信表letter
set rs=server.CreateObject("adodb.recordset")
if request("id")<>"" then
letter_id=clng(trim(request("id")))
sql="select * from job_p_letter where letter_id="&letter_id
rs.open sql,conn,1,3
if not rs.eof then
rs("letter_title")=letter_title
rs("letter_content")=letter_content
rs("letter_announcedate")=Now()
rs.update
end if
else
sql="select * from job_p_letter"
rs.open sql,conn,1,3
rs.addnew
rs("letter_pmember")=pmember_login
rs("letter_title")=letter_title
rs("letter_content")=letter_content
rs("letter_announcedate")=Now()
rs.update
'更新求职信数量
conn.Execute("Update JOB_member set Member_letternums=Member_letternums+1 where Member_login = '"&pmember_login&"' and Member_typeid=1")
end if
rs.close
set rs=nothing
response.redirect "person_letters.asp"
response.end
End Sub%>
<%Sub Del()
if step="Del" and request("id")<>"" then '删除求职信
letter_id=clng(trim(request("id")))
conn.execute "delete from job_p_letter where letter_id="&letter_id&" and letter_pmember='"&pmember_login&"'"
response.redirect "person_letters.asp"
response.end
end if
End Sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -