% 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 %>
您的短信息使用条数已满,请升级会员类型后才能继续使用! |