Ⅰ 非空間資料庫
浙江省農業地質環境非空間資料庫主要是基於文件格式的電子文檔，包括項目實施過程產生的非結構化文檔報告、圖像、視頻等，可通過歸類編碼建立文檔對照表，更改文件名形成最終非空間資料庫。具體建庫流程（圖4-6）如下。
（1）文檔收集
文檔收集內容主要包括項目設計、實施、研究等工作階段所涉及的文檔多媒體資料。按數據種類可分成政策法規、項目成果、指南標准三大類，其中項目成果包括總項目的綜合成果和15個子項目（包括蕭山、上虞、長興、餘姚、龍游、瑞安、平湖7個示範圍區）的專題成果，指南標准包括地球化學、農產品安全、環境、資料庫、區域地質、水文地質等方面的標准指南。其數據格式主要包括DOC、TIFF、JPG、GIF及BMP等。
（2）建立文檔對照表
所收集的數據以文件形式存儲，但名稱比較雜亂，有必要進行歸類編碼，便於數據的查詢管理。文件名的命名可按「一類代碼+二類代碼+格式代碼+工作階段代碼+順序碼」規則編碼，其中約定一類代碼為數據種類，如「WA」表示政策法規，「WB」表示項目成果，「WC」表示指南標准；二類代碼為子項目順序號；格式代碼為文檔的數據格式，如「1」表示文檔，「2」表示圖像，「3」表示視頻；工作階段代碼為文檔形成的工作階段，如「A」表示設計階段，「B」表示實施階段；「C」表示成果階段。建立文檔對照表時，每一個文檔代碼均有一個文件名，文件名一般描述項目報告的名稱、圖片的標題及照片或視頻的內容。
表4-9 元數據子集一覽表
圖4-6 非空間資料庫建設流程圖
（3）更改文件名
首先新建一個名稱為「W」的文件夾，再根據文檔對照表的順序逐個進行文件名的更改，經檢查無誤後就利用AGEIS系統提供的數據導入功能批量導入sql Server存儲並形成最終的非空間資料庫。
Ⅱ 銷售與收款子系統中常用的數據文件包括哪些
銷售與收款子系統常用的數據文件如下所示：
1、客戶檔案文件：客戶檔案文件用於存儲所有客戶的固定信息，以及所欠賬款綜合動態信息，以便加強貸款催收工作，提高銷售管理，文件中每個記錄對應一個客戶，根據此文件可以輸出欠款客戶信息表、客戶信譽信息表、催款單、客戶代碼表。客戶應收賬款匯總表等等。
2、銷售報價單文件：記錄企業向客戶提供貨品、規格、價格、結算方式等信息。企業可以針對不同客戶、不同商品、不同批量提出不同的報價、折扣率。
3、銷售合同文件：該文件用於存儲所有簽署合同的固定信息，以及合同執行過程中的綜合動態信息。
4、銷售發票文件：是確認和計量銷售收入、應交銷售稅金、應收賬款的依據，銷售發票管理是銷售管理的重要環節。
5、銷售文件：該文件用來存儲每筆銷售業務的詳細數據，有關銷售的統計分析數據均可由該數據文件加工處理生成。
6、應收、預收賬款文件：該文件用於存儲每筆賒銷業務形成的應收賬款及預收賬款信息。
7、收款單文件：該文件用來存儲每筆銷售業務的詳細數據，有關銷售的統計分析數據均可由該數據文件加工處理生成。
(2)二類資料庫代碼擴展閱讀：
會計從業資格=考試，一般每年有兩次考試機會，上半年為3月份報名，當年6月份考試;下半年為8月份報名，11月份考試。2017年3月會計從業資格證列入國家行政許可清理范疇 ，2017年11月4日，全國人民代表大會常務委員會關於修改《中華人民共和國會計法》等十一部法律的決定 ，正式確定會計從業資格證取消。
至此，伴隨著我國20多歲會計行業發展的會計從業資格證正式劃上圓滿的句號。會計行業入門證書上升至初級會計職稱證書。會計技術資格(初、中級、高級)考試，每年一次報考機會，11月份左右報名，次年5月中旬考試。通過可以獲得會計從業資格證書。
通過可以獲得會計初級證和中級證和高級證。注冊會計師考試，每年一次報考機會，專業階段考試一般4月份左右報名，當年10月中旬考試。通過可以獲得注冊會計師證書。
Ⅲ 資料庫sql中的case語句~
query取得iframe中元素的幾種方法
在iframe子頁面獲取父頁面元素
代碼如下:
$(
Ⅳ DBS是什麼
DBS是星展銀行。
星展銀行(DBS)，原名新加坡發展銀行(Development Bank of Singapore)，是新加坡最大的商業銀行。1998年12月收購了香港的廣安銀行，更名為DBS廣安銀行。
星展是率先在中國設立獨資法人銀行的首家新加坡銀行及少數外資銀行之一。星展銀行(中國)有限公司於2007年5月28日正式開業。星展於1993年進入中國，在北京設立駐華辦事處。1995年，星展在上海設立了在華第一家分行，並在1998年作為首批10家外資銀行之一，獲得人民幣執照。
(4)二類資料庫代碼擴展閱讀：
星展銀行的主要業務：
1、專注於服務央企、國有企業和民營企業；與中國香港和新加坡形成完善連貫的在岸和離岸操作模式，更好地服務有跨境融資和交易需求的客戶。
2、星展銀行擁有超過280間分行，業務遍及18個市場。星展總部位於新加坡，也是新加坡上市公司，其業務在亞洲迅速發展，主要圍繞三大增長主軸，即大中華區、東南亞和南亞地區。
3、星展銀行於1993在北京設立駐華辦事處，並於2007年5月成為在中國本土注冊外資法人銀行。星展中國的業務重點為企業銀行、環球交易服務以及財資市場、中小企業銀行以及高端個人銀行服務。
Ⅳ 資料庫開發工程師一類和二類有什麼區別
第一類是MySQL，以自由軟體為主，以社團式開發為代表。版本選擇4.0,側重於在Linux平台（RedHat8.0）。MySQL資料庫短小精悍，速度比較快，它是自由軟體產品，現在美國國家航天局的資料庫系統就是MySQL。在很多中小型的ICP有著廣泛的應用。
第二類是SQL Server 2000，中小型企業資料庫，界面友好，可操作性強，在資料庫市場佔有很大的份量，SQL Server 2000是企業產品的代表，定位資料庫中低端市場。
第三類是Oracle9i，中大型企業資料庫，跨平台，在資料庫中高市場佔有很大的份量，Oracle9i介紹主要是Windows 2000平台和Linux平台（RedHat8.0）。Oracle9i在金融、電信、銀行有很多經典應用。
Ⅵ 外文文獻資料庫的分類
外文文獻資料庫可以有很多種分類的角度，其中從所收錄文獻信息的使用方式的角度分類如下：
第一類是收錄文獻全文的資料庫，以 sciencedirect 、springer 和 wiley 為代表。 第二類是收錄摘要、文獻來源和文獻引證關系的資料庫，以所謂的三大索引資料庫為代表。（三大索引資料庫統一於 ISI web of knowledge）第三類是含有少量免費全文，但對於大多數文章只是收錄摘要和文獻來源信息的資料庫，以pubmed為代表。第四類是既包含全文電子期刊庫，又包含文摘資料庫的資料庫，以ovid為代表。
Ⅶ 數據開發是什麼
和軟體開發類似，兩者都要互相用到，彼此交叉。比如銀行的自動取款機系統，就是資料庫開發的典型例子。你會覺得這個應該是軟體開發的寫代碼啊，但是事實上寫代碼只是取款機系統實現的一步而已。資料庫開發分六步：需求分析、概念結構設計、邏輯結構設計、資料庫的物理設計、資料庫的實施、資料庫的運行和維護。寫代碼只是資料庫實施中的一部分，這樣講應該能明白吧。還有像超市的收銀系統，學校的教務系統都是資料庫的例子，光會寫代碼是編不出來的。我目前已經考了資料庫系統工程師，這學期准備考個軟體設計師。兩者的區別是資料庫的語言主要是SQL，軟體設計師則是寫代碼，C、C++ 、Java等
大數據作為時下火熱的IT行業的詞彙，隨之而來的數據開發、數據倉庫、數據安全、數據分析、數據挖掘等等圍繞大數據的商業價值的利用逐漸成為行業人士爭相追捧的利潤焦點。隨著大數據時代的來臨，大數據開發也應運而生。
大數據開發其實分兩種，第一類是編寫一些Hadoop、Spark的應用程序，第二類是對大數據處理系統本身進行開發。第一類工作感覺更適用於data analyst這種職位吧，而且現在Hive Spark-SQL這種系統也提供SQL的介面。第二類工作的話通常才大公司里才有，一般他們都會搞自己的系統或者再對開源的做些二次開發。這種工作的話對理論和實踐要求的都更深一些，也更有技術含量。
Ⅷ 數據開發是什麼
大數據分析是指對規模巨大的數據進行分析。大數據可以概括為4個V， 數據量大(Volume)、速度快(Velocity)、類型多(Variety)、價值（Value）。
大數據開發其實分兩種，第一類是編寫一些Hadoop、Spark的應用程序，第二類是對大數據處理系統本身進行開發。第一類工作感覺更適用於data analyst這種職位吧，而且現在Hive Spark-SQL這種系統也提供SQL的介面。第二類工作的話通常才大公司里才有，一般他們都會搞自己的系統或者再對開源的做些二次開發。這種工作的話對理論和實踐要求的都更深一些，也更有技術含量。
大數據作為時下最火熱的IT行業的詞彙，隨之而來的數據倉庫、數據安全、數據分析、數據挖掘等等圍繞大數據的商業價值的利用逐漸成為行業人士爭相追捧的利潤焦點。隨著大數據時代的來臨，大數據分析也應運而生。
應用案例，與往屆世界盃不同的是，數據分析成為巴西世界盃賽事外的精彩看點。伴隨賽場上球員的奮力角逐，大數據也在全力演繹世界盃背後的分析故事。一向以嚴謹著稱的德國隊引入專門處理大數據的足球解決方案，進行比賽數據分析，優化球隊配置，並通過分析對手數據找到比賽的「制敵」方式；谷歌、微軟、Opta等通過大數據分析預測賽果...... 大數據，不僅成為賽場上的「第12人」，也在某種程度上充當了世界盃的"預言帝"。
分析開始的時候，數據首先從數據倉儲中會被抽出來，被放進RDBMS里以產生需要的報告或者支撐相應的商業智能應用。在大數據分析的環節中，裸數據以及經轉換了的數據大都會被保存下來，因為可能在後面還需要再次轉換。
Ⅸ ASP代碼用的操作access資料庫命令語法大全哪裡有
《ASP編程大全》在此誰敢不從！
1.提取欄位列表
//<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB;Data Source=localhost;" & _
"Initial Catalog=pubs;User ID=sa;Password="
Set rs=cn.Execute("Select * from authors")
While Not rs.EOF
Response.Write rs("au_fname")
rs.MoveNext
Wend
rs.Close
cn.Close
//%>
2.返回數據集函數
Public Function GetData() As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn=CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB;Data Source=localhost;" & _
"Initial Catalog=pubs;User ID=sa;Password="
Set rs=CreateObject("ADODB.Connection")
rs.LockType=adLockBatchOptimistic
rs.CursorLocation=adUseClient
rs.CursorType=adOpenStatic
rs.Open "Select * from authors",cn
Set rs.ActiveConnection=Nothing
cn.Close
Set cn=Nothing
Set GetData=rs
End Function
3.從XML文件中讀取數據
<!-- Metadata type="typelib" file="c:\program files\common files\system\ado\msado15.dll"-->
<%
'response.write admoderead & " " & adopenstreamfromurl
'response.End()
set rs = server.CreateObject("adodb.recordset")
Set stmData = Server.CreateObject("ADODB.Stream")
stmData.Charset="gb2312"'這一句很重要，否則會報一個錯誤。Recordset cannot be created from the specified source. The source file or stream must contain Recordset data in XML or ADTG format.移山祝大家好運^_^
xmbm = request.QueryString("xmbm")
if xmbm = "" then xmbm = "110100001"
Dim result
dim xml, XMLlength
Set DCOMServer = CreateObject("RemObjects.SDK.COMServer")
DCOMServer.MessageType = "TROBINMessage"
DCOMServer.ChannelType = "TROWinInetHTTPChannel"
DCOMServer.SetChannelProperty "TargetURL", "http://192.168.1.119:8089/BIN"
Set DCOMService = DCOMServer.CreateService("DCOMService")
xml = cstr("<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"gb2312"&chr(34)&" ?>" & chr(13)&chr(10))
xml = xml & cstr(DCOMService.GetItem(xmbm))'用於生成XML主體的DCOM服務，實際中請靈活運用。
Set MegaDemoService = nothing
'response.write xml
'response.End()
stmData.Open
stmData.WriteText xml
stmData.SetEOS
'stmData.SaveToFile server.MapPath("zzzz"&session.SessionID&".xml"),2
'response.End()
stmData.Position = 0
rs.open stmData
if not rs.eof then
response.write "<table border = 1 cellpadding=5 cellspacing=0 bordercolor=black style='border-collapse:collapse;'><tr bgcolor='#ddddeee'>"
for each fld in rs.fields
response.write "<td>" & fld.name & "</td>"
next
response.write "</tr>"
do while not rs.eof
response.write "<tr>"
for each fld in rs.fields
response.write "<td>" & fld.value & "</td>"
next
response.write "</tr>"
rs.movenext
loop
end if
rs.close
set rs = nothing
%>
自動顯示RecordSet的表格
<script language=jscript runat=server>
// ************************************************************************
// Script Compont Object Model
// Design for Active Server Pages
//
// Copyright 2003 Version 1.0
// Made by 尹曙光
// ************************************************************************
//用於顯示一個recordset中的數據,可以指定顏色和樣式
//介面函數
function createJDBList(){
var objJDBlist=new JDBlist
objJDBlist.create()
return objJDBlist
}
//類體定義
function JDBlist(){
this.AdoRecordSet
this.Width
this.Border
this.Cellspacing
this.Cellpadding
this.Class
this.TitleClass
this.FirstColor
this.SecondColor
this.create=_JDBlist_Create
this.display=_JDBlist_Display
}
//方法實現
function _JDBlist_Create(){
this.AdoRecordSet=""
this.Width="100%"
this.Border="1"
this.Cellspacing="0"
this.Cellpadding="1"
this.Class=""
this.TitleClass=''
this.FirstColor=''
this.SecondColor=''
}
function _JDBlist_Display(){
var htmlDSO = '';
var nFields = this.AdoRecordSet.Fields.Count;
if (nFields)
{
var n = 0;
htmlDSO += '<' + 'table width="'+this.Width+'" id="'+this.Id+'" Cellspacing="'+this.Cellspacing+'" Cellpadding="'+this.Cellpadding+'" Border="'+this.Border+'" Class="'+this.Class+'">\n';
htmlDSO += '<' + 'tr>';
for (var i=0; i < nFields; i++)
{
htmlDSO += '<' + 'td class="'+this.TitleClass+'">' + this.AdoRecordSet(i).name + '<' + '/td>';
}
htmlDSO += '<' + '/tr>\n';
if (!(this.AdoRecordSet.EOF&&this.AdoRecordSet.Bof))
this.AdoRecordSet.MoveFirst()
else
htmlDSO += '<' + 'td colspan="'+nFields+'" align="center">沒有數據！<' + '/td>'
var rcc=0
while (!this.AdoRecordSet.EOF)
{ // add each record to table
if (rcc%2==0)
htmlDSO += '<' + 'tr bgcolor="'+this.FirstColor+'">';
else
htmlDSO += '<' + 'tr bgcolor="'+this.SecondColor+'">';
for (var i=0; i < nFields; i++)
{
htmlDSO += '<' + 'td >' + this.AdoRecordSet(i).value + '<' + '/td>';
}
htmlDSO += '<' + '/tr>\n';
this.AdoRecordSet.MoveNext();
rcc++
}
htmlDSO += '<' + '/table>';
}
Response.Write(htmlDSO);
}
</script>
4.把數據寫入XML文件
<%
class autoXML
Private xmldoc
Private xmlfile
Sub Class_Initialize()
set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.async = fasle
End Sub
Sub Class_Terminate()
set xmldoc = Nothing
End Sub
Public Property Let filePath(str)
xmlfile = str
End Property
Sub getRs(rs)
dim xmlhead
dim pNode,sNode
dim aNode,tNode
dim tableName
dim rf
dim i
set xmlhead = xmldoc.createProcessingInstruction("xml","version=""1.0"" encoding=""GB2312""")
xmldoc.insertBefore xmlhead,xmldoc.childNodes(0)
tableName = split(rs.Source,chr(32))
set pNode = xmldoc.CreateElement(tableName(3))
xmldoc.appendChild pNode
redim aNode(rs.Fields.Count-1)
do while not rs.eof
set sNode = xmldoc.CreateElement(tableName(3)&"list")
pNode.appendChild sNode
for i=0 to rs.Fields.Count-1
if rs.Fields(i).Name=tableName(3) then
tNode = rs.Fields(i).Name&"Child"
else
tNode = rs.Fields(i).Name
end if
set aNode(i) = xmldoc.CreateElement(tNode)
sNode.appendChild aNode(i)
if rs.Fields(i).value<>"" then
aNode(i).text = rs.Fields(i).value
end if
next
rs.movenext
loop
End Sub
Function saveFile()
on error resume next
xmldoc.save xmlfile
saveFile = (err.number=0)
End Function
End Class
%>
調用，把調用recordset就可以了。
<%
dim conn
set conn = Server.CreateObject("adodb.connection")
conn.open "Provider=Microsoft.jet.oledb.4.0;data source="&Server.MapPath("db.mdb")
dim rs,sql
set rs = Server.CreateObject("adodb.recordset")
sql = "select * from news"
rs.Open sql,conn,3,2
dim ixml
dim xf
set ixml = new autoXML
xf = "test.xml"
ixml.filePath = Server.MapPath(xf)
ixml.getRs(rs)
if ixml.saveFile() then
response.write "<a href=""" & Server.URLEncode(xf) & """>保存完畢</a>"
else
response.write "保存文件錯誤"
end if
set ixml = Nothing
rs.close
set rs = Nothing
%>
4.1
方法二：
<%
dim strConn,conn,cmd,xmldoc
dim strSql,strQuery,stm
strTableName="test1"
strConn="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=SHISM;password="
set conn=server.CreateObject("adodb.connection")
conn.CursorLocation = 3
conn.Open strConn
function getXml(strQuery,conn)
dim xmldoc,cmd,stm
set cmd=server.CreateObject("adodb.command")
cmd.ActiveConnection=conn
strQuery="<ROOT xmlns:sql='urn:schemas-microsoft-com:xml-sql'><sql:query>" & strQuery & "</sql:query></ROOT>"
set stm=server.CreateObject("adodb.stream")
stm.Open
stm.WriteText strQuery,0
stm.Position=0
cmd.CommandStream=stm
cmd.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"
set xmldoc=server.CreateObject("msxml2.domdocument")
cmd.Properties("Output Stream") = xmldoc
cmd.Execute ,,1024
getXml=xmldoc.xml
set cmd=nothing
set xmldoc=nothing
set stm=nothing
end function
strQuery="select * from test1 for xml auto"
Response.Write getXml(strQuery,conn)
%>
4.2
<script language="jscript" runat="server">
var conn = new ActiveXObject("adodb.connection")
conn.open("Provider=Microsoft.jet.oledb.4.0;data source="+Server.MapPath("db.mdb"))
var sql = "select distinct province from allcity"
var rs = conn.Execute(sql)
var xmldoc = new ActiveXObject("Microsoft.XMLDOM")
xmldoc.async = false
var xmlhead = xmldoc.createProcessingInstruction('xml','version="1.0" encoding="GB2312"')
xmldoc.insertBefore(xmlhead,xmldoc.childNodes(0))
var root = xmldoc.createElement("root")
xmldoc.appendChild(root)
do{
var province = xmldoc.createElement("province")
province.text = rs("province")
root.appendChild(province)
var osql = "select distinct city from allcity where province='"+rs("province")+"'"
var ors = conn.Execute(osql)
do{
var city = xmldoc.createElement("city")
city.text = ors("city")
province.appendChild(city)
var mysql = "select college from allcity where city='"+ors("city")+"'"
var myrs = conn.Execute(mysql)
do{
var college = xmldoc.createElement("college")
college.text = myrs("college")
city.appendChild(college)
myrs.movenext()
}while(!(myrs.eof||myrs.bof))
myrs.Close()
ors.movenext()
}while(!(ors.eof||ors.bof))
ors.Close()
rs.movenext()
}while(!(rs.eof||rs.bof))
xmldoc.save(Server.MapPath("allcity.xml"))
Response.Write("創建成功！")
</script>
5.遍歷XML文檔
<%@ Language=VBScript %>
<% Option Explicit %>
<table border="1"><tr><th>Name</th><th>Number of Songs</th></tr>
<%
Dim objParser,objRoot,objNode,i
Set objParser=Server.CreateObject("MSXML.DOMDocument")
objParser.Load(Server.MapPath(%%1)) //"albums.xml"
Set objRoot=objParser.documentElement
For i=0 To (objRoot.childNodes.length-1)
If objRoot.childNodes.Item(i).baseName="album" Then
Set objNode=objRoot.childNodes.Item(i)
Response.Write "<tr><td>"
Response.Write objNode.getAttribute("name") & "</td><td align='center'>"
Response.Write objNode.childNodes.length
End if
Next
%>
</td></tr>
</table>
6.搜索XML元素
<%@ Language=VBScript %>
<% Option Explicit %>
//<%
Dim objDocument,objRoot,objNode,objNodeList
Set objDocument=Server.CreateObject("MSXML.DOMDocument")
objDocument.Load(Server.MapPath(%%1)) //"albums.xml"
Set objRoot=objDocument.docmentElement
Set objNodeList=objRoot.SelectNodes("//ablum[@artist='" & Request.Form("artist") & "']")
If objNodeList.length=0 Then
Response.Write "No matches"
Else
Response.Write "<table border='1'><tr><th>Album</th><th>Year</th></tr>"
For each objNode in objNodeList
Response.Write "<tr><td>" & objNode.getAttribute("name")
Response.Write "</td><td>" & objNode.getAttribute("releaseDate") & "</td></tr>"
Next
Response.Write "</table>"
End If
End If
//%>
7.下載文件
<%@ Language=VBScript %>
<% Option Explicit %>
//<%
call downloadFile(replace(Request("file"),"",""))
Function downloadFile(strFile)
' make sure you are on the latest MDAC version for this to work
' get full path of specified file
strFilename = server.MapPath(strFile)
' clear the buffer
Response.Buffer = True
Response.Clear
' create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open
' Set as binary
s.Type = 1
' load in the file
on error resume next
' check the file exists
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
Response.End
end if
' get length of file
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
' send the headers to the users browser
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
' tidy up
s.Close
Set s = Nothing
End Function
//%>
8.調用存儲過程查詢
<%@ Language=VBScript %>
<% Option Explicit %>
//<%
dim db,conn,myconn
db="/database/proct.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open MyConn
dim rs
dim sql
dim keyword
dim choose
keyword=request("keyword") '接收頁面傳送的值
choose=request("choose")
set rs=server.createobject("adodb.recordset")
sql="exec tse" '用exec執行tse存儲過程，把keyword，choose給存儲過程傳遞參數
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write("沒有任何記錄！")
response.end
end if
response.write"搜索到的記錄如下:<br><br>"
do until rs.eof
response.write""&rs("id")&":"&rs("title")&"" '列印出文章的ID和標題
response.write"<br><br>"
rs.movenext
loop
'打掃戰場
rs.close
conn.close
set rs=nothing
set conn = nothing
//%>
9.參數存儲過程查詢
'存儲過程：
'在SQL中建立dbo.tse存儲過程
CREATE PROCEDURE [dbo].[tse]
@keyword varchar(20)=null, '定義查詢的關鍵字
@choose int=null '定義查詢的類型（1為查詢列title,其他為content）
as
if @choose=1
select * from web where title like @keyword + '%'
else
select * from web where content like @keyword + '%'
return
GO
'list.asp頁
<%@ Language=VBScript %>
<% Option Explicit %>
//<%
dim db,conn,myconn
db="/database/proct.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open MyConn
dim rs
dim sql
dim keyword
dim choose
keyword=request("keyword") '接收頁面傳送的值
choose=request("choose")
set rs=server.createobject("adodb.recordset")
sql="exec tse '"&keyword&"',"&choose&"" '用exec執行tse存儲過程，把keyword，choose給存儲過程傳遞參數
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write("沒有任何記錄！")
response.end
end if
response.write"搜索到的記錄如下:<br><br>"
do until rs.eof
response.write""&rs("id")&":"&rs("title")&"" '列印出文章的ID和標題
response.write"<br><br>"
rs.movenext
loop
'打掃戰場
rs.close
conn.close
set rs=nothing
set conn = nothing
//%>