function.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<script language="javascript">
function doPage(pp){
		productsearch.page.value=pp;
		productsearch.submit();
	}
function hgh(){
page=document.form1.page_go.value;
document.productsearch.page.value=page;
document.productsearch.submit();
}

</script>
<%function pages()
if rs.pagecount>1 then%>
  <form name="form1">共<%=rs.recordcount%>条记录
  <% if ipage>1  then %>
  <a class="b-12" style="cursor:hand" HREF onclick="doPage(1)">首页</a>&nbsp; <a class="b-12" style="cursor:hand" HREF onclick="doPage(<%=ipage-1%>)">上页</a>&nbsp;
  <% else %>
  首页&nbsp; 上页&nbsp;
  <% end if%>
  <%if not rs.eof then%>
  <a class="b-12" style="cursor:hand" HREF  onClick="doPage(<%=ipage+1%>)">下页</a> &nbsp; <a class="b-12" style="cursor:hand" HREF onClick="doPage(<%=rs.pagecount%>)">末页</a>&nbsp;
  <% else %>
  下页&nbsp; 末页&nbsp;
  <% end if %>
  第<%=ipage%>页/共<%=rs.pagecount%>页 转到
  <select name="page_go" onchange="hgh()">
    <%for i=1 to rs.pagecount%>
    <option value="<%=i%>" <%if cint(ipage)=i then response.write "selected"%> >第<%=i%>页</option>
    <%next%>
  </select></form>
  <%end if
  end function
function testdb(object)
if len(object)>0 then

	object=replace(object,"<","")
	object=replace(object,"'","")
	object=replace(object,">","")
	testdb=trim(object)
end if
end function

function msg_error(haha)
%>
<script language="javascript">
window.alert('<%=haha%>');
window.history.back(-1);
</script>
<%
end function
%>