1.提取字段列表
//& lt；%
設置cn=Server。CreateObject("ADODB。連接”)
cn。Open " Provider = SQLOLEDB數據源=本地主機；"& amp_
“初始目錄=酒館；用戶ID = sa密碼= "
設置rs=cn。執行(" Select * from authors ")
而不是rs。文件結束
回應。寫rs("au_fname ")
rs。下壹步
行
rs。關閉
cn。關閉
//% & gt；
2.返回數據集函數
公共函數GetData()為ADODB。記錄集
將cn標註為ADODB。關系
Dim rs為ADODB。記錄集
Set cn=CreateObject("ADODB。連接”)
cn。Open " Provider = SQLOLEDB數據源=本地主機；"& amp_
“初始目錄=酒館；用戶ID = sa密碼= "
Set rs=CreateObject("ADODB。連接”)
rs。LockType=adLockBatchOptimistic
rs。CursorLocation=adUseClient
rs。CursorType=adOpenStatic
rs。打開“從作者中選擇*”，cn
設置rs。ActiveConnection =無
cn。關閉
設置cn =無
設置GetData=rs
結束功能
3.從XML文件中讀取數據
& lt！-Metadata type = " typelib " file = " c:\ program files \ common files \ system \ ado \ msado 15 . dll "-& gt；
& lt%
寫廣告。”& ampadopenstreamfromurl
回應。結束()
設置rs =服務器。CreateObject("adodb.recordset ")
設置stmData = Server。CreateObject("ADODB。流”)
StmData。Charset="gb2312 " '非常重要，否則會報錯。無法從指定的源創建記錄集。源文件或流必須包含XML或ADTG格式的記錄集數據。移山，祝大家好運_
xmbm =請求。QueryString("xmbm ")
如果xmbm = " "那麽xmbm = " 110100001 "
模糊結果
維度xml，XMLlength
set DCOM server = CreateObject(" remo objects。SDK.COMServer”)
DCOMServer。MessageType = "TROBINMessage "
DCOMServer。channel type = " TROWinInetHTTPChannel "
DCOMServer。SetChannelProperty "TargetURL "，" mand ")
cmd。主動連接=連接
strQuery = " & ltROOT xmlns:SQL = ' urn:schemas-Microsoft-com:XML-SQL ' & gt；& ltsql:query >& ampstrQuery & amp“& lt/SQL:query & gt；& lt/ROOT >
設置stm=server。CreateObject("adodb.stream ")
stm。打開
stm。寫入文本查詢，0
stm。位置=0
cmd。命令流=stm
cmd。方言= " { 5d 531cb 2-E6Ed-11 D2-B252-00c 04 f 681b 71 } "
設置xmldoc=server。CreateObject(" MSXML 2 . DOM document ")
cmd。Properties("輸出流")= xmldoc
cmd。執行，，1024
getXml=xmldoc.xml
設置cmd=nothing
設置xmldoc=nothing
設置stm =無
結束功能
str query = " select * from test 1 for XML auto "
回應。編寫getXml(康涅狄格州strQuery)
% & gt
4.2
& ltscript language = " jscript " runat = " server " & gt；
var conn = new ActiveX object(" adodb . connection ")
conn . open(" Provider = Microsoft . jet . oledb . 4.0；數據源= "+服務器。MapPath("db.mdb "))
var sql = "從所有城市中選擇不同的省份"
var rs = conn.Execute(sql)
var XML doc = new ActiveX object(" Microsoft。XMLDOM ")
xmldoc.async = false
var XML head = XML doc . createprocessinginstruction(' XML '，' version = " 1.0 " encoding = " GB 2312 " ')
xmldoc.insertBefore(xmlhead，xmldoc.childNodes(0))
var root = XML doc . createelement(" root ")
xmldoc.appendChild(根)
做{
var province = XML doc . createelement(" province ")
province.text = rs("省")
root.appendChild(省)
var osql = " select distinct city from all city where province = ' "+RS(" province ")+" ' "
var ors = conn.Execute(osql)
做{
var city = XML doc . createelement(" city ")
city.text = ors("城市")
province.appendChild(城市)
var MySQL = " select college from all city where city = ' "+ors(" city ")+" ' "
var myrs = conn.Execute(mysql)
做{
var college = XML doc . createelement(" college ")
college.text = myrs("college ")
city.appendChild(大學)
myrs.movenext()
}while(！(myrs.eof||myrs.bof))
米爾斯。關閉()
ors.movenext()
}while(！(ors.eof||ors.bof))
ors。關閉()
rs.movenext()
}while(！(盧比eof | |盧比bof))
xmldoc.save(服務器。MapPath("allcity.xml "))
回應。寫(“創建成功！”)
& lt/script & gt；
5.遍歷XML文檔
& lt% @ Language = VBScript % & gt
& lt% Option Explicit % & gt
& lttable border="1 " >& lttr & gt& ltth & gt名稱& lt/th & gt；& ltth & gt歌曲數量& lt/th & gt；& lt/tr & gt；
& lt%
Dim objParser，objRoot，objNode，I
Set objParser=Server。CreateObject("MSXML。DOMDocument”)
objParser。加載(服務器。MapPath(% % 1))//" albums . XML "
set objRoot = obj parser . document element
for I = 0 To(objroot . child nodes . length-1)
If objRoot.childNodes.Item(i)。baseName="album "然後
set objNode = objroot . child nodes . item(I)
回應。寫" & lttr & gt& ltTD >；
回應。寫objnode . get attribute(" name ")& amp；“& lt/TD & gt；& lttd align='center ' >
回應。寫入objNode.childNodes.length
如果…就會結束
然後
% & gt
& lt/TD & gt；& lt/tr & gt；
& lt/table & gt；
搜索XML元素
& lt% @ Language = VBScript % & gt
& lt% Option Explicit % & gt
//& lt；%
Dim objDocument，objRoot，objNode，objNodeList
設置objDocument=Server。CreateObject("MSXML。DOMDocument”)
objDocument。加載(服務器。MapPath(% % 1))//" albums . XML "
set objRoot = obj document . docment element
Set objNodeList=objRoot。select nodes("//ablum[@ artist = ' " & amp；請求。形式(“藝術家”)& amp']")
如果objNodeList.length=0，則
回應。寫下“沒有匹配”
其他
回應。寫" & lt表格邊框= ' 1 ' & gt；& lttr & gt& ltth & gt相冊& lt/th & gt；& ltth & gt年份& lt/th & gt；& lt/tr >；
對於objNodeList中的每個objNode
回應。寫" & lttr & gt& ltTD >；& ampobjNode.getAttribute("name ")
回應。寫" & lt/TD & gt；& ltTD >；& ampobjnode . get attribute(" release date ")& amp；“& lt/TD & gt；& lt/tr >；
然後
回應。寫" & lt/table >
如果…就會結束
如果…就會結束
//% & gt；
7.下載文件
& lt% @ Language = VBScript % & gt
& lt% Option Explicit % & gt
//& lt；%
調用download file(replace(Request(" file ")，""，""))
函數下載文件(strFile)
確保您使用的是最新的MDAC版本
獲取指定文件的完整路徑
strFilename =服務器。地圖路徑(strFile)
清空緩沖區
回應。緩沖區=真
回應。清楚的
創建流
設置s =服務器。CreateObject("ADODB。流”)
南打開
設置為二進制
南Type = 1
載入文件
出錯時繼續下壹步
檢查文件是否存在
設置fso = Server。CreateObject("腳本。文件系統對象”)
如果不是fso。FileExists(strFilename)然後
回應。寫(" & lth 1 & gt；錯誤:& lt/h1 >& ampstrFilename & amp“不存在& ltp >)
回應。結束
如果…就會結束
獲取文件長度
設置f = fso。GetFile(strFilename)
intFilelength = f.size
南LoadFromFile(strFilename)
如果出錯，那麽
回應。寫(" & lth 1 & gt；錯誤:& lt/h1 >& amp呃。描述& amp“& ltp >)
回應。結束
如果…就會結束
將標題發送到用戶瀏覽器
回應。AddHeader“內容-處置”，“附件；filename = " & ampf.name
回應。AddHeader "Content-Length "，intFilelength
回應。CharSet = "UTF-8 "
回應。ContentType = "應用程序/八位字節流"
將文件輸出到瀏覽器
回應。二進制寫s .讀
回應。臉紅
整理
南關閉
設置s =無
結束功能
//% & gt；
8.調用存儲過程查詢
& lt% @ Language = VBScript % & gt
& lt% Option Explicit % & gt
//& lt；%
康涅狄格州dim db，myconn
db="/database/product.mdb "
設置conn =服務器。CreateObject("ADODB。連接”)
myconn="Provider=Microsoft。Jet . OLEDB.4.0數據源= " & amp服務器。MapPath(" & amp；db & amp"")
控制室，打開我的控制室
昏暗的rs
dim sql
dim關鍵字
模糊選擇
Keyword=request("keyword ")'接收頁面發送的值。
選擇=請求("選擇")
set RS = server . createobject(" adodb . recordset ")
Sql="exec tse " '用exec執行tse存儲過程，並將關鍵字和選擇作為參數傳遞給存儲過程。
康涅狄格州，1，1
如果rs.eof和rs.bof那麽
Response.write("沒有記錄！")
響應.結束
如果…就會結束
response.write搜索到的記錄如下:
直到rs.eof
response.write " " & ampRS(" id ")& amp；":" & amprs("標題")& amp" " '打印出文章的ID和標題。
response.write " & ltbr & gt& ltbr >；
rs.movenext
環
清理戰場
rs關閉
連接關閉
設置rs =無
設置連接=無
//% & gt；
9.參數存儲過程查詢
存儲過程:
在SQL中建立dbo.tse存儲過程。
創建過程[dbo]。[謝]
@keyword varchar(20)=null，'定義查詢的關鍵字。
@choose int=null '定義了查詢的類型(1是查詢列標題，其他是內容)。
如同
if @choose=1
select * from web where title like @ keyword+' % '
其他
select * from web，其中@keyword + '% '等內容
返回
去
List.asp·佩奇
& lt% @ Language = VBScript % & gt
& lt% Option Explicit % & gt
//& lt；%
康涅狄格州dim db，myconn
db="/database/product.mdb "
設置conn =服務器。CreateObject("ADODB。連接”)
myconn="Provider=Microsoft。Jet . OLEDB.4.0數據源= " & amp服務器。MapPath(" & amp；db & amp"")
控制室，打開我的控制室
昏暗的rs
dim sql
dim關鍵字
模糊選擇
Keyword=request("keyword ")'接收頁面發送的值。
選擇=請求("選擇")
set RS = server . createobject(" adodb . recordset ")
SQL = " exec tse " & amp；關鍵詞和；、“& amp選擇& amp" '用exec執行tse存儲過程，並將關鍵字和選擇作為參數傳遞給存儲過程。
康涅狄格州，1，1
如果rs.eof和rs.bof那麽
Response.write("沒有記錄！")
響應.結束
如果…就會結束
response.write搜索到的記錄如下:
直到rs.eof
response.write " " & ampRS(" id ")& amp；":" & amprs("標題")& amp" " '打印出文章的ID和標題。
response.write " & ltbr & gt& ltbr >；
rs.movenext
環
清理戰場
rs關閉
連接關閉
設置rs =無
設置連接=無
//% & gt；