求救!! - ASP技术论坛

问题点数：0 回复次数：5

求救!!

运行以下代码:

<% Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select*from member order by 时间 desc" rs.Open sql,conn,1,1 %> <% if rs.EOF and rs.BOF then response.write ("暂时还没有任何信息") else Do Until rs.EOF response.write("申请区域形式:"& rs("shenqing")) response.write(" 申请区域:"& rs("quyu")) response.write(" 介绍:"& rs("jieshao")) response.write(" 单位:"&rs("danwei")) response.write(" 联系人:"&rs("lianxi")) response.write(" 性别:"&rs("sex")) response.write(" 年龄:"&rs("age")) response.write(" 文化:"&rs("culture")) response.write(" 电话:"&rs("tel")) response.write(" 传真:"&rs("fax")) response.write(" 手机:"&rs("handset")) response.write(" 地址:"&rs("adress")) response.write(" 邮编:"&rs("code")) response.write(" 网址:"&rs("net")) response.write(" E_mail:"&rs("email")) response.write(" QQ:"&rs("qq")) response.write(" 申请时间:"&rs("时间")) response.write "<a href=addeluser.asp?id="&rs("username")&">删除</a></td>"

response.write("<hr>") rs.MoveNext Loop end if rs.close Set rs = Nothing conn.close set conn=Nothing %> 结果: 错误类型： Microsoft JET Database Engine (0x80040E14) 无效的 null 使用 /www/zhshwenan/addeluser.asp, 第 13 行

搜索更多相关主题的帖子: member　sql　单位　

第 2 楼

得分:0

是这个addeluser.asp  <% dim userid,sql response.buffer=true Response.Expires=0 if session("adpass")<>"passed" then response.redirect "adlogin.asp" end if userid=Request.Querystring("id")

sql="delete * from info where trim(Cstr(用户名))='"&userid&"'"

set rs=conn.execute (sql)

Response.Write "<html><body><center>成功删除!" Response.Write "<a href=adlist.asp>返回查看</a>" Response.Write "</center></body></html>" Conn.Close Set Conn=Nothing %>

第 3 楼

得分:0

啊!!??? 第13行是:set rs=conn.execute (sql) 我自已没检查出有错误,所以才发表出来的嘛! 我实在没办法啦!!!!!! 错误类型： Microsoft JET Database Engine (0x80040E14) 无效的 null 使用 //最有可能的原因是什么? addeluser.asp, 第 13 行

第 4 楼

得分:0

ACCESS
<%
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("zhaoshanginfo.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1
%>

第 5 楼

得分:0

得到值是:xiaoxiaodelete * from member where trim(Cstr(username))='xiaoxiao'
删除操作还是不行!

第 6 楼

得分:0

呼啦啦~~~~~问题解决了,谢谢高手!~