📄 update.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能：wh_salaryItems1--维护
'编写人员：阿房
'编写时间：2003-08-23 10:05:21
'开发平台：ASP3.0 + MSSQL2000
'版本：1.1.20030908.01
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_salaryItems1/Cls_wh_salaryItems1.asp" -->
<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->
<%call checklogin()%>
<%
if session("right")<3 then
dim lr
lr="<font color=red>"&now()&"有"&session("name")&"试图修改工资栏目表 IP:"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
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_salaryItems1--维护</TITLE>
<%
dim mStr_WINDCallType
mStr_WINDCallType = trim(request.querystring("WINDCallType")) '调用方式
dim mStr_WINDURL '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)
'下列为全局变量
dim mStr_PK_item1_id '主鍵
dim mStr_item1_number '排序
dim mStr_item1_name '工资项目
dim mStr_item1_isused '是否使用
dim mStr_item1_tech '技术部
dim mStr_item1_market '市场部
dim mStr_item1_adm '行政
dim mStr_item1_other '其他
dim mStr_item1_memo '备注
call InitData()
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name != 'chkAll')
//e.checked = form.chkAll.checked;
form.item1_tech.checked = form.chkAll.checked;
form.item1_market.checked = form.chkAll.checked;
form.item1_adm.checked = form.chkAll.checked;
form.item1_other.checked = form.chkAll.checked;
}
}
//-->
</SCRIPT>
</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_item1_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>排序 </TD>
<TD> <INPUT STYLE="WIDTH:100px" NAME="item1_number" VALUE='<% Response.write mStr_item1_number%>'>
<FONT COLOR=RED>**</FONT> </TD>
</TR>
<TR>
<TD>工资项目 </TD>
<TD> <INPUT STYLE="WIDTH:200px" NAME="item1_name" VALUE='<% Response.write mStr_item1_name%>'>
<FONT COLOR=RED>**</FONT> </TD>
</TR>
<TR>
<TD>是否使用 </TD>
<TD> <SELECT NAME="item1_isused">
<OPTION VALUE='1' <% if mStr_item1_isused="True" then Response.write "SELECTED"%>>是</OPTION>
<OPTION VALUE='0' <% if mStr_item1_isused="False" then Response.write "SELECTED"%>>否</OPTION>
</SELECT> <FONT COLOR=RED>**</FONT> </TD>
</TR>
<TR>
<TD>该项目适用于<br><input type="checkbox" name="chkAll" value="on" onClick="CheckAll(this.form)">[全选]
</TD>
<TD> <input name="item1_tech" type="checkbox" id="item1_tech" value="1" <% if mStr_item1_tech="1" then Response.write "checked"%>>
技术部 <input name="item1_market" type="checkbox" id="item1_market" value="1" <% if mStr_item1_market="1" then Response.write "checked"%>>
市场部 <input name="item1_adm" type="checkbox" id="item1_adm" value="1" <% if mStr_item1_adm="1" then Response.write "checked"%>>
行政 <input name="item1_other" type="checkbox" id="item1_other" value="1" <% if mStr_item1_other="1" then Response.write "checked"%>>
其他 </TD>
</TR>
<TR>
<TD>备注 </TD>
<TD> <TEXTAREA STYLE="HEIGHT:100px;WIDTH:200px" NAME="item1_memo"><% Response.write mStr_item1_memo%> </TEXTAREA>
</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_item1_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_item1_id" VALUE='<% Response.write mStr_PK_item1_id%>'>
</DIV>
</FORM>
</BODY>
</HTML>
<%
function InitData()
'初始化
dim Rec_Data '结果集
mStr_PK_item1_id = trim(request.querystring("PK_item1_id"))
if (mStr_PK_item1_id<>"") then
'读取原有数据
set Rec_Data = mCls_wh_salaryItems1.GetData(mStr_PK_item1_id)
if (not Rec_Data.eof) then
mStr_item1_number = Server.HTMLEncode(trim(Rec_Data.fields("item1_number") & ""))
mStr_item1_name = Server.HTMLEncode(trim(Rec_Data.fields("item1_name") & ""))
mStr_item1_isused = Server.HTMLEncode(trim(Rec_Data.fields("item1_isused") & ""))
mStr_item1_tech = Server.HTMLEncode(trim(Rec_Data.fields("item1_tech") & ""))
mStr_item1_market = Server.HTMLEncode(trim(Rec_Data.fields("item1_market") & ""))
mStr_item1_adm = Server.HTMLEncode(trim(Rec_Data.fields("item1_adm") & ""))
mStr_item1_other = Server.HTMLEncode(trim(Rec_Data.fields("item1_other") & ""))
mStr_item1_memo = Server.HTMLEncode(trim(Rec_Data.fields("item1_memo") & ""))
end if
Rec_Data.close
if (mStr_PK_item1_id="") then
call ShowMess(16,"对不起，找不到您所要的 [wh_salaryItems1]！")
call WindowBack()
end if
else
mStr_item1_number = ""
mStr_item1_name = ""
mStr_item1_isused = ""
mStr_item1_tech = ""
mStr_item1_market = ""
mStr_item1_adm = ""
mStr_item1_other = ""
mStr_item1_memo = ""
end if
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -