分析可能是： asp的一些保留字段导致。

　　正常来说 代码没问题```ID也有值 但是库改成了SQL SERVER库 因不长用所以请教各位这个错误是哪里问题。

　　Microsoft VBScript 运行时错误 错误 '800a01f5'

　　非法赋值: 'SqlStr'

　　/admin/list/savedate.asp，行60

　　错误行代码 SQLstr="delete d_31 where id="&id&""

　　代码如下:

<%
'删除小类信息
sub delbuy()
id=clng(Request.QueryString("id"))
Set book=server.createobject("adodb.recordset")
SQLstr="delete d_31 where id="&id&""
conn.Execute SQLstr
set book=nothing
conn.close
set conn=nothing
%>
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("删除成功!")
window.location.href="buySoScan.asp"
-->
</SCRIPT>
<%
end sub
%>

　　解决方法：SQLstr 改成sqlssqls

　　换个变量名试试,还有SQL语句要改一下

　　代码如下:

SQLstr="delete d_31 where id="&id&""
conn.Execute

SQLstr 改成

　　代码如下:

dim sqlssqls = "delete from d_31 where id=" & clng(id)
conn.Execute(sqls)