%@ Language=VBScript %> <% dim OBJConn,OBJRs Set OBJConn = Server.CreateObject("ADODB.CONNECTION") OBJConn.Open "WatchNet",sqluser,sqlpwd set OBJRs = Server.CreateObject("ADODB.RECORDSET") sql = "select * from e_news where kind=4 order by inputdate desc" OBJRs.open sql,OBJConn,1,2 %>
|
||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||