商务助手首页 发布商业信息 发布供求信息 管理供求信息 发布产品信息 管理产品信息 公司介绍 查看商业往来 我收到的留言 我发出的留言 发新留言 我订阅的信息 我的商业伙伴 我的会员资料 修改注册信息 修改密码 我的自助网站 网站模板选择 ">上传营业执照 ">客户反馈管理 浏览我的网站 帮助

<% secuser=Replace_Text(request.form("selected_friend_id")) secuser=replace(replace(replace(secuser,"-1+",""),"0+",""),"1+","") if Cint(request("Verifycode"))<>Session("Verifycode") then if request.form("Verifycode")="" and request.form("messageContent")="" then response.write"" else response.write"" response.write" " response.write" " response.write" 亲爱的会员，您的验证码输入错误，请再试一下 " response.write" " response.write" " response.write" " end if else touser=Replace_Text(request.form("touser")) set rs=conn.execute("select id,user from corporation where user='"&touser&"' and id<>"&session("id")&"") if rs.eof or rs.bof then response.write"" response.end else mycid=rs("id") set rsblak=conn.execute("select id from MemberRelation where user='"&rs("user")&"' and secuser='"&session("user")&"' and relation=-1") if not (rsblak.eof and rsblak.bof) then response.write"" response.end end if rsblak.close set rsblak=nothing end if title=Replace_Text(request.form("messageTitle")) content=Replace_Text(request.form("messageContent")) sendemail=Replace_Text(request.form("sendemail")) saveSendMessage=Replace_Text(request.form("saveSendMessage")) sendContact=Replace_Text(request.form("sendContact")) if saveSendMessage<>"" then set rs1=server.createobject("adodb.recordset") sql1="select * from getprice1 where (id is null)" rs1.open sql1,conn,1,3 rs1.addnew rs1("title")=title rs1("content")=content if sendemail<>"" then rs1("sendemail")=1 if sendContact<>"" then rs1("sendcontact")=1 rs1("mycid")=mycid rs1("sendcid")=session("id") rs1("datetime")=now() rs1.update end if set rs=server.createobject("adodb.recordset") sql="select * from getprice where (id is null)" rs.open sql,conn,1,3 rs.addnew rs("title")=title rs("content")=content if sendemail<>"" then rs("sendemail")=1 if sendContact<>"" then rs("sendcontact")=1 rs("mycid")=mycid rs("sendcid")=session("id") rs("datetime")=now() if saveSendMessage<>"" then rs("getprice1id")=rs1("id") rs1.close set rs1=noting end if rs.update rs.close set rs=noting if sendemail<>"" then email="shuai@etoneit.com" topic="你好！" mailbody="测试！" sendjmail email,topic,mailbody end if 'If SendJmail(email,Topic,MailBody) = 1 Then ' Response.Write " 资料成功发送到您的注册邮箱！" 'Else ' Response.Write " 未正确设置邮件发送或您填写的邮件地址有误，资料发送失败！" 'End If response.write"" end if %> 发送给： 从商业伙伴中选取 <%sql2="select memberRelation.secuser,corporation.name from memberRelation,corporation where memberRelation.user='"&session("user")&"' and memberRelation.relation<>-1 and corporation.user=memberRelation.secuser order by memberRelation.id desc" set rs2=conn.execute(sql2) if rs2.eof or rs2.bof then response.write"" else do while not rs2.eof response.write""&rs2("name")&"（"&rs2("secuser")&"）" rs2.movenext loop end if rs2.close set rs2=nothing conn.close set conn=nothing%> （请填写对方的会员登录名或从商业伙伴中选取） 附加码： 请在附加码框中输入： 主题： 主要内容：   发到对方的电子邮箱中 发到对方的“我收到的留言”中 保存到我的“我发出的留言”中 发送我的联系方式 检查我的联系信息是否有误