│企業通最新專輯│企業通歷期介紹│索取電子版│回鼎新首頁
 
 
公司(學校)名稱
 *
公司地址
 郵遞區號 縣市   地址
聯絡人
*
職稱
聯絡電話
- 分機 *
傳真
 -
年營業額
行業別
員工數
E-mail
 *
 訊息來源
鼎新網站 企業通雜誌 mail邀請
 未來公司是否有購買資訊系統的需求?(可複選)
ERP WorkFlow SCM CRM BI PDM B2B EC B2C APS
PLC(PRODUCT LIFE CYCLE) STORAGE 網管 防毒 防火牆 EIP VPN
M化 EC金流 E-MAIL　其他
 請問您期望鼎新企業通電子報可新增加哪些單元內容?
我要索取企業通110期(2008年12月號)電子報 (日後您將會每個月5日固定收到最新期數電子報)
 
* 若無法正常傳送者，請列印出來傳真至(02)2912-7809，謝謝!
回企業通最新專輯
<% Function TitleList() '宣告資料庫連線 Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("database/search.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath '宣告資料集 set rst1 = Server.CreateObject("ADODB.Recordset") rst1.CursorLocation = 3 'adUseClient rst1.CursorType = 1 'adOpenKeyset rst1.LockType = 4 'adLockBatchOptimistic strwhere = "" if trim(request("Keyword")) <> "" then strwhere = strwhere & "AND Title like '%" & trim(request("Keyword")) & "%' " end if if trim(request("Author")) <> "" then strwhere = strwhere & "AND Author like '%" & trim(request("Author")) & "%' " end if if trim(request("Unit")) <> "" then strwhere = strwhere & "AND Unit in ('" & replace(trim(request("Unit")),", ","','") & "') " end if if trim(request("SDate")) <> "0" then strwhere = strwhere & "AND No_num >= '" & trim(request("SDate")) & "' " end if if trim(request("EDate")) <> "0" then strwhere = strwhere & "AND No_num <= '" & trim(request("EDate")) & "' " end if if strwhere <> "" then strwhere = right(strwhere,len(strwhere)-4) Sqlstr = "Select * From newspaper where " & strwhere & " order by No_num Desc" else Sqlstr = "Select * From newspaper order by No_num Desc" end if rst1.Open Sqlstr, conn if rst1.RecordCount = 0 then response.write "" response.write "查無資料" response.write "" else for i = 1 to rst1.RecordCount if i mod 2 = 0 then response.write "" response.write "
" & rst1.Fields("No_all").Value & "
" response.write "
" & rst1.Fields("Unit").Value & "
" response.write "" & rst1.Fields("Title").Value & "" response.write "" & rst1.Fields("Author").Value & "" response.write "
" response.write "" else response.write "" response.write "
" & rst1.Fields("No_all").Value & "
" response.write "
" & rst1.Fields("Unit").Value & "
" response.write "" & rst1.Fields("Title").Value & "" response.write "" & rst1.Fields("Author").Value & "" response.write "
" response.write "" end if rst1.MoveNext next end if End Function %>