📄 show.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能：wh_tech_bonuses--查看
'编写人员：阿房
'编写时间：2003-08-16 19:57:18
'开发平台：ASP3.0 + MSSQL2000
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_tech_bonuses/Cls_wh_tech_bonuses.asp" -->
<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->
<%call checklogin()%>
<%if session("right")<2 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_tech_bonuses--查看</TITLE>
<%
dim mStr_WINDCallType
mStr_WINDCallType = trim(request.querystring("WINDCallType")) '调用方式
dim mStr_WINDURL '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)
'以下为全局变量定义
dim mStr_PK_tbonus_id '主鍵
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()">查看</A>
</TD>
</TR>
</TABLE>
<BR>
<%
call ShowData_wh_tech_bonuses() '显示wh_tech_bonuses
%>
<TABLE BORDER="0" WIDTH="90%">
<TR>
<TD ALIGN="LEFT">
<A HREF="javascript:window.history.back()">返回</A>
</TD>
<TD ALIGN="RIGHT">
<A HREF="Update.asp?<% =mStr_WINDURL%>">新增</A>
<A HREF="Update.asp?<% =mStr_WINDURL%>&PK_tbonus_id=<% Response.write mStr_PK_tbonus_id%>">修改</A>
<A HREF="javascript:DeleteData()">删除</A>
<A HREF="javascript:WindowPrint()">打印</A>
<A HREF="Search.asp?<% =mStr_WINDURL%>">查询</A>
</TD>
</TR>
</TABLE>
<DIV STYLE="DISPLAY:NONE">
</DIV>
</BODY>
</HTML>
<%
function InitData()
mStr_PK_tbonus_id = trim(request.querystring("PK_tbonus_id"))
end function
function ShowData_wh_tech_bonuses()
dim Str_tbonus_id 'tbonus_id
dim Str_tbonus_memo '备注
dim Str_tbonus_quote '技术部分配比例
dim Str_tbonus_firstsum '项目纯分配金额（前期）
dim Str_tbonus_fpercent '个人前期分配比例
dim Str_tbonus_fisgive '前期是否发放
dim Str_tbonus_fdate '前期发放日期
dim Str_tbonus_lastsum '项目纯分配金额（后期）
dim Str_tbonus_lpercent '个人后期分配比例
dim Str_tbonus_lisgive '后期是否发放
dim Str_tbonus_ldate '后期发放日期
dim Str_employee_id '员工ID
dim Str_project_id '项目ID
dim Rec_Data '结果集
if (mStr_PK_tbonus_id<>"") then
set Rec_Data = mCls_wh_tech_bonuses.GetData(mStr_PK_tbonus_id)
if (not Rec_Data.eof) then
Str_tbonus_id = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_id") & ""))
Str_tbonus_memo = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_memo") & ""))
Str_tbonus_quote = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_quote") & ""))
Str_tbonus_firstsum = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_firstsum") & ""))
Str_tbonus_fpercent = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fpercent") & ""))
Str_tbonus_fisgive = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fisgive") & ""))
Str_tbonus_fdate = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_fdate") & ""))
Str_tbonus_lastsum = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lastsum") & ""))
Str_tbonus_lpercent = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lpercent") & ""))
Str_tbonus_lisgive = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_lisgive") & ""))
Str_tbonus_ldate = Server.HTMLEncode(trim(Rec_Data.fields("tbonus_ldate") & ""))
Str_employee_id = Server.HTMLEncode(trim(Rec_Data.fields("employee_id") & ""))
Str_project_id = Server.HTMLEncode(trim(Rec_Data.fields("project_id") & ""))
Str_tbonus_memo = replace(Str_tbonus_memo,vbCrlf,"<BR> ")
Str_tbonus_fisgive = replace(Str_tbonus_fisgive,"1","是")
Str_tbonus_fisgive = replace(Str_tbonus_fisgive,"0","否")
Str_tbonus_lisgive = replace(Str_tbonus_lisgive,"1","是")
Str_tbonus_lisgive = replace(Str_tbonus_lisgive,"0","否")
'显示
%>
<!-- #include file="../wh_tech_bonuses/ShowOne_wh_tech_bonuses.asp" -->
<%
end if
Rec_Data.Close
end if
if (mStr_PK_tbonus_id="") then
call ShowMess(16,"找不到相应的 [wh_tech_bonuses]!")
call WindowBack()
end if
end function
%>
<SCRIPT LANGUAGE="javascript">
<!--********************************************************************************-->
function DeleteData(){
var w_date=new Date()
if (window.confirm("要删除所选定的 [wh_tech_bonuses]吗？")){
window.location="Delete.asp?<% =mStr_WINDURL%>&time="+w_date.getTime()+"&PK_tbonus_id='<% Response.write mStr_PK_tbonus_id%>'"
}
}
<!--********************************************************************************-->
</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -