📄 sendtext.asp
字号:
<!--#include file="data.asp"-->
<!--#include file="check.asp"-->
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>mod_learn_art</title>
<link rel="stylesheet" type="text/css" href="oa.css">
</head>
<script language="JavaScript">
<!--
function MM_popupMsg(msg) { //v1.0
alert(msg);
}
//-->
</script>
<body style="margin:0">
<form method="POST" name="Form" action="savetext.asp?id=<%=request("id")%>&action=edit">
<div align="center"><center><table cellspacing="0" width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="100%" bgcolor="#999999" height="20"><font color="#FFFFFF"><center><p><b>修 改 文 件</b></font></td>
</tr>
<tr align="center">
<td width="100%"><table border="0" cellspacing="1" width="100%">
<tr>
<td width="20%" align="right" valign="top" height="20"><b>文件类型：</b></td>
<td width="80%">
<select class="smallSel" name="typeid" size="1">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from type"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "Not record."
else
do while not rs.eof
if request("typeid")=cstr(rs("id")) then
sel="selected"
else
sel=""
end if
response.write "<option " & sel & " value='"+CStr(rs("id"))+"' name=typeid>"+rs("type")+"</option>"
rs.movenext
loop
end if
rs.close
%>
</select>
</td></tr>
<%
sql="select * from learn where id="&request("id")
rs.open sql,conn,1,1
%>
<tr>
<td width="15%" align="right" height="30"><b>文件标题：</b></td>
<td width="85%" height="30"><input type="text" name="txttitle" size="70"
class="smallinput" maxlength="100" value="<%=rs("title")%>"></td>
</tr>
<tr>
<td width="15%" align="right" valign="top"><b>文章内容：</b></td>
<td width="85%">
<textarea name="txtcontent" style="display:none"><%=Rs("Content")%></textarea>
<iframe ID="eWebEditor1" src="web/ewebeditor.asp?id=txtcontent&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>
</td>
</tr>
<tr>
<td width="15%" align="right" height="30"><b>支持HTML：</b></td>
<td width="85%" height="30"><input type=checkbox name="htmlable" value="yes"> 选择后文章全部支持HTML语法，UBB语法将没有任何作用</td>
</tr>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from user where rule=true and iPageSize=10"
rs1.open sql1,conn,1,1
NumRec1=rs1.RecordCount
%>
<tr>
<td width="15%" align="right" height="30" nowrap><b>阅读对象：</b></td>
<td width="85%" height="30" nowrap>
<select name="user" >
<option value="" selected>选择员工</option>
<% for i=1 to NumRec1 %>
<option value="<%=rs1("name")%>"><%=rs1("name")%>
</option>
<% rs1.MoveNext
next
rs1.MoveFirst%>
</select>
<input type="button" name="Submit3" value="添加" class="css0" onClick="vbscript:if document.all.user.value<>'' and document.all.user.value<>document.all.part.value and instr(document.all.usersendalso.value,document.all.user.value)=0 then document.all.usersendalso.value=document.all.usersendalso.value+document.all.user.value+','">
<input type="button" name="Submit4" value="清空" class="css0" onClick="vbscript:document.all.usersendalso.value=''">
<input type="text" value="<%=rs("usersendalso")%>" name="usersendalso" class=css0 size="42" onFocus="javascript:MM_popupMsg('请不要手动编辑此框内容,否则将造成不可估计的错误!');document.all.Form.part.focus()">
<%
set rs3=server.createobject("adodb.recordset")
sql3="select * from bumen"
rs3.open sql3,conn,1,1
NumRec=rs3.RecordCount
%>
<tr>
<td width="15%" align="right" height="30" nowrap><b>阅读部门：</b></td>
<td width="85%" height="30" nowrap>
<select name="part" >
<option value="" selected>选择部门</option>
<% for i=1 to NumRec %>
<option value="<%=rs3("type")%>"><%=rs3("type")%>
</option>
<% rs3.MoveNext
next
rs3.MoveFirst%>
</select>
<input type="button" name="Submit" value="添加" class="css0" onClick="vbscript:if document.all.part.value<>'' and document.all.part.value<>document.all.user.value and instr(document.all.sendalso.value,document.all.part.value)=0 then document.all.sendalso.value=document.all.sendalso.value+document.all.part.value+','">
<input type="button" name="Submit2" value="清空" class="css0" onClick="vbscript:document.all.sendalso.value=''">
<input type="text" value="<%=rs("sendalso")%>" name="sendalso" class=css0 size="42" onFocus="javascript:MM_popupMsg('请不要手动编辑此框内容,否则将造成不可估计的错误!');document.all.Form.grade.focus()">
</tr>
<tr>
<td width="15%" align="right" height="30"><b>文件级别：</b></td>
<td width="85%" height="30">
<select class="smallSel" name="grade" size="1">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from grade"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "Not record."
else
do while not rs.eof
if request("grade")=cstr(rs("id")) then
sel="selected"
else
sel=""
end if
response.write "<option " & sel & " value='"+CStr(rs("id"))+"' name=grade>"+rs("content")+"</option>"
rs.movenext
loop
end if
rs.close
%>
</select>
</tr>
</table>
</td>
</tr>
</table>
</center></div><div align="center"><center><p><input type="submit" value=" 保 存 "
name="cmdok" class="buttonface"> <input type="reset" value=" 清 除 "
name="cmdcancel" class="buttonface"></p>
</center></div>
</form>
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -