📄 j_declaresub.asp
字号:
mydate=now()
end if
s_date=mydate
s_men=s_userid
menname=session("stuffname")
end if
if now_state="browse" or now_state="save" then
control_sta="readonly"
else
control_sta=""
end if
%>
</head>
<script language="vbscript">
sub win()
myform.submit
end sub
sub win1(my)
if len(my.value)>200 then
msgbox "正文字段超长!"
my.value=left(my.value,200)
exit sub
end if
end sub
</script>
<body>
<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">
<form method="post" action="j_declaresub.asp?tag=1" name="myform">
<input type="hidden" name="post_id" value=<%=my_id%>>
<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" width="98%" height="177" bgcolor="#F7F4E5">
<tr>
<td width="20%" height="1" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="center"><font face="宋体" size="2">发布日期</font></td>
<td width="39%" height="1" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<%if s_date<>"" then%>
<input type="text" name="declareDate" value="<%=s_date%>" readonly size="20">
<%else%>
<input type="text" name="declareDate" size="20">
<%end if%>
</td>
<td width="13%" height="1" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><font face="宋体" size="2">发布人</font></td>
<td width="22%" height="1" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<%if menName<>"" then%>
<input type="text" name="declareMen" value="<%=menName%>" readonly size="13">
<%else%>
<input type="text" name="declareMen" size="13">
<%end if%>
</td>
<td width="20%" height="1" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><font face="宋体" size="2">分类</font></td>
<td width="43%" height="1" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="left"><select size="1" name="declareType" >
<option value="">请选择：</option>
<%for i=0 to ubound(DeclareType)%>
<option value="<%=declaretype(i)%>"
<%if s_type<>"" then
if s_type=declaretype(i) then
response.write ("selected")
end if
end if%>
><%=declaretype(i)%></option>
<%next %>
</select></td>
</tr>
<tr>
<td width="20%" height="1" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="center"><font face="宋体" size="2">标题</font></td>
<td width="140%" colspan="5" height="1" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<%if s_title<>"" then%>
<input type="text" name="declaretitle" value="<%=s_title%>" <%=control_sta%> size="78" maxlength="50">
<%else%>
<input type="text" name="declareTitle" size="78" <%=control_sta%> maxlength="50">
<%end if%>
</td>
</tr>
<tr>
<td width="20%" height="68" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="center"><font face="宋体" size="2">正文</font></td>
<td width="140%" height="68" colspan="5" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<%
if s_text<>"" then%>
<textarea name="DeclareText" rows="5" cols="65" <%=control_sta%> onchange=javascript:win1(this)><%=s_text%> </textarea>
<%else%>
<textarea name="DeclareText" rows="5" cols="65" <%=control_sta%> onchange=javascript:win1(this)></textarea>
<%end if%>
</td>
</tr>
</table>
<p> </p>
<p><font face="宋体" size="2">
<%if now_state="new" or now_state="edit" then%>
<a href="javascript:win()">保存</a>
<%end if
if now_state="browse" then%>
<a href="j_declaresub.asp?state=new&my_id=0">新增</a>
<%if s_men=s_userid then %>
<a href="j_declaresub.asp?state=edit&my_id=<%=my_id%>¤tpage=<%=currentpage%>&bz=<%=bz%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&stype=<%=stype%>">编辑</a>
<%else
'response.write s_men
'response.write s_userid
response.write "编辑"
end if
end if
if now_state="save" then%>
<a href="j_declaresub.asp?state=new&my_id=0">新增</a>
<a href="j_declaresub.asp?state=edit&my_id=<%=my_id%>">编辑</a>
<%end if%>
<a href="j_declaremain.asp?currentpage=<%=currentpage%>&bz=<%=bz%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&stype=<%=stype%>">返回</a></font>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -