%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT Content, Date, Email, Homepage, ICON, ID, Name, QQ, RDate, Reply FROM main ORDER BY Date DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
地图教学网
|
|
|
|
|
双击滚屏 |
|
| |
“抱歉!论坛正在建设中……
论坛关闭期间任何意见和要求,请直接发送Email给我们。”
|
|
|
 |
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>