ASP网页编程之asp下用OracleInProcServer完成对Oracl...
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的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来写程序就可以说自己高档了 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 掌握asp的特性而且一定要知道为什么。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 掌握asp的特性而且一定要知道为什么。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
页:
[1]