<%=my_name%>----企业黄页

<% Select case to_url case "0" myurl="."&my_url case "1" myurl="@"&my_url case "2" myurl="www."&my_url&"/" End Select %> <%=my_name%>----企业黄页

高级搜索

	企业大全		产品图库		最新加盟		我要加盟

我要加盟

建企业智能网站最低365元/年啦～

<%set s = Server.CreateObject("shuziren_com.yz") server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) if request("add")="yes" and mid(server_v1,8,len(server_v2))=server_v2 then if request("lbid")="" or request("xlbid")="" or request("mc")="" or request("xz")="" or request("dz")="" or request("tel")="" or len(request("js"))<5 or len(request("js"))>500 or request("url")="" then width="500" my_bt="操作失败！" my_nr=" 对不起！你不能成功地发出信息！！！·请确保各项必填项选择填写完整，简要介绍不能超过少于5字多于500字！" my() else sl = conn.execute("select count(id) from qy_info where lbid="&s.shuzi("lbid")&" and xlbid="&s.shuzi("xlbid")&" and mc='"&s.txt("mc")&"'")(0) if sl>=1 then width="500" my_bt="操作失败！" my_nr=" 对不起！你不能成功地发出信息！！！
·该企业信息数据库中已经有记录了，请勿重复提交！" my() else '二级域名处理 if to_url="2" then url=myurl&lcase(s.txt("url")) else url=lcase(s.txt("url"))&myurl end if if len(request("url"))<4 then response.write "" response.end end if set rs = conn.execute("select * from url where home = '"&url&"'") if not rs.eof then response.write "" response.end end if rs.close:set rs=nothing if Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" then ip=Request.ServerVariables("REMOTE_ADDR") else ip= Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if ip=replace(ip,"'","") Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from qy_info" rs.open sql,conn,1,3 rs.addnew rs("lbid")=s.shuzi("lbid") rs("xlbid")=s.shuzi("xlbid") rs("mc")=s.txt("mc") rs("xz")=s.txt("xz") rs("dz")=s.txt("dz") rs("pc")=s.txt("pc") rs("tel")=s.txt("tel") rs("fax")=s.txt("fax") rs("name")=s.txt("name") rs("email")=s.txt("email") rs("url")=s.txt("http") rs("js")=s.txt("js") rs("web_js")=s.txt("js") rs("ip")=ip rs("http")=url rs("huiyuan")=s.nosql(Request.Cookies(my_url)("huiyuan")) if my_shenhe="1" then rs("zt")=1 end if rs.update rs.close set rs=nothing '//加二级域名 id=conn.execute("select id from qy_info where huiyuan='"&s.nosql(Request.Cookies(my_url)("huiyuan"))&"'")(0) conn.execute("Insert into url(home,url,bt,zt)values('"&url&"','info/xiangxi.asp?id="&id&"','"&s.txt("mc")&"',1)") width="650" my_bt="操作成功！" my_nr=" 您已成功地发出信息！！！
·标准VIP企业会员，只须 365元/年 ，就可以免费获得价值5800元的独立企业智能网站（拥有企业简介、供求信息、人才招聘、留言板、计数器、自定义栏目以及智能网站模板等多功能模块）并免费赠送二级域名一个，同时您发布的企业信息还会同步出现在"&my_name&"的对应栏目中，让您一份投入两份回报！
·无忧VIP企业会员，只须 680元/年 ，除拥有标准VIP企业会员的所有服务外，同时将免费获赠独立国际域名一个，并免费提供个性化的企业网站界面定制，以及价值300元内"&my_name&"任意广告位置企业推广！
·请等待"&my_name&"客服人员电话预约上门为您提供服务，也可直接拨打 "&my_tel&" 与我们联系。
·系统正在转向到一站通会员中心，如您的游览器不支持跳转请 ->直接点这里" my() response.write "

" end if end if else%>

　　· 一个登录企业（含工商个体）只需提交相关资料，<%=my_name%>企业黄页会自动收录。
　　· 符合相关标准您提交的资料，会在7日内按<%=my_name%>企业黄页收录标准被处理。
　　· <%=my_name%>不保证一定能收录您提交的企业。
　　· 现在申请VIP企业会员资格，您将获赠超值的推广服务（搜索排名、企业推荐、付费广告）
　　·标准VIP企业会员，只须 365元/年 ，就可以免费获得价值5800元的独立企业智能网站（拥有企业简介、产品
　　无限分类展示系统、文章无限分类发布系统、人才招聘、留言板、计数器、自定义栏目以及智能网站模板等多
　　功能模块）并免费赠送二级域名一个，同时您发布的企业信息还会同步出现在对应栏目中，让您一份投入两份回报！
　　·无忧VIP企业会员，只须 680元/年 ，除拥有标准VIP企业会员的所有服务外，同时将免费获赠独立国际域名
　　一个，并免费提供个性化的企业网站界面定制，以及价值400元内任意广告位置企业推广！
　　·现在申请，7天全免费功能试用，赶快在线申请感受一下第三代企业智能CMS自助建站吧！

<%if replace(Request.Cookies(my_url)("huiyuan"),"'","")<>"" then '//是否已为企业登陆 set yz = conn.execute("select id from qy_info where huiyuan='"&s.nosql(Request.Cookies(my_url)("huiyuan"))&"'") if not yz.eof then Response.redirect "../huiyuan/info/index.asp" Response.end end if yz.close:set yz=nothing%>

企业归类： <%set rs = conn.execute("select * from info_xlb order by xlbid")%> *

单位名称： *

单位性质： *

单位地址： *

邮政编码：

联系电话： *

联系传真：

公司网址：前加http://

电子信箱：

联系人：

公司/业务简介：(500字内不支持空格换行，严禁用夸大的言辞，如“最好/最大/第一”)
*

二级域名： http:// <%If to_url="2" Then Response.Write ""&myurl&"" else Response.Write ""&myurl&""%> 三位以上数字或字母组合*

<%rs.close:set rs=nothing else%>

系统提示：
请注册成为一站通会员即可登录您的企业信息并在会员中心中进行日常管理。
您不是一站通会员或尚未登陆 [>>会员登陆] [>>免费注册]
欢迎拨打<%=my_name%>客服热线：<%=my_tel%>

<%end if end if%>

<%conn.close set conn=nothing set s=nothing %>