📄 viewref.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<link href="../include/main.css" rel="stylesheet" type="text/css">
<script src="../include/function.js" type="text/javascript"></script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function Cancel()
{
parent.window.close();
}
function View(SheetID,RowID)
{
var myScreen,myTop,myLeft;
myTop=window.screenTop-44;
myLeft=window.screenLeft+14;
myScreen="dialogwidth:640px;dialogheight:480px;dialogtop:"+myTop+"px;dialogleft:"+myLeft+"px;Status:0;center:1;resizable=1;"
var RowIDs;
eval("RowIDs=RowIDsForSheet" + SheetID + ".value;");
if(window.showModalDialog ("viewframe.asp?Target=view.asp?SheetAndRowID="+SheetID+JoinChar+RowID+JoinChar+RowIDs,"",myScreen)==true)
{
parent.window.returnValue =true;
window.navigate(parent.window.location);
}
}
function ViewRef(SheetID,FieldID,FieldValue) {
var RefString;
RefString=SheetID+JoinChar+FieldID+JoinChar+FieldValue;
var myScreen,myTop,myLeft;
myTop=window.screenTop-44;
myLeft=window.screenLeft+14;
myScreen="dialogwidth:640px;dialogheight:480px;dialogtop:"+myTop+"px;dialogleft:"+myLeft+"px;Status:0;center:1;resizable=1;"
window.showModalDialog ("viewframe3.asp?Target=viewref.asp?RefString="+RefString,"",myScreen);
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim RefString,Parts,SheetID,FieldID,FieldValue
RefString=Request.QueryString("RefString")
Parts=split(RefString,JoinChar)
SheetID=Parts(0)
FieldID=Parts(1)
'找出FieldValue，位于第2个JoinChar之后
dim pos
pos=0
pos=instr(pos+1,RefString,JoinChar)
pos=instr(pos+1,RefString,JoinChar)
FieldValue=mid(RefString,pos+1)
dim Exist
Exist=WExcel.SheetExist(cint(UserID),cint(SheetID))
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=数据表&Depth=2"
end if
CheckErr
Exist=WExcel.RefSheetDataExist(cint(UserID),cint(SheetID),cint(FieldID),cstr(FieldValue))
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=记录&Depth=2"
end if
dim strBody,SheetCaption
WExcel.GetRefSheetViewPage cint(UserID),cint(SheetID),cint(FieldID),cstr(FieldValue),true,SheetCaption,strBody
CheckErr
%>
<html>
<head>
<title><%=SheetCaption%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border=0 cellPadding=0 cellSpacing=0>
<tr height=5>
<td colspan="5">
</tr>
<tr>
<td height=1 rowspan="3" valign="bottom" width="10%"><IMG height=1 src="../images/promptline.gif" width="100%"></td>
<td height=1 rowspan="3" width="1%"><IMG height=22 src="../images/lefton.gif" width=11></td>
<td height=1 valign="center" width="11%"><IMG height=1 src="../images/promptline.gif" width="100%"></td>
<td height=1 rowspan="3" width="1%"><IMG height=22 src="../images/righton.gif" width=11></td>
<td height=1 rowspan="3" valign="bottom" width="77%"><IMG height=1 src="../images/promptline.gif" width="100%"></td>
</tr>
<tr>
<td height=20 valign=bottom>预览</td>
</tr>
<tr>
<td></td>
</tr>
</table>
<table width="100%" border=0 CELLSPACING=0 CELLPADDING="0">
<tr height=10>
<td colspan=5></td>
</tr>
<tr height=340 valign="top">
<td colspan=5>
<table width="99%" border=0 CELLSPACING="1" CELLPADDING="0">
<%=strBody%>
</table>
</td>
</tr>
<tr height=40 valign=bottom>
<td colspan=5><input id="btnCancel" type="button" value="关闭" name="btnCancel" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return Cancel()"></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -