📄 updateguyuan.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/connect.asp" -->
<%
Dim rsgy
Dim rsgy_numRows
Set rsgy = Server.CreateObject("ADODB.Recordset")
con = MM_connect_STRING
sql = "SELECT * FROM guyuan"
rsgy.CursorType = 0
rsgy.CursorLocation = 2
rsgy.LockType = 1
rsgy.pagesize=6
rsgy.Open sql,con,1,1
rsgy_numRows = 0
if Request("page")="" then
session("page")=1
else
if request("page")="up" and session("page")>1 then
session("page")=session("page")-1
else
if request("page")="down" and session("page")<rsgy.pagecount then
session("page")=session("page")+1
end if
end if
end if
page=session("page")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#6699CC" link="#FFCC00">
<center>
<font color="#FFCC00" size="2">共<%=rsgy.pagecount%>页
<% if page=1 then
response.write ("第一页")
else%>
<a href="updateguyuan.asp?page=up" >上一页</a>
<%end if%>
<% if page=rsgy.pagecount then
response.write (" 最后一页")
else%>
<a href="updateguyuan.asp?page=down">下一页</a>
<%end if%>
</font>
</center>
<br>
<%
rsgy.move (page-1)*6
for i=1 to 6
if rsgy.eof then
exit for
end if
%>
<table width="607" height="129" border="0" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#666699">
<td colspan="4"><div align="center"><font color="#FFCC00"><strong>雇员<%=(rsgy.Fields.Item("guyuanid").Value)%>的信息</strong></font></div></td>
</tr>
<tr>
<td width="21%" bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">雇员ID</font></div></td>
<td width="26%" bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("guyuanid").Value)%></font></td>
<td width="19%" bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">雇员姓名</font></div></td>
<td width="34%" bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("name").Value)%></font></td>
</tr>
<tr>
<td bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">职位</font></div></td>
<td bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("zhiwei").Value)%></font></td>
<td bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">性别</font></div></td>
<td bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("sex").Value)%></font></td>
</tr>
<tr>
<td bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">年龄</font></div></td>
<td bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("age").Value)%></font></td>
<td bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">联系电话</font></div></td>
<td bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("tel").Value)%></font></td>
</tr>
<tr>
<td bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">Email</font></div></td>
<td bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("email").Value)%></font></td>
<td bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">所属部门</font></div></td>
<td bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("telw").Value)%></font></td>
</tr>
<tr>
<td bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">地址</font></div></td>
<td bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("address").Value)%></font></td>
<td bgcolor="#6699CC"><div align="right"><font color="#FFCC00" size="2">进入公司时间</font></div></td>
<td bgcolor="#66aadd"><font color="#000000" size="2"><%=(rsgy.Fields.Item("tim").Value)%></font></td>
</tr>
<tr>
<td colspan="4" bgcolor="#6699CC"><div align="right"><font color="#990000" size="2"><a href="updategy.asp?gyid=<%=rsgy.Fields.Item("guyuanid").Value %>">更新</a><font color="#6699CC">-----------</font></font></div></td>
</tr>
</table>
<br>
<%
rsgy.movenext
next
%>
<br>
<center>
<font color="#FFCC00" size="2">共<%=rsgy.pagecount%>页
<% if page=1 then
response.write ("第一页")
else%>
<a href="updateguyuan.asp?page=up" >上一页</a>
<%end if%>
<% if page=rsgy.pagecount then
response.write (" 最后一页")
else%>
<a href="updateguyuan.asp?page=down">下一页</a>
<%end if%>
</font>
</center>
</body>
</html>
<%
rsgy.Close()
Set rsgy = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -