仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 462|回复: 10
打印 上一主题 下一主题

[学习教程] ASP网页编程之asp下用OracleInProcServer完成对Oracl...

[复制链接]
乐观 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:10:17 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的oracle|server<%Response.CharSet="gb2312"
tblname=request("tb")
DimobjOraSession,objOraDb
DimstrDbUser,strDbPwd,strDbConn
CallConnectDB()
SubConnectDB()毗连数据库
OnErrorResumeNext
strDbUser="liujincai"毗连用户名
strDbPwd="ljc1001"用户暗码
strDbConn="hp1"毗连字符串
SetobjOraSession=Server.CreateObject("OracleInProcServer.XOraSession")
SetobjOraDB=objOraSession.OpenDatabase(strDbConn,strDbUser&"/"&strDbPwd,0)
IfErr.Number>0then
Response.Write"毛病:"&err.description&""
response.end
Endif
EndSub
SubEndDB()
SetobjOraDB=Nothing
SetobjOraSession=Nothing
EndSub
FunctiongetTableList(str)
DimstrSql,strTmp
DimobjRs
strSql="Selectat.table_nameastname,au.usernameasunamefromall_tablesat,all_usersauWhereau.username=at.ownerorderbyau.username"
SetobjRs=objOraDb.DbCreateDynaset(strSql,0)
WhileNotobjRs.Eof
strA=objRs("uname")&"."&objRs("tname")

Ifstr=strAthen
strTmp=strTmp&""&strA&""
Else
strTmp=strTmp&""&strA&""
Endif
objRs.MoveNext
Wend
SetobjRs=Nothing
getTableList=strTmp
EndFunction
%>

<formname=form1action="aa.asp"method=POSTtarget="main">
<tablewidth="100%"border=0align="center">
<tr><td>
AllTables:<selectname="tb">
<%=getTableList(tblName)%>
</select>
<inputtype=hiddenname="submitc"value="view">
<inputtype=submitname="submit"value="ViewData">
<fontcolor=red>(<%=strDbUser&"/"&strDbPwd&"@"&strDbConn%>)</font>
</td></tr>
</table>
</form>
<tableborder=1cellspacing=0>
<%
iftblname""then
strSql="Select*from"&tblname
SetRs=objOraDb.DbCreateDynaset(strSql,0)
Response.Write"<tr>"
fori=0tors.Fields.count-1
Response.Write"<td>"&rs.fields(i).name&"</td>"
next
Response.Write"</tr>"
WhileNotRs.Eof
Response.Write"<tr>"
fori=0tors.fields.count-1
Response.Write"<td>"&Rs.Fields(i).Value&"</td>"
next
Response.Write"</tr>"
Rs.MoveNext
Wend
SetRs=Nothing
endif
%>
</table>

细节可查询
http://www.jojoo.net/article/list.asp?id=4101
http://www.cx66.com/cxgzs/program/asp/581.htm
http://www.51one.net/info/1797.htm
http://www.kupage.com/webdesign/7/20031017/1641380000027pjtnjgy.htm

</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了
透明 该用户已被删除
沙发
发表于 2015-1-24 15:24:01 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
小魔女 该用户已被删除
板凳
发表于 2015-1-25 19:51:00 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
精灵巫婆 该用户已被删除
地板
发表于 2015-1-26 21:15:35 | 只看该作者
掌握asp的特性而且一定要知道为什么。
分手快乐 该用户已被删除
5#
发表于 2015-1-27 15:17:09 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
飘灵儿 该用户已被删除
6#
发表于 2015-2-2 09:46:22 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
谁可相欹 该用户已被删除
7#
发表于 2015-2-7 17:43:54 | 只看该作者
掌握asp的特性而且一定要知道为什么。
简单生活 该用户已被删除
8#
发表于 2015-2-22 17:52:40 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
不帅 该用户已被删除
9#
发表于 2015-3-7 01:14:04 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
若相依 该用户已被删除
10#
发表于 2015-3-14 02:19:42 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
灵魂腐蚀 该用户已被删除
11#
发表于 2015-3-20 23:44:36 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 14:59

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表