📄 update.asp

📁 这是一个自己研发的薪酬管理系统
💻 ASP
字号:
<%@ Language=VBScript %>
<%
'文件功能:部门信息--新增与修改
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-12
'修改人员：房鹏
'修改时间：2003-8-13
'修改目的：设置权限
%>

<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_departments/Cls_wh_departments.asp" -->
<!-- #include file="../pub/fun.asp" -->

<%call checklogin()%>
<%
if session("right")<>4 then
	dim lr
	lr=now()&"有"&session("name")&"试图修改部门表  IP:"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")
    call savelog("../pub/error.htm",lr)
	call savedatalog(now(),session("name"),"试图修改部门表",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),2)
	response.redirect("../error.asp?msg=2")

end if
%>

<HTML>
<HEAD>
    <META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=gb2312">
    <TITLE>wh_departments--维护</TITLE>
    <%
    dim mStr_WINDCallType
    mStr_WINDCallType = trim(request.querystring("WINDCallType"))       '调用方式
    dim mStr_WINDURL   '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
    mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)

    '下列为全局变量
    dim mStr_PK_dpt_id                                      '主鍵
    dim mStr_dpt_name                                       '部门名称
    dim mStr_dpt_leader                                     '部门领导
    call InitData()
    %>
</HEAD>
<BODY>
    <TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0">
        <TR>
            <TD>
                <FONT CLASS="locationhead">您的位置：</FONT>
                <A CLASS="locationdata" HREF="Main.asp?<% =mStr_WINDURL%>">部门信息</A>>>
                <A CLASS="locationlastdata" HREF="javascript:window.location.reload()"><%if mStr_PK_dpt_id="" then Response.write "新增" else Response.write "修改"%></A>
            </TD>
        </TR>
    </TABLE>
    <FORM ACTION="Post_Update.asp?<% =mStr_WINDURL%>" ID="Frm_Update" METHOD="post">
        打<FONT COLOR=RED>**</FONT>的栏位为必须填写
        <TABLE WIDTH="80%" <% Response.write GetTableBorder()%>>
            <COLGROUP>
                <COL 1 CLASS="TABLEHEAD" WIDTH="100" ALIGN="RIGHT">
                <COL 1 CLASS="TABLEDATA">
            </COLGROUP>

            <TR>
                <TD>部门名称&nbsp;</TD>
                <TD>&nbsp;
                    <INPUT STYLE="WIDTH:200px" NAME="dpt_name" VALUE='<% Response.write mStr_dpt_name%>'>
                    <FONT COLOR=RED>**</FONT>
                </TD>
            </TR>
            <TR>
                <TD>部门领导&nbsp;</TD>
                <TD>&nbsp;
                    <INPUT STYLE="WIDTH:200px" NAME="dpt_leader" VALUE='<% Response.write mStr_dpt_leader%>'>
                    <FONT COLOR=RED>**</FONT>
                </TD>
            </TR>
        </TABLE>
        <TABLE BORDER="0" WIDTH="80%">
            <TR>
                <TD>
                    <A HREF="#" ONCLICK="javascript:window.Frm_Update.submit();return false"><IMG SRC="../image/btok.gif" BORDER="0"></A>
                    <A HREF="#" ONCLICK="javascript:window.Frm_Update.reset();return false"><IMG SRC="../image/btno.gif" BORDER="0"></A>
                </TD>
                <TD ALIGN="RIGHT">
                    <% if (mStr_PK_dpt_id="") then%>
                        <INPUT NAME="Continue" TYPE="checkbox" VALUE="1" <% if request.querystring("Continue")<>empty then Response.write "CHECKED"%>>
                        确定后继续增加资料
                    <% end if %>
                </TD>
            </TR>
        </TABLE>

        <DIV STYLE="DISPLAY:NONE">
            <INPUT TYPE="hidden" NAME="PK_dpt_id" VALUE='<% Response.write mStr_PK_dpt_id%>'>
        </DIV>
    </FORM> 
</BODY> 
</HTML> 

<%
function InitData()
'初始化
dim Rec_Data                              '结果集
    mStr_PK_dpt_id         =  trim(request.querystring("PK_dpt_id"))
    if (mStr_PK_dpt_id<>"") then
        '读取原有数据
        set Rec_Data = mCls_wh_departments.GetData(mStr_PK_dpt_id)
        if (not Rec_Data.eof) then
            mStr_dpt_name                        = Server.HTMLEncode(trim(Rec_Data.fields("dpt_name") & ""))
            mStr_dpt_leader                      = Server.HTMLEncode(trim(Rec_Data.fields("dpt_leader") & ""))
        end if
        Rec_Data.close
        if (mStr_PK_dpt_id="") then
            call ShowMess(16,"对不起，找不到您所要的 [wh_departments]！")
            call WindowBack()
        end if
    else
        mStr_dpt_name                        = ""
        mStr_dpt_leader                      = ""
    end if
end function
%>
⌨️ 快捷键说明

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