<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim tongzhi__MMColParam tongzhi__MMColParam = "1" If (Request.QueryString("id") <> "") Then tongzhi__MMColParam = Request.QueryString("id") End If %> <% Dim tongzhi Dim tongzhi_numRows Set tongzhi = Server.CreateObject("ADODB.Recordset") tongzhi.ActiveConnection = MM_book_STRING tongzhi.Source = "SELECT * FROM tongzhi WHERE id = " + Replace(tongzhi__MMColParam, "'", "''") + "" tongzhi.CursorType = 0 tongzhi.CursorLocation = 2 tongzhi.LockType = 1 tongzhi.Open() tongzhi_numRows = 0 %> 重要通知
关于我们
 

 

 
‖关闭窗口


版权所有:国家粮食丰产科技工程河北省项目区课题管理办公室© 2004
联系电话:0312-7528507 7528508 7528509 传真:0312-7528507
Copyright©2004 hebeif.com ,All rights reserved
联系我们 关于我们

<% tongzhi.Close() Set tongzhi = Nothing %>