delete.asp

来自「这是一个自己研发的薪酬管理系统」· ASP 代码 · 共 59 行

ASP
59 行
字号 
<%@ 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" -->

<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)
    %>
</HEAD>
<BODY>
    <%
    call InitData()
    %>
</BODY>
</HTML>
<%
function InitData()
'功能：初始化
    call CheckData()
end function

function CheckData()
'功能:删除资料
dim Str_Mess
dim Str_ID
    Str_Mess     = ""
    Str_ID       = Trim(Request.QueryString("PK_tbonus_id"))
    Str_Mess=mCls_wh_tech_bonuses.DeleteData(Str_ID)
    if (Str_Mess<>"") then
        call ShowMess(16,Str_Mess)
        call WindowBack()
    else
        select case mStr_WINDCallType
            case else:
                response.write("<script language=JavaScript>")
				response.write("window.opener.location.reload();")
				response.write("window.close()")
				response.write("</script>")
        end select
    end if
end function
%>

delete.asp - 源码说明

本页面展示了「这是一个自己研发的薪酬管理系统」中的 delete.asp 源码文件，采用 ASP 编程语言编写，共 59 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与薪酬管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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