index.asp

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

<%
dim conn,connstr,rs
set conn=server.createobject("ADODB.connection")     
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("jdk.mdb")
conn.open connstr
set rs=server.createobject("adodb.recordset")
%><!--开始填充城市列表-->
<%
sql = "select id,jingdianname,keywords from lvyoujingdianinfo where yongtu like '%aa2%' order by jingdianname"
rs.open sql,conn,1,1
'response.write rs("jingdianname")
%>
<SCRIPT language=JavaScript>
<!--
var onecount1;
onecount1=0;
subcat1 = new Array();
<%
count = 0
do while not rs.eof
%>
subcat1[<%=count%>] = new Array("<%= trim(rs("jingdianname"))%>","<%= trim(rs("keywords"))%>","<%= trim(rs("id"))%>");
<%
	count = count + 1
	rs.movenext
loop
rs.close
%>
onecount1=<%=count%>;
function changelocation1(sheng){
	document.hotelsch.shi.length = 0;
	var sheng=sheng;
	var i;
	document.hotelsch.shi.options[0] = new Option('地区','all');
	for (i=0;i < onecount1; i++){
		if (subcat1[i][1] == sheng){
				document.hotelsch.shi.options[document.hotelsch.shi.length] = new Option(subcat1[i][0], subcat1[i][2]);
}
	}
	changelocation2(document.hotelsch.shi.options[document.hotelsch.shi.selectedIndex].value);
}
 //-->
</SCRIPT>
<!--结束填充城市列表-->





<!--开始填充区县列表-->
<%
sql = "select id,jingdianname,keywords from lvyoujingdianinfo where yongtu like '%aa3%' order by jingdianname"
rs.open sql,conn,1,1
%>
<SCRIPT language=JavaScript>
<!--
var onecount2
onecount2=0;
subcat2 = new Array();
<%
count = 0
do while not rs.eof
%>
subcat2[<%=count%>] = new Array("<%= trim(rs("jingdianname"))%>","<%= trim(rs("keywords"))%>","<%= trim(rs("id"))%>");
<%
	count = count + 1
	rs.movenext
loop
rs.close
set rs = nothing
%>onecount2=<%=count%>;
function changelocation2(shi){
	document.hotelsch.xian.length = 0;
	var shi=shi;
	var i;
	document.hotelsch.xian.options[0] = new Option('区域','all');
	for (i=0;i < onecount2; i++){
		if (subcat2[i][1] == shi){
			document.hotelsch.xian.options[document.hotelsch.xian.length] = new Option(subcat2[i][0], subcat2[i][2]);
		}
	}
}
 //-->
</SCRIPT>
<!--结束填充区县列表-->








                        <!--宾馆查询开始-->
                              
<TABLE border=0 cellPadding=1 cellSpacing=0 width=39% valign="top">
  <FORM action="a.asp" method="post" name="hotelsch">
    <TR> 
      <TD nowrap><FONT color=orange>*</FONT>选择省州 
        <select name="sheng" onChange="changelocation1(document.hotelsch.sheng.options[document.hotelsch.sheng.selectedIndex].value)">
          <option value='all'>省(州)</option>
          <%
set rs=server.createobject("adodb.recordset")
sql = "select id,jingdianname from lvyoujingdianinfo where yongtu like '%aa1%' order by jingdianname"
rs.open sql,conn,1,1
do while not rs.eof
	response.write "<option value='"&rs("id")&"'>"&rs("jingdianname")&"</option>"+chr(13)+chr(10)
	rs.movenext
loop
rs.close
conn.close
set conn=nothing
%>
        </select></TD>
      <TD nowrap><FONT color=orange>*</FONT>选择地区 
        <select name="shi" onChange="changelocation2(document.hotelsch.shi.options[document.hotelsch.shi.selectedIndex].value)">
          <option value="all">地区</option>
        </select> </TD>
      <td nowrap><FONT color=orange>*</FONT>选择区域 
        <select name="xian" onblur="//checksiteurl(document.hotelsch.shi.options[document.hotelsch.shi.selectedIndex].value);">
          <option value="all">区域</option>
        </select> </td>
      <script LANGUAGE="javascript">
                                        setTimeout('changelocation1(document.hotelsch.sheng.options[document.hotelsch.sheng.selectedIndex].value);', 1000);
                                    </script>
    </TR>
    <TR>
      <TD nowrap><input type="submit" name="Submit" value="提交"></TD>
      <TD nowrap><input type="reset" name="Submit2" value="重置"></TD>
      <td nowrap>&nbsp;</td>
    </TR>
  </FORM>
</TABLE>
                        <!--宾馆查询结束-->
</body>
</html>