% dim cpname,pinpai,zhuanxian,web,zhuti,haibao,jieshao,zhanneizhan,logo,hdsj,weixinlog,qytdlog,haibaopic,click,qq,qyxy,hdaddress id=GetIntStr(trim(request("id"))) set rs=server.CreateObject("adodb.recordset") rs.open "select * from company where id="&id,conn,1,1 if rs.eof and rs.bof then Response.Status="404" Response.Write("沒有該頁面") else cpname=rs("cpname") pinpai=rs("pinpai") zhuanxian=rs("zhuanxian") web=rs("zhanneizhan") zhuti=rs("zhuti") haibao=rs("haibao") jieshao=rs("jieshao") zhanneizhan=rs("zhanneizhan") logo=rs("logo") hdsj=rs("hdsj") weixinlog=rs("weixinlog") qytdlog = rs("qytdlog") haibaopic=rs("haibaopic") click=rs("click") qq=rs("qq") qyxy=rs("qyxy") hdaddress=rs("hdaddress") rs.close() conn.execute("update company set click=click+"&int(rnd*30)&" where id="&id) dim productCount,interviewCount productCount = conn.execute("Select count(0) from Product as a inner join company as b on a.Cid=b.id where Cid="&id&"",0)(0) interviewCount = conn.execute("Select count(0) from interview as a inner join company as b on a.Cid=b.id where Cid="&id&"",0)(0) %>
<%=rs("Title")%>
<%=Text2HTML(rs("content")) %>
活動時間:<%=hdsj%>
<% if hdaddress <>"" then %>
活動地點:<%=hdaddress%>
<%=click%>人已瀏覽
<%=zhuti%>
<% if jieshao="" then response.Write("關于此次促銷活動的具體內容,可以通過掃描二維碼關注我們官方微信,在線QQ咨詢或者請咨詢當?shù)貙Yu店。") else response.Write(""&jieshao&"") %> <%end if%>