|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。客户端先贴一篇较复杂的用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=3</p>当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题 |
|