<% Dim strMenu,PageTitle,sxcrcwzk sxcrcwzk=0 strMenu = "" PagePath = "../" Set jyrcw = New Site_Class Jyrcw.SiteConfig() Jyrcw.GotoErrPage() Jyrcw.arrMember = Jyrcw.Member_Info() %> <% if MemberBeginDate="" or isnull(MemberBeginDate) or MemberEndDate="" or Isnull(MemberEndDate) or DateDiff("d",now(),MemberEndDate)<0 then MemberType=0 end if %> <% dim sxcrcwPerId,jyrcwsjr,jyrcwsjxm,sxcrcwsjxm,jyrcwsjbt,jyrcwsjnr,Rs_perdxx,Rs_perxm,Rs_dxxtj sxcrcwPerId=Trim(Request.QueryString("PerId")) if sxcrcwPerId="" or isnull(sxcrcwPerId) then else Set Rs_perdxx = server.CreateObject("ADODB.recordset") Rs_perdxx.Open "select RealName from PersonTbl where PerId = "& sxcrcwPerId , Conn , 1 , 1 If Rs_perdxx.Eof Then Else sxcrcwsjxm = Rs_perdxx("RealName") End if Rs_perdxx.Close Set Rs_perdxx=Nothing end if If Request.Form <> "" Then jyrcwsjr = Jyrcw.chgStr(Trim(Request.Form("jyrcwsjr"))) jyrcwsjxm = Jyrcw.chgStr(Trim(Request.Form("jyrcwsjxm"))) jyrcwsjbt = Jyrcw.chgStr(Trim(Request.Form("jyrcwsjbt"))) jyrcwsjnr = Jyrcw.chgStr(Trim(Request.Form("jyrcwsjnr"))) If jyrcwsjr = "" Or IsNull(jyrcwsjr) Then Jyrcw.ShowMsg "请输入求职者简历编号!" , "chgcominfo_10_Add.asp" End If If not isNumeric(jyrcwsjr) Then Jyrcw.ShowMsg "求职者简历编号错误!" , "chgcominfo_10_Add.asp" End If If jyrcwsjxm = "" Or IsNull(jyrcwsjxm) Then Jyrcw.ShowMsg "请输入求职者姓名!" , "chgcominfo_10_Add.asp" End If If jyrcwsjbt = "" Or IsNull(jyrcwsjbt) Then Jyrcw.ShowMsg "请输入短消息标题!" , "chgcominfo_10_Add.asp" End If If jyrcwsjnr = "" Or IsNull(jyrcwsjnr) Then Jyrcw.ShowMsg "请输入短消息内容!" , "chgcominfo_10_Add.asp" End If Set Rs_perxm = server.CreateObject("ADODB.recordset") Rs_perxm.Open "select PerId,RealName from PersonTbl where PerId = "&jyrcwsjr&" and RealName='"&jyrcwsjxm&"'" , Conn , 1 , 1 If Rs_perxm.Eof Then Jyrcw.ShowMsg "求职者简历编号和姓名不对应,请返回重新输入简历编号和姓名!" , "chgcominfo_10_Add.asp" Else Set Rs_dxxtj = server.CreateObject("ADODB.recordset") Rs_dxxtj.Open "select * from jyrcwdxx where (jyrcwdxxid is null)", Conn , 3 , 2 Rs_dxxtj.AddNew Rs_dxxtj("jyrcwdxxlx")="fj" Rs_dxxtj("jyrcwdxxqygr")="qy" Rs_dxxtj("jyrcwdxxper")=jyrcwsjr Rs_dxxtj("jyrcwdxxcom")=Request.Cookies("ComId") Rs_dxxtj("jyrcwdxxbt")=jyrcwsjbt Rs_dxxtj("jyrcwdxxnr")=jyrcwsjnr Rs_dxxtj("jyrcwdxxsj")=jyrcw.formatdatee(now(),1) Rs_dxxtj("jyrcwdxxyd")="0" Rs_dxxtj.Update Rs_dxxtj.Close Set Rs_dxxtj=Nothing Jyrcw.ShowMsg "短消息发送成功!" , "chgcominfo_10_Add.asp" End if Rs_perxm.Close Set Rs_perxm=Nothing End If %>
  • 短消息
<%if Jyrcw.arrMember(15 , MemberType)=0 or IsSh<>0 then%> 对不起,您没有发送短消息的权限! <%else%>
    <% dim Rssjx,duanxinxi,duanxinxi1,duanxinxi2 Set Rssjx = server.CreateObject("ADODB.recordset") Rssjx.Open "select jyrcwdxxid from jyrcwdxx where jyrcwdxxcom = '"& Request.Cookies("ComId") &"'" , Conn , 1 , 1 duanxinxi1 = Rssjx.RecordCount Rssjx.Close Rssjx.Open "select jyrcwdxxhfid from jyrcwdxxhf where jyrcwdxxhfcom = '"& Request.Cookies("ComId") &"'" , Conn , 1 , 1 duanxinxi2 = Rssjx.RecordCount Rssjx.Close set Rssjx=nothing duanxinxi=duanxinxi1+duanxinxi2 %> <%if duanxinxi>=Jyrcw.arrMember(16 , MemberType) then%>
    您的短信息使用条数已满,请升级会员类型后才能继续使用!
    <%else%>
    本站目前只能对求职者发短消息,发送短消息时请填写清楚求职者简历编号和姓名。
    收件人简历编号: *请填入求职者简历编号,如果不知道请直接点击简历页面的发短消息按钮。
    收件人姓名: *填写求职者的姓名。
    短消息标题: *200字以内。
    短消息内容:
       
    <%end if%>
<%end if%>