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