28,407
社区成员




<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT ID, pname, pkind, pic, pintro FROM product WHERE pkind = '" + Replace(rs__MMColParam, "'", "''") + "' ORDER BY ID DESC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0