数据库编程

开发平台：
ASP/ASPX

AP_Job_Public_AddUpdate.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="../lib/strlib.asp" -->
<!--#include file="../lib/UserCheck.asp" -->
<%
'Copyright (c) 2006 Foosun Inc. Code by awen
Dim Ap_Rs,Ap_Sql
if not Session("FS_UserNumber")<>"" then response.Redirect("../lib/error.asp?ErrCodes=<li>你尚未登陆,或过期.</li>&ErrorUrl=../login.asp") : response.End()
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<title>已发布的招聘---网站内容管理系统</title>
<meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
<meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
<link href="../images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../../FS_Inc/CheckJs.js"></script>
<script language="JavaScript" src="../../FS_Inc/coolWindowsCalendar.js"></script>
<%if request.QueryString("Act")<>"Search" then%>
<script language="JavaScript">
<!--
function chkinput()
{
	example:Do.these('JobName',function(){return CheckContentLen('JobName','JobName_Alt','2-30')}) ;
	example:Do.these('JobDescription',function(){return CheckContentLen('JobDescription','JobDescription_Alt','2-65500')})  ;
	example:Do.these('WorkCity',function(){return CheckContentLen('WorkCity','WorkCity_Alt','2-20')})  ;
	example:Do.these('PublicDate',function(){return isEmpty('PublicDate','PublicDate_Alt') && valiateDate('PublicDate','PublicDate_Alt')})  ;
 	example:Do.these('EndDate',function(){return isEmpty('EndDate','EndDate_Alt') && valiateDate('EndDate','EndDate_Alt')})  ;
	example:Do.these('NeedNum',function(){return isEmpty('NeedNum','NeedNum_Alt') && isNumber('NeedNum','NeedNum_Alt','请使用整数',true)})  ;
}
-->
</script>
<%end if%>
<head>
<body>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  <tr>
    <td>
      <!--#include file="../top.asp" -->
    </td>
  </tr>
</table>
<table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  
    <tr class="back"> 
      <td   colspan="2" class="xingmu" height="26"> <!--#include file="../Top_navi.asp" --> </td>
    </tr>
    <tr class="back"> 
      <td width="18%" valign="top" class="hback"> <div align="left"> 
          <!--#include file="../menu.asp" -->
        </div></td>
      <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
          <tr class="hback"> 
            
          <td class="hback"><strong>位置：</strong><a href="../../">网站首页</a> &gt;&gt; 
            <a href="../main.asp">会员首页</a> &gt;&gt; <a href="job_applications.asp">招聘首页</a>－已发布的招聘</td>
          </tr>
        </table>
<%
'******************************************************************
select case request.QueryString("Act")
	case "Add","Edit","Search"
	Add_Edit_Search
	case else
	response.Redirect("job_applications.asp")
end select
'******************************************************************
Sub Add_Edit_Search()
Dim PID,Bol_IsEdit,ResumeLang
Bol_IsEdit = false
if request.QueryString("Act")="Edit" then 
	PID = request.QueryString("PID")
	if PID="" then response.Redirect("../lib/error.asp?ErrorUrl=&ErrCodes=<li>必要的ID没有提供</li>") : response.End()
	Ap_Sql = "select PID,JobName,JobDescription,ResumeLang,WorkCity,PublicDate,EndDate,NeedNum from FS_AP_Job_Public where UserNumber = '"&Session("FS_UserNumber")&"' and PID="&PID
	Set Ap_Rs	= CreateObject(G_FS_RS)
	Ap_Rs.Open Ap_Sql,Conn,1,1
	if Ap_Rs.eof then response.Redirect("../lib/error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
	Bol_IsEdit = True
	ResumeLang = Ap_Rs("ResumeLang")
end if	
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <form name="form1" id="form1" onsubmit="return chkinput();" <%if request.QueryString("Act")<>"Search" then response.Write(" method=""post"" action=""AP_Job_Public_Action.asp?Act=Save""") else response.Write(" method=""get"" action=""AP_Job_Public_List.asp""") end if%>>
    <tr  class="hback"> 
      <td colspan="3" align="left" class="xingmu" ><%if Bol_IsEdit then
	  response.Write("修改招聘信息<input type=""hidden"" name=""PID"" ID=""PID"" value="""&Ap_Rs("PID")&""">")
	  elseif request.QueryString("Act")="Search" then
	  response.Write("查询已发布的招聘信息") 
	  else
	  response.Write("发布招聘信息")
	  end if%></td>
	</tr>
  <tr  class="hback"> 
    <td colspan="3" height="25">
	 <a href="AP_Job_Public_List.asp">已发布的信息</a> | <a href="AP_Job_Public_AddUpdate.asp?Act=Add">添加招聘信息</a> | <a href="AP_Job_Public_AddUpdate.asp?Act=Search">查询招聘信息</a>	
	</td>
  </tr>
<%if request.QueryString("Act")="Search" then%>  
    <tr  class="hback"> 
      <td align="right">ID序号</td>
      <td>
	  <input type="text" name="PID" id="PID" size="10" maxlength="10" value="">
      </td>
    </tr>  
<%end if%>  
    <tr  class="hback"> 
      <td align="right">职位名称</td>
      <td>
	  <input type="text" name="JobName" id="JobName" size="60" maxlength="30" value="<%if Bol_IsEdit then response.Write(Ap_Rs("JobName")) end if%>"><span id="JobName_Alt"></span>
      </td>
    </tr>
    <tr  class="hback"> 
      <td align="right">职位描述</td>
      <td>
	  <textarea name="JobDescription" id="JobDescription" rows="20" cols="60"><%if Bol_IsEdit then response.Write(Ap_Rs("JobDescription")) end if%></textarea><span id="JobDescription_Alt"></span>
      </td>
    </tr>
    <tr  class="hback"> 
      <td align="right">接受简历语言</td>
      <td>
		<select name="ResumeLang" id="ResumeLang">
		<%=PrintOption(ResumeLang,"无:无,英语:英语,粤语:粤语,日语:日语,法语:法语,德语:德语,俄语:俄语,韩语:韩语,西班牙语:西班牙语,葡萄牙语:葡萄牙语")%>
		</select><span id="ResumeLang_Alt"></span>
      </td>
    </tr>
    <tr  class="hback"> 
      <td align="right">工作地点</td>
      <td>
	  <input type="text" name="WorkCity" id="WorkCity" size="60" maxlength="30" value="<%if Bol_IsEdit then response.Write(Ap_Rs("WorkCity")) end if%>"><span id="WorkCity_Alt"></span>
      </td>
    </tr>
    <tr  class="hback"> 
      <td align="right">发布日期</td>
      <td>
	  <input type="text" name="PublicDate" id="PublicDate" onfocus="setday(this)" style="WIDTH: 100px; HEIGHT: 22px" maskType="shortDate" value="<%if Bol_IsEdit then response.Write(Ap_Rs("PublicDate")) else if request.QueryString("Act")<>"Search" then  response.Write(date()) end if end if%>">
	  <IMG id="img3" onclick="PublicDate.focus()" src="../../FS_Inc/calendar.bmp" align="absBottom"><span id="PublicDate_Alt"></span>
      </td>
    </tr>
    <tr  class="hback"> 
      <td align="right">有效日期</td>
      <td>
	  <input type="text" name="EndDate" id="EndDate"  onfocus="setday(this)" style="WIDTH: 100px; HEIGHT: 22px" maskType="shortDate" value="<%if Bol_IsEdit then response.Write(Ap_Rs("EndDate")) end if%>">
	  <IMG id="img4" onclick="EndDate.focus()" src="../../FS_Inc/calendar.bmp" align="absBottom"><span id="EndDate_Alt"></span>
      </td>
    </tr>
    <tr  class="hback"> 
      <td align="right">招聘人数</td>
      <td>
	  <input type="text" name="NeedNum" id="NeedNum" size="60" maxlength="30" value="<%if Bol_IsEdit then response.Write(Ap_Rs("NeedNum")) end if%>"><span id="NeedNum_Alt"></span>
      </td>
    </tr>
	
    <tr  class="hback"> 
      <td colspan="4">
	  <table border="0" width="100%" cellpadding="0" cellspacing="0">
          <tr> 
            <td align="center"> <input type="submit"value=" 确定发布 " /> 
              &nbsp; <input type="reset" value=" 重置 " />
  			  &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("AP_Job_Public_AddUpdate.asp?Act=Del&PID="&PID)%>'">
            </td>
          </tr>
        </table>
      </td>
    </tr>	
  </form>
</table>
<%
End Sub
%>
       </td>
    </tr>
    <tr class="back"> 
      <td height="20" colspan="2" class="xingmu"> <div align="left"> 
          <!--#include file="../Copyright.asp" -->
        </div></td>
    </tr>
 
</table>
<%
Set Fs_User = Nothing
%>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->

						