📄 lawrulesearch.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%
action=request("action"):WS_Laid=request("WS_Laid"):searchtype=request("searchtype"):keywords=request("keywords"):searchmode=request("searchmode"):HX_Conn Dir:ColumnName="":Tablename="HX_lawruleSearch"
select case action
case "search"
Orderby=" where 1=1"
if searchtype>1 and not IsDate(keywords) then
Call HX_GoBack("日期格式错误！","")
end if
if searchmode=1 then
if searchtype=1 then
Orderby=Orderby&" and WS_LawRuleTitle like '%"&keywords&"%'"
elseif searchtype=2 then
Orderby=Orderby&" and WS_StartCaseDate=#"&keywords&"#"
else
Orderby=Orderby&" and WS_StartDate=#"&keywords&"#"
end if
else
if searchtype=1 then
Orderby=Orderby&" and WS_LawRuleTitle='"&keywords&"'"
elseif searchtype=2 then
Orderby=Orderby&" and WS_StartCaseDate=#"&keywords&"#"
else
Orderby=Orderby&" and WS_StartDate=#"&keywords&"#"
end if
end if
case else
Orderby=" ORDER BY WS_Laid DESC"
end select
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>法律法规查询</title>
<link rel=stylesheet type=text/css href="../HXinclude/HX_Style.css">
<script src="../hxinclude/HX_function.js"></script>
</head>
<body topmargin="20" leftmargin="0" bottommargin="25">
<table width="596" border="0" cellspacing="1" cellpadding="0" align=center bgcolor="#115F8F">
<tr>
<td colspan="2" bgcolor=ffffff><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" background="../hximages/titleline.gif"><font class="fontmenu">常用网址查询</font></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor=cccccc>
<tr bgcolor="ffffff">
<td height="24"><table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#A1BBE0">
<tr bgcolor="#f1f1f1">
<td width="12%"><div align="center">序号</div></td>
<td width="44%" bgcolor="#f1f1f1"><div align="center">法规名称</div></td>
<td width="21%" bgcolor="#f1f1f1"><div align="center">实施日期</div></td>
<td width="23%" bgcolor="#f1f1f1"><div align="center">颁布日期</div></td>
</tr>
<%if rs.recordcount<=0 then
response.Write "<tr><td colspan=4 height=25 bgcolor=ffffff align=center><font color=red>暂 无 数 据!</font></td></tr>"
else
rs.PageSize =15 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
ii=0
do while not rs.EOF
%>
<tr <%if ii mod 2=0 then response.write "bgcolor='#FFFFFF'" else response.write "bgcolor='#f1f1f1'"%>>
<td align=center><%=rs("WS_Laid")%></td>
<td><a href="javascript:" onclick="openwin(600,500,'lawruleview.asp?WS_Laid=<%=rs("WS_Laid")%>')"><%=rs("WS_LawRuleTitle")%></a></td>
<td>
<div align="center">
<%if rs("WS_StartCaseDate")<date then
response.write WS_S.FormatColor(WS_S.Format_time(rs("WS_StartCaseDate"),5),"red")
elseif rs("WS_StartCaseDate")=date then
response.write WS_S.FormatColor(WS_S.Format_time(rs("WS_StartCaseDate"),5),"#065485")
else
response.write WS_S.FormatColor(WS_S.Format_time(rs("WS_StartCaseDate"),5),"blue")
end if%>
</div></td>
<td>
<div align="center">
<%if rs("WS_StartDate")<date then
response.write WS_S.FormatColor(WS_S.Format_time(rs("WS_StartDate"),5),"red")
elseif rs("WS_StartDate")=date then
response.write WS_S.FormatColor(WS_S.Format_time(rs("WS_StartDate"),5),"#065485")
else
response.write WS_S.FormatColor(WS_S.Format_time(rs("WS_StartDate"),5),"blue")
end if%>
</div></td>
</tr>
<%
ii=ii+1
if ii>=rs.PageSize then Exit Do
rs.movenext
loop
call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",4)
end if
call WS_S.HX_RSClose(rs)
%>
<form name="form1" method="post" action="?action=search"><tr bgcolor="#FFFFFF">
<td colspan="5">查询：<select name="searchtype" onChange="if(document.form1.searchtype.options[document.form1.searchtype.selectedIndex].value!=1) {document.form1.searchmode.disabled = true;document.form1.keywords.value='<%=date()%>';}else {document.all.form1.searchmode.disabled = false;document.form1.keywords.value='';}">
<option value="1" selected>法规名称</option>
<option value="2">实施日期</option>
<option value="3">颁布日期</option>
</select>
<input name="keywords" type="text" size="25" maxlength="50">
<input name="searchmode" type="checkbox" value="1" id="mh" class="radio"><label for=mh>模糊</label> <label for=jq></label>
<input type="submit" name="Submit2" value=" 搜 索 ">
</td>
</tr></form>
</table></td>
</tr>
<tr bgcolor="#f1f1f1">
<td width="100%" height="24" align="right"><input type="submit" name="Submit" value=" 打 印 " onclick="javascript:window.print();"></td>
</tr>
</table></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -