📄 update.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 '主鍵
dim mStr_log_time '时间
dim mStr_log_ip 'IP
dim mStr_log_who '操作人
dim mStr_log_action '动作
dim mStr_log_type '类型
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()"><%if mStr_PK_log_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>
<SELECT STYLE="WIDTH:50px" 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>
<%
if (FormatDate(mStr_log_time,"yyyy")="") then
Call ShowOptionList(Year(Date())-5-gInt_BeginYear,Year(Date())-5,11,Year(Date()))
else
Call ShowOptionList(Val(FormatDate(mStr_log_time,"yyyy"))-5-gInt_BeginYear,Val(FormatDate(mStr_log_time,"yyyy"))-5,11,Val(FormatDate(mStr_log_time,"yyyy")))
end if
%>
</SELECT>年
<SELECT STYLE="WIDTH:40px" 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,FormatDate(mStr_log_time,"mm")) %>
</SELECT>月
<SELECT STYLE="WIDTH:40px" 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,FormatDate(mStr_log_time,"dd")) %>
</SELECT>日
<SPAN <%if gInt_BeginYear=0 then response.write "STYLE='DISPLAY:NONE'" %> >
西元：<INPUT STYLE="WIDTH:100px" NAME="log_time" VALUE='<% Response.write mStr_log_time%>' READONLY CLASS="READONLY">
</SPAN>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>IP </TD>
<TD>
<INPUT STYLE="WIDTH:200px" NAME="log_ip" VALUE='<% Response.write mStr_log_ip%>'>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>操作人 </TD>
<TD>
<INPUT STYLE="WIDTH:200px" NAME="log_who" VALUE='<% Response.write mStr_log_who%>'>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>动作 </TD>
<TD>
<INPUT STYLE="WIDTH:200px" NAME="log_action" VALUE='<% Response.write mStr_log_action%>'>
<FONT COLOR=RED>**</FONT>
</TD>
</TR>
<TR>
<TD>类型 </TD>
<TD>
<INPUT STYLE="WIDTH:100px" NAME="log_type" VALUE='<% Response.write mStr_log_type%>'>(数值格式:999999.99)
<FONT COLOR=RED>**</FONT>
</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>
<TD ALIGN="RIGHT">
<% if (mStr_PK_log_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_log_id" VALUE='<% Response.write mStr_PK_log_id%>'>
</DIV>
</FORM>
</BODY>
</HTML>
<%
function InitData()
'初始化
dim Rec_Data '结果集
mStr_PK_log_id = trim(request.querystring("PK_log_id"))
if (mStr_PK_log_id<>"") then
'读取原有数据
set Rec_Data = mCls_wh_logs.GetData(mStr_PK_log_id)
if (not Rec_Data.eof) then
mStr_log_time = Server.HTMLEncode(trim(Rec_Data.fields("log_time") & ""))
mStr_log_ip = Server.HTMLEncode(trim(Rec_Data.fields("log_ip") & ""))
mStr_log_who = Server.HTMLEncode(trim(Rec_Data.fields("log_who") & ""))
mStr_log_action = Server.HTMLEncode(trim(Rec_Data.fields("log_action") & ""))
mStr_log_type = Server.HTMLEncode(trim(Rec_Data.fields("log_type") & ""))
end if
Rec_Data.close
if (mStr_PK_log_id="") then
call ShowMess(16,"对不起，找不到您所要的 [wh_logs]！")
call WindowBack()
end if
else
mStr_log_time = ""
mStr_log_ip = ""
mStr_log_who = ""
mStr_log_action = ""
mStr_log_type = ""
end if
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -