好久没写search 代码了,一个text,加一个下拉框组合查询怎么也不对。请高手看看(在线等,给分)

PHP1983 2009-12-11 10:59:21
<------form.asp------->
<form method="post" action="search.asp" name="action" id="action">
<input name="searchjob" type="hidden" value="ok">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jobscity order by xh",conn,1,1 %>
<select name="ClassID" class="c1" size="1" style="font-size:9pt; width:140px">
<option value="">-- select City --</option>
<%do while not rs.eof%>
<option value="<%=rs("xh")%>"><%=trim(rs("ct"))%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select><br>
<input name="search" type="text" value="关键字" onFocus="this.value='';" class="c2" style="width:140px;"/>
<input name="submit" type="submit" class="button" value="搜索" /></form>

<------search.asp----->
<%
If Trim(Request("Search"))<>"" Then
Search=Trim(Request("Search"))
ShowStr=ShowStr&" 关键字:"&Search
Wherestr=Wherestr&" And (jobname like '%"&Trim(Request("Search"))&"%' )"
End If %>

......<table>内容

<%
tsql="Select * From Jobs Where "&Wherestr&" Order By xh"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open tsql,objConn,1,1
%>

......<table>内容

<%
Rs.MoveNext
End If
%>
...全文
130 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
gxq323 2009-12-11
  • 打赏
  • 举报
回复
没头没尾最后多出
Rs.MoveNext
End If
前面的if也没找到
PHP1983 2009-12-11
  • 打赏
  • 举报
回复
貌似 现在csdn的人气不如几年前了 还是asp板块没人关心....
PHP1983 2009-12-11
  • 打赏
  • 举报
回复
search.asp, line 137 是下面的代码


<%
Rs.MoveNext
End If
%>
PHP1983 2009-12-11
  • 打赏
  • 举报
回复
LS 不行,还是报错。
错误类型:
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/备选2/search.asp, line 137
End If
「已注销」 2009-12-11
  • 打赏
  • 举报
回复

tsql="Select * From Jobs Where [ID] is not null "&Wherestr&" Order By xh" '字段ID根据自己情况修改
bing475879749 2009-12-11
  • 打赏
  • 举报
回复


结帖送分吧,LZ
bing475879749 2009-12-11
  • 打赏
  • 举报
回复
<%
tsql="Select * From Jobs Where xh is not null "&Wherestr&" Order By xh"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open tsql,objConn,1,1
do while not Rs.eof
%>
<td bgcolor="#CFD3D5"> <%=Rs("bh")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("jobname")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("mz")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("adr")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("zd")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("sj")%> </td>


</tr>
<%
Rs.MoveNext
loop
End If%>
<tr>


改的红色部分
gxq323 2009-12-11
  • 打赏
  • 举报
回复
你没加loop,让我们猜你那是个循环
PHP1983 2009-12-11
  • 打赏
  • 举报
回复
晕~~~~ 好了。 -、- 你是改的哪个位置呀, 送分
bing475879749 2009-12-11
  • 打赏
  • 举报
回复
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>诺森德人才服务有限公司—Choosed Northrend,one more time fly! </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!--#include file="conn.asp" -->
<style type="text/css">
<!--
@import url("style.css");
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE9 {color: #000000}
.STYLE10 {
color: #999999;
font-size: 30px;
}
.STYLE12 {color: #B51C2E;
font-size: 18px;


}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="19">  </td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="162" height="454" align="center" valign="top" background="images/leftbj.gif" bgcolor="#FFFFFF"> <img src="images/left1.gif" width="161" height="39" />
<table width="161" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2">  </td>
</tr>
<tr>
<%
sql="select * from Jobsclass order by xh desc"
rs.open sql,conn,1,1
do while not rs.eof
if len(trim(rs("mz")))>10 then
classname=left(trim(rs("mz")),9)&"..."
else
classname=trim(rs("mz"))
end if
%>

<td width="36" height="34">  </td>
<td width="142" align="left">
<img src="images/ioc1.gif" width="12" height="12" />   <a href=jobslist.asp?fn= <%=rs("xh")%> target="_blank" class="aWhite" > <%=classname%> </a> </td>
<tr> </tr> <tr>
<%rs.movenext
loop
rs.close%>
<td width="36" height="34">  </td>
<td width="142" align="left">
<img src="images/ioc1.gif" width="12" height="12" />   <a href="jobstop.asp" class="aWhite">最新职位 </a> </td> </tr> <tr>
<td width="36" height="34">  </td>
<td width="142" align="left"> <img src="images/ioc1.gif" width="12" height="12" />   <a href="jobslist.asp" class="aWhite">浏览全部职位 </a> </td>
</tr>
<tr>
<td>  </td>
<td>  </td>
</tr>
</table>
<br />
</td>
<td width="41" valign="top" background="images/bj01.gif" bgcolor="#FFFFFF">  </td>
<td width="577" valign="top" bgcolor="#FFFFFF">
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="32" align="left"> <br />
      <img src="images/ioc1.gif" width="12" height="12" />   <span class="STYLE10">Job Search Result </span> </td>

</tr>
<%
if Trim(Request("Search"))="" then
response.write " <script language=javascript>alert('对不起,请您输入查讯关键字');history.go(-1); </script>"



If Trim(Request("Search")) <>"" Then
Search=Trim(Request("Search"))
ShowStr=ShowStr&" 关键字:"&Search
Wherestr=Wherestr&" And (jobname like '%"&Trim(Request("Search"))&"%' )"
End If






%>


<tr>
<td colspan="2" align="center"> <img src="images/line.gif" width="543" height="5" /> </td>
</tr>
</table>
<table width="93%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="459" align="left" valign="top">

<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0" >


<td height="235" colspan="3" valign="top">

<tr>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#466997" >
<tr>
<td colspan="6">  </td> <tr>
<td bgcolor="#96B9C8" >职位编号 </td>
<td bgcolor="#96B9C8" >职位名称 </td>
<td bgcolor="#96B9C8" >职位类型 </td>
<td bgcolor="#96B9C8" >所在城市 </td>
<td bgcolor="#96B9C8" >最低要求 </td>
<td bgcolor="#96B9C8" >发布时间 </td>
<tr>
</tr>
<tr>
<%
tsql="Select * From Jobs Where xh is not null "&Wherestr&" Order By xh"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open tsql,objConn,1,1
do while not Rs.eof
%>
<td bgcolor="#CFD3D5"> <%=Rs("bh")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("jobname")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("mz")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("adr")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("zd")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("sj")%> </td>


</tr>
<%
Rs.MoveNext
loop
End If%>
<tr>
<td colspan="6">   </td> <tr>
<td colspan="6">   </td> <tr>


</tr>
</table>

</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"> <a href="#top"> <font color="#FF0000">TOP↑ </font> </a>     </td>
</tr>
</table> </td>
</tr>
</table>
<!--#include file="foot.asp"-->


</body>
</html>


再不行我就…,LZ试了再说吧,呵
PHP1983 2009-12-11
  • 打赏
  • 举报
回复
错误类型:
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/备选2/search.asp, 第 142 行


tsql="Select * From Jobs Where xh is not null "&Wherestr&" Order By xh"
Set Rs=Server.CreateObject("Adodb.RecordSet")

Rs.open tsql,objConn,1,1
do while not Rs.eof
%>
<td bgcolor="#CFD3D5"> <%=Rs("bh")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("jobname")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("mz")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("adr")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("zd")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("sj")%> </td>


</tr>
<%
Rs.MoveNext
End If%>

不行~~~~
gxq323 2009-12-11
  • 打赏
  • 举报
回复
tsql="Select * From Jobs Where xh is not null "&Wherestr&" Order By xh"
Set Rs=Server.CreateObject("Adodb.RecordSet")

Rs.open tsql,objConn,1,1
%>
<td bgcolor="#CFD3D5"> <%=Rs("bh")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("jobname")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("mz")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("adr")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("zd")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("sj")%> </td>


</tr>
<%
Rs.MoveNext
End If%>
这段是你不是想循环呢?没有do 或者while,猜吗?
gxq323 2009-12-11
  • 打赏
  • 举报
回复
光说不行,报什么错误?注释掉on error resume next
PHP1983 2009-12-11
  • 打赏
  • 举报
回复
不行,还是不行////
bing475879749 2009-12-11
  • 打赏
  • 举报
回复
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>诺森德人才服务有限公司—Choosed Northrend,one more time fly! </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!--#include file="conn.asp" -->
<style type="text/css">
<!--
@import url("style.css");
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE9 {color: #000000}
.STYLE10 {
color: #999999;
font-size: 30px;
}
.STYLE12 {color: #B51C2E;
font-size: 18px;


}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="19">  </td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="162" height="454" align="center" valign="top" background="images/leftbj.gif" bgcolor="#FFFFFF"> <img src="images/left1.gif" width="161" height="39" />
<table width="161" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2">  </td>
</tr>
<tr>
<%
sql="select * from Jobsclass order by xh desc"
rs.open sql,conn,1,1
do while not rs.eof
if len(trim(rs("mz")))>10 then
classname=left(trim(rs("mz")),9)&"..."
else
classname=trim(rs("mz"))
end if
%>

<td width="36" height="34">  </td>
<td width="142" align="left">
<img src="images/ioc1.gif" width="12" height="12" />   <a href=jobslist.asp?fn= <%=rs("xh")%> target="_blank" class="aWhite" > <%=classname%> </a> </td>
<tr> </tr> <tr>
<%rs.movenext
loop
rs.close%>
<td width="36" height="34">  </td>
<td width="142" align="left">
<img src="images/ioc1.gif" width="12" height="12" />   <a href="jobstop.asp" class="aWhite">最新职位 </a> </td> </tr> <tr>
<td width="36" height="34">  </td>
<td width="142" align="left"> <img src="images/ioc1.gif" width="12" height="12" />   <a href="jobslist.asp" class="aWhite">浏览全部职位 </a> </td>
</tr>
<tr>
<td>  </td>
<td>  </td>
</tr>
</table>
<br />
</td>
<td width="41" valign="top" background="images/bj01.gif" bgcolor="#FFFFFF">  </td>
<td width="577" valign="top" bgcolor="#FFFFFF">
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="32" align="left"> <br />
      <img src="images/ioc1.gif" width="12" height="12" />   <span class="STYLE10">Job Search Result </span> </td>

</tr>
<%
if Trim(Request("Search"))="" then
response.write " <script language=javascript>alert('对不起,请您输入查讯关键字');history.go(-1); </script>"



If Trim(Request("Search")) <>"" Then
Search=Trim(Request("Search"))
ShowStr=ShowStr&" 关键字:"&Search
Wherestr=Wherestr&" And (jobname like '%"&Trim(Request("Search"))&"%' )"
End If






%>


<tr>
<td colspan="2" align="center"> <img src="images/line.gif" width="543" height="5" /> </td>
</tr>
</table>
<table width="93%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="459" align="left" valign="top">

<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0" >


<td height="235" colspan="3" valign="top">

<tr>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#466997" >
<tr>
<td colspan="6">  </td> <tr>
<td bgcolor="#96B9C8" >职位编号 </td>
<td bgcolor="#96B9C8" >职位名称 </td>
<td bgcolor="#96B9C8" >职位类型 </td>
<td bgcolor="#96B9C8" >所在城市 </td>
<td bgcolor="#96B9C8" >最低要求 </td>
<td bgcolor="#96B9C8" >发布时间 </td>
<tr>
</tr>
<tr>
<%
tsql="Select * From Jobs Where xh is not null "&Wherestr&" Order By xh"
Set Rs=Server.CreateObject("Adodb.RecordSet")

Rs.open tsql,objConn,1,1
%>
<td bgcolor="#CFD3D5"> <%=Rs("bh")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("jobname")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("mz")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("adr")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("zd")%> </td>
<td bgcolor="#CFD3D5"> <%=Rs("sj")%> </td>


</tr>
<%
Rs.MoveNext
loop
End If%>
<tr>
<td colspan="6">   </td> <tr>
<td colspan="6">   </td> <tr>


</tr>
</table>

</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"> <a href="#top"> <font color="#FF0000">TOP↑ </font> </a>     </td>
</tr>
</table> </td>
</tr>
</table>
<!--#include file="foot.asp"-->


</body>
</html>


少了一个LOOP
PHP1983 2009-12-11
  • 打赏
  • 举报
回复
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>诺森德人才服务有限公司—Choosed Northrend,one more time fly!</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!--#include file="conn.asp" -->
<style type="text/css">
<!--
@import url("style.css");
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE9 {color: #000000}
.STYLE10 {
color: #999999;
font-size: 30px;
}
.STYLE12 {color: #B51C2E;
font-size: 18px;



}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="19"> </td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="162" height="454" align="center" valign="top" background="images/leftbj.gif" bgcolor="#FFFFFF"><img src="images/left1.gif" width="161" height="39" />
<table width="161" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<%
sql="select * from Jobsclass order by xh desc"
rs.open sql,conn,1,1
do while not rs.eof
if len(trim(rs("mz")))>10 then
classname=left(trim(rs("mz")),9)&"..."
else
classname=trim(rs("mz"))
end if
%>

<td width="36" height="34"> </td>
<td width="142" align="left">
<img src="images/ioc1.gif" width="12" height="12" />  <a href=jobslist.asp?fn=<%=rs("xh")%> target="_blank" class="aWhite" ><%=classname%></a></td>
<tr></tr><tr>
<%rs.movenext
loop
rs.close%>
<td width="36" height="34"> </td>
<td width="142" align="left">
<img src="images/ioc1.gif" width="12" height="12" />  <a href="jobstop.asp" class="aWhite">最新职位</a></td></tr><tr>
<td width="36" height="34"> </td>
<td width="142" align="left"><img src="images/ioc1.gif" width="12" height="12" />  <a href="jobslist.asp" class="aWhite">浏览全部职位</a></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<br />
</td>
<td width="41" valign="top" background="images/bj01.gif" bgcolor="#FFFFFF"> </td>
<td width="577" valign="top" bgcolor="#FFFFFF">
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="32" align="left"><br />
     <img src="images/ioc1.gif" width="12" height="12" />  <span class="STYLE10">Job Search Result</span></td>

</tr>
<%
if Trim(Request("Search"))="" then
response.write "<script language=javascript>alert('对不起,请您输入查讯关键字');history.go(-1);</script>"



If Trim(Request("Search"))<>"" Then
Search=Trim(Request("Search"))
ShowStr=ShowStr&" 关键字:"&Search
Wherestr=Wherestr&" And (jobname like '%"&Trim(Request("Search"))&"%' )"
End If






%>


<tr>
<td colspan="2" align="center"><img src="images/line.gif" width="543" height="5" /></td>
</tr>
</table>
<table width="93%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="459" align="left" valign="top">

<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0" >


<td height="235" colspan="3" valign="top">

<tr>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#466997" >
<tr>
<td colspan="6"> </td><tr>
<td bgcolor="#96B9C8" >职位编号</td>
<td bgcolor="#96B9C8" >职位名称</td>
<td bgcolor="#96B9C8" >职位类型</td>
<td bgcolor="#96B9C8" >所在城市</td>
<td bgcolor="#96B9C8" >最低要求</td>
<td bgcolor="#96B9C8" >发布时间</td>
<tr>
</tr>
<tr>
<%
tsql="Select * From Jobs Where xh is not null "&Wherestr&" Order By xh"
Set Rs=Server.CreateObject("Adodb.RecordSet")

Rs.open tsql,objConn,1,1
%>
<td bgcolor="#CFD3D5"><%=Rs("bh")%></td>
<td bgcolor="#CFD3D5"><%=Rs("jobname")%></td>
<td bgcolor="#CFD3D5"><%=Rs("mz")%></td>
<td bgcolor="#CFD3D5"><%=Rs("adr")%></td>
<td bgcolor="#CFD3D5"><%=Rs("zd")%></td>
<td bgcolor="#CFD3D5"><%=Rs("sj")%></td>


</tr>
<%
Rs.MoveNext
End If%>
<tr>
<td colspan="6">  </td><tr>
<td colspan="6">  </td><tr>


</tr>
</table>

</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"><a href="#top"><font color="#FF0000">TOP↑</font></a>    </td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="foot.asp"-->



</body>
</html>
anbs01 2009-12-11
  • 打赏
  • 举报
回复
rs.movenext
下面应该加上loop或者next之类。
bing475879749 2009-12-11
  • 打赏
  • 举报
回复
的确是没头没尾的,至少你贴上来的代码是没头没尾的

最后多了一个
Rs.MoveNext
End If

PHP1983 2009-12-11
  • 打赏
  • 举报
回复
当然有呀,请仔细看下

28,406

社区成员

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

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