📄 boardtop.asp
字号:
<%@ LANGUAGE="VBScript" %>
<!--#include file="../inc/Constant.inc"-->
<html>
<head>
<title><%=App_Title%></title>
</head>
<style type="text/css">
body{font:9pt;color:#000000;background-attachment:fixed;}
a {link:#000000;color:#000000;vlink:#000000;alink:#000000;text-decoration:none}
font {font-family:宋体_gb2312;color:#000000;font:9pt}
table {font-family:宋体_gb2312;color:#000000;font:9pt}
</style>
<!--<basefont FACE="楷体_GB2312" SIZE="4">-->
<body topMargin="0" leftMargin="1" rightMargin="1">
<div><img src="../images/DZGG.jpg" height= 75 width="100%" border="0"></div>
<div><img src="../images/mainLine.jpg" width="100%" border="0"></div>
<table width="100%" height="18" cellpadding="0" cellpadding="0" bgcolor="#939393" align="center">
<tr>
<%sql="SELECT * FROM UnitGrantDefine a,RightClassDefine b Where a.Type=0 And a.IsService=0 And a.Class_Id=b.Class_Id And b.Name='维护' And a.Item_Id=" & Session("Id") & " And a.Id=" & Session("User_Id")
Set Rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql ,Session("RiseManager_ConnectionString"),3,1
If Not (Rs.BOF And Rs.eof) Then%>
<td width="12%" align="center"><a href="../boarddept/BoardAdd.asp" style="color:#ffffff" target="_top"> 发布公告</a></td>
<td width="12%" align="center" nowrap><a href="../boarddeptEdit/BoardFrame.asp" style="color:#ffffff" target="_top"> 维 护 </a></td>
<%
End If
rs.Close
Set Rs=Nothing%>
<td width="12%" align="center"><font size="2"><a Href="../../RiseWay/SysPlat.asp" style="color:#ffffff" target="_top">返 回</a></font></a></td>
<td width="86%"></td>
</tr>
</table><br>
<table border="0" width="100%">
<form name="default" action="BoardRetrieve.asp" target="Bottom">
<tr>
<td nowrap width="10%"> <select name="year" size=1>
<option></option>
<option>2002</option>
<option>2003</option>
<option>2004</option>
<option>2005</option>
<option>2006</option>
<option>2007</option>
<option>2008</option>
<option>2009</option>
</select>年
<td nowrap width="10%"><select name="month" size=1>
<option></option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>10</option>
<option>11</option>
<option>12</option></select>
月
<td nowrap width="10%"><select name="day" size=1>
<option></option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>10</option>
<option>11</option>
<option>12</option>
<option>13</option>
<option>14</option>
<option>15</option>
<option>16</option>
<option>17</option>
<option>18</option>
<option>19</option>
<option>20</option>
<option>21</option>
<option>22</option>
<option>23</option>
<option>24</option>
<option>25</option>
<option>26</option>
<option>27</option>
<option>28</option>
<option>29</option>
<option>30</option>
<option>31</option></select></td>
<td width="100" nowrap valign="bottom">标题:<input name="Key" size="8"></td>
<td width="125" nowrap valign="bottom"><input Name="BoardRetrieve" type="Button" Value=" 查 询 "></td>
<td> </td>
</tr>
</form>
</table>
</body>
</html>
<script language="VBSCRIPT">
Sub BoardRetrieve_Onclick()
If document.forms(0).elements("Year").value<>"" Then
If Not IsDate(document.forms(0).elements("Year").value & "-1-1") then
msgbox "年输入错误！",,"提示"
document.forms(0).elements("Year").focus()
Exit Sub
End If
End If
If document.forms(0).elements("month").value<>"" Then
If Not IsDate(Year(Now) & "-" & document.forms(0).elements("month").value & "-1") then
msgbox "月输入错误！",,"提示"
document.forms(0).elements("month").focus()
Exit Sub
End If
End If
If document.forms(0).elements("day").value<>"" Then
If Not IsDate(Year(Now) & "-1-" & document.forms(0).elements("day").value) then
msgbox "日输入错误！",,"提示"
document.forms(0).elements("day").focus()
Exit Sub
End If
End If
document.forms(0).Submit
End Sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -