📄 search.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" -->
<!-- #include file="../pub/fun.asp" -->
<%call checklogin()%>
<%
if session("right")<4 then
dim lr
lr="<font color=red>"&now()&"有"&session("name")&"试图查看日志 IP:"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
call savelog("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_logs--查询</TITLE>
<%
dim mStr_WINDCallType
mStr_WINDCallType = trim(request.querystring("WINDCallType")) '调用方式
dim mStr_WINDURL '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)
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>
<FORM ACTION="Main.asp?<% =mStr_WINDURL%>" ID="Frm_Update" METHOD="post">
<TABLE WIDTH="80%" <% Response.write GetTableBorder()%>>
<COLGROUP>
<COL 1 CLASS="TABLEHEAD" WIDTH="100" ALIGN="RIGHT">
<COL 2 CLASS="TABLEDATA">
</COLGROUP>
<TR>
<TD>排序方式 </TD>
<TD>
<SELECT STYLE="HEIGHT:100px;WIDTH:200px" NAME="SortBy">
<OPTION VALUE='log_time'>时间</OPTION>
<OPTION VALUE='log_ip'>IP</OPTION>
<OPTION VALUE='log_who'>操作人</OPTION>
<OPTION VALUE='log_action'>动作</OPTION>
<OPTION VALUE='log_type'>类型</OPTION>
</SELECT>
<INPUT TYPE=RADIO NAME="AscMark" VALUE='' >升序
<INPUT TYPE=RADIO NAME="AscMark" VALUE='desc' CHECKED>倒序
<INPUT TYPE=HIDDEN NAME="Page" VALUE='1'>
</TD>
</TR>
<TR>
<TD>时间 </TD>
<TD>
<SELECT NAME="log_timeYear" ONCHANGE='javascript:window.Frm_Update.log_time.value=ConvertToDate(window.Frm_Update.log_timeYear.value,window.Frm_Update.log_timeMonth.value,window.Frm_Update.log_timeDay.value)'>
<OPTION VALUE='' SELECTED></OPTION>
<% Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date())) %>
</SELECT>年
<SELECT NAME="log_timeMonth" ONCHANGE='javascript:window.Frm_Update.log_time.value=ConvertToDate(window.Frm_Update.log_timeYear.value,window.Frm_Update.log_timeMonth.value,window.Frm_Update.log_timeDay.value)'>
<OPTION VALUE='' SELECTED></OPTION>
<% Call ShowOptionList(1,1,12,0) %>
</SELECT>月
<SELECT NAME="log_timeDay" ONCHANGE='javascript:window.Frm_Update.log_time.value=ConvertToDate(window.Frm_Update.log_timeYear.value,window.Frm_Update.log_timeMonth.value,window.Frm_Update.log_timeDay.value)'>
<OPTION VALUE='' SELECTED></OPTION>
<% Call ShowOptionList(1,1,31,0) %>
</SELECT>日
<SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
西元：<INPUT STYLE="WIDTH:100px" NAME="log_time" VALUE='' READONLY CLASS="READONLY">
</SPAN>
</TD>
</TR>
<TR>
<TD>IP </TD>
<TD>
<INPUT STYLE="WIDTH:200px" NAME="log_ip">
</TD>
</TR>
<TR>
<TD>操作人 </TD>
<TD>
<INPUT STYLE="WIDTH:200px" NAME="log_who">
</TD>
</TR>
<TR>
<TD>类型 </TD>
<TD>
<SELECT NAME="log_type">
<OPTION VALUE='' SELECTED></OPTION>
<OPTION VALUE='1'>管理操作</OPTION>
<OPTION VALUE='2'>错误操作</OPTION>
<OPTION VALUE='3'>登陆记录</OPTION>
</SELECT>
</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>
</TR>
</TABLE>
<DIV STYLE="DISPLAY:NONE">
</DIV>
</FORM>
</BODY>
</HTML>
<%
function InitData()
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -