newssearch.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 106 行

ASP
106
字号
<%@ Language=VBScript %>


<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<!--#include file="Function.asp"-->
<!--#include file="Menu.asp"-->
<html>
	<head>
		<title></title>
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
		<meta name="description" content=" ">
		<meta name="keywords" content=" ">
		<link rel="stylesheet" href="../Css/css.css" type="text/css">


	</head>
	<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
	

			<form action="NewsManage.asp" action="post" ID="Form1">
			<table border="0" width=90% cellspacing="0" cellpadding="0" ID="Table1" align="center">
					<tr  class="header" height="20">
						<td colspan="2" align="center">
							内容查询</td>
					</tr>
					<tr height="10">
						<td colspan="2" align="center">
							</td>
					</tr>
							<tr height=25>
						<td width="20%" align="right">
							关键字:
						</td>
						<td width="80%">
							<INPUT type="text" ID="Text3" NAME="key">
						</td>
					</tr>
						<tr height=25>
						<td width="20%" align="right">
							标题:
						</td>
						<td width="80%">
							<INPUT type="text" ID="Text2" NAME="News_title">
						</td>
					</tr>
			
					<tr height=25>
						<td width="20%" align="right">
							发布日期:
						</td>
						<td width="80%">
								<select name="years" ID="Select1">
              <%dim i
                for i=year(now()) to 1995 step -1
			        if i=cint(year(now())) then
				       Response.Write "<option value='"&i&"' selected>"&i&"</option>"
                    else
				       Response.Write "<option value='"&i&"'>"&i&"</option>"
                    end if
                next%>
                </select> 
                -
                <select name="months" ID="Select2">
                <%
                for i=12 to 1 step -1
			        if i=cint(month(now())) then
				       Response.Write "<option value='"&i&"' selected>"&i&"</option>"
                    else
				       Response.Write "<option value='"&i&"'>"&i&"</option>"
                    end if
                next%>
            </select>
                   -
                <select name="days" ID="Select3">
                <%
                for i=31 to 1 step -1
			        if i=cint(day(now())) then
				       Response.Write "<option value='"&i&"' selected>"&i&"</option>"
                    else
				       Response.Write "<option value='"&i&"'>"&i&"</option>"
                    end if
                next%>
            </select>					
            模糊
			<input value=0 name=state type=radio  ID="Radio3" checked> 
							具体
        <input value=1 name=state type=radio  ID="Radio4">
						</td>
					</tr>


					<tr>
						<td width="30%">
						</td>
						<td width="70%">
							<INPUT type="submit" value="查 询" ID="Submit1" NAME="Submit1">
						</td>
					</tr>
				</table>
			</form>
</body>
</html>
<!--#include virtual="/Include/DBClose.asp"--> 

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?