%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim RSjkzndetail__MMColParam
RSjkzndetail__MMColParam = "1"
If (Request.QueryString("TOPIC_ID") <> "") Then
RSjkzndetail__MMColParam = Request.QueryString("TOPIC_ID")
End If
%>
<%
Dim RSjkzndetail
Dim RSjkzndetail_numRows
Set RSjkzndetail = Server.CreateObject("ADODB.Recordset")
RSjkzndetail.ActiveConnection = MM_czws_STRING
RSjkzndetail.Source = "SELECT * FROM FORUM_TOPICS WHERE TOPIC_ID = " + Replace(RSjkzndetail__MMColParam, "'", "''") + ""
RSjkzndetail.CursorType = 0
RSjkzndetail.CursorLocation = 2
RSjkzndetail.LockType = 1
RSjkzndetail.Open()
RSjkzndetail_numRows = 0
%>
常州市卫生信息网:患者之家
|
|
江苏省常州市卫生局版权所有
常州市晋陵中路552号 || 电子信箱:jsczwsj@pub.cz.jsinfo.net
电话:0519-6600473 |
|
<%
RSjkzndetail.Close()
Set RSjkzndetail = Nothing
%>