📄 addnumberword.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="expires" content="no-cache">
<title>设置发文字号</title>
<link rel="stylesheet" type="text/css" href="../css/css.css">
<script language="vbscript">
sub checkkey()
if window.event.keyCode >57 or window.event.keyCode <48 then
window.event.keyCode=0
end if
end sub
</script>
<script language="javascript">
function addvalue()
{
var resultvalue;
resultvalue="";
if (UnitWord.value!="" & SerialNumber.value!="" && YearNumber.value!="")
resultvalue+=UnitWord.value+"［"+YearNumber.value+"］"+SerialNumber.value+"号";
opener.form1.<%=request("k1")%>.value=resultvalue;
opener.form1.<%=request("k1")%>.title=resultvalue;
opener.form1.<%=request("k2")%>.value=UnitWord.value;
opener.form1.<%=request("k3")%>.value=YearNumber.value;
opener.form1.<%=request("k4")%>.value=SerialNumber.value;
window.close();
}
</script>
</head>
<body bgcolor="#ffffff" topmargin="5" leftmargin="5">
<div align="center">
<br><b>设置发文字号</b><br>
<hr noshade size="1" color="#FF0000">
机关代字：<input type="text" class="doc_txt" name="UnitWord" value="<%=server.htmlencode(trim(application("UnitWord")))%>" size="17"><input type="button" value="＋"><br><br>
年 号：
<select name="YearNumber" class="doc_txt">
<%
for i=1990 to 2020
if year(date())=i then
response.write("<option value="&cstr(i)&" selected>"&cstr(i)&"年</option>")
else
response.write("<option value="&cstr(i)&">"&cstr(i)&"年</option>")
end if
next
%>
</select>
<br><br>
顺 序 号：<input type="text" class="doc_txt" name="SerialNumber" value="" onkeypress="vbscript:checkkey()"><br><br>
<input type="button" name="ok" value="确定" onclick="javascript:addvalue()">
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -