<% Dim strMenu,PageTitle,sxcrcwzk sxcrcwzk=0 strMenu = "" PagePath = "../" Set jyrcw = New Site_Class Jyrcw.SiteConfig() Jyrcw.GotoErrPage() Jyrcw.arrMember = Jyrcw.Member_Info() %> <% dim sxcrcwPerId,jyrcwsjr,jyrcwsjxm,sxcrcwsjxm,jyrcwsjbt,jyrcwsjnr,Rs_perdxx,Rs_perxm,Rs_dxxtj,MemberBeginDatee,MemberEndDatee,MemberTypee sxcrcwPerId=Trim(Request.QueryString("ComId")) if sxcrcwPerId="" or isnull(sxcrcwPerId) then else Set Rs_perdxx = server.CreateObject("ADODB.recordset") Rs_perdxx.Open "select CompanyName,MemberBeginDate,MemberEndDate,MemberType from CompanyTbl where ComId = "& sxcrcwPerId , Conn , 1 , 1 If Rs_perdxx.Eof Then Else sxcrcwsjxm = Rs_perdxx("CompanyName") MemberBeginDatee = Rs_perdxx("MemberBeginDate") MemberEndDatee = Rs_perdxx("MemberEndDate") MemberTypee = Rs_perdxx("MemberType") 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"))) dim Rssjx,duanxinxi,duanxinxi1,duanxinxi2 Set Rs_perdxx = server.CreateObject("ADODB.recordset") Rs_perdxx.Open "select CompanyName,MemberBeginDate,MemberEndDate,MemberType from CompanyTbl where ComId = "& jyrcwsjr , Conn , 1 , 1 If Rs_perdxx.Eof Then Else sxcrcwsjxm = Rs_perdxx("CompanyName") MemberBeginDatee = Rs_perdxx("MemberBeginDate") MemberEndDatee = Rs_perdxx("MemberEndDate") MemberTypee = Rs_perdxx("MemberType") End if Rs_perdxx.Close Set Rs_perdxx=Nothing if MemberBeginDatee="" or isnull(MemberBeginDatee) or MemberEndDatee="" or Isnull(MemberEndDatee) or DateDiff("d",now(),MemberEndDatee)<0 then MemberTypee=0 end if Set Rssjx = server.CreateObject("ADODB.recordset") Rssjx.Open "select jyrcwdxxid from jyrcwdxx where jyrcwdxxcom = '"& jyrcwsjr &"'" , Conn , 1 , 1 duanxinxi1 = Rssjx.RecordCount Rssjx.Close Rssjx.Open "select jyrcwdxxhfid from jyrcwdxxhf where jyrcwdxxhfcom =' "& jyrcwsjr &"'" , Conn , 1 , 1 duanxinxi2 = Rssjx.RecordCount Rssjx.Close set Rssjx=nothing duanxinxi=duanxinxi1+duanxinxi2 If duanxinxi>=Jyrcw.arrMember(16 , MemberTypee) then Jyrcw.ShowMsg "对不起,对方短信息条数已满,已不能回复!" , "" End if 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 ComId,CompanyName from CompanyTbl where ComId = "&jyrcwsjr&" and CompanyName='"&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")="sj" Rs_dxxtj("jyrcwdxxqygr")="gr" Rs_dxxtj("jyrcwdxxper")=PersId Rs_dxxtj("jyrcwdxxcom")=jyrcwsjr 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 IsSh=0 then%>
    本站目前只能对企业发短消息,发送短消息时请填写清楚企业编号和名称。
    收件人企业编号: *请填入企业编号,如果不知道请直接点击企业简介页面的发短消息按钮。
    收件人名称: *填写企业的名称。
    短消息标题: *200字以内。
    短消息内容:
       
    <%else%>
    对不起,您的帐号没有通过审核,没有发短消息的权限!
    <%end if%>