教育系统应用

开发平台：

Delphi

searchform.asp：源码内容

							<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<HTML>
<HEAD>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<LINK rel="stylesheet" type="text/css" href="xcss.css">
<SCRIPT LANGUAGE=javascript>
<!--
function check()
{
	if (form1.radio3.checked)
	{
		form1.action = "searchhot.asp";
	}
	else
	{
		form1.action = "searchresult.asp";
	}
	return true;
}
//-->
</SCRIPT>
</HEAD>
<BODY background=images/zapsmbknd.gif>
<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>
<INPUT id=radio1 name=search_type style="HEIGHT: 17px; WIDTH: 14px" type=radio checked value="Name">书名
<INPUT id=radio2 name=search_type style="HEIGHT: 17px; WIDTH: 14px" type=radio value="Author">作者
<INPUT id=radio3 name=search_type style="HEIGHT: 17px; WIDTH: 14px" type=radio>十大热门<BR>
</FORM></P>
</BODY>
</HTML>

						