📄 searchweb.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<%@ language=VBScript%>
<%Response.Buffer = True%>
<HTML>
<HEAD>
<TITLE>请选择您喜欢的搜索引擎</TITLE>
</HEAD>
  <BODY bgcolor=LightYellow>
    <P>&nbsp;</P>
    <P>请选择您喜欢的搜索引擎</P>
    <FORM method=post action="SearchWeb.asp">
      <P><SELECT size=1 name=select>
        <OPTION value="Sohu">搜狐</OPTION>
        <OPTION value="Sina">新浪</OPTION>
        <OPTION value="163">网易</OPTION>
        <OPTION value="Baidu">百度</OPTION>
      </SELECT></P>
      <P>请键入您要查询的关键字</P>
      <P><INPUT type=text name=TextField size=20></P>
      <P><INPUT type=submit value=提交>&nbsp;&nbsp;&nbsp;
         <INPUT type=reset value=全部重写></P>      
    </FORM>      
  </BODY>
</HTML>
<%
  If Request.Form("select") = "Sina" Then
    Response.Redirect("http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey="&_
      Request.Form("TextField"))
  ElseIf Request.Form("select") = "163" Then
    Response.Redirect("http://nisearch.163.com/Search?q="&_
      Request.Form("TextField"))
  ElseIf Request.Form("select") = "Sohu" Then
    Response.Redirect("http://site.search.sohu.com/website.jsp?key_word="&_
      Request.Form("TextField"))
  ElseIf Request.Form("select") = "Baidu" Then
    Response.Redirect("http://www1.baidu.com/baidu?word="&_
      Request.Form("TextField"))
  End If
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -