实在看不出错在哪里,请大家帮忙看看,谢谢!
=================================删除文件del.asp===============================================<%
DBpath = "../" '数据库文件的位置
%>
<!--#include file="../ConnDB.asp"-->
<%fid=request.QueryString("fid")
Conn.execute "delete * from tSoft where tsoftid="&fid
response.write "<script language=javascript>alert('记录删除成功!');history.back(-1);</script>"
%>
错误信息:Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。del.asp, 第 7 行
===================================================================================================
=================================数据库连接文件ConnDB.asp===============================================
<%
Dim DBpath,ConnStr,Conn
DBpath =DBpath & "DataBase/#data.mdb" '数据库文件的位置
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(DBPath)
On Error Resume Next '启用错误处理程序
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
'=====================
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<p> </p><p align='center'>数据库连接出错,请检查链接路径和数据库名称!</p>"
Response.End
End If
'======================
On Error GoTo 0 '禁用错误处理程序
sub CloseConnDB()
Conn.Close
set conn=nothing
end sub
%>
=================================================================================================================