<% if Not ChkPost then response.redirect ("../../login/chklogin.asp?login=4") response.end end if if session("id")="" then session("geturl")=geturl response.Redirect("../../login/login.asp") response.end end if %> <% dim sql dim rs dim info_id, year_now, month_now, day_now year_now = year(date()) month_now = month(date()) day_now = day(date()) if Chkrequest(request("info_id")) then info_id=request("info_id") else Response.Redirect ("../../login/chklogin.asp?login=4") end if sql="select info.*,corporation.* from info,corporation where info.info_id=" & info_id & " and corporation.id=info.gsid" set rs=conn.execute(sql) if rs.eof then response.write "

对不起,没有您要查询的信息,可能已经被删除。

" else gsid=rs("gsid") if gsid=session("id") then response.write"" response.end end if 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 if Cint(request("Verifycode"))<>Session("GetCode") then if request.form("Verifycode")="" and request.form("messageContent")="" then call main() else response.write"" response.end end if else title=Replace_Text(request.form("messageTitle")) content=Replace_Text(request.form("messageContent")) needtrust=Replace_Text(request.form("needtrust")) sendemail=Replace_Text(request.form("sendemail")) saveSendMessage=Replace_Text(request.form("saveSendMessage")) sendContact=Replace_Text(request.form("sendContact")) checkdate=Replace_Text(request.form("checkdate")) start_year=Replace_Text(request.form("start_year")) start_month=Replace_Text(request.form("start_month")) start_day=Replace_Text(request.form("start_day")) requestinfo=Replace_Text(request.form("requestinfo")) mycid=Replace_Text(request.form("mycid")) 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 needtrust<>"" then rs1("needtrust")=1 if sendContact<>"" then rs1("sendcontact")=1 if checkdate<>"" then rs1("checkdate")=1 rs1("limitedtime")=start_year&"年"&start_month&"月"&start_day end if rs1("requestinfo")=requestinfo 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 needtrust<>"" then rs("needtrust")=1 if sendContact<>"" then rs("sendcontact")=1 if checkdate<>"" then rs("checkdate")=1 rs("limitedtime")=start_year&"年"&start_month&"月"&start_day end if rs("requestinfo")=requestinfo 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 conn.close set conn=nothing 'email 内容 Dim l_message ' 声明变量 l_message = "" & vbCrLf l_message = l_message & "" l_message = l_message & "" l_message = l_message & "中国触摸屏网询价留言信息" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "
" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "" l_message = l_message & "
" l_message = l_message & "" & rs("qymc") & "
    您好!
" l_message = l_message & "    有客户对您在中国触摸屏网上发布的产品:
" l_message = l_message & "        ·" & rs("showname") & "
" l_message = l_message & "    很感兴趣,希望与您进一步交流价格信息!特此给您留言
" l_message = l_message & "    请点击以下地址登录中国触摸屏网进行查看
" l_message = l_message & "    登录中国触摸屏网," l_message = l_message & "

    如有任何疑问,请联系我们,我们将热诚为您服务!
" l_message = l_message & "    服务热线:028-66219290 13183843395
" l_message = l_message & "    在线  QQ:43361182
" l_message = l_message & "    MSN 帐号:touch8@gmail.com
" l_message = l_message & "    电子邮箱:51touch@126.com
" l_message = l_message & "    触摸屏网:http://www.51touch.com
" l_message = l_message & "    网站论坛:http://www.51touch.com/bbs/index.asp
" l_message = l_message & "
" l_message = l_message & "       中国触摸屏网,服务中国触摸屏
" l_message = l_message & "       http://www.51touch.com

" l_message = l_message & "" l_message = l_message & "" if sendemail<>"" then topic="我对您发布的" & rs("showname") & "很感兴趣" ' 信件主题 mailbody=l_message ' 信件内容 Dim t_ret t_ret = SendMail(MailServer,MailServerUserName,MailServerPassword,MailUserName,MailUserAddress,email,topic,mailbody) end if response.write"" response.end end if end if sub main() %> 发送留言询问产品价格|中国触摸屏网
中国触摸屏网
首页
触摸屏
一体机
触摸显示器
供求商机
产品展示
厂商资料
资讯中心
触摸软件
触摸论坛
   导航:中国触摸屏网 >> 用户登录 全国触摸屏销售热线:(点击查看)
  发送留言信息
发送给:
附加码: 请在附加码框中输入:<%=GetCode()%>
主题: ”很感兴趣" name="messageTitle">
主要内容:
  请对方向我提供中国触摸屏网会员档案
 
请选择发送方式
发到对方电子邮箱
网上留言 (限1500字)
保存到“我发出的留言”
发送我的联系方式

对方在 日前答复! (如您希望对方在此前答复,请将方框点选为


我需要进一步了解的信息:
产品规格、型号 单价 价格条款
原产地 供货能力 销售条款及附加条件
最小订货量 交货期 能否提供样品
产品担保 包装方式 质量/安全认证

检查我的联系信息是否有误

" name="mycid">

回到页首
加入收藏网站地图友情链接联系我们  |  广告联系全国销售网络
    网站广告、经销商加盟、触摸屏软件销售:028-85108892 13183843395 028-66219290 联系人:张小姐 传真:028-85108892 全国各地经销商如下:
   广 州   020-87599875 深 圳   0755-21949677 福 州   0591-87818596 厦 门   0592-5615268 泉 州   0595-88150378
   湖 南   15863470449 江 西   0791-6283683 上 海   13916222245 南 京   025-83610010 苏 州   0512-65581867
   无 锡   0510-88658230 北 京   010-62631382 山 西   0351-8390152 济 南   13396407999 四 川   028-81934978
   云 南   0871-5109466 重 庆   023-68609756 其 他… 13183843395   >>> 经销商加入指南  
电子邮件: 51touch(A)126.com 请将地址中的"(A)"改成"@",避免垃圾邮件出此下策,望谅
版权所有 Copyright(C)2003-2008 中国触摸屏网 地址:成都市高升桥东路2号高盛中心1109室 电话:028-85108892 13183843395 028-66219290 

在线咨询QQ: 

触摸屏、触摸屏软件、触控一体机咨询 43361182 触摸屏、触摸屏软件、触控一体机咨询 893008608 MSN 帐号:touch8(A)gmail.com 将"(A)"改成"@"即可
<% end sub rs.close set rs=nothing conn.close set conn=nothing Function GetCode() Dim TestObj On Error Resume Next Set TestObj = Server.CreateObject("Adodb.Stream") Set TestObj = Nothing If Err Then Dim TempNum Randomize timer TempNum = cint(8999*Rnd+1000) Session("GetCode") = TempNum GetCode = Session("GetCode") Else GetCode = "" End If End Function %>