帮忙看下错误，谢谢，在线等~~~~

crazygjg 2006-02-27 01:50:35
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
%>
<SCRIPT language=JavaScript>
alert('你没有权限,请登陆！');
</SCRIPT>
<%
response.Redirect("admin_login.asp")
end if 'if session("admin")="" then
%>
<script>
function openbag(id) { window.open("submore.asp?sub_id="+id,"","height=400,width=600,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");}
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Refresh" content="100; url=subpass.asp">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body style="background-color: #F0FBF1">
<form method="POST" action="searchsub.asp?soutype=2">
<div align="center">
<table border="0" width="778" cellspacing="1" bordercolorlight="#2F94F9" bordercolordark="#FFFFFF">
<tr>
<td>  输入订单号：
<input type="text" name="keywords" size="12" class=ipt> <input type="submit" value="查看订单" name="B4" class=input> </td>
</tr>
</table>
</div>
</form>
<%
keywords=trim(request("keywords"))
soutype=int(trim(request("soutype")))
select case soutype
case 0
sql="select * from zhangdan order by id DESC"
case 1
sql="select * from zhangdan where BillNO like '%"&keywords&"%' order by id DESC"
case 2
sql="select * from zhangdan where CardNo like '%"&keywords&"%' order by id DESC"
case 3
sql="select * from zhangdan where PWD like '%"&keywords&"%' order by id DESC"
end select
rs.open sql,conn,3,3
if rs.eof then
response.write "暂且没有任何订单"
response.end
end if
rs.pagesize=15
page = cint(request("page"))
if page = "" then page = 1
if page < 1 then page=1
if page >= rs.pagecount then page = rs.pagecount
rs.absolutepage = page
%>

<div align="center" style="width: 893; height: 124">
　<table border="1" width="778" cellspacing="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="165" cellpadding="0">
<tr>
<td width="77" style="padding: 5px" height="30">编号</td>
<td width="80" style="padding: 5px" height="30">帐单号</td>
<td width="125" style="padding: 5px" height="30">时间</td>
<td width="83" style="padding: 5px" height="30">价格</td>
<td width="63" style="padding: 5px" height="30">数量</td>
<td width="87" style="padding: 5px" height="30">状态</td>
<td width="85" style="padding: 5px" height="30">卡号</td>
<td width="86" style="padding: 5px" height="30">密码</td>
<td width="86" style="padding: 5px" height="30">商品ID</td>
</tr>
<%
for i=1 to rs.pagesize
%>
<tr>
<td width="77" style="padding: 5px" height="30"><a href='submore.asp?sub_id=<%=rs("id")%>'>
<td width="80" style="padding: 5px" height="30"><%=rs("BillNO")%> </td>
<td width="80" style="padding: 5px" height="30"><%=rs("DTime")%> </td>
<td width="125" style="padding: 5px" height="30"><%=rs("Price")%> </td>
<td width="83" style="padding: 5px" height="30"><%=rs("SL")%> </td>
<td width="63" style="padding: 5px" height="30"><%=rs("iState")%> </td>
<td width="87" style="padding: 5px" height="30"><%rs("CardNo")%> </td>
<td width="85" style="padding: 5px" height="30"><%rs("PWD")%></td>
<td width="86" style="padding: 5px" height="30"><%=rs("GID")%> </td>

</tr>

</table>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
</div>
<%
set rs=nothing
conn.close
set conn=nothing%>

错误提示
Microsoft VBScript 运行时错误 错误 '800a01f4'

变量未定义: 'keywords'

/buy001/searchzhangdan.asp，行 33

不知道改怎么解决，请各位大虾看看！
...全文
105 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
duoduobaba 2006-02-27
  • 打赏
  • 举报
 回复
34句是变量赋值,离数据库操作远着呢
浙外 2006-02-27
  • 打赏
  • 举报
 回复
类型不匹配的错误肯定是keyword变量所保存的值和你的数据库的表中的字段的类型不一致，应该是主要以下三句话导致的吧
sql="select * from zhangdan where BillNO like '%"&keywords&"%' order by id DESC"
sql="select * from zhangdan where CardNo like '%"&keywords&"%' order by id DESC"
sql="select * from zhangdan where PWD like '%"&keywords&"%' order by id DESC"
然后你说的加查询帐单，上面的代码我就没看。我想查询应该比较好做的吧。如果有什么显示的不合理，你可以利用IFRAME外加页面不就可以了。

呵呵。代码实在太多。而且格式不好。看着累！！！！！！！！
duoduobaba 2006-02-27
  • 打赏
  • 举报
 回复
没看明白
crazygjg 2006-02-27
  • 打赏
  • 举报
 回复
不是很懂，楼上的说话不要这么冲好不？你不愿意没让你帮忙~~
游北亮 2006-02-27
  • 打赏
  • 举报
 回复
干脆付钱,请别人给你做算了.
crazygjg 2006-02-27
  • 打赏
  • 举报
 回复
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
response.Redirect("admin_login.asp")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>库存卡列表</title>
<link href="sty.css" rel="stylesheet" type="text/css">
</head>

<body class="font1">
<p class="font1">欢迎管理员：<%=session("admin_name")%>!　<a href="admin_add1.asp">添加卡</a> 
<a href="http://www.rmb001.net/buy001/admin_list.asp">返回库存</a>
  
</p>
<table width="1" border="1" cellspacing="2" cellpadding="2" class="font1" height="60" >
<tr>
<td nowrap width="50" height="16" align="center"><a href="admin_list.asp?o=id" title="按编号排序">编号</a></td>
<td nowrap width="91" height="16" align="center"><a href="admin_list.asp?o=BillNO" title="按帐单号排序" >帐单号</a></td>
<td nowrap width="130" height="16" align="center"><a href="admin_list.asp?o=DTime" title="按时间排序">时间</a></td>
<td nowrap width="50" height="16" align="center"><a href="admin_list.asp?o=Price" title="按价格排序">价格</a></td>
<td nowrap width="50" height="16" align="center"><a href="admin_list.asp?o=SL" title="按数量排序" >数量</a></td>
<td nowrap width="50" height="16" align="center"><a href="admin_list.asp?o=iState" title="按状态排序">状态</a></td>
<td nowrap width="110" height="16" align="center"><a href="admin_list.asp?o=CardNo" title="按卡号排序">卡号</a></td>
<td nowrap width="110" height="16" align="center"><a href="admin_list.asp?o=PWD" title="按密码排序">密码</a></td>
<td nowrap width="60" height="16" align="center"><a href="admin_list.asp?o=GID" title="按商品排序" >商品ID</a></td>

</tr>
<%
dim sql,rs,o
sql="select * from zhangdan "
o=request("o")
if o<>"" then
sql=sql+" order by "+o
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
%>
<tr>
<td width="50" height="16" align="center">读取失败</td>
<td width="91" height="16" align="center">读取失败</td>
<td width="130" height="16" align="center">读取失败</td>
<td width="50" height="16" align="center">读取失败</td>
<td width="50" height="16" align="center">读取失败</td>
<td width="50" height="16" align="center">读取失败</td>
<td width="110" height="16" align="center">读取失败</td>
<td width="110" height="16" align="center">读取失败</td>
<td width="60" height="16" align="center">读取失败</td>
</tr>
<%
else
%>
<%
do while not rs.eof
%><tr>



