<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_cnnLOGH_STRING
MM_cnnLOGH_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("\gDoc\logh.mdb") & ";"
%>
<%
Dim rsLOGH__MMColParam
rsLOGH__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
rsLOGH__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim rsLOGH
Dim rsLOGH_numRows
Set rsLOGH = Server.CreateObject("ADODB.Recordset")
rsLOGH.ActiveConnection = MM_cnnLOGH_STRING
rsLOGH.Source = "SELECT * FROM article WHERE id = " + Replace(rsLOGH__MMColParam, "'", "''") + ""
rsLOGH.CursorType = 0
rsLOGH.CursorLocation = 2
rsLOGH.LockType = 3
rsLOGH.Open()
rsLOGH_numRows = 0
%>
紅茶館精華文章區
<%=(rsLOGH.Fields.Item("Subject").Value)%>
<%=(rsLOGH.Fields.Item("Author").Value)%> |
<%
dim oldmsg, newmsg
oldmsg = rsLOGH.Fields.Item("Content").Value
newmsg = replace(oldmsg, vbCrLf, "
")
%> <%=newmsg%> |
<%=(rsLOGH.Fields.Item("Date").Value)%> |
<%
rsLOGH.Close()
Set rsLOGH = Nothing
%>