%@LANGUAGE="VBSCRIPT"%>
<%
Dim message__MMColParam
message__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
message__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim message
Dim message_numRows
Set message = Server.CreateObject("ADODB.Recordset")
message.ActiveConnection = MM_jzh_STRING
message.Source = "SELECT * FROM message WHERE id = " + Replace(message__MMColParam, "'", "''") + ""
message.CursorType = 0
message.CursorLocation = 2
message.LockType = 1
message.Open()
message_numRows = 0
%>
:::冀中职业学院欢迎您:::
 |
创先争优活动栏 |
|
|
|
澳门三肖六码3肖6码
<%
message.Close()
Set message = Nothing
%>