📄 employee_info.asp
字号:
<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<!--#include file= "employee_function.asp"-->
<html>
<head>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>员工资料卡</title>
<link href="../mstyle.css" rel="stylesheet" type="text/css">
<!--#include file= "../js.asp"-->
</head>
<body >
<%
if request.QueryString("department")<> "" then
department=request.QueryString("department")
else
department=""
end if
rsInfo=employee(department)
%><p align="center"><font size="+1">员 工 图 示 索 引</font></p>
<table align=center width="80%">
<%for i= 0 to ubound(rsInfo,2) step 2
j=i+1%>
<tr>
<td align=right><img border="0" width="101" height="138" align="texttop" src="<%=rsInfo(0,i)%>" title="<%call InfoTitle(rsInfo,i)%>"></td>
<td valign=bottom>
<%call InfoShow(rsInfo,i)%>
<p align="right" style="cursor: hand" title="<%call InfoTitle(rsInfo,i)%>" onclick="parent.location.href='employee_modify.asp?ID=<%=rsInfo(12,i)%>';">详细资料...</p></td>
<%if j <= ubound(rsInfo,2) then%>
<td align=right><img border="0" width="101" height="138" align="texttop" src="<%=rsInfo(0,j)%>" title="<%call InfoTitle(rsInfo,j)%>"></td>
<td valign=bottom>
<%call InfoShow(rsInfo,j)%>
<p align="right" style="cursor: hand" title="<%call InfoTitle(rsInfo,j)%>" onclick="parent.location.href='employee_modify.asp?ID=<%=rsInfo(12,j)%>';">详细资料...</p></td>
<%else
response.Write ("<td> </td><td> </td>")
end if
%>
</tr>
<%next%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -