ASP网页设计ASP参生报表客户端用（初级篇）
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)初级|客户端上回曾贴一篇较复杂的用ASP＋RDS客户端参生报表此回贴一篇较庞大的用ASP＋RDS＋组件客户端参生报表
毛病申明：(若提醒ActiveX元件没法参生RDS.DataSpace)
IE需设置平安选项
操纵：菜单工具->INTERNET选项->平安性->自界说
设置：肇端但ActiveX不标示为平安->开启
道理申明：
客户端间接用RDS发生RecordSet平安性不敷，利用了
middle-tierAutomationcomponents后可年夜年夜增添平安性！
请看下文：
编写注册元件：
ActiveXDllproject:iacrdsobj.vbp
ClassModulename:RsOp
PublicFunctionReturnRs(strDBAsVariant,strSQLAsVariant)AsADODB.Recordset
ReturnsanADODBrecordset.
OnErrorGoToehGetRecordset
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimstrConnectAsString
strConnect="Provider=SQLOLEDB;Server=servername;uid=sa;pwd=;Database="&strDB&";"
cn.OpenstrConnect
Thesearenotlistedinthetypelib.
rs.CursorLocation=adUseClient
UsingtheUnspecifiedparameters,anADO/Rrecordsetisreturned.
rs.OpenstrSQL,cn,adOpenUnspecified,adLockUnspecified,adCmdUnspecified
SetReturnRs=rs
ExitFunction
ehGetRecordset:
Err.RaiseErr.Number,Err.Source,Err.Description
EndFunction
然后MAKEiacrdsobj.dll
如有错，请设置VB菜单PROJECT－REFREENCE
增添MicroSoftActiveXDataObject2.6Library(固然数字要高一点)
然后注册iacrdsobj.dll到数据库server(为平安，最好变动数据库uid最好不为sa)！
好，接上去看asp
long1.asp
<html>
<head>
<METAcontent="text/html;charset=gb2312"http-equiv=Content-Type>
<title>clientuserdsproduceexcelreport</title>
</head>
<bodybgColor=skybluetopMargin=5leftMargin="20"oncontextmenu="returnfalse"rightMargin=0bottomMargin="0">
<divalign="center"><center>
<tableborder="1"bgcolor="#ffe4b5"style="HEIGHT:1px;TOP:0px"bordercolor="#0000ff">
<tr>
<tdalign="middle"bgcolor="#ffffff"bordercolor="#000080">
<fontcolor="#000080"size="3">
clientuserdsproduceexcelreport
</font>
</td>
</tr>
</table>
</div>
<formaction="long1.asp"method="post"name="myform">
<DIValign=left>
<inputtype="button"value="QueryData"name="query"language="vbscript"onclick="fun_excel(1)"style="HEIGHT:32px;WIDTH:90px">
<inputtype="button"value="ClearData"name="Clear"language="vbscript"onclick="fun_excel(2)"style="HEIGHT:32px;WIDTH:90px">
<inputtype="button"value="ExcelReport"name="report"language="vbscript"onclick="fun_excel(3)"style="HEIGHT:32px;WIDTH:90px">
</div>
<DIVid="adddata"></div>
</form>
</body>
</html>
<scriptlanguage="vbscript">
subfun_excel(t)
Dimrds,rs,df,ServerStr
dimstrSQL,StrRs
DimxlApp,xlBook,xlSheet1
ServerStr="http://SqlServerName"thesqlservernameofregisteriacRDSObj.dll
userdstoproduceclientrecordset
setrds=CreateObject("RDS.DataSpace",ServerStr)
eg:setrds=CreateObject("RDS.DataSpace","http://iac_fa")iac_faistheLANsqlservername
eg:setrds=CreateObject("RDS.DataSpace","http://10.150.254.102")10.150.254.102istheLANsqlserverIPAddress
theregistercom
Setdf=rds.CreateObject("iacRDSObj.rsop",ServerStr)
thequerystringofsql
strSQL="Selecttop8*fromjobsorderbyjob_id"
therecordset
Setrs=df.ReturnRs("pubs",strSQL)
ift=1then
ifnotrs.eofthen
StrRs="<tableborder=1><tr><td>job_id</td><td>job_desc</td><td>max_lvl</td><td>min_lvl</td></tr><tr><td>"+rs.GetString(,,"</td><td>","</td></tr><tr><td>","")+"</td></tr></table>"
adddata.innerHTML=StrRs
StrRs=""
else
msgbox"Nodatainthetable!"
endif
elseift=2then
StrRs=""
adddata.innerHTML=StrRs
elseift=3then
SetxlApp=CreateObject("EXCEL.APPLICATION")
SetxlBook=xlApp.Workbooks.Add
SetxlSheet1=xlBook.Worksheets(1)
xl</p>asp可以轻松地实现对页面内容的动态控制，根据不同的浏览者，显示不同的页面内容。而浏览者一点觉察不出来，就像为他专门制作的页面一样。使用各种各样的组件，asp可以完成无比强大的功能。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。
页:
[1]