新微赢技术网

标题: 求救!! [打印本页]

作者: ┈ㄝai〾噯儿 时间: 2010-1-13 03:31
标题: 求救!!
运行以下代码: 
<% 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 行

作者: 太阳神 时间: 2010-1-13 03:31
那里错？
13行？？在那里啊？？

作者: 枫之泪-天涯 时间: 2010-1-13 03:31
是这个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 %>

作者: 落叶秋雨 时间: 2010-1-13 03:31
晕，谁那么有空帮你看一堆代码。。。。。

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

作者: 祗↘爲.輝仔 时间: 2010-1-13 03:31
你的数据库是什么？

作者: tp寶寶^ō^ 时间: 2010-1-13 03:31
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
%>

作者: .｀D.D`地` 时间: 2010-1-13 03:32
userid=Request.Querystring("id")
response.write(userid) '看看userid的值
sql="delete * from info where trim(Cstr(用户名))='"&userid&"'"
response.write(sql)'sql的值
response.end()

作者: 魅力ぉ小猪ぎ 时间: 2010-1-13 03:32
得到值是:xiaoxiaodelete * from member where trim(Cstr(username))='xiaoxiao'
删除操作还是不行!

作者: 秋风扫落叶 时间: 2010-1-13 03:32
sql="delete * from info where [username]='"&userid&"'"

作者: 天下无敌 时间: 2010-2-1 07:05
支持一下吧，确实是不错的贴子。

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)