⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 show.asp

📁 这是一个自己研发的薪酬管理系统
💻 ASP
字号:
🔍 
<%@ Language=VBScript %>
<%
'文件功能：wh_logs--查看
'编写人员：阿房
'编写时间：2003-05-06 17:08:59
'开发平台：ASP3.0 + MSSQL2000
'版本：1.1.20030908.01
%>

<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_logs/Cls_wh_logs.asp" -->

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

    '以下为全局变量定义
    dim mStr_PK_log_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%>">wh_logs</A>>>
                <A CLASS="locationlastdata" HREF="javascript:window.location.reload()">查看</A>
            </TD>
        </TR>
    </TABLE>
    <BR>
    <%
    call ShowData_wh_logs()   '显示wh_logs
    %>
    <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>&nbsp;
                <A HREF="Update.asp?<% =mStr_WINDURL%>&PK_log_id=<% Response.write mStr_PK_log_id%>">修改</A>&nbsp;
                <A HREF="javascript:DeleteData()">删除</A>&nbsp;
                <A HREF="javascript:WindowPrint()"></A>&nbsp;
                <A HREF="Search.asp?<% =mStr_WINDURL%>">查询</A>&nbsp;
            </TD>
        </TR>
    </TABLE>
    <DIV STYLE="DISPLAY:NONE">
    </DIV>
</BODY> 
</HTML> 
<%
function InitData()
    mStr_PK_log_id      =  trim(request.querystring("PK_log_id"))
end function

function ShowData_wh_logs()
dim Str_log_time                         '时间
dim Str_log_ip                           'IP
dim Str_log_who                          '操作人
dim Str_log_action                       '动作
dim Str_log_type                         '类型
dim Rec_Data                             '结果集
    if (mStr_PK_log_id<>"") then
        set Rec_Data   = mCls_wh_logs.GetData(mStr_PK_log_id)
        if (not Rec_Data.eof) then
            Str_log_time                      = Server.HTMLEncode(trim(Rec_Data.fields("log_time") & ""))
            Str_log_ip                        = Server.HTMLEncode(trim(Rec_Data.fields("log_ip") & ""))
            Str_log_who                       = Server.HTMLEncode(trim(Rec_Data.fields("log_who") & ""))
            Str_log_action                    = Server.HTMLEncode(trim(Rec_Data.fields("log_action") & ""))
            Str_log_type                      = Server.HTMLEncode(trim(Rec_Data.fields("log_type") & ""))


            '显示
%>
        <!-- #include file="../wh_logs/ShowOne_wh_logs.asp" -->
<%        
        end if
        Rec_Data.Close
    end if
    if (mStr_PK_log_id="") then
        call ShowMess(16,"找不到相应的 [wh_logs]!")
        call WindowBack()
    end if
end function
%>

<SCRIPT LANGUAGE="javascript">
<!--********************************************************************************-->
function DeleteData(){
var w_date=new Date()
    if (window.confirm("要删除所选定的 [wh_logs]吗？")){
        window.location="Delete.asp?<% =mStr_WINDURL%>&time="+w_date.getTime()+"&PK_log_id='<% Response.write mStr_PK_log_id%>'"
    }
}
<!--********************************************************************************-->
</SCRIPT>

⌨️ 快捷键说明

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