% 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("沒(méi)有該頁(yè)面") 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")) %>
活動(dòng)時(shí)間:<%=hdsj%>
<% if hdaddress <>"" then %>
活動(dòng)地點(diǎn):<%=hdaddress%>
<%=click%>人已瀏覽
<%=zhuti%>
<% if jieshao="" then response.Write("關(guān)于此次促銷(xiāo)活動(dòng)的具體內(nèi)容,可以通過(guò)掃描二維碼關(guān)注我們官方微信,在線(xiàn)QQ咨詢(xún)或者請(qǐng)咨詢(xún)當(dāng)?shù)貙?zhuān)賣(mài)店。") else response.Write(""&jieshao&"") %> <%end if%>