标题: [求助]无法写入的问题 [打印本页] 作者: 依然范特西 时间: 2010-1-19 07:55 标题: [求助]无法写入的问题 <%
set conn=server.CreateObject("adodb.connection")
set rs=createobject("adodb.recordset")
dim votesql
conn.open "provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("./lanyadb.mdb")&";persist security info=false"
votesql="select * from music_info order by music_tickets desc"
rs.open votesql,conn,3,1
for i=1 to 10
if not rs.eof then
ch=trim(rs("music_chinese"))
en=trim(rs("music_english"))
tickets=rs("music_tickets")
file="musiclib\"&rs("music_file")
%>
<tr><td align="center"><%=i%></td>
<td><a href=file target=_blank><%=ch%></a>
<td><%=en%> </td>
<td align="center"><%=tickets%></td>
</tr>
<%
rs.movenext
end if
next
rs.close
%>