自己做的代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn_hc.asp" -->
<%
Dim rs_t1__MMColParam
rs_t1__MMColParam = "1"
If (Session("lm") <> "") Then
rs_t1__MMColParam = Session("lm")
End If
%>
<%
Dim rs_t1
Dim rs_t1_numRows
Set rs_t1 = Server.CreateObject("ADODB.Recordset")
rs_t1.ActiveConnection = MM_conn_hc_STRING
rs_t1.Source = "SELECT bt, lm FROM tb_news WHERE lm = '" + Replace(rs_t1__MMColParam, "'", "''") + "'"
rs_t1.CursorType = 0
rs_t1.CursorLocation = 2
rs_t1.LockType = 1
rs_t1.Open()
rs_t1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="632" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="115" height="33"> </td>
<td width="145"> </td>
<td width="52"> </td>
<td width="145"> </td>
<td width="56"> </td>
<td width="119"> </td>
</tr>
<tr>
<td height="31"> </td>
<td valign="top"><img src="image/MENUL1.gif" width="145" height="20" onclick="MMColParam=分析" /></td>
<td> </td>
<td valign="top"><img src="image/MENUL2.gif" width="145" height="20" onclick="MMColParam=动态" /></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="19"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="128"> </td>
<td colspan="4" valign="top"><%=(rs_t1.Fields.Item("bt").value)%></td>
<td> </td>
</tr>
<tr>
<td height="79"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<%
rs_t1.Close()
Set rs_t1 = Nothing
%>
