<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("pid") <> "") Then Recordset1__MMColParam = Request.QueryString("pid") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_yfweb_STRING Recordset1.Source = "SELECT * FROM dbo.culture WHERE pid = " + Replace(Recordset1__MMColParam, "'", "''") + " " Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> 银发网--老年人的网站
<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %> <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %> <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %> <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>

<%=(Recordset1.Fields.Item("title").Value)%>
<%=(Recordset1.Fields.Item("subtitle").Value)%>
<%=(Recordset1.Fields.Item("writerunit").Value)%> <%response.Write(" ")%> <%=(Recordset1.Fields.Item("writer").Value)%>
<%=(Recordset1.Fields.Item("content").Value)%>　<%=(Recordset1.Fields.Item("workfrom").Value)%>

[关闭窗口]

 
<% Recordset1.Close() Set Recordset1 = Nothing %>