📄 sysedit.asp
字号:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=session("oabusyname")
oabusyusername=session("oabusyusername")
oabusyuserdept=session("oabusyuserdept")
oabusyuserlevel=session("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<title>档案管理制度</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="../inc/css.asp" -->
<link rel="stylesheet" href="../editor/editor.asp" type="text/css">
<% '定义变量
dim image,title,opFlag,Number
on error resume next
Server.ScriptTimeOut =4
Number=cint(request("Number"))
opFlag=request("opFlag")
Set rs = Server.CreateObject("ADODB.Recordset")
if opFlag="cmdAddNew" then
else
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
end if
select case opFlag
case "cmdAddNew"
title="档案管理制度"
case "cmdEdit"
title="档案管理制度修改"
end select
image="../images/document.gif"
%>
<style>
.css0{border:none;}
</style>
<script language="JavaScript">
function getit()
{ var aa;
aa=Composition.document.body.innerHTML;
document.submitinput.content.value=aa;
rphtml('vtitle','men');
if (MM_validateForm('vtitle','','R','men','','R','content','','R'))
document.submitinput.submit()
}
function writeit()
{
Composition.document.body.innerHTML=document.t.texta.value;
document.submitinput.vtitle.focus()
}
</script>
</head>
<body leftmargin="0" topmargin="0" onLoad="javascript:InitDocument();writeit();">
<form name="submitinput" method="post" action="syssave.asp?opFlag=<%=opFlag%>&Number=<%=Number%>">
<!-- #include file="../inc/title.asp" -->
<table cellspacing=1 cellpadding=2 width=95% bgcolor=<%=Session("vtablebordercolor")%> border=0 class=vtext align="center">
<tr>
<td width="14%" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%> class=p9>制度名称(N):</td>
<td colspan="3" bgcolor=<%=Session("vcolcolor")%> class=p9><input name="vtitle" type="text" class=css0 id="制度名称" style="width=100%" accesskey="n" onKeyDown=gonext("content") value="<%=rs("vtitle")%>" maxlength="200"></td>
</tr>
<tr>
<td align="right" bgcolor=<%=Session("vtabletitlebackcolor")%> class=p9>制订者(M):</td>
<td width="42%" bgcolor=<%=Session("vcolcolor")%> class=p9><input name="men" type="text" class=css0 id="制订者" style="width=100%" accesskey="m" value="<%=rs("men")%>" maxlength="200" onKeyDown=gonext("times")></td>
<td width="12%" bgcolor=<%=Session("vcolcolor")%> class=p9>发布日期:</td>
<td width="32%" bgcolor=<%=Session("vcolcolor")%> class=p9><input name="times" type="text" class=css0 readonly id="发布日期" style="width=100%" value="<%if opFlag="cmdAddNew" then response.Write(date()) else response.Write(rs("times"))%>" maxlength="20"></td>
</tr>
<tr bgcolor="">
<td align="left" bgcolor="<%=Session("vtabletitlebackcolor")%>" colspan="4">
<!-- #include file="../editor/edit.html" -->
</td>
</table>
<input type="hidden" name="content" size="70" class="css0" id="内容" >
<p align="center">
<button class=vinputbutton style="height=24" onClick="getit();"><img src="../images/save.gif" align="absmiddle"> 保存</button>
<button class=vinputbutton name="Submit6" style="height=24" onClick=javascript:history.go(-1);><img src="../images/back.gif" align="absmiddle"> 返回</button>
</p>
</form>
<form name=t style="display:none">
<textarea name=texta style="visibility: hidden" rows=1 cols=1><%if rs("content")<>"" then response.write(rs("content")) else response.write(textcent)%></textarea>
</form>
<% '关闭记录源
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -