%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% set rs=server.CreateObject("adodb.recordset") set rs1=server.CreateObject("adodb.recordset") set rs2=server.CreateObject("adodb.recordset") set rs3=server.CreateObject("adodb.recordset") set rs4=server.CreateObject("adodb.recordset") set rs5=server.CreateObject("adodb.recordset") id=request.QueryString("id") If IsNumeric(request("id")) = False Then response.Write "" End If %> <% rs5.open "select * from "&tables&" where id="&id&"",conn,1,1 title=rs5("title") lid=rs5("lid") pic=rs5("pic") content=rs5("content") rs5.close %>