% 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) %>
| 日照黄页网 <%if rs("sure")=0 then%> 该企业还未通过审核! <%else%> 该企业已通过审核! <%end if%> 更新时间:<%=rs("date")%> 浏览量:<%=rs("click")+1000%> | |||||
|
|||||
| 企业简介: |
|||||
<%=rs("gscontent")%> |
|||||
| 产品/业务介绍: |
|||||
<%=rs("yewucontent")%> |
|||||
| 留言列表 | |||||
|
|||||
| 日照房产网 日照汽车网 日照钢铁网 日照酒店网 日照律师网 日照家居装饰网 日照茶网 中国绿茶网 日照建材信息网 | |||||
| 版权所有 © 日照黄页网 联系电话:0633-2222114 | |||||