<%
dim id, rsCustomers, strSQL, RS_D1, rs1, sid, rs2
id=Request("id")
conn.execute ("update siteInfo set viewNum = viewNum+1")
Set rsCustomers = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT top 5 * from news where pass=true and del=false and pid like '%7%' order by inputtime desc"
rsCustomers.Open strSQL, conn,1,1
Set RS_D1 = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT top 5 * from news where pass=true and del=false and pid like '%8%' order by inputtime desc"
RS_D1.Open strSQL, conn ,1,1
Set rs1 = Server.CreateObject("ADODB.Recordset")
strSQL= "select * from news where pass=true and del=false and pid like '%7%' and mainpic=true"
'response.write strSQL
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open strSQL, conn,1,1
Set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL= "select * from news where pass=true and del=false and pid like '%8%' and mainpic=true"
'response.write strSQL
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open strSQL, conn,1,1
%>
郑州商务大厦
