📄 view.asp
字号:
<!-- #include file = "../../../include/asphead.asp" -->
<!-- #include file = "../../../include/function.asp" -->
<link href="../../../include/main.css" rel="stylesheet" type="text/css">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function Close()
{
window.parent.close()
}
//-->
</SCRIPT>
<%
dim ErrNo,ErrDesc
set WExcelEnv=server.CreateObject("WExcel.UserAuth")
if not WExcelEnv.CheckDBConn(ErrNo,ErrDesc) then
GoExceptPage("/hcgis/error.asp?ErrNo=" & ErrNo)
else
dim WExcel
set WExcel=server.CreateObject("WExcel.System")
dim RowID,strBody,strName
RowID=Request.QueryString("RowID")
dim Exist
Exist=WExcel.UserExist(cint(UserID),clng(RowID))
CheckErr
if Exist=false then
Response.Redirect "/hcgis/notfound.asp?Name=用户账号&Depth=2"
end if
Success=WExcel.GetUserViewPage(cint(UserID),clng(RowID),strName,strBody)
end if
CheckErr
%>
<html>
<head>
<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 CELLSPACING=0 CELLPADDING="0">
<tr height="35">
<td colspan=5>
<b>
在线用户信息
</b>
</td>
</tr>
<tr height=110 valign="top">
<td colspan=5>
<table width="95%" border=0 CELLSPACING="1" CELLPADDING="0">
<%=strBody%>
</table>
</td>
</tr>
<tr height=40 valign=bottom>
<td colspan="5">
<p align="center">
<input id="btnSave" type="button" value="关闭" name="btnSave" style="cursor:hand; WIDTH: 50px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return Close()">
</p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -