<% 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 %>