CQ2員工內部留言版

<% '『判斷 admin 是否按下 "離開管理" 按鈕，如果有則清除 session("password") 內的密碼』 IF request("admin") = "exit-admin" THEN Session("password") = False END IF %> <% '『取得 admin.asp 內輸入的密碼』 PASSWORD = Request.FORM("PASSWORD") %> <% '『取得管理者密碼資料』%> <% PAGE = Request("PAGE") ' 接收所要瀏覽的頁次 Review = Request("Review") ' 接收快速瀏覽的模式 IF PAGE = "" THEN PAGE = 1 ELSE PAGE = PAGE END IF IF Review = "" THEN Review = "all" END IF ' 快速瀏覽模式 SELECT CASE Review CASE "all" viewmode = "本站全部公告" Message = "抱歉!! 目前本站尚無任何公告主題......" Sql = "ID <> 0" CASE "today" viewmode = "今日所公告的" Message = "抱歉!! 今天本站尚無張貼任何公告主題......" Sql = "postdate = cstr(date())" CASE "option1" viewmode = "站務公告" Message = "抱歉!! 目前尚無任何[站務公告]主題......" Sql = "author = '站務公告'" CASE "option6" viewmode = "新聞報導的公告" Message = "抱歉!! 目前尚無任何新聞報導的公告主題......" Sql = "author = '網際新聞'" CASE else viewmode = "查詢相關公告主題" ' 過濾查詢字串中是否有 Sql 的特殊字元 find1 = instr( review,"|" ) find2 = instr( review,"'" ) IF find1 > 0 Or find2 > 0 Then Message = "抱歉!! 您所查詢的主題中含有 Sql 特殊字元,所以無法查詢......" Review = replace( review,"|" ,"chr(124)" ) Review = replace( review,"'" ,"chr(39)" ) Else Message = "抱歉!! 目前沒有您所查詢的主題......有需要請詢問管理者......" End IF Sql = "subject Like '%" & Review & "%'" End Select Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("board.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") SortSql = "Select *From 公佈欄 Where " & Sql & " order by postdate Desc,posttime Desc" rs.Open SortSql, conn, 1,3 RS.PageSize = 6 If Not rs.eof Then RS.AbsolutePage = PAGE End if %> CQ2員工內部留言版

Map Home Mail

	親愛的工作伙伴：若您有困難須借支，您可以藉此留言版告訴總公司，我們會儘速解決您的問題，謝謝～
	親愛的工作伙伴：若店內的消耗品使用完畢，您可以藉此留言版告訴總公司，我們會儘速為您補貨，謝謝～
	親愛的工作伙伴：您可以藉由此討論區，分享工作心得或將您的寶貴經驗提及建議提供給總公司，謝謝～
	親愛的工作伙伴：您可以藉由此查詢區，查詢在工作時違規的照片，希望大家都不要上榜哦～