请高手们帮忙看一下为什么我这个asp的搜索功能搜索不了？请帮忙修改一下为谢！

本文链接：https://blog.csdn.net/jiqi6614/article/details/53970065
<!--#include file="conn1.asp"--> 

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>VIP管理系统</title>

<link rel="stylesheet" rev="stylesheet" href="css.css" type="text/css" media="all" />

<script language="JavaScript">

                   <!--

      function test(){ 

          if (document.form2.page.value=="" || isNaN(document.form2.page.value))  {

               alert("输入页数必须为数值型");

               document.form2.page.focus();

               return false;

              }

  return true;

}

// -->

</script>



<script>

function del ()  //用于判断记录有没有选中的函数

{

var flag=true;

var temp="";

var  tmp;

if((document.form1.answer.length+"")=="undefined") {tmp=1}else{tmp=document.form1.answer.length}

if (tmp==1){

if (document.form1.answer.checked){

    flag=false;

  temp=document.form1.answer.value

}

}else{

for (i=0;i<document.form1.answer.length;i++) {

if (document.form1.answer[i].checked){

if (temp=="")

{

flag=false;

temp=document.form1.answer[i].value

}else{

flag=false;

temp = temp +","+ document.form1.answer[i].value

}

}

}

} 

if (flag){ alert("对不起，你还没有选择！")}

else

{   name=document.form1.name.value

        //alert(name)

          if (confirm("确实要删除？")){

        window.location="delnews.asp?id=" + temp;

}

}

return !flag;

}

</script>



<style type="text/css">

<!--

@import url("css.css");

a {

	font-size: 12px;

}

tr {

	font-size: 12px;

}

.style1 {font-size: 24px}

