📄 history.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<link href="../include/main.css" rel="stylesheet" type="text/css">
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim SheetAndRowID,Parts,SheetID,RowID
SheetAndRowID=Request.QueryString("SheetAndRowID")
Parts=split(SheetAndRowID,JoinChar)
SheetID=Parts(0)
RowID=Parts(1)
dim FieldID
FieldID=Request.QueryString("FieldID")
if FieldID="" then
FieldID=Request.Cookies("Sheet")("HistoryField" & SheetID)
end if
if FieldID="" then
FieldID=0
end if
Response.Cookies("Sheet")("HistoryField" & SheetID)=FieldID
Response.Cookies("Sheet").Expires = CookieLife
dim Exist
Exist=WExcel.SheetExist(cint(UserID),cint(SheetID))
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=2"
end if
Exist=WExcel.SheetDataExist(cint(UserID),cint(SheetID),clng(RowID))
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=记录&Depth=2"
end if
dim strBody,Success
Success=WExcel.GetSheetHistory(cint(UserID),cint(SheetID),cint(FieldID),clng(RowID),strBody)
CheckErr
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%if strBody="" then%>
<TABLE WIDTH=40% align=center BORDER=0 CELLSPACING="0" CELLPADDING=0>
<TR width="99%" height=150 valign="center">
<TD colspan=2>无操作历史。</TD>
</TR>
</TABLE>
<%else%>
<table width="99%" border=0 align="center" CELLSPACING=1 CELLPADDING=0>
<tr>
<%=strBody%>
</tr>
</table>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -