?? editmodel.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 Number,opFlag,title,i,image
'過濾錯誤
on error resume next
'獲取輸入參數:和操作標志
opFlag=request("opFlag")
Number=cint(request("Number"))
'創建記錄訪問對象
Set rs = Server.CreateObject("ADODB.Recordset")
'打開記錄源,并定位到輸入參數決定的記錄號
if opFlag="cmdEdit" then
rs.Open Session("SQL"),Session("conn"),1,3
rs.Move Number
end if
if request("cmd")="save" then
if opFlag="cmdAddNew" then
rs.open "select * from model where vname='" & request("vname") & "'",Session("conn"),1,3
if rs.eof then
rs.addnew
else
response.write("<script language=javascript>window.alert('您所輸入的模板名稱已經存在，請輸入其他名稱!');window.history.back()</script>")
response.end
end if
end if
for i=0 to rs.Fields.count-1
if Request.Form(rs.Fields(i).name)<>"" then
rs(rs.Fields(i).name)=Request.Form(rs.Fields(i).name)
end if
next
rs.Update
rs.close
response.redirect "model.asp"
end if
title="檔案模板編輯"
image="../images/document.gif"
%>
<style>
.css0 {<%=Session("vinputtext")%>}
</style>
<script language="JavaScript">
//讀取表內字符串信息
function ds(sstr)
{
var dstr="";
for (i=0;i<sstr.length;i++)
{ if (sstr.charAt(i)!=' ') dstr+=sstr.charAt(i);
}
return dstr;
}
function oninput()
{
var aa;
aa=Composition.document.body.innerHTML;
document.submitinput.vtext.value=aa;
if(!MM_validateForm('vname','','R','vtitle','','R','vtext','','R'))return false;
rphtml('vname','vtitle');
//提交表單內容
document.submitinput.submit();
}
function writeit()
{
Composition.document.body.innerHTML=document.t.texta.value;
}
function load()
{
javascript:InitDocument();writeit();
//聚焦到模板名稱
document.submitinput.vname.focus();
}
</script>
</head>
<body leftmargin="0" topmargin="0" onLoad="load();" >
<form name="submitinput" action="editmodel.asp?Number=<%=Number%>&opFlag=<%=opFlag%>&cmd=save" method="post" onSubmit="MM_validateForm();return document.MM_returnValue" >
<!-- #include file="../inc/title.asp" -->
<table border="0" class=vtext cellspacing="1" align="center" width="95%" bgcolor="<%=session("vtablebordercolor")%>" >
<tr align="left" bgcolor="<%=Session("vtabletitlebackcolor")%>">
<td height="30" width="14%" align="right">模板名稱：</td>
<td height="30" width="86%" bgcolor="<%=Session("vcolcolor")%>">
<input type="text" name="vname" value="<%=rs("vname")%>" style="width:100%;border:no" onKeyDown=gonext("vtitle") maxlength="50">
<input type="hidden" name="vtext">
</td>
</tr>
<tr align="left" bgcolor="<%=Session("vtabletitlebackcolor")%>">
<td height="30" width="14%" align="right">模板描述：</td>
<td height="30" width="86%" bgcolor="<%=Session("vcolcolor")%>">
<input type="text" name="vtitle" value="<%=rs("vtitle")%>" onKeyDown=gonext("Composition") style="width:100%;border:no" maxlength="200">
</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 style="height=24" onClick=javascript:history.go(-2);><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><%=rs("vtext")%></textarea>
</form>
<% '關閉記錄源
rs.close
set rs=nothing
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -