fetchnews.asp

来自「Java移动通信程序设计」· ASP 代码 · 共 22 行

<%
Response.CharSet="GB2312"  
  
Set cnnDB = Server.CreateObject("ADODB.Connection")
cnnDB.Open "MIDPDB"

set records = Server.CreateObject("ADODB.Recordset")
records.Open "news",cnnDB
do while not records.eof
  Response.Write records("title")
  Response.Write "   "

  records.MoveNext
loop

records.close
set records = nothing
cnnDB.Close
set cnnDB = nothing

%>