?? 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 + -