📄 signatureeditfrm.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'功能：
%>

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
'------------------------------------------------
%>

<html>
<head>
<title>iWebOffice2003——公章管理</title>
<link rel='stylesheet' type='text/css' href='../css/main.css'>
<script language=javascript>
function Check(theForm){
	if (theForm.MarkName.value == ""){
		alert("请输入印签名.");
		theForm.MarkName.focus();
		return (false);
	}
	return (true);
}

function ConfirmDel(FileUrl){
	if (confirm('是否确定删除该印签！')){
		location.href=FileUrl;
	}
}

function doSel_Cx(sCxqx,sCxqxsz){
	url = "../inc/SelectQx.asp?cxqx="+sCxqx+"&cxqxsz="+sCxqxsz
	k=showModalDialog(url,"","dialogWidth:510px;status:no;dialogHeight:60px")
	if (k!="") {
		k=k.split("_")
		if (k[0]!="0"){
			webform.users.value=k[2].replace(/ /g,"\n")
			webform.input_users.value=k[1]
			webform.input_usermod.value=k[0]
		}else{
			webform.users.value='全部人员'
			webform.input_users.value=k[1]
			webform.input_usermod.value=k[0]
		}
	}
}
</Script>
</head>
<body bgcolor="#ffffff">
<%
Dim mSignatureID
mSignatureID = CInt(Request("SignatureID"))
mSql="select * From tbioaOffice_Signature where SignatureID = " & mSignatureID
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open mSql,oConn,1,1
If Not Rs.Eof then
%>
<form name="webform" method="post" enctype="multipart/form-data"  action="SignatureEdit.asp" onsubmit="return Check(this)">
<input type="hidden" name="SignatureID" value="<%=Rs("SignatureID")%>">
<table border=0 cellspacing='1' cellpadding='2' width=100% align=center class=tab>
<tr>
  <td colspan=2 nowrap class="tdtop2"><img src="../images/icon_title.gif" align=left>修改印章</td>
</tr>
<tr>
  <td nowrap align=center class="td2" width=64>印签名称</td>
  <td class="td1" width="90%"><input type="text" name="MarkName" size="50" maxlength="32" class="input" value="<%=RS("MarkName")%>"></td>
</tr>
<tr>
  <td nowrap align=center class="td2" width=64>印签文件</td>
  <td class="td1"><input type="file" name="MarkFile" size="50" maxlength="60" class="input"></td>
</tr>
<tr>
  <td nowrap align=center class="td2" width=64>使用密码</td>
  <td class="td1" width="90%"><input type="PassWord" name="PassWord" size="50" maxlength="32" class="input" value="<%=RS("PassWord")%>"></td>
</tr>
<tr>
  <td nowrap align=center class="td2" width=64>使用权限
    <img src="../images/selectman.gif" border="0" onclick="doSel_Cx(webform.input_users.value,webform.input_usermod.value)" style="cursor:hand">
  </td>
  <td class="td1" width="90%">
    <textarea rows="7" name="users" cols="50" class="textarea" readonly><%=ShowNames(rs("usermod"),rs("users"))%></textarea>
    <input type=hidden name="input_usermod" value="<%=rs("usermod")%>">
    <input type=hidden name="input_users" value="<%=rs("users")%>">
  </td>
</tr>
<tr>
  <td colspan=2 class="tdBottom" nowrap>
    <input type="submit" name="Edit" value="修 改" class="button0" onmouseout=className="button0" onmouseover=className="button1">
    <input type="button" name="Del" value="删 除" onclick="javascript:ConfirmDel('SignatureDel.asp?SignatureID=<%=Rs("SignatureID")%>');" class="button0" onmouseout=className="button0" onmouseover=className="button1">
    <input type="reset" name="Reset" value="重 填" class="button0" onmouseout=className="button0" onmouseover=className="button1">
    <input type="button" name="Return" value="返 回" onclick="javascript:history.back();" class="button0" onmouseout=className="button0" onmouseover=className="button1">
  </td>
</tr>
</table>
</form>
<%
Else
	Response.Write "数据库中不存在该标签。<input type='button' value='返 回' onclick='javascript:history.back();'"
End If
Rs.Close
Set Rs=Nothing
%>
</body>
</html>

<%'释放对象变量
<!--#include file="../inc/conn_close.asp"-->
%>

<%
Function ShowNames(smod,sid)
	if not smod then ShowNames="全部人员"

	dim sql,str
	if smod=1 then
		sql="select * from tbioaDepartment where ID in (" + sid + ")"
		set rs_ShowNames=oConn.execute(sql)
		while not rs_ShowNames.EOF '循环
			str=str + htmlout(rs_ShowNames("name")) + vbcrlf
			rs_ShowNames.MoveNext
		wend
		rs_ShowNames.close
		ShowNames=str
	elseif smod=2 then
		sql="select a.*,b.name	from tbioaRole a,tbioaDepartment b where a.department=b.id and a.id in (" + sid + ")"
		set rs_ShowNames=oConn.execute(sql)
		while not rs_ShowNames.EOF '循环
			str=str + htmlout(rs_ShowNames("name")) + "/" + htmlout(rs_ShowNames("rolename")) + vbcrlf
			rs_ShowNames.MoveNext
		wend
		rs_ShowNames.close
		ShowNames=str
	end if
End Function
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -