<%
dim id, rsCustomers, strSQL, RS_D1, rs1, sid, rs2
id=Request("id")
conn()
Set rsCustomers = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT top 5 title,itime,id from xwsd order by itime desc"
rsCustomers.Open strSQL, conn
Set RS_D1 = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT top 5 title,itime,id from ldlpdt order by itime desc"
RS_D1.Open strSQL, conn ,1,1
Set rs1 = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT top 1 id from sy where utable='xwsd'"
'response.write strSQL
rs1.Open strSQL, conn
sid=rs1("id")
'response.write sid
strSQL= "select title,pic,id from xwsd where id="&sid
'response.write strSQL
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open strSQL, conn
Set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT top 1 id from sy where utable='ldlpdt'"
'response.write strSQL
rs2.Open strSQL, conn
sid=rs2("id")
'response.write sid
strSQL= "select title,pic,id from ldlpdt where id="&sid
'response.write strSQL
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open strSQL, conn
%>
绿地集团-客服中心
