作者meiyi (meiyi)
看板Visual_Basic
标题[ASP ] 有一行程式一直跑不出来~~拜托求救T_T
时间Thu Jan 11 22:33:05 2007
以下是我写关於资料库要排序的程式
但是有一行Rs.Open SQL,Conn,1,1
电脑会一直显示错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程式不支援此要求内容。
想请问各位大大是什麽问题???
我人说是因为资料库权限没有开启
什麽要开启"读写"权力 这个我不太懂
如果是这样 要怎麽开启去哪里开启呢???
有人可以帮帮我吗T_T
谢谢><
<HTML>
<head>
<title>财经资料</title>
</head>
<BODY Background="../NetScore/image/bg1.gif">
<p align="center"><font size="6" color="#0000FF"
face="金梅中楷体">财经资料</font></p>
<p>
<a href="A.asp">净值TOP20</a>
<a href="B.asp">三个月绩效TOP20</a>
<a href="C.asp">六个月绩效TOP20</a>
<a href="D.asp">三个月加六个月绩效TOP20</a>
<%
dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("new.mdb")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & DBPath
Set Rs = Server.CreateObject("ADODB.RecordSet")
if trim(request("op1")) = "" then
SQL= "Select * From 国外基金 Order By 净值 Asc "
else
SQL= "Select * From 国外基金 Order By " & trim(request("op1")) & "Desc"
end if
Rs.Open SQL,Conn,1,1
%>
<center>
<Form method="get" action="456.asp">
<TABLE Border=1 Cellspacing=1 bordercolor="#800000" width="776">
<TR BgColor=#00FFFF>
<%
'输出「抬头名称」
For i=0 to Rs.Fields.Count-1
Response.Write "<TD>" & Rs(i).Name & "</TD>"
Next
%>
</TR>
<%
'输出「资料表中的内容」
Rs.MoveFirst
While Not Rs.Eof
aa="<TR>"
For i=0 to Rs.Fields.Count-1
aa=aa & "<TD>" & Rs(i)
Next
Response.Write aa & "<TR>"
Rs.MoveNext
Wend
%>
</TABLE>
<select name="op1" size="1">
<% For i=0 to Rs.Fields.Count-1 %>
<option value ="<% = Rs(i).Name %>"><% = Rs(i).Name %></option>
<% Next %>
</select>
<input type="submit" value="送出" name="Submit">
</Form>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</BODY>
</HTML>
--
我的相簿www.wretch.cc/album/meii
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.168.82.15