%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim myconn__MMColParam
myconn__MMColParam = "c"
If (Request("MM_EmptyValue") <> "") Then
myconn__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim myconn
Dim myconn_numRows
Set myconn = Server.CreateObject("ADODB.Recordset")
myconn.ActiveConnection = MM_myconn_STRING
myconn.Source = "SELECT * FROM wz WHERE w_lei = '" + Replace(myconn__MMColParam, "'", "''") + "'"
myconn.CursorType = 0
myconn.CursorLocation = 2
myconn.LockType = 1
myconn.Open()
myconn_numRows = 0
%>
广告策划-仕博友文化传媒有限公司
| |
|
<%=(myconn.Fields.Item("w_text").Value)%>
|
|
|
|
|
|
<%
myconn.Close()
Set myconn = Nothing
%>