📄 searchinfo.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<html>
<head>
<title><%=webname%>---联系QQ:372198897，联系邮箱ping858788@yahoo.com.cn，网站www.1227.net，谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/main_style.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!--
function check()
{
   if(checkspace(document.searchform.searchkey.value !='请输入关键字'))  {
	document.searchform.searchkey.focus();
	alert("请输入查讯关键字！");
	return false;
  }
  if(checkspace(document.searchform.searchkey.value))  {
	document.searchform.searchkey.focus();
	alert("请输入查讯关键字！");
	return false;
  }
   document.searchform.submit();
}
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
//-->
</script><!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<%
dim rssearch
dim sqlsearch
set rssearch=server.createobject("adodb.recordset")
sqlsearch = "select * from catson order by catsonid asc"
rssearch.open sqlsearch,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rssearch.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rssearch("catsonname"))%>","<%= trim(rssearch("catid"))%>","<%= trim(rssearch("catsonid"))%>");
        <%
        count = count + 1
        rssearch.movenext
        loop
        rssearch.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.catsonid.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.myform.catsonid.options[document.myform.catsonid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
		}
</script>
</HEAD>
<body topmargin=0 leftmargin=0 bgcolor=<%=bgcolor%>>


    <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
             <td class=td align=center height=25><font class=fblue>&nbsp;☆vqqq拍卖搜索☆</font> 请在下边选择分类，并输入搜索关键字</td>
        </tr>
        <tr> 
          <td height="15">
	<table width="450" height="22" border="0" cellpadding="0" cellspacing="0">
             <FORM action="research.asp" name="myform" method="post" target="_blank">
              <tr class=td> 
                  <td width="350" align=center>
		<%
	        sqlsearch = "select * from cat"
	        rssearch.open sqlsearch,conn,1,1
		if rssearch.eof and rssearch.bof then
		response.write "请先添加栏目。"
		response.end
		else
		%>
              <select name="catid" onChange="changelocation(document.myform.catid.options[document.myform.catid.selectedIndex].value)" size="1">
		<option value="0" selected>所有商品分类</option>
                <option value="<%=trim(rssearch("catid"))%>"><%=trim(rssearch("catname"))%></option>
                <%
                dim selclass1
		selclass1=rssearch("catid")
		rssearch.movenext
		do while not rssearch.eof
		%>
                <option value="<%=trim(rssearch("catid"))%>"><%=trim(rssearch("catname"))%></option>
                <%
		rssearch.movenext
		loop
		end if
		rssearch.close
		%>
              </select>
              <select name="catsonid">
		<option selected value=""></option>
                <%sqlsearch="select * from catson where catid="&selclass1
		rssearch.open sqlsearch,conn,1,1
		if not(rssearch.eof and rssearch.bof) then
		%>
                <option value="<%=rssearch("catsonID")%>"><%=rssearch("catsonname")%></option>
                <% rssearch.movenext
		do while not rssearch.eof%>
                <option value="<%=rssearch("catsonID")%>"><%=rssearch("catsonname")%></option>
                <% rssearch.movenext
		loop
		end if
	        rssearch.close
	        set rssearch = nothing
		%>
              </select>
              <input name=name1 type="text" size="12" onfocus="if(this.value=='请输入关键字')this.value='';" size=10 value=请输入关键字>
              </td>
              <td> <div align="center"> 
                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td height="4"></td>
                        </tr>
                        <tr> 
                          <td><div align="center"> 
                              <input type="submit" name="submit" value="搜索">
                            </div></td>
                        </tr>
                      </table>
                    </div></td>
              </tr>
   	</form>
            </table></td>
        </tr>
      </table>
	</td>
    <td width="1" class=td></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -