<%
dim cn,rs,driver_name
driver_name="Provider=MSDAORA.1;Password=pass;User ID=user;Data Source=afis;Persist Security Info=True"
set cn = server.CreateObject("adodb.connection")
cn.open driver_name
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from table",cn,3,1
do while not rs.eof
response.write rs("field")
rs.movenext
loop
%>
---------------
建库????
晕~
dim cn,rs,driver_name
driver_name="Provider=MSDAORA.1;Password=pass;User ID=user;Data Source=afis;Persist Security Info=True"
set cn = server.CreateObject("adodb.connection")
cn.open driver_name
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from table",cn,3,1
do while not rs.eof
response.write rs("field")
rs.movenext
loop
%>
---------------
建库????
晕~
Microsoft OLE DB Provider for Oracle (0x80004005)
/traffic/test.asp, 第 14 行
我想建一个自己的数据库了,就象SQL SERVER一样。
<%
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.CursorType = 0
rs1.CursorLocation = 3
rs1.LockType = 3
%>
<%
rs1.Source = "select employeeno,employee,to_char(sysdate,'yyyy-mm') yd,count(*) wn from records WHERE to_char(sbtime,'yyyymm')=to_char(sysdate,'yyyymm') group by employeeno,employee,to_char(sysdate,'yyyy-mm')"
rs1.Open()
while not rs1.eof
response.write "<TR height=22 >"
response.write "<TD align=middle width=50><font size='2'>"&rs1("employeeno")&"</font></TD>"
response.write "<TD align=middle width=80><font size='2'>"&rs1("employee")&"</font></TD>"
response.write "<TD align=middle width=50><font size='2'>"&rs1("yd")&"</font></TD>"
response.write "<TD align=middle width=70><font size='2'><A href='workday.asp?employeeno="&rs1("employeeno")&"'>"&rs1("wn")&"</a></font></TD>"
response.write "</TR>"
rs1.movenext()
wend
%>
刚开始的那位高手我照做,好象不行
用户我用的是sys
通过net80 assitant就可以,按向导一步一步来,测试成功就可以
我的方法是可以的,只要你装了ado,配置好本地连接.当然不要忘了修改相应的地方,如Data Source=你配置的本地名
还是数据库服务器在unix下?
ado是装在web服务器上的,如果是2000 server, 自带的有ado
如果是nt.可能需要手工装一个
如果想用高版本,自己去下载,再装一个
好象就是不能浏览.asp文件,htm没有问题,不知道怎么回事
错误是这样的: 该页无法显示
您要访问的页有问题,无法显示该页。 --------------------------------------------------------------------------------请尝试以下操作:打开 http:// 主页,然后查找指向您感兴趣信息的链接。
单击刷新按钮,或以后再试。单击搜索,寻找 Internet 上的信息。
也可查看相关站点列表。
HTTP 500 - 内部服务器错误
Internet Explorer