[这个贴子最后由菌菌在 2005/09/10 05:43pm 第 1 次编辑]
这是我找来用的数据库连接文件:
<%
Option Explicit';要求变量声明，这样所有包含此文件的都需要声明变量
dim conn';数据库连接
dim connstr';连接字符串
dim db';数据库文件路径
db = "../../Database/trfsoft.mdb"';演示时用ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
';对于实时性要求不高的高用，使用adUseClient游标
conn.Cursorlocation = adUseClient
conn.Open connstr
';关闭数据库连接，在每页中调用此函数，将连接放入连接池
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
';替换单引号，向数据库中写入数据时用
function RealString(strSrc)
RealString = Replace(Trim(strSrc), "';", "’")
end function
';替换单引号并进行HTML编码，向网页输出数据库内容时用
function Convert(strSrc)
Convert = Server.HTMLEncode(Replace(Trim(strSrc), "';", "’"))
';此句用于将字符串中的回车符转换为HTML中的换行标记
Convert = Replace(Convert, chr(13), "
")
end function
%>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
这是我出错的文件:
<%
dim strSQL, userID
userID=Request("ID")
if userID <> "" then
strSQL="DELETE FROM Admins WHERE UserName=';"& userID & "';"
conn.Execute strSQL ';此话出错!!!!!!!
end if
CloseConn()
Response.redirect "ManagerList.asp"
%>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
报错的页面这样说:
错误类型：
Microsoft JET Database Engine (0x80004005)
无法从指定的数据表中删除。
/ruan/ruanPro/ruan/Manage/ManagerDel.asp, 第 8 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
网页：
GET /ruan/ruanPro/ruan/Manage/ManagerDel.asp
|
