📄 edit.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")
session("id")=session("oabusyname")
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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
.css0 {<%=Session("vinputtext")%> }
SELECT { font-size:12px}
</style>
<script language="JavaScript">
<!--
function CountTime()
{ //计算计划起止日期脚本
var t= document.all.submitinput.fromYear.value +'-';
t=t + document.all.submitinput.fromMonth.value + '-';
t=t + document.all.submitinput.fromDay.value
document.all.submitinput.vtime.value=t;
}
function oninput()
{
var aa;
aa=Composition.document.body.innerHTML;
document.submitinput.vtext.value=aa;
CountTime()
rphtml('vtitle');
if (MM_validateForm('vtitle','','R','vtext','','R'))document.submitinput.submit();
}
function writeit()
{
Composition.document.body.innerHTML=document.t.texta.value;
document.submitinput.vtitle.focus();
}
//-->
</script>
<link rel="stylesheet" href="../editor/editor.asp" type="text/css">
<% '定义变量
dim toYear,toMonth,toDay,vtext,title,image
dim Number ' 当前操作记录号
dim opFlag ' 操作标志('cmdAddNew'/'cmdEdit'/'cmdSee')
'过滤错误
on error resume next
'获取输入参数:记录号和操作标志
Number=request("Number")
if Number="" then Number="0"
Number=Cint(Number)
opFlag=request("opFlag")
'创建记录访问对象
Set rs = Server.CreateObject("ADODB.Recordset")
'初始化参数
if opFlag<>"cmdAddNew" then
'打开记录源,并定位到输入参数决定的记录号
rs.Open Session("SQL"),Session("conn"),1,3
rs.move number
'日期显示变量
temptime = "" & rs("vtime")
fromYear = mid(temptime,1,4)
fromMonth = mid(temptime,6,2)
fromDay = mid(temptime,9,2)
toYear = mid(temptime,14,4)
toMonth = mid(temptime,19,2)
toDay = mid(temptime,22,2)
vtext=rs("vtext")
title="编辑事件"
else
'日期显示变量
temptime = date()
fromYear = year(temptime)
fromMonth = right("0" & month(temptime),2)
fromDay = right("0" & day(temptime),2)
toYear = fromYear
toMonth = right("0" &( month(temptime)+1),2)
toDay = fromDay
vtext="<BLOCKQUOTE style='MARGIN-RIGHT: 0px'><P><STRONG><FONT color=#2d3d7d face=宋体 ></FONT></STRONG> </P><P><STRONG><FONT color=#2d3d7d face=宋体 >事件名称：</FONT></STRONG></P><STRONG><FONT color=#2d3d7d face=宋体 >事件人物：</FONT></STRONG></P><P><STRONG><FONT color=#2d3d7d face=宋体 >事件内容：</FONT></STRONG></P><P><FONT color=#2d3d7d face=宋体 ><STRONG>事件结果：</STRONG></FONT></P></BLOCKQUOTE>"
title="编辑事件"
end if
image="../images/rizhi.gif"
%>
</head>
<!-- #Include file="../inc/css.asp" -->
<body leftmargin="0" topmargin="0" onLoad="javascript:InitDocument();writeit();">
<form name="submitinput" action="save.asp?opFlag=<%=(opFlag & "&Number=" & Number)%>" method="post" >
<!-- #Include file="../inc/title.asp" -->
<input type=hidden name="vtext" id="事件内容">
<table border="0" class=vtext cellspacing="1" align="center" width="95%" cellpadding="0" bgcolor="<%=Session("vtablebordercolor")%>" >
<tr bgcolor="<%=Session("vtabletitlebackcolor")%>" align="left">
<td height="30" width="13%" align="center"><b>事件日期</b></td>
<td height="30" width="87%">
<select size=1 name=fromYear>
<option value="<%=fromYear%>" selected><%=fromYear%></option>
<script language=javascript>
for(i=1900;i<2050;i++)
{
document.write("<option value="+i+">"+i+"</option>");
}
</script>
</select>
年
<select size=1 name=fromMonth>
<option value="<%=fromMonth%>" selected><%=fromMonth%></option>
<script language=javascript>
for(i=1;i<13;i++)
{
t=i.toString()
if( i<10 ) t="0" + t
document.write("<option value="+ t+">"+ t + "</option>");
}
</script>
</select>
月
<select class=p9 size=1 name=fromDay>
<option value="<%=fromDay%>" selected><%=fromDay%></option>
<script language=javascript>
for(i=1;i<32;i++)
{
t=i.toString()
if( i<10 ) t="0" + t
document.write("<option value="+ t+">"+ t + "</option>");
}
</script>
</select>
日 </td>
</tr>
<tr align="left" bgcolor="<%=Session("vtabletitlebackcolor")%>">
<td height="30" width="13%" align="center"> <b>事件标题</b></td>
<td height="30" bgcolor="<%=Session("vcolcolor")%>" width="87%"><b>
<input type="text" onKeyDown=gonext("Composition") maxlength="50" name="vtitle" size="40" class="css0" id="事件标题" style=" width=100%; height:20px;border:none" value="<%=replace(rs("vtitle"),"<br>",chr(13))%>">
</b></td>
</tr>
<tr align="left" bgcolor="<%=Session("vtabletitlebackcolor")%>">
<td colspan=2>
<!-- #include file="../editor/edit.html" -->
</td>
</tr>
</table>
<p align=center>
<button class=vinputbutton style="height=24" onClick=oninput()><img src="../images/save.gif" align="absmiddle"> 保存</button>
<button class=vinputbutton name="Submit6" style="height=24" onClick=javascript:history.go(-2);><img src="../images/back.gif" align="absmiddle"> 返回</button>
<input type="hidden" name="vtime" size="13" class=css0 value="<%=rs("vtime")%>">
</p>
</form>
<form name=t style="display:none">
<blockquote>
<p>
<textarea name=texta style="visibility: hidden" rows=1 cols=1><%=vtext%></textarea>
</p>
</blockquote>
</form>
<%
rs.close
set rs=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -