mainmenu.asp

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

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

set records = Server.CreateObject("ADODB.Recordset")
records.Open "news",cnnDB

title = ""
do while not records.eof
    title = title & "   " & records("title")
    records.MoveNext
loop

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

Response.Write "<MARQUEE>" & title & "</MARQUEE><p/>"
Response.Write "<A HREF='person.htm'>通讯簿</A><p/>"
Response.Write "<A HREF='lucky.htm'>一周运势</A>"

%>