值得收藏的一些HTML、JavaScript、ASP代碼
2024-05-04 10:59:07
供稿：網友
1. CDONTS.NewMail 組件使用說明
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.From = "發信郵箱"
MailObject.To = "收信郵箱"
MailObject.Cc = "抄送郵箱"
MailObject.Bcc = "密送郵箱"
MailObject.Subject = "郵件主題"
MailObject.Body = "郵件內容"
MailObject.MailFormat = 0 '郵件的格式，0是MIME格式，1是文本消息
MailObject.BodyFormat = 0 '郵件的正文的格式，0表示HTML格式，1表示普通文本
MailObject.Importance = 1 '郵件的重要性，0是表示低重要性，1表示正常，2表示高重要
MailObject.AttachFile "附件絕對路徑","附件名稱"
MailObject.Send
Set MailObject = Nothing
2. 網頁不會被緩存
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
3. 客戶端IP地址
Request.serverVariables("REMOTE_ADDR)
4. 記錄集對象的方法：
rs.movenext 將記錄指針從當前的位置向下移一行
rs.moveprevious 將記錄指針從當前的位置向上移一行
rs.movefirst 將記錄指針移到數據表第一行
rs.movelast 將記錄指針移到數據表最后一行
rs.absoluteposition=N 將記錄指針移到數據表第N行
rs.absolutepage=N 將記錄指針移到第N頁的第一行
rs.pagesize=N 設置每頁為N條記錄
rs.pagecount 根據 pagesize 的設置返回總頁數
rs.recordcount 返回記錄總數
rs.bof 返回記錄指針是否超出數據表首端，true表示是，false為否
rs.eof 返回記錄指針是否超出數據表末端，true表示是，false為否
rs.delete 刪除當前記錄，但記錄指針不會向下移動
rs.addnew 添加記錄到數據表末端
rs.update 更新數據表記錄
5. 隨機數工式
Int((上界 - 下界 + 1) * Rnd + 下界)
6. 檢查輸入函數
Function Check_Input(input)
input = Trim(input) '去除多余空格
input = Server.HTMLEncode(input) '轉換HTML
input = Replace(input,Chr(39),"'") '轉換半角單引號
input = Replace(input,Chr(34),""") '轉換半角雙引號
checkinput = input
End Function
7. 連接 Access 數據庫方法
方法1：
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
