<%@LANGUAGE="VBSCRIPT"%>
<%
dim conn
set conn = server.CreateObject("adodb.connection")
conn.open MM_guo_conn_STRING
%>
<%
If Request.QueryString("id") <> "" then
Session("id") = request.QueryString("id")
End If
%>
<%
Dim Guo_RSMessages
Dim Guo_RSMessages_cmd
Dim Guo_RSMessages_numRows
Set Guo_RSMessages_cmd = Server.CreateObject ("ADODB.Command")
Guo_RSMessages_cmd.ActiveConnection = MM_guo_conn_STRING
Guo_RSMessages_cmd.CommandText = "SELECT top 6 * FROM message WHERE voli = 1 ORDER BY date desc"
Guo_RSMessages_cmd.Prepared = true
Set Guo_RSMessages = Guo_RSMessages_cmd.Execute
Guo_RSMessages_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Guo_RSMessages_numRows = Guo_RSMessages_numRows + Repeat1__numRows
%>
黛妃思娜——来自美国的美眼之王
