六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

在ＡＳＰ中用集合成批設置數據庫(二)

發表時間：2023-08-13 來源：明輝站整理相關軟件相關文章人氣：

[摘要]二、ＨＴＭＬ的集合屬性的應用　　下面我們結合一個實際的例子，討論一下如何在ＡＳＰ頁面中利用ＨＴＭＬ的集合屬性來成批操作數據庫。現在我們有一個記錄客戶電子信箱的ＡＣＣＥＳＳ數據庫EMail，其中有一個...

二、ＨＴＭＬ的集合屬性的應用
　　下面我們結合一個實際的例子，討論一下如何在ＡＳＰ頁面中利用ＨＴＭＬ的集合屬性來成批操作數據庫。現在我們有一個記錄客戶電子信箱的ＡＣＣＥＳＳ數據庫EMail，其中有一個數據表EmailList，包含CustomerId、CustomerName、CustomerEmail三個字段，分別表示客戶編號、客戶名稱、客戶電子信箱。在ＡＳＰ頁面SelectId.ASP中，我們采用CheckBox列出所有客戶的客戶名稱（各個CheckBox的值為對應的客戶編號），讓用戶選擇給哪些客戶發送電子郵件。當用戶選擇了客戶并提交數據后，SendMail.ASP將檢索到這些客戶的電子信箱，并給這些客戶發送電子郵件。具體的信息請參見下面ＡＳＰ程序代碼和注釋信息。

 

<!-- SelectId.ASP：列出所有客戶的客戶名稱 -->
<html><head><title>所有客戶的客戶名稱</title></head><body>
<p align=center><font style="font-family:宋體;font-size:9pt">
請選擇要給哪些客戶發送“新年問候”的電子郵件
<form method="POST" action="SendMail.asp">
<%'建立與ACCESS數據庫的連接
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.open "Driver={Microsoft Access Driver (*.mdb)};"&_
"DBQ=C:\inetpub\wwwroot\test\Email.mdb"
'獲取所有客戶的客戶編號、客戶名稱
Set rsCustomers = Server.CreateObject("ADODB.RecordSet")
rsCustomers.Open "Select CustomerId,CustomerName,CustomerEmail From EmailList",_
dbConnection,1,3,1
'顯示所有客戶的客戶名稱
while not rsCustomers.eof
%>
<br><input type="checkbox" name="CustomerId" value="<%=rsCustomers("CustomerId")%>">
<a href="mailto:<%=rsCustomers("CustomerEmail")%>">
<%=rsCustomers("CustomerName")%></a>
<%rsCustomers.MoveNext
wend
rsCustomers.close
set rsCustomers = nothing
dbConnection.close
set dbConnection = nothing
%>
<br><input type="submit" value="給客戶發送電子郵件" name="B1"
style="font-family:宋體;font-size:9pt">
</form></body></html>

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<!-- SendMail.ASP：給所選擇客戶發電子郵件 -->
<html><head><title>給所選擇客戶發電子郵件</title></head><body>
<p align=center><font style="font-family:宋體;font-size:9pt">
正在給下面客戶發送電子郵件
<%'建立與ACCESS數據庫的連接
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.open "Driver={Microsoft Access Driver (*.mdb)};"&_
"DBQ=C:\inetpub\wwwroot\test\Email.mdb"
'獲取所選擇客戶的電子信箱
Set rsCustomers = Server.CreateObject("ADODB.RecordSet")
rsCustomers.Open "Select CustomerName,CustomerEmail From EmailList where CustomerId in ("&_
Request("CustomerId")&")",dbConnection,1,3,1
while not rsCustomers.eof
'給一個客戶發電子郵件
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "sales@test.com"
myMail.value("Reply-To") = "sales@test.com"
myMail.To = rsCustomers("CustomerEmail")
myMail.Subject = "來自王發軍的新年問候"
myMail.BodyFormat = 1
myMail.MailFormat = 1
myMail.Body = "王發軍向"&rsCustomers("CustomerName")&"問好！"
myMail.Send
Set myMail = Nothing
%>
<br>給<a href="mailto:<%=rsCustomers("CustomerEmail")%>"><%=rsCustomers("CustomerName")%></a>
發送電子郵件成功！
<%
rsCustomers.MoveNext
wend
rsCustomers.close
set rsCustomers = nothing
dbConnection.close
set dbConnection = nothing
%>
<br>在所選擇的客戶發送電子郵件完畢！
</body></html>

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

列出你的所有Session變量

<%@ Language=VBScript %>
<% Option Explicit %>
<%
Response.Write "在你的程序中一共使用了 " & Session.Contents.Count & _
" 個Session變量<P>"
Dim strName, iLoop
For Each strName in Session.Contents
'判斷一個Session變量是否為數組
If IsArray(Session(strName)) then
'如果是數組，那么羅列出所有的數組元素內容
For iLoop = LBound(Session(strName)) to UBound(Session(strName))
Response.Write strName & "(" & iLoop & ") - " & _
Session(strName)(iLoop) & "<BR>"
Next
Else
'如果不是數組，那么直接顯示
Response.Write strName & " - " & Session.Contents(strName) & "<BR>"
End If
Next
%>


 
主站蜘蛛池模板： 色婷丁香| 日本中文字幕在线 | 欧美视频日韩视频 | 亚洲天堂在线观看视频 | 午夜老司机在线观看免费 | 亚洲国产欧洲精品路线久久 | 亚洲九九香蕉 | 伊人动漫 在线播放 | 四虎永久在线观看免费网站网址 | 中文娱乐网在线观看 | 全黄a一级毛片 | 亚久久 | 啪啪欧美| 欧美熟夫 | 亚洲一区二区三区在线 | 天天干天天射天天 | 日韩在线视频线视频免费网站 | 亚洲人成网站在线观看播放 | 色涩综合| 在线视频欧美精品 | 亚洲丁香婷婷综合久久小说 | 三级黄免费| 日韩欧美国产视频 | 中文字幕专区在线亚洲 | 我的秘密饭店 电视剧免费观看 | 天堂网在线最新版www | 中文字幕免费高清视频 | 色天使色 | 欧美在线免费播放 | 一级毛片免费视频 | 午夜狠狠操 | 天天插天天搞 | 三级大黄| 三级黄色片在线播放 | 性生活国产 | 色综合久久久久久888 | 午夜aa| 午夜视频免费看 | 亚欧成人中文字幕一区 | 天天干夜夜爽 | 欧美在线观看黄色 |