⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 feedbacksearch.asp

📁 ASP编写的一个公司网站的源程序
💻 ASP
字号:
<%@ Language=VBScript %>


<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.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="FeedbackManage.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="name">
						</td>
					</tr>
						<tr height=25>
						<td width="20%" align="right">
							关键字:
						</td>
						<td width="80%">
							<INPUT type="text" ID="Text2" NAME="keyname">
						</td>
					</tr>
					<tr height=25>
						<td width="20%" align="right">
							回复状态:
						</td>
						<td width="80%">
			<SELECT ID="Select4" NAME="replystate">
				<option value="">---不限---</option>
				<option value="0">未回复</option>
				<option value="1">已回复</option>
			</SELECT>
						</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=datestate type=radio  ID="Radio3" checked> 
							具体
        <input value=1 name=datestate 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 + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -