ASP教程之ASP参生报表客户端用
由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。客户端先贴一篇较复杂的用ASP＋RDS客户端参生报表此文但愿能进精髓篇
下一回贴一篇较庞大的
申明：(若提醒ActiveX元件没法参生RDS.DataSpace)
IE需设置平安选项
操纵：菜单工具->INTERNET选项->平安性->自界说
设置肇端但ActiveX不标示为平安->开启
<html>
<head>
<METAcontent="text/html;charset=gb2312"http-equiv=Content-Type>
<title>clientuserdsproduceexcelreport</title>
<linkrel="stylesheet"href="cdutmenu/common.css">
</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="long.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
dimstrCn,strSQL,StrRs
DimxlApp,xlBook,xlSheet1
userdstoproduceclientrecordset
setrds=CreateObject("RDS.DataSpace")
Setdf=rds.CreateObject("RDSServer.DataFactory","http://servername")
theconnectionstringtosqlservertoquerydatabase:pubs--->table:jobs
strCn="DRIVER={SQLServer};SERVER=servername;UID=sa;APP=MicrosoftDevelopmentEnvironment;DATABASE=pubs;UserId=sa;PASSWORD=;"
thequerystringofsql
strSQL="Selecttop8*fromjobsorderbyjob_id"
therecordset
Setrs=df.Query(strCn,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)
xlSheet1.cells(1,1).value="thejobtable"
xlSheet1.range("A1:D1").merge
xlSheet1.cells(2,1).value="job_id"
xlSheet1.cells(2,2).value="job_desc"
xlSheet1.cells(2,3).value="max_lvl"
xlSheet1.cells(2,4).value="min_lvl"
cnt=3
adapttooffice97and2000
dowhilenotrs.eof
xlSheet1.cells(cnt,1).value=rs("job_id")
xlSheet1.cells(cnt,2).value=rs("job_desc")
xlSheet1.cells(cnt,3).value=rs("max_lvl")
xlSheet1.cells(cnt,4).value=rs("min_lvl")
rs.movenext
cnt=cint(cnt)+1
loop
xlSheet1.Application.Visible=True
adapttooffice2000only
xlSheet1.Range("A3").CopyFromRecordsetrs
xlSheet1.Application.Visible=True
endif
endsub
</script>
</p>楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 不能只是将它停留在纸上谈兵的程度上。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)
页:
[1]