Lawrence Blog

Request.Url.PathAndQuery; //取得虛擬路徑包含參數 /Home/test.aspx?para=1&2=b Request.FilePath; //取得虛擬路徑不包含參數 /Home/test.aspx Request.ServerVariables.Get("INSTANCE_ID") //取得IIS網站索引值 Request.ServerVariables["PATH_INFO"] ==> //取得目前頁面路徑，如：/Exam/main.asp 不含參數 Request.ServerVariables["HTTP_URL"] ==> //取得目前頁面路徑，如：/Exam/main.asp?d=1 含參數 Request.Servervariables["Script_Name"] ==> //取得目前頁面路徑，如：/Exam/main.asp Request.Servervariables["PATH_TRANSLATED"] ==> //取得實體路徑，如：D:/sss/exa/main.asp Request.Servervariables["SERVER_NAME"] ==> //取得Server主機名稱 Request.Servervariables["SERVER_PORT"] ==> //取得目前網頁通訊Port Resqest.ServerVariables["Http_Accept_Language"] ==> //IE瀏覽器語系，如en-US,zh-tw;q=0.5 Resqest.ServerVariables["APPL_PHYSICAL_PATH"] ==> //網站跟目錄D:\My\HomeResqest.ServerVariables["HTTP_COOKIE"] ==> //取得所有Cookies Request.ServerVariables["REMOTE_ADDR"] ==> //取得Clie

使用Dundas Mail套件發送郵件，此處以中華電信SMTP為例 '建立元件 Set objMail = Server.CreateObject("Dundas.Mailer") objMail.SMTPRelayServers.Add "msa.hinet.net" 'SMTP server objmail.HtmlBodyCharSet = "big5" objMail.Subject = "信件主旨" objMail.FromName = "寄件者姓名" objMail.FromAddress = "寄件者地址" strTo = my15 '收件者地址,可add多組 objMail.TOs.Add strTo objMail.CCs.add "副本收件者地址" '可add多組. objMail.htmlBody = "以HTML格式發送內容" On Error Resume Next '錯誤處理error objMail.SendMail '寄出sending '-check sending email is success or failure--------- If Err.Number <> 0 Then errmail = "寄送郵件發生錯誤 : "& Err.Description Else errmail = "確認郵件已成功寄送到 : "& strTo End If

過濾重複值得SQL語法為 Distinct ，但必須為全部欄位都相符才會過濾出，要是遇到如下圖有一欄位值不同則會全部的資料都過顯示出來，因此必須採用別種方法將資料過濾出來，主要我要將Class欄位內重複值且Show值為 Y 的值過濾出來