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

📄 srch.asp

📁 asp的新闻网站
💻 ASP
字号:
<%Response.Buffer=true%>
<%
'设计:潘树文
'开发时间:2001.12
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<link rel="stylesheet" href="../script/style.css" type="text/css">
<script src="../script/trim.js" language="JavaScript"></script>
<script src="../script/validdate.js" language="JavaScript"></script>
<script language='JavaScript'>
function check(form1){
	if (isNaN(form1.infoId.value))
		{alert('文章编号必须是数字!');
		form1.infoId.focus();
		form1.infoId.select();
		return (false);
		}
	
	for (var i=0;i<4;i++)
	{if ((form1.elements[i].value.indexOf("<") !=-1) || (form1.elements[i].value.indexOf(">") !=-1)||(form1.elements[i].value.indexOf("'") !=-1)||(form1.elements[i].value.indexOf("\"") !=-1))
		{alert("字段中不允许含有标注!");
		form1.elements[i].focus ();
		form1.elements[i].select ();
		return (false);
		}
	}	
return true;
}	
function isDate(theYear,theMonth,theDay)
{
	//定义年,月,日变量,赋值
	var selYear;
	var selMonth;
	var selDay;
	
	selYear=parseInt(theYear);
	selMonth=parseInt(theMonth);
	selDay=parseInt(theDay);
	//定义12月的天数数组,赋值
	var arrMonthDay;
	arrMonthDay=new Array(12);
	arrMonthDay[0]=31;
	arrMonthDay[1]=28;
	arrMonthDay[2]=31;
	arrMonthDay[3]=30;
	arrMonthDay[4]=31;
	arrMonthDay[5]=30;
	arrMonthDay[6]=31;
	arrMonthDay[7]=31;
	arrMonthDay[8]=30;
	arrMonthDay[9]=31;
	arrMonthDay[10]=30;
	arrMonthDay[11]=31;
	
	//判断所选的日期是否合法
	if (arrMonthDay[selMonth-1]>=selDay)
	{
		return(true);
	}
	else
	{

		//判断是否选为润年的二月
		if ((selMonth==2)&&((selYear%4==0 && selYear%100!=0) ||(selYear%100==0 && selYear%400==0) ))
		{
			if (selDay<=29)
				return(true) ;
			else
				return(false) ;
		}
		else
			{return(false) ;}
	}
}


function daychange()
	{
	
	var year
	var month
	var day
	year=document.add.year1.options[document.add.year1.selectedIndex].value;
	month=document.add.month1.options[document.add.month1.selectedIndex].value;
	day=document.add.day1.options[document.add.day1.selectedIndex].value;
	if (!(isDate(year,month,day)))
		{
		alert("您的日期有错误!");
		document.add.month1.selectedIndex=0;
		document.add.day1.selectedIndex=0;
		}
	}
	function daychange2()
	{
	var year
	var month
	var day

	year=document.add.year2.options[document.add.year2.selectedIndex].value;
	month=document.add.month2.options[document.add.month2.selectedIndex].value;
	day=document.add.day2.options[document.add.day2.selectedIndex].value;
	
	if (!(isDate(year,month,day)))
		{
		alert("您的日期有错误!");
		document.add.month2.selectedIndex=0;
		document.add.day2.selectedIndex=0;
		}
	}
</script>

</head>
<body bgcolor="#FFFFE0">
<%
set rsSelect=server.CreateObject("adodb.recordset")
sql="select menuname,remdclass from news2_menu where menuid='"&request("menuid")&"'"
rsselect.open sql,conn,2,3

