会飞的猪,进来看看
你看看有什么错误?
错误类型:
Microsoft VBScript 编译器错误 (0x800A0408)
/111/8-7.ASP, 第 25 行
rstemp.open mySQL,conntemp,1,1
<%
response.buffer=true
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Cache-Control", "private"
%><html>
<head>
<title>9-7.asp</title>
<!--#INCLUDE file="ADOVBS.INC" -->
<meta http-equiv="pragma" content="no-cache">
</head>
<body bgcolor="#FFFFFF">
单击连接可以进行数据编辑:
<%
mySQL="select * from table"
IDfield="AU_ID"
scriptresponder="authoredit.asp"
set conntemp=server.createobject("ADODB.Connection")
conntemp.Open "driver={Microsoft Access Driver (*.mdb)};Data Source="&Server.MapPath("DSN.mdb")
Set rstemp = Server.CreateObject("ADODB.RecordSet")
rstemp.open mySQL,conntemp,1,1
response.write rstemp.recordcount
howmanyfields=rstemp.fields.count -1
%>
<table border="1">
<tr>
<td valign="top">---</td>
<%
for i=0 to howmanyfields %>
<td><b>
<%=rstemp(i).name %>
</b> </td>
<% next %>
</tr>
<%
do while not rstemp.eof
%>
<tr><td valign="top">
<%
my_link=scriptresponder & "?which=" & rstemp(idfield)
%>
<a HREF="<%=my_link%>">编辑</a></td>
<%
for i = 0 to howmanyfields
%>
<td valign="top"><%=rstemp(i)%> </td>
<% next %>
</tr>
<%
rstemp.movenext
loop
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>
</table>
</body>
</html>