searchform.asp
Upload User: llrg7406
Upload Date: 2007-03-02
Package Size: 654k
Code Size: 1k
Development Platform:

Delphi

  1. <%@ Language=VBScript %>
  2. <!--#include file ="identify.asp"-->
  3. <HTML>
  4. <HEAD>
  5.   <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  6. <LINK rel="stylesheet" type="text/css" href="xcss.css">
  7. <SCRIPT LANGUAGE=javascript>
  8. <!--
  9. function check()
  10. {
  11. if (form1.radio3.checked)
  12. {
  13. form1.action = "searchhot.asp";
  14. }
  15. else
  16. {
  17. form1.action = "searchresult.asp";
  18. }
  19. return true;
  20. }
  21. //-->
  22. </SCRIPT>
  23. </HEAD>
  24. <BODY background=images/zapsmbknd.gif>
  25. <P><FORM action="searchresult.asp" target="searchresult" method=get id=form1 name=form1 onsubmit="return check();"> <INPUT id=search_text name=search_text size=15><INPUT id=ok type=submit value=搜索><br>
  26. <INPUT id=radio1 name=search_type style="HEIGHT: 17px; WIDTH: 14px" type=radio checked value="Name">书名
  27. <INPUT id=radio2 name=search_type style="HEIGHT: 17px; WIDTH: 14px" type=radio value="Author">作者
  28. <INPUT id=radio3 name=search_type style="HEIGHT: 17px; WIDTH: 14px" type=radio>十大热门<BR>
  29. </FORM></P>
  30. </BODY>
  31. </HTML>