<%@LANGUAGE="VBSCRIPT"%> <% Dim rs1__MMColParam rs1__MMColParam = "新闻事件" If (Request("MM_EmptyValue") <> "") Then rs1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs1 Dim rs1_numRows Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = MM_pro_STRING rs1.Source = "SELECT * FROM t_news WHERE bigclassname = '" + Replace(rs1__MMColParam, "'", "''") + "' ORDER BY n_date DESC" rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open() rs1_numRows = 0 %> <% Dim rs2__MMColParam rs2__MMColParam = "技术论文" If (Request("MM_EmptyValue") <> "") Then rs2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs2__mm2 rs2__mm2 = "热点推荐" If (Request("MM_EmptyValue") <> "") Then rs2__mm2 = Request("MM_EmptyValue") End If %> <% Dim rs2 Dim rs2_numRows Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.ActiveConnection = MM_pro_STRING rs2.Source = "SELECT * FROM t_news WHERE bigclassname = '" + Replace(rs2__MMColParam, "'", "''") + "' and smallclassname='" + Replace(rs2__mm2, "'", "''") + "'" rs2.CursorType = 0 rs2.CursorLocation = 2 rs2.LockType = 1 rs2.Open() rs2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 rs1_numRows = rs1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 4 Repeat2__index = 0 rs2_numRows = rs2_numRows + Repeat2__numRows %>

	欢迎来到珠海市科盈焊接器材有限公司

首页│关于我们│网站导航│联系我们│设为首页│加入收藏 Top

地址：珠海吉大园林路信海大厦12楼(519015)　　电话：0756-3324168　　传真：0756-3324166 版权所有：珠海市科盈焊接器材有限公司　制作与维护：珠海商务网

<% rs1.Close() Set rs1 = Nothing %> <% rs2.Close() Set rs2 = Nothing %>