<%session.CodePage=65001 id = Request.QueryString("id") if id <> "" then id = int(id) if id<>83 then d=83 Const SqlDatabaseName = "bds0020558_db" Const SqlPassword = "f9b6z3e6f4" Const SqlUsername = "bds0020558" Const SqlLocalName = "bds-002.hichina.com" strConnstr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" Set objConn = Server.CreateObject("ADOdb.Connection") objConn.open strConnstr %>document.write("<% strQuery = "select top 10 * from Cnbbx_news Where Items10 LIKE '%|"&id&"|%' order by UpdateTime DESC" set Conn=Server.CreateObject("adodb.recordset") conn.open strQuery,objConn,1,3 i=1 do while not conn.eof i=i+1%>>><%=conn("Items6")%>.html\" target=\"_blank\"><%=conn("title")%>    <%conn.movenext loop%>");