📄 j_declaremain.asp
字号:
</td>
<td width="410" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" height="10">
<p align="left"><select size="1" name="stype">
<option value="">请选择：</option>
<%for i=0 to ubound(DeclareType)%>
<option value="<%=DeclareType(i)%>"
<%
if stype<>"" then
if stype=DeclareType(i) then
response.write ("selected")
end if
end if
%>
><%=DeclareType(i)%></option>
<%next%>
</select>
</td>
<td width="103" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" height="10">
<p align="center"> <input type="submit" name=cxbtn value="查询" style="background-color: #D1D1D1; text-align: -5; border-style: solid; border-width: 1" class="hand">
</p>
</td>
</tr>
</table>
</form>
<% set rs=server.createobject("adodb.recordset")
rs.CursorLocation=3
rs.CursorType = adOpenStatic %>
<%if bz="1" then
'查询
%>
<%
if ddate<>"" and edate<>"" then
sql="select * from J_tblDeclare where left(DeclareDate,10)>='"&ddate&"'and left(DeclareDate,10)<='"&edate&"' and not declaredate is null and declaredate<>''"
end if
if stype<>"" then
sql=sql &"and stype='"& stype &"'"
end if
%>
<%else
'初始
%>
<font face="宋体" size="2">今天公告如下：</font>
<% sql="select * from J_tblDeclare where left(cdate(DeclareDate),10)= date() and not declaredate is null and declaredate<>''"
end if
rs.open sql,pubconn,1,3
if rs.recordcount>=1 then
rs.pagesize=10
if currentpage>=rs.pagecount then
currentpage=rs.pagecount
else
if currentpage<1 then
currentpage=1
end if
end if
rs.absolutepage=currentpage
pagenum=rs.pagecount
if pagenum<1 then
pagenum=1
end if
%>
<form action="j_declaredel.asp" method="post" name="form1">
<input type="hidden" name="currentpage" value=<%=currentpage%>>
<input type="hidden" name="bz" value=<%=bz%>>
<input type="hidden" name="dyear" value=<%=dyear%>>
<input type="hidden" name="dmonth" value=<%=dmonth%>>
<input type="hidden" name="dday" value=<%=dday%>>
<input type="hidden" name="eyear" value=<%=eyear%>>
<input type="hidden" name="emonth" value=<%=emonth%>>
<input type="hidden" name="eday" value=<%=eday%>>
<input type="hidden" name="stype" value=<%=stype%>>
<table border="1" cellspacing="0" width="100%">
<tr>
<td width="2%" height="25" align="center" bgcolor="#DDD2C4"> </td>
<td width="5%" height="25" align="center" bgcolor="#DDD2C4"><font size="2">发布时间</font></td>
<td width="5%" height="25" align="center" bgcolor="#DDD2C4"><font size="2">主题</font></td>
<td width="5%" height="25" align="center" bgcolor="#DDD2C4"><font size="2">分类</font></td>
<td width="5%" height="25" align="center" bgcolor="#DDD2C4"><font size="2">发布人</font></td>
<td width="3%" align="center" bgcolor="#DDD2C4" height="25"><font size="2">操作</font></td>
</tr>
<%
line=0
for i=1 to rs.pagesize
line=line+1
%>
<%
if i mod 2=1 then%>
<tr bgcolor="#f7f7f7">
<%else%>
<tr bgcolor="#EDEBEC">
<%end if%>
<td width="2%" align="center" >
<input type="checkbox" name="checkbox1" value=<%=i%> <%if rs("Declaremen")<>session("UserID") then%> disabled <%end if %>></td>
<input type="hidden" name="id<%=i%>" value="<%=rs("ID")%>">
<td width="5%" align="center" ><%=rs("DeclareDate")%> </td>
<td width="5%" align="center"><%=rs("Title")%> </td>
<td width="5%" align="center" ><%=rs("stype")%> </td>
<%
menid=rs("Declaremen")
if menid<>"" then
set rst1=server.createobject("adodb.recordset")
m_sql="select name from a_stuffinfo where StuffNum='"& menid &"' "
'response.write m_sql
rst1.open m_sql,pubconn,1,3
if not rst1.eof then
menName=rst1("name")
else
menname=""
end if
end if
%>
<td width="5%" align="center" ><%=menName%></td>
<td width="3%" align="center"><a href="J_DeclareSub.asp?state=browse&my_id=<%=rs("ID")%>¤tPage=<%=currentpage%>&bz=<%=bz%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&stype=<%=stype%>">浏览</a></td>
</tr>
<%
rs.MoveNext
if rs.eof then exit for
next %>
</table>
<br>
<font size="2">
共<%=rs.pagecount%>页
<a href="j_declaremain.asp?currentPage=1&bz=<%=bz%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&stype=<%=stype%>">首 页</a>
<%if pagenum<>0 then
if currentPage<pagenum then%> <a href="j_declaremain.asp?currentPage=<%=currentpage+1%>&bz=<%=bz%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&stype=<%=stype%>">下一页</a>
<% else%>
下一页 <%
end if
if currentPage>1 then
%> <a href="j_declaremain.asp?currentPage=<%=currentpage-1%>&bz=<%=bz%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&stype=<%=stype%>">上一页</a>
<% else%>
上一页 <%
end if
end if %>
<a href="j_declaremain.asp?currentPage=<%=rs.pagecount%>&bz=<%=bz%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&stype=<%=stype%>">尾 页</a>
<select name="page1" >
<%
for j=1 to rs.pagecount%>
<option value=<%=j%>><%=j%>
<%next%>
</select>
<%if bz="" then%>
<input type="button" value="Go" name="page" onclick="win1()" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%else%>
<input type="button" value="Go" name="page" onclick="win()" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%end if%>
<p align="left"><input type="button" value="新增" name="B3" class="hand"style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="javascript:location.href='j_declaresub.asp?state=new&my_id=0'">
<input type="submit" value="删除" name="B1" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1"> </p>
<%else%></font>
<p align="center">
<font size="2">经查询，没有记录!<br>
<p align="left"><input type="button" value="新增" name="B3" class="hand"style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="javascript:location.href='j_declaresub.asp?state=new&my_id=0'">
<%end if%></font>
</form>
<a href="../main.asp">返回</a>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -