|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。oracle|静态|数据|数据库|网页上面这段代码可以显现,以后用户所可以看到的一切的用户和表,有乐趣的,能够把每一个表的内容上。
<%
DimobjOraSession,objOraDb
DimstrDbUser,strDbPwd,strDbConn
CallConnectDB()
SubConnectDB()
毗连数据库
OnErrorResumeNext
strDbUser="tmpUser"毗连用户名
strDbPwd="rt45ps1w"用户暗码
strDbConn="sun450"毗连字符串
SetobjOraSession=Server.CreateObject("OracleInProcServer.XOraSession")
SetobjOraDB=objOraSession.OpenDatabase(strDbConn,strDbUser&"/"&strDbPwd,0)
IfErr.Number>0then
Response.Write"<fontcolor=red>毛病:"&err.description&"</font>"
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&"<optionselected>"&strA&"</option>"
Else
strTmp=strTmp&"<option>"&strA&"</option>"
Endif
objRs.MoveNext
Wend
SetobjRs=Nothing
getTableList=strTmp
EndFunction
%>
<formname=form1action="index.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>
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|