发生未指定错误!
<%
'数据库连接文件
%>
<%
dim conn
dim db
'on error resume next
db="database/lead#leon.mdb"
set conn=server.CreateObject("adodb.connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
conn.open connstr
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select id,qymc,o1enddate,enddate from qyml where open=true and o1=true order by regdate desc"
rs.open sql,conn,1,1
while not rs.eof
if rs("o1enddate")<date() then conn.execute("update qyml set o1=false where id="&rs("id"))
if rs("enddate")<date() then conn.execute("update qyml set open=false where id="&rs("id"))
%>
<a href=<%=weburl%>/company.asp?id=<%=rs("id")%> target=_blank><%=rs("qymc")%></a> ◇
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
上面是源码,提示第4行发生未指定错误!
在别的机器上可以测试通过...可我的就不行,,我是WINXP SP2盗版专业版,,IIS是5.1 是不是我那里配置有问题,谢谢!!!