%>
<form method=POST action=list.asp?flag=<%=request("flag")%> name=add onsubmit="return check(this);">
	<p align=center><b><font size=4 color=#0000FF><u>推荐查询</u></font></b></p>
	<div align=center><center>
	<table style="border: 1 solid #0000FF" width=85%>
		<%if not rsselect.EOF then%>
		<tr>
			<td style="border: 1 solid #0000FF" align=right>推荐栏目名:</td>
			<td style="border: 1 solid #0000FF"><%=rsselect("menuname")%></td>
		</tr>
		<%remdclass=rsselect("remdclass") '记忆栏目分类
		menuname=rsselect("menuname")
		end if
		rsselect.Close
		%><input type=hidden value=<%=request("menuid")%> name=menuid><!--记忆推荐位-->
		<input type=hidden value=<%=request("commendid")%> name=commendid>
		<%if remdclass="1" then%>
		<tr>
		    <td style="border: 1 solid #0000FF" align=right>新闻来源:</td>
		    <td style="border: 1 solid #0000FF"><%=menuname%>
		    <input type=hidden value=<%=request("menuid")%> name=menuid1></td>
		</tr>
		<%else%>
		<tr>
			<td style="border: 1 solid #0000FF" align=right>推荐来源栏目:</td>
			<td style="border: 1 solid #0000FF">
				<select size=1 name=menuid1>
					<%if left(trim(request("menuid")),3)="012" then
					sqlSelect ="select menuId,menuName from news2_menu where remdclass='1' "
					else
					sqlSelect ="select menuId,menuName from news2_menu where remdclass='1' and left(menuid,3)='"&left(trim(request("menuid")),3)&"'"
					end if
					rsSelect.open sqlSelect,conn,3,1
					while not rsSelect.eof
					if rsselect("menuid")=request("menuid") then
					%><option value=<%=rsSelect("menuId")%> selected><%=rsSelect("menuName")%>
					<%
					else%>
					<option value=<%=rsSelect("menuId")%>><%=rsSelect("menuName")%>
					<%
					end if
					rsSelect.movenext
					wend
					rsSelect.close%>
				<option value=全部栏目>全部栏目
				</select>
			</td></tr>
			<%end if%>
		<tr>
			<td style="border: 1 solid #0000FF" align=right>文章编号:</td>
			<td style="border: 1 solid #0000FF"><input type=Text name=infoId size=20 maxLength=10></td>
		</tr>
		<tr>
			<td style="border: 1 solid #0000FF" align=right>文章标题:</td>
			<td style="border: 1 solid #0000FF"><input type=Text name=newsTitle size=20 maxLength=400></td>
		</tr>
		<tr>
		<td style="border: 1 solid #0000FF" align=right>更新时间:</td>
		<td  style="border: 1 solid #0000FF" align=left ><p>是否按时间搜索<input type="checkbox" name="regtime" value="regtimeyes">
          <br>起始日期: 
          <select name="year1" size="1" style=" width:65px" onChange="daychange();">
          <%for i=1999 to 2010
		      if i=year(now) then%> 
				<option selected value="<%=cstr(year(now))%>"><%=year(now)%></option>
		      <%else%> 
				<option value="<%=cstr(i)%>"><%=cstr(i)%></option>
              <%end if
			next %> 
          </select>
          年<select name="month1" size="1" onchange="daychange();">
          <%for i=1 to 12
		      if i=month(now) then%> 
				  <option selected value="<%=month(now)%>"><%=month(now)%></option>
			  <%else%> 
				  <option value="<%=i%>"><%=i%></option>
              <%end if
			next%> 
          </select>
          <select name="day1"  size="1" onchange="daychange();">
            <%for i=1 to 31
			    if i=1 then%> 
					<option selected value=<%=i%>><%=i%></option>
				<%else%> 
					<option value="<%=i%>"><%=i%></option>
				<%end if
            next%> 
          </select>
          日<br>终止日期: 
          <select name="year2" size="1" style=" width:65px" onChange="daychange2();">
            <%for i=1999 to 2010
			    if i=year(now) then%> 
					<option selected value="<%=cstr(year(now))%>"><%=year(now)%></option>
				<%else%> 
					<option value="<%=cstr(i)%>"><%=cstr(i)%></option>
				<%end if
			  next %> 
          </select>
          年<select name="month2" size="1" onChange="daychange2();">
            <%for i=1 to 12
			    if i=month(now) then%> 
					<option selected value="<%=month(now)%>"><%=month(now)%></option>
				<%else%> 
					<option value="<%=i%>"><%=i%></option>
				<%end if
			  next%> 
          </select>
          月<select name="day2"  size="1" onChange="daychange2();">
            <%for i=1 to 31
			    if i=day(now) then%> 
					<option selected value="<%=day(now)%>"><%=day(now)%></option>
				<%else%> 
					<option value="<%=i%>"><%=i%></option>
				<%end if
			  next%> 
          </select>
          日 </p>
        </td>
		</tr>
		<tr>
			<td style="border: 1 solid #0000FF" align=right>列表排序:</td>
			<td style="border: 1 solid #0000FF">添加时间:<input type="radio" name="indexorder" value="regtime" checked><br>&nbsp;&nbsp;点击数:<input type="radio" name="indexorder" value="clicknum"></td>
		</tr>
		<tr>
			<td style="border: 1 solid #0000FF" colspan=2 align=center><input type=submit value=' 查询 ' name=submit> <input type=reset value=' 重写 ' name=reset></td>
		</tr>
	</table>
	</center></div>
</form>
</body>
</html>

⌨️ 快捷键说明

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