.STYLE2 {color: #FD8A00}

.STYLE4 {color: #000000}

-->

</style>

</head>

<body>



<span class="STYLE2">

<script language=Javascript>

function checkall(all)//用于判断全选记录的函数

{

  var a = document.getElementsByName("answer");

  for (var i=0; i<a.length; i++) a[i].checked = all.checked;

}

</script>

</span>

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

  <tr>

    <td width="216" height="30" bgcolor="#FD8A00" class="STYLE2">&nbsp;</td>

    <td width="552" bgcolor="#FD8A00" class="STYLE2"><%

					If session("admin")<>"" then

					        Response.Write"&nbsp;&nbsp;<a href='backup.asp' style='color:black'>数据备份</a>&nbsp;"

					        Response.Write"&nbsp;&nbsp;<a href='sync.asp' style='color:black'>保存数据</a>&nbsp;"

						Response.Write"&nbsp;&nbsp;<a href='admin_modpwd.asp' style='color:black'>修改管理密码</a>&nbsp;"

						Response.Write"&nbsp;&nbsp;<a href='add.asp' style='color:black'>申请VIP卡</a>&nbsp;"

						Response.Write"&nbsp;&nbsp;<a href='loginout.asp' style='color:black'>退出</a>"

					Else

						Response.Write"&nbsp;&nbsp;<a href='index.asp' style='color:black'>后台管理登录</a>"

						

					End If

	%></td>

  </tr>

</table>

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

  <tr>

    <td class="STYLE2"></td>

  </tr>

</table>

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

  <tr>

    <td valign='top' class="STYLE2">

<%

	page = CLng(request("page"))							'利用CLng函数把page值转换为Long型

	judge=request("judge")

	judge2=request("judge2")

	judge3=0

	sqlcmd="select * from data Order By cards Desc"

	rs.Open sqlcmd,newconn,1,2

%>

<table border="0" cellpadding="15" cellspacing="0" width="768" align="center">

    <tr>

      <td height="10" align="left" valign="middle">

	  <form name="form2" method="post" action="index_show.asp">

      VIP卡搜索：

      <select name="sokind" class="celect">

        <option value="name">持卡人</option>

        <option value="cards">VIP卡号</option>

        <option value="network">申请网点</option>

      </select>

      关键字：

      <input name="keyword" type="text" class="input" maxlength="19">

      <input name="Submit2" type="submit" class="button" value=" 搜索 ">

	  </form>

	  <table width="768" border='1'  align="center" cellpadding='0' cellspacing='0' bordercolor="#CCCCCC" id=TabDocMain>

          <tr bgcolor="#FD8A00">

            <td width="85" height="20" align=center bgcolor="#FD8A00">持卡人</td>

            <td width="181" height="20" align=center bgcolor="#FD8A00">卡号</td>

            <td width="123" height="20" align=center bgcolor="#FD8A00">联系电话</td>

            <td width="121" height="20" align=center bgcolor="#FD8A00">申请时间</td>

            <td width="82" height="20" align=center bgcolor="#FD8A00">申请网点</td>

            <td width="73" height="20" align=center bgcolor="#FD8A00">VIP等级 </td>

            <td width="87" height="20"  align=center bgcolor="#FD8A00"> 操作</td>

          </tr>

          <%

			if not (rs.EOF or rs.BOF) then

			rs.MoveFirst

			rs.PageSize = 30  '每页显示的条数  

			If page < 1 Then page = 1 

			If page > rs.PageCount Then page = rs.PageCount  

			rs.AbsolutePage = page

			For ipage = 1 To rs.PageSize

			%>

          <tr>

            <td height="20" align=left width="85"><div align="center"><%=rs("name")%></div></td>

            <td height="20" align=left width="181"><div align="center"><%=rs("cards")%></div></td>

            <td height="20" align=left width="123"><div align="center"><%=rs("phone")%></div></td>

            <td height="20" align=left width="121"><div align="center"><%=rs("time")%></div></td>

            <td height="20" align=left width="82"><div align="center"><%=rs("network")%></div></td>

            <td height="20" align=left width="73"><div align="center"><%=rs("level")%></div></td>

            <td height="20" align=center width="87"><%

								If session("Admin")<>"" then

									Response.Write"&nbsp;<a href='kymod.asp?id="&Rs("id")&"' style='color:red'>修改</a>"

									Response.Write"&nbsp;<a href='del.asp?id="&Rs("id")&"' style='color:red'>删除</a>"

								End If

								%></td>

          </tr>

          <%   

				rs.MoveNext      

				If rs.EOF Then Exit For   

				Next   

			%>

        </table>

      </form>

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

        <tr>

          <form onSubmit="return test();" method="get" action="index_show.asp" id=form2 name=form2>

            <td width="220" height="25" bgcolor="#F0F0F0" ><%

				If page = 1 Then 

				   Response.Write "<font class='white'>首页</font>" 

				End If

				If page <> 1 Then 

				   Response.Write "<a href=index_show.asp?page=1 class='yellow'>首页</a>" 

				   Response.Write "　<a href=index_show.asp?page=" & (page - 1) & " class='yellow'>上一页</a>" 

				End If

				If page <> RS.PageCount Then 

				   Response.Write "　<a href=index_show.asp?page=" & (page + 1) & " class='yellow'>下一页</a>" 

				   Response.Write "　<a href=index_show.asp?page=" & RS.PageCount & " class='yellow'>最后一页</a>" 

				End If 

				If page = RS.PageCount Then 

				   Response.Write "　<font class='white'></font>" 

				End If

			  %></td>

            <td width="286" height="25" bgcolor="#E4E4E4" >转到

              <%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>"  '显示输入页数框并将page,judge参数传递下去%>

              页

              <label>

              <input type="submit" name="Submit" value="确定">

              </label></td>

            <td width="262" bgcolor="#E4E4E4" ><span class="white">VIP总数：<%=rs.recordCount%>个　页数：<%=rs.PageCount%>页 当前是：第<%=page%>页 </span></td>

          </form>

        </tr>

        <tr>

          <td class="white" colspan="3" height="25" ></td>

        </tr>

      </table>      

      <table width="768" border="0" cellspacing="0" cellpadding="0">

        <tr>

          <td><%else%></td>

          <td><table border="0" cellpadding="0" cellspacing="0" >

              <td height="25" >对不起，还没有数据！</td>

          </table></td>

          <td><%end if%></td>

        </tr>

    </table></td>

  </tr>

</table>

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

  <tr></tr>

</table>

<%

if session("admin") ="" then

response.Redirect "index.asp"

end if

%>

</body>

</html>