<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim webdata__MMColParam webdata__MMColParam = "1" If (Request.QueryString("id") <> "") Then webdata__MMColParam = Request.QueryString("id") End If %> <% Dim webdata Dim webdata_numRows Set webdata = Server.CreateObject("ADODB.Recordset") webdata.ActiveConnection = MM_webdata_STRING webdata.Source = "SELECT * FROM news WHERE id = " + Replace(webdata__MMColParam, "'", "''") + "" webdata.CursorType = 0 webdata.CursorLocation = 2 webdata.LockType = 1 webdata.Open() webdata_numRows = 0 %> 最新消息
 
 
 
 
 
 
 
 

 

 
 

 

宜蘭縣礁溪鄉中山路二段3號 最近更新日期 2012年10月30日 電話:03-9881311 傳真:03-9871103 本站最佳瀏覽模式為 Microsoft Internet Explorer 6.0 以上,解析度 1024x768dpi
 
<% webdata.Close() Set webdata = Nothing %>