我自己搞了个系统,用超级用户进入系统正常,用普通用户进入系统就报错,Microsoft JET Database Engine (0x80040E07)
标准表达式中数据类型不匹配。
/xs/huiyuan/huiyuan_bf.asp, 第 203 行
代码如下请各位高手帮忙
<%
if request.Cookies("shiwei_username")="" then
%>
<script language="javascript">
top.location.href="../index.asp"
</script>
<%
response.end
end if
%>
<!-- #include file="../conn2.asp" -->
<!-- #include file="../const.asp" -->
<html>
<head>
<title> <%=dianming%> - 客户列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
<style>
body {
background-color:#FFFFFF;
}
</style>
</HEAD>
<BODY>
<script>
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
<%
if fla36="0" and request.Cookies("shiwei_id")<> "1" then
%>
<center> <img src="../images/note.gif" align="absmiddle"> <font color="#FF0000"> 你不具备此权限，请与管理员联系！</font> </center>
<%
response.end
end if
'取得当前页码
currentpage=request("page")
'response.write currentpage
'response.end
if currentpage<1 or currentpage="" then
currentpage="1"
end if
'取得搜索关键字
nowzu=request("zu")
nowkeyword=request("keyword")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="2" align="center">
<form name="form2">
<input type="hidden" name="form" value="<%=request("form")%> ">
<input type="hidden" name="field" value="<%=request("field")%> ">
<input type="hidden" name="field2" value="<%=request("field2")%> ">
<input type="hidden" name="field3" value="<%=request("field3")%> ">
<tr>
<td width="5%" height="30"> </td>
<td width="95%" align="right">
客户查询：
<input type="text" name="keyword" size="20" value="<%=nowkeyword%> ">
<input type="submit" value=" 查询 " class="button">
</td>
</tr>
</form>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#C4D8ED">
<tr>
<td> <img src="../images/r_1.gif" alt="" /> </td>
<td width="100%" background="../images/r_0.gif">
<table cellpadding="0" cellspacing="0" width="100%">
<tr>
<td> 客户列表</td>
<td align="right"> </td>
</tr>
</table>
</td>
<td> <img src="../images/r_2.gif" alt="" /> </td>
</tr>
<tr>
<td> </td>
<td>
<form name="form1" action="huiyuan_del.asp">
<input type="hidden" name="form" value="<%=request("form")%> ">
<input type="hidden" name="field" value="<%=request("field")%> ">
<input type="hidden" name="field2" value="<%=request("field2")%> ">
<input type="hidden" name="field3" value="<%=request("field3")%> ">
<input type="hidden" name="page" value="<%=currentpage%> ">
<input type="hidden" name="zu" value="<%=nowzu%> ">
<input type="hidden" name="keyword" value="<%=nowkeyword%> ">
<input type="hidden" name="order1" value="<%=request("order1")%> ">
<input type="hidden" name="order2" value="<%=request("order2")%> ">
<input type="hidden" name="order3" value="<%=request("order3")%> ">
<input type="hidden" name="order4" value="<%=request("order4")%> ">
<input type="hidden" name="order5" value="<%=request("order5")%> ">
<input type="hidden" name="order6" value="<%=request("order6")%> ">
<input type="hidden" name="order7" value="<%=request("order7")%> ">
<input type="hidden" name="order8" value="<%=request("order8")%> ">
<input type="hidden" name="order9" value="<%=request("order9")%> ">
<input type="hidden" name="order10" value="<%=request("order10")%> ">
<input type="hidden" name="order11" value="<%=request("order11")%> ">
<input type="hidden" name="order12" value="<%=request("order12")%> ">
<input type="hidden" name="order13" value="<%=request("order13")%> ">
<input type="hidden" name="order14" value="<%=request("order14")%> ">
<input type="hidden" name="order15" value="<%=request("order15")%> ">
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
<tr align="center">
<td width="15%" height="30" class="category">
<a href="?order5=<%if request("order5")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title"> 客户名称
<%if request("order5")="asc" then%> <img src="../images/up2.gif" border="0" hspace="2" align="absmiddle"> <%else%> <img src="../images/down2.gif" border="0" hspace="2" align="absmiddle">
<%end if%> </a>
</td>
<td width="15%" class="category"> <a href="?order7=<%if request("order7")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title"> 客户类别
<%if request("order7")="asc" then%>
<img src="../images/up2.gif" border="0" hspace="2" align="absmiddle">
<%else%>
<img src="../images/down2.gif" border="0" hspace="2" align="absmiddle">
<%end if%>
</a> </td>
<td width="9%" class="category"> <a href="?order1=<%if request("order1")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title"> 联系人姓名
<%if request("order1")="asc" then%>
<img src="../images/up2.gif" border="0" hspace="2" align="absmiddle">
<%else%>
<img src="../images/down2.gif" border="0" hspace="2" align="absmiddle">
<%end if%>
</a> </td>
<td width="5%" class="category">
<a href="?order2=<%if request("order2")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title"> 性别<%if request("order2")="asc" then%> <img src="../images/up2.gif" border="0" hspace="2" align="absmiddle"> <%else%> <img src="../images/down2.gif" border="0" hspace="2" align="absmiddle">
<%end if%> </a>
</td>
<td width="10%" class="category"> 手机<a href="?order2=<%if request("order2")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title">
<%if request("order2")="asc" then%>
<img src="../images/up2.gif" border="0" hspace="2" align="absmiddle">
<%else%>
<img src="../images/down2.gif" border="0" hspace="2" align="absmiddle">
<%end if%>
</a> </td>
<td width="10%" class="category">
<a href="?order3=<%if request("order3")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title"> QQ
<%if request("order3")="asc" then%> <img src="../images/up2.gif" border="0" hspace="2" align="absmiddle"> <%else%> <img src="../images/down2.gif" border="0" hspace="2" align="absmiddle">
<%end if%> </a>
</td>
<td width="5%" class="category"> <a href="?order6=<%if request("order6")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title"> 积分
<%if request("order6")="asc" then%>
<img src="../images/up2.gif" border="0" hspace="2" align="absmiddle">
<%else%>
<img src="../images/down2.gif" border="0" hspace="2" align="absmiddle">
<%end if%>
</a> </td>
<td width="7%" class="category">
<a href="?order4=<%if request("order4")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title"> 报备时间
<%if request("order4")="asc" then%> <img src="../images/up2.gif" border="0" hspace="2" align="absmiddle"> <%else%> <img src="../images/down2.gif" border="0" hspace="2" align="absmiddle"> <%end if%> </a>
</td>
<td width="7%" class="category"> <a href="?order4=<%if request("order4")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title"> 到期时间
<%if request("order4")="asc" then%>
<img src="../images/up2.gif" border="0" hspace="2" align="absmiddle">
<%else%>
<img src="../images/down2.gif" border="0" hspace="2" align="absmiddle">
<%end if%>
</a> </td>
<%if fla37="1" or request.Cookies("shiwei_id")="1" then%>
<td class="category" width="7%"> 申请延期<a href="?order4=<%if request("order4")="asc" then%> desc<%else%> asc<%end if%> &form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> " class="title">
<%if request("order4")="asc" then%>
<img src="../images/up2.gif" border="0" hspace="2" align="absmiddle">
<%else%>
<img src="../images/down2.gif" border="0" hspace="2" align="absmiddle">
<%end if%>
</a> </td>
<%end if%>
<%if fla37="1" or request.Cookies("shiwei_id")="1" then%>
<td class="category" width="7%"> 修改</td>
<%end if%>
</tr>
<%
set rs_baobiao =server.createobject("ADODB.RecordSet")
sql="select * from baobiao where 1=1"
if request.Cookies("shiwei_id")<> 1 and fla90="0" then
sql=sql&" and id_login="&request.Cookies("shiwei_id")
end if
if nowkeyword<> "" then
sql=sql&" and (username like '%"&nowkeyword&"%' or card like '%"&nowkeyword&"%' or tel like '%"&nowkeyword&"%' or qq like '%"&nowkeyword&"%' or email like '%"&nowkeyword&"%')"
end if
if request("order1")<> "" then
sql=sql&" order by username "&request("order1")
elseif request("order4")<> "" then
sql=sql&" order by startdate "&request("order4")
elseif request("order5")<> "" then
sql=sql&" order by card "&request("order5")
elseif request("order6")<> "" then
sql=sql&" order by jifen "&request("order6")
elseif request("order7")<> "" then
sql=sql&" order by id_zu "&request("order7")
else
sql=sql&" order by id desc"
end if
rs_baobiao.open sql,conn,1,3
if not rs_baobiao.eof then
rs_baobiao.pagesize=maxrecord
rs_baobiao.absolutepage=currentpage
for currentrec=1 to rs_baobiao.pagesize
if rs_baobiao.eof then
exit for
end if
%>
<tr onMouseOver="this.className='highlight'" onMouseOut="this.className=''" <%if request("form")<> "" then%> onDblClick="window.opener.document.<%=request.querystring("form")%> .<%=request.querystring("field")%> .value='<%=rs_huiyuan("id")%> ';window.opener.document.<%=request.querystring("form")%> .<%=request.querystring("field2")%> .value='<%=rs_huiyuan("username")%> ';window.opener.document.<%=request.querystring("form")%> .<%=request.querystring("field3")%> .value='<%=rs_huiyuan("card")%> ';window.close();"<%else%> onDblClick="javascript:var win=window.open('huiyuan_show.asp?id=<%=rs_baobiao("id_login")%> ','客户详细信息','width=853,height=470,top=176,left=161,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes'); win.focus()"<%end if%> >
<td align="center" height="25"> <%=rs_baobiao("card")%> </td>
<td align="center"> <%=rs_baobiao("card")%> </td>
<td align="center"> <%=rs_baobiao("card")%> </td>
<td align="center"> <%=rs_baobiao("card")%> </td>
<td align="center"> <%=rs_baobiao("card")%> </td>
<td align="center"> <%=rs_baobiao("card")%> </td>
<td align="center"> <%=rs_baobiao("card")%> </td>
<td align="center"> <%=rs_baobiao("card")%> </td>
<%if fla37="1" or request.Cookies("shiwei_id")="1" then%>
<td align="center"> <%=rs_baobiao("card")%> </td>
<%end if%>
<%if fla37="1" or request.Cookies("shiwei_id")="1" then%>
<td align="center"> <a href="huiyuan_modi.asp?form=<%=request("form")%> &field=<%=request("field")%> &field2=<%=request("field2")%> &field3=<%=request("field3")%> &id=<%=rs_baobiao("id_login")%> &page=<%=currentpage%> &zu=<%=nowzu%> &keyword=<%=nowkeyword%> &order1=<%=request("order1")%> &order2=<%=request("order2")%> &order3=<%=request("order3")%> &order4=<%=request("order4")%> &order5=<%=request("order5")%> &order6=<%=request("order6")%> &order7=<%=request("order7")%> &order8=<%=request("order8")%> &order9=<%=request("order9")%> &order10=<%=request("order10")%> &order11=<%=request("order11")%> &order12=<%=request("order12")%> &order13=<%=request("order13")%> &order14=<%=request("order14")%> &order15=<%=request("order15")%> "> <img src="../images/res.gif" border="0" hspace="2" align="absmiddle"> 修改</a> </td>
<%end if%>
</tr>
<%
rs_baobiao.movenext
next
else
%>
<tr align="center" onMouseOver="this.className='highlight'" onMouseOut="this.className=''">
<td colspan="12" height="25" align="center" style="color:red"> <b> 没有找到记录</b> </td>
</tr>
<%
end if
%>
<%
if rs_baobiao.recordcount> 0 then
%>
<tr>
<td colspan="12" height="30" class="category">
<table cellpadding=0 cellspacing=0 width="100%">
<tr>
<td align="left" style="color:#FF0000;"> <%if request("form")<> "" then%> 双击选择客户<%else%> 双击每行可查看客户详细资料<%end if%> </td>
<td align="right">
<%=rs_baobiao.recordcount%> 条信息 共 <%=rs_baobiao.pagecount%> 页
<%
nowstart=currentpage-3
if nowstart<1 then
nowstart=1
end if
nowend=currentpage+3
if nowend> rs_baobiao.pagecount then
nowend=rs_baobiao.pagecount
end if
response.write " <a href='?form="&request("form")&"&field="&request("field")&"&field2="&request("field2")&"&field3="&request("field3")&"&zu="&nowzu&"&keyword="&nowkeyword&"&page=1&order1="&request("order1")&"&order2="&request("order2")&"&order3="&request("order3")&"&order4="&request("order4")&"&order5="&request("order5")&"&order6="&request("order6")&"&order7="&request("order7")&"&order8="&request("order8")&"&order9="&request("order9")&"&order10="&request("order10")&"&order11="&request("order11")&"&order12="&request("order12")&"&order13="&request("order13")&"&order14="&request("order14")&"&order15="&request("order15")&"' class='page'> 最前页</a> "
for ipage=nowstart to nowend
if cstr(ipage)=cstr(currentpage) then
response.write " <span style='font-weight:bold;color:#5858E6'> " & ipage &"</span> "
else
response.write " [ <a href='?form="&request("form")&"&field="&request("field")&"&field2="&request("field2")&"&field3="&request("field3")&"&zu="&nowzu&"&keyword="&nowkeyword&"&page="&ipage&"&order1="&request("order1")&"&order2="&request("order2")&"&order3="&request("order3")&"&order4="&request("order4")&"&order5="&request("order5")&"&order6="&request("order6")&"&order7="&request("order7")&"&order8="&request("order8")&"&order9="&request("order9")&"&order10="&request("order10")&"&order11="&request("order11")&"&order12="&request("order12")&"&order13="&request("order13")&"&order14="&request("order14")&"&order15="&request("order15")&"' class='page'> " & ipage &"</a> ] "
end if
next
response.write " <a href='?form="&request("form")&"&field="&request("field")&"&field2="&request("field2")&"&field3="&request("field3")&"&zu="&nowzu&"&keyword="&nowkeyword&"&page="&rs_baobiao.pagecount&"&order1="&request("order1")&"&order2="&request("order2")&"&order3="&request("order3")&"&order4="&request("order4")&"&order5="&request("order5")&"&order6="&request("order6")&"&order7="&request("order7")&"&order8="&request("order8")&"&order9="&request("order9")&"&order10="&request("order10")&"&order11="&request("order11")&"&order12="&request("order12")&"&order13="&request("order13")&"&order14="&request("order14")&"&order15="&request("order15")&"' class='page'> 最后页</a> "
%>
</td>
</tr> </table> </td> </tr>
<%end if%>
</table>
</form>
</td>
<td> </td>
</tr>
<tr>
<td> <img src="../images/r_4.gif" alt="" /> </td>
<td> </td>
<td> <img src="../images/r_3.gif" alt="" /> </td>
</tr>
</table>
</body>
</html>
转载于:https://www.cnblogs.com/hezq/archive/2010/04/07/9840050.html
介绍)
设计)