<td width="50" height="16" align="center"><%=rs("id")%><a href="inf_del1.asp?inf_id=<%=rs("id")%>&r=admin_bill" target="_self"><font color="#0000FF">删除</font></a></td>
<td width="91" height="16" align="center"><%=rs("BillNO")%></td>
<td width="130" height="16" align="center"><%=rs("DTime")%></td>
<td width="50" height="16" align="center"><%=rs("Price")%></td>
<td width="50" height="16" align="center"><%=rs("SL")%></td>
<td width="50" height="16" align="center"><%=rs("iState")%></td>
<td width="110" height="16" align="center"><%=rs("CardNo")%></td>
<td width="110" height="16" align="center"><%=rs("PWD")%></td>
<td width="60" height="16" align="center"><%=rs("GID")%></td>
</tr>
<%
rs.moveNext
loop
end if
%>
<tr>
<td width="50" height="1" align="center"></td>
<td width="91" height="1" align="center"></td>
<td width="130" height="1" align="center"></td>
<td width="50" height="1" align="center"></td>
<td width="50" height="1" align="center"></td>
<td width="50" height="1" align="center"></td>
<td width="110" height="1" align="center"></td>
<td width="110" height="1" align="center"></td>
<td width="60" height="1" align="center"></td>
</tr>
</table>
</body>
</html>
加一个查询帐单，然后直接在原页面显示帐单所在的单行，怎么实现，谢谢各位了，在线ing~~
crazygjg 2006-02-27
  • 打赏
  • 举报
 回复
其实我是想做一个查询帐单号的功能，没想到越做越复杂
duoduobaba 2006-02-27
  • 打赏
  • 举报
 回复
把conn.asp中的Option Explicit去了试试
duoduobaba 2006-02-27
  • 打赏
  • 举报
 回复
不象是trim的问题
德仔 2006-02-27
  • 打赏
  • 举报
 回复
把Trim去了,在客户端进行表单验证,规范keywords所在文本框的类型,避免出现空格对象.
crazygjg 2006-02-27
  • 打赏
  • 举报
 回复
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: '[string: ""]'

/buy001/searchzhangdan.asp，行 34
加了之后又提示错误
duoduobaba 2006-02-27
  • 打赏
  • 举报
 回复
conn.asp中可能包含Option Explicit要求变量显式声明
如果是这样
在keywords=trim(request("keywords"))之前加上dim keywords
ybfqlyq 2006-02-27
  • 打赏
  • 举报
 回复
你的CONN頁面加了<% Option Explicit %>
在這個頁面加個dim keywords
SSH2+Easyui的增删查改小例子（存BUG）
源码出自http://z18022893621.iteye.com/blog/1961412，下载后修改了点错误。数据库采用Oracle,开发工具...只不过，数据库交互中出现了问题，数据没有显示到JSP界面中，希望大神们可以帮忙一起看看问题所在，谢谢了~！
Java，实现中国象棋
这是我自己写的一个中国象棋在网上找了好多例子，发现棋盘和棋子都是图片渲染的，这个棋盘和棋子都是swing工具写的但走棋规则好像是错误的，有大佬能帮忙改改吗谢谢
小白vs调试出现分析器错误，求大佬指点一下啊~~~
在线等解决方法vs2010在调试时提示分析器错误 网上搜到的几种解决方法都没什么用，给点提示啊~~ 我只是一个刚刚入门的新手，使用vs总是出现这样那样的问题，希望有大佬可以帮忙解决一下~~嘻嘻嘻谢谢啦 调试内容是...
求助了，园子里的高手们，软件运行报401错误
今天遇到一个破问题前一天软件...但是此错误在原电脑上仍然无法解决有哪位高手帮忙解决下啊~~~谢谢~~~弹出401错误后又弹出后面的383错误园子里的高手帮帮小妹吧~~~~55555小妹感激不尽 转载于:https://www.cnblogs.co...
服务器异常关机查看dmp文件,服务器无故自动重启，使用WinDbg查看MEMORY.dmp说srvnet.sys错误（附上Bugcheck记录），请各位帮帮忙谢谢~...
服务器无故自动重启，使用WinDbg查看MEMORY.dmp说srvnet.sys错误(附上Bugcheck记录)请各位帮帮忙，谢谢~~~~服务器有做过集群。这是集群中的一台服务器，无故重启Loading Dump File [D:\杂\icc\Minidump\070314-33774...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章