📄 j_declaremain.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%username=getuser()
userclass=tablevisitor("f_tblorder",username)
departid=session("departid")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>公告栏信息</title><link href="../cread.css" rel="stylesheet" type="text/css">
<Script Language="VBScript" runat="server">
</Script>
<%
bz=request("bz")
dyear=request("dyear")
dmonth=request("dmonth")
dday=request("dday")
eyear=request("eyear")
emonth=request("emonth")
eday=request("eday")
stype=request("stype")
if dyear<>"" then
ddate=dyear&"-"&dmonth&"-"&dday
edate=eyear&"-"&emonth&"-"&eday
else
ddate=""
edate=""
end if
if request("currentpage")<>"" then
currentpage=cint(request.querystring("currentpage"))
else
currentpage=1
end if
%>
</head>
<script language="vbscript">
sub win()
dyear=document.myform.dyear.value
dmonth=document.myform.dmonth.value
dday=document.myform.dday.value
ddate=dyear+"-"+dmonth+"-"+dday
eyear=document.myform.eyear.value
emonth=document.myform.emonth.value
eday=document.myform.eday.value
edate=eyear+"-"+emonth+"-"+eday
'msgbox dyear&dmonth&dday&eyear&emonth&eday
'msgbox document.myform.stype.value
'msgbox document.form1.page1.value
'exit sub
window.location="j_declaremain.asp?currentpage="+document.form1.page1.value+"&dyear="+dyear+"&dmonth="+dmonth+"&dday="+dday+"&eyear="+eyear+"&emonth="+emonth+"&eday="+eday+"&bz="+document.myform.bz.value+"&stype="+document.myform.stype.value
end sub
sub win1()
dyear=document.myform.dyear.value
dmonth=document.myform.dmonth.value
dday=document.myform.dday.value
eyear=document.myform.eyear.value
emonth=document.myform.emonth.value
eday=document.myform.eday.value
window.location="j_declaremain.asp?currentpage="+document.form1.page1.value+"&dyear="+dyear+"&dmonth="+dmonth+"&dday="+dday+"&eyear="+eyear+"&emonth="+emonth+"&eday="+eday
end sub
</script>
<%'###########################得到公告栏分类#############################
set AdoRs1=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='type'"
AdoRS1.Open lcSql,PubConn,1,1
typevalue=Adors1("NumValue")
if not isNull(typevalue) then
DeclareType=Split(typevalue,",")
end if
Set Adors1=Nothing
'################
%>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15">
</font><font size="2">公告信息</font></b><hr width="70%" size="1" align="left">
</td>
</tr>
</table>
<form method="post" action="j_declaremain.asp" name="myform">
<input type=hidden name=bz value="1">
<table border="1" cellspacing="0" width="635" height="62">
<tr>
<td width="94" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" height="50">
<p align="center">
<font size="2">发布时间</font>
</td>
<td width="410" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" height="50">
<p align="left">
<%if dyear<>"" then%>
<input type=text name=dyear value=<%=dyear%> class="botton" size="4"><%else%>
<input type=text name=dyear value=<%=year(date())%> class="botton" size="4"><%end if%>年<select name=dmonth >
<%if dmonth<>"" then %>
<option value=<% =dmonth%> selected> <% =dmonth %> </option>
<%end if %>
<% for i=1 to 12
if i<=9 then
i="0"&i
end if%>
<option value=<% =i%>> <% =i %> </option>
<%next%>
</select>月<select name=dday >
<%if dday<>"" then %>
<option value=<% =dday%> selected> <% =dday %> </option>
<%end if%>
<% for i=1 to 31
if i<=9 then
i="0"&i
end if%>
<option value=<% =i %>> <% =i%> </option>
<%next%>
</select>日 至 <%if eyear<>"" then %><input type=text name=eyear value=<%=eyear%> class="botton" size="4"><%else%><input type=text name=eyear value=<%=year(date())%> class="botton" size="4"><%end if%>年
<select name=emonth ><%if emonth<>"" then
emonth=emonth
else
emonth=month(date())
if len(emonth)=1 then
emonth="0"&emonth
end if
end if%>
<option value=<% =emonth%> selected> <% =emonth %> </option>
<% for i=1 to 12
if i<=9 then
i="0"&i
end if%>
<option value=<% =i%>> <% =i %> </option>
<%next%>
</select>月<select name=eday >
<%if eday<>"" then
eday=eday
else
eday=day(date())
if len(eday)=1 then
eday="0"&eday
end if
end if%>
<option value=<% =eday%> selected> <% =eday %> </option>
<% for i=1 to 31
if i<=9 then
i="0"&i
end if%>
<option value=<% =i %>> <% =i%> </option>
<%next%>
</select>日</p>
</td>
<td width="103" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" height="50">
</td>
</tr>
<tr>
<td width="94" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" height="10">
<p align="left"> 分类
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -