当前位置:首页 » 服务存储 » eos调用存储过程
扩展阅读
webinf下怎么引入js 2023-08-31 21:54:13
堡垒机怎么打开web 2023-08-31 21:54:11

eos调用存储过程

发布时间: 2022-08-09 15:46:21

① EOS数据库连接关闭原因

EOS数据库连接关闭原因:释放系统资源,不用的连接该及时关闭,是良好的编程习惯。

sqlDataSource 控件使用 ADO.NET 类与 ADO.NET 支持的任何数据库进行交互。这类数据库包括 Microsoft SQL Server(使用 System.Data.SqlClient 提供程序)、System.Data.OleDb、System.Data.Odbc 和 Oracle(使用 System.Data.OracleClient 提供程序)。

并定义使用数据的 SQL 语句或存储过程即可。在运行时,SqlDataSource 控件会自动打开数据库连接,执行 SQL 语句或存储过程,返回选定数据(如果有),然后关闭连接。

存储结构:

关系型数据库按照结构化的方法存储数据, 每个数据表都必须对各个字段定义好(也就是先定义好表的结构),再根据表的结构存入数据,这样做的好处就是由于数据的形式和内容在存入数据之前就已经定义好了,所以整个数据表的可靠性和稳定性都比较高。

但带来的问题就是一旦存入数据后,如果需要修改数据表的结构就会十分困难。而NoSQL数据由于面对的是大量非结构化的数据的存储,它采用的是动态结构,对于数据类型和结构的改变非常的适应,可以根据数据存储的需要灵活的改变数据库的结构。

② 普元EOS使用的优缺点

普元EOS使用的优缺点:

1、优点:

EOS有自己的理论基础:面向构件所谓面向构件就是指:定义一个结构(可以认为是一个函数一样的东西)。在结构中,定义输入和输出,就形成了一个构件。

每一个Http访问,会建立一个线程级(ThreadLocal)的变量,里面存放一棵xml树。在这个线程的运行过程中,会不停的增加,修改,查询定位树中的节点。这个过程使用xpath实现。据说xpath部分是他们自己重写过的,为了提高效率;

EOS的开发很方便,它已经定义好了很多构件,比如数据库存储构件(实际上是一组static的sql方法),只需要画图就可以完成一个功能。所以它的开发速度非常快;

EOS有一套完整的调试,发布,管理机制,它甚至有自己的Server,所以管理也是比较方便的。

EOS有内嵌的工作流系统,只需要画画图就可以完成工作流的设计;

构件可以极为方便地发布为webservice、可以较为方便地开发简单的基于数据库的web应用。

所提供的构件,都是经过厂商严格测试的,适用起来放心,图形化工具让出错的可能性降低了不少;

2、缺点:

从技术角度及员工发展角度看,使用它的人,感觉自己的择业竞争力在一点点消失;

从工具角度看,EOS充其量是一个开发平台,不是其所吹嘘的SOA业务平台,所有的业务开发不能提供任何可用的业务框架。都要EOS的开发人员进行血和泪的总结后,再开发;

从系统角度看,EOS上开发的东西无任何移值的可能,你在EOS上开发了一个满意的模块,想使用到其它非EOS项目中,是完全不可能的。这对一个想做积累的公司或个人来说是个灾难;

相对于OO和J2EE传统开发,EOS易于上手,学习曲线较短。但是这一点有争议,EOS的知识不具备通用性。

EOS页面的开发很不方便,虽然有RIA的支持感觉没有其所吹嘘的那么好使小结现在市场上用得最多的还是EOS5,这个版本出来的时候是2005年,在当时而言,WEB开发平台有那么强已是很不错的,今年发布的EOS6,在目前来说,不说国际,至少国内没有一家能到比它好的。

EOS5和EOS6表面上看区别不大,都是构件组装,实际上有很大的区别:在EOS5中,数据传递用的就是XML,但在6中使用JAVA对象,关这一变化,对性能就有一个质的飞跃。

另外他是符合SCA和SDO标准,至少可以表现出他是一个开放的东西,不是闭门造车。如果软件是来规范业务的,EOS还是不错地;如果软件是来被使用者或者决策者肆虐的,EOS则没有价值。

(2)eos调用存储过程扩展阅读:

PrimetonEOSPlatform是SOA应用平台。PrimetonEOSPlatform基于J2EE、Eclipse等开放的技术和平台,采用了先进的SOA架构和标准规范,并通过构件化、图形化、一体化的平台产品。

为构造SOA应用提供了从设计、开发、调试和部署,到运行、维护、管控和治理的全生命周期支持。

EOSStudio:EOSStudio是集面向构件应用的设计、开发、组装、调试、维护、部署、管理和发布于一体的集成开发环境,提供对SOA应用和服务全生命周期的开发、维护和管理。

③ eos 5d mark2相机无法访问储存卡不

解决方法如下:
在使用佳能相机过程中,有时会出现”存储卡错误“的提示,此时由于存储介质故障导致相机无法正常使用,对此该如何解决呢?
1、首先,当相机提示”存储卡错误“时,我们可以尝试重新插拔一下手机SD卡,查看能够解决故障。
2、同时我们可以尝试利用电脑备份一下相机SD卡,然后利用相机对Sd卡进行一次低格格式化操作。
3、利用硬件替换法来排除SD卡故障:给相机安装一张新的SD卡看相机能否正常拍照,如果能则说明原来相机能存卡有故障。
4、当相机内存卡有故障时通常是由于文件系统破坏所造成的,对应的解决方法是:利用电脑对手机内存卡实行低级格式化操作。通过读卡器或者内存卡接口连接相机SD卡。
5、待相机SD卡盘符出现后右击从弹出右键菜单中选择格式化项,以便执行低级格式操作。
6、从打开的格式化对话框中,清除勾选“快速格式化”,
最后点击“格式化”按钮,
这样就可以对内存卡执行格式化操作了。
7、将格式化后的内存卡安装到相机中,就会发现相机可以正常使用了。当然也可以将之前备份的相机资料重新拷贝到已格式化的内存卡中,已实现资料的恢复操作。

④ tokenpocket

一、可通过联系人直接进行转账
1、转账和收款,是每个数字钱包最常用的功能,也是基础功能。在TokenPocket 钱包过程中,除了使用密码外,也可以开启指纹识别,以后交易时不用输入密码,直接使用指纹验证就可以,安全而又快捷。

TokenPocket 钱包还支持延迟交易,即指定在未来某一天的某个时间点进行交易。设置也很简单,只要在设定好时间就可以了。如果你想在你女朋友生日那天的0点钟转入100EOS当作生日礼物,是不是就可以使用延迟交易功能还可以使用 memo 留下你爱的表白,而且将永远记录在区块链上。
2、在使用 TokenPocke 钱包收款时,既可以复制收款的EOS账户发给对方,也可以生成二维码,然后把二维码发给对方,对方可以直接扫描二维码,从而防止输错EOS账号地址。TokenPocket 钱包有个小细节做的很好,当收款金额输入后,生成的收款二维包括了EOS账户地址和收款金额。这样当对方转账的时候,金额也不用输入了。无论是数字货币的转账还是收款,是不是很像我们在日常生活中常用的微信支付?区块链技术越来越接近我们的生活。
二、集成CPU/NET 和 RAM资源管理功能
1、EOS 资源包括 CPU/NET 资源和 RAM 资源,CPU/NET资源是需要向系统抵押EOS而获取,而RAM则是需要向系统购买而获得。TokenPocket 钱包把 CPU/NET 和 RAM资源管理功能集成在一起了,这样方便切换管理,有些EOS钱包把CPU/NET和RAM 资源功能管理功能分开了,其实 TokenPocket 的设计更符合逻辑,毕竟 CPU/NET 和 RAM 都是属于 EOS主网的资源。在抵押资源时,可以给账户本身抵押,也可以给其他EOS账户抵押,TokenPocket 抵押功能的设计,把给自己抵押和他人抵押整合在一起了,可以随时切换。
2、在给他人抵押时,可以选择租借和过户,选择租借代表只是抵押资源,EOS的所有权并未出让,如果选择过户,在给他人EOS账户抵押资源时,抵押资源部分的EOS也被转入了他人账户。我们在抵押时,一定要看清楚。TokenPocket 的租借列表功能很实用,列出了该账户目前租借资源出去的所有EOS账户及相关租借信息,通过租借列表,可以单独赎回租借给某一个EOS账户的资源,也可以多选或者全选后进行统一的赎回操作。资源管理中,除了 CPU/NET 的资源抵押和赎回功能外,还可以进行内存(RAM)的交易,RAM 是 EOS 的存储资源,它是通过向EOS系统购买而获取的,也可以出售给EOS系统。RAM 的价格采用的是 Bancor 算法。

⑤ EOS的开发流程

