<% sql="update info set click=click+1 where id="&cint(request("id")) conn.execute sql id=cint(request("id")) set rs=server.createobject("adodb.recordset") sql="select * from info where id="&id rs.open sql,conn,1,3 Function replHTML(strng) Dim reg Set reg = new RegExp reg.Pattern = "<[^>]+>" reg.Global = True replHTML = reg.Replace(strng, "") Set reg = Nothing End Function randomize safecode=rnd(100) safecode=left(md5(md5(safecode)),5) %> <%=rs("company")%>-<%=rs("address")%>-日照企业-日照企业网-日照黄页网-日照餐饮酒店-日照旅游-日照企业大全-日照企业名录-日照电话本-日照大黄页 ,<%=rs("address")%>,日照企业,日照企业大全" /> ,<%=trim(rs("address"))%><%=trim(rs("company"))%>,日照企业,日照企业网,日照企业大全" /> <% if len(rs("yewucontent"))>0 then %> <% end if %>
  日照黄页网       <%if rs("sure")=0 then%> 该企业还未通过审核！ <%else%> 该企业已通过审核！ <%end if%>   更新时间：<%=rs("date")%>     浏览量：<%=rs("click")+1000%>
<%=rs("company")%> <% vip=rs("tuijian") if vip=1 then%> <% end if %>
地址：<%=rs("address")%>
电话：<%=rs("phone")%>
传真：<%=rs("fax")%>
网址： <% dim ifsite ifsite=rs("site") if ifsite="http://" then response.write"http://www.rz114.cn/"&rs("id")&".html" else %> " target="_blank"> <%=rs("site")%> <% end if %>
Email：<%=rs("email")%>
联系人：<%=rs("who")%> 手机：<%=rs("shouji")%>
<% if rs("companypic")<>"" then %>" width="200" height="170"> <%else%> 暂时没有图片！ <%end if%>
  企业简介：

 <%=rs("gscontent")%>

  产品/业务介绍：

 <%=rs("yewucontent")%>

   留言列表
<% dim rs1 set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from comment where id="&id&" and shenhe=1 order by id desc",conn,1,1 if rs1.eof and rs1.bof then response.write"      欢迎在此您发表您的留言。
" else do while not rs1.eof %> <%rs1.movenext loop rs1.close set rs1=nothing end if%>
[来自: 的 <%=rs1("pinglunname")%> 于 <%=rs1("pinglundate")%> 发表的留言]
    
<%=rs1("pingluncontent")%>
   给该企业留言
您的姓名：  *
留言正文：  *
验 证 码： <%=safecode%>  *
 
日照房产网 日照汽车网 日照钢铁网 日照酒店网 日照律师网 日照家居装饰网 日照茶网 中国绿茶网 日照建材信息网
版权所有 © 日照黄页网 联系电话:0633-2222114

莒南网莒南在线莒南信息港
<% rs.close set rs=nothing %>