创建一个引用EOS报表构件包的项目。引用该构件包后,即可在此项目上创建报表模板,以及调用报表运算逻辑。用户也可以现有项目上添加引用报表构件包。
2. 创建报表模板。
o 确定数据库的连接方式。
o 在报表模板中定制数据的汇总、统计。
o 确定最终显示样式。
3. 开发JSP,展现逻辑,业务逻辑。
实现数据的提取、显示、打印、导出等功能。
4. 调试发布。 1. 根据调用位置的不同,调用EOS报表的方式有两种:
o 在JSP页面上调用tag。
o 在业务逻辑中调用EOS报表的运算逻辑。
2. 根据数据库的连接方式分为:
o JDBC/XML数据源。
o EOS数据源。 一般情况下,报表都是一组有条件的查询结果,下面将用四个示例分别介绍针对同一需求的四种不同开发方式。
用户需求如下:
查询现有系统中的用户角色和用户信息,以报表的形式展示出某些角色所对应的用户名和用户ID。既可以查询某一角色对应的用户信息,也可以查询所有角色对应的用户信息,并可以将查询结果打印或导出到EXCEL中。
案例分析:
1. 查询要求
o 要求实现条件查询,条件为角色。
o 分组显示,按角色分组。
o 可以以html,applet,excel格式返回结果集。
2. 实现要点
o 需要创建条件查询页面,做为用户查看报表的入口,在该页面需要实现:选择角色、选择结果的显示格式。
o 需要实现分组显示,该功能在报表模板中实现。
o 需要设定显示格式,该功能在结果页面完成。
o 数据的提取可以由结果页面直接调用报表模板实现,也可以由后台调用“展现逻辑+业务逻辑”的方式实现。
3. 表结构和数据显示
以下关联的三个表均为eos的系统表。
查询SQL语句如下:
select
o.userid,o.operatorname,r.rolename
from
EOSOPERATOR o,
EOSOPERATORROLE eor,
EOSROLE r
where
o.operatorid=eor.operatorid and
eor.roleid=r.roleid and
r.rolename like '%'
order by r.rolename
4. 实现结果展示
o 查询条件页面
o 查询结果页面

⑥ 求解佳能相机无法访问存储卡

佳能相机与其他相机都一样,自身虽然带有存储器,但其性质只是缓存,无法长期保存拍摄的照片。……因此,相机需要另外配存储卡来作为存储照片的存储器。

相机使用的存储卡有多种类型,大多数情况下采用的是SD卡,另外也有采用CF卡等其他规格的存储卡的情况。

这些存储卡虽然规格不同,但是有一点是相同的……都是通过相机机身上的卡槽与相机连接来实现访问的。

有些相机只有一个卡槽,只能装一块存储卡。……有的相机有双卡槽,可以装两块存储卡。……这两块存储卡可以是相同类型的存储卡,也可能是不同类型的存储卡。

在实际使用中,有时候会出现相机无法访问存储卡的情况。造成这种现象的原因,大致有以下几种:

1,存储卡损坏。

相机无法访问存储卡最可能的原因,就是存储卡本身有故障。

由于存储卡是闪存性质的存储器,所以存在损坏的可能。……一旦存储卡有问题,就会出现读写不正常,甚至无法访问的情况。

解决这类问题的方法,就是对其进行格式化。……如果问题依旧不能解决,那就说明存储卡彻底损坏,只能换块新卡了。

2,相机存储卡卡槽损坏。

相机与存储卡连接,是通过存储卡卡槽来实现的。

这个卡槽,是通过有弹性的触点与存储卡上面的触点连接,实现相机与存储卡的互联的。

一旦存储卡卡槽损坏,就会造成相机无法访问存储卡的故障。

由于相机存储卡卡槽是位于相机机身内部的,因此用户自己是无法处理这类故障的,只能将相机拿到官方售后那里进行检测、维修。

3,相机与存储卡兼容性不佳。

相机所使用的存储卡,其兼容性是一般来说有保障的。……毕竟其使用用途就是供各种类型的相机使用。

但是,由于生产过程中产生的缺陷等原因,某些存储卡可能出现兼容性问题,导致相机无法访问。

遇到这种存储卡,只能换一块新卡了。

4,存储卡在其他设备上做过格式化。

相机使用的操作系统,是类似于Unix的操作系统。与其他设备(比如电脑)的操作系统不兼容。

于是,相机使用的存储卡必须在相机上做格式化以后才能正常访问。

如果这块存储卡在其他设备上进行过格式化,其文件格式将发生改变,再装回到相机上就可能无法访问了。

解决此类问题的方法,就是在相机上重新进行格式化。

5,相机本身有故障。

这类问题就很容易理解了。……相机本体有故障,无法完成正常的数据读写操作,于是就会出现无法访问存储卡的现象。

这类故障需要去相机生产厂家的官方售后进行检测、维修。

⑦ access2003中的getrs()

《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", ""
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 = ""

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
//%>

⑧ eos中如何实现导入导出excel

对 EOS 争议最大的是拖拽式开发业务逻辑(也就是说的可视化开发),其实拖拽式开发大家并不反对,例如拖拽式进行数据建模,但拖拽开发业务逻辑就未必是好事了。我们设计时即可以用拖拽式开发,也可以用spring bean的方式写代码开发业务逻辑。图形化(拖拽式)开发业务逻辑,最大的用处是处理异步的逻辑,例如调用一个 WebServices/REST,同步调用时如果被调用方很慢,当前的线程也会被挂死,异步就没有这个问题,至少还能够超时释放(这里比较复杂,就不细说了),但是异步的代码写起来很复杂,要写成回调方式,这样代码的可读性就非常差(试想用回调方式调用 3 个 WebServices/REST的代码结构),这样用图形化就比较简单,执行时会变成异步