📄 modify.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%ColumnName="":Tablename="HX_CompanyUser":action=request("action"):Orderby=" where WS_leave=False ORDER BY WS_Uid DESC"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>员工一览</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'></head><body topmargin='20' leftmargin='0' bottommargin='0'><table width='611' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td width='619' colspan='2' bgcolor=FFFBE8><table width='609' border='0' cellspacing='0' cellpadding='0'><tr><td width='609' height='25' background='../hximages/titleline.gif'><font class='fontmenu'>员工一览</font></td></tr></table><table width='100%' cellspacing cellpadding><tr><td width='100%'><table width='100%' border='0' cellspacing='1' cellpadding='2' align='center' bgcolor='#613c25'><tr bgcolor='#BF9B73' class='td4'><td height='23' width='10%'><div align='center'><b>工号</b></div></td><td height='23' width='20%'><div align='center'><b>姓名</b></div></td><td height='23' width='40%'><div align='center'><b>所在部门</b></div></td><td height='23' width='21%'><div align='center'><b>职务</b></div></td><td height='23' width='9%'><div align='center'><b>操作</b></div></td></tr>"
if rs.recordcount<=0 then
response.write "<tr><td colspan=5>暂无用户</td></tr>"
else
rs.PageSize =15 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=0
do while not rs.EOF
response.write "<tr "
if i mod 2 =0 then response.write "bgcolor='#FFFBE8'" else response.write "bgcolor='#FFFBE8'"
response.write "><td width='10%' height='23'>"&rs("WS_Code")&"</td><td width='20%' height='23'>"&rs("WS_Name")&"</td><td width='40%' height='23'>"
set ders=WS_S.HX_SetRSD("*","HX_Department"," where WS_Did="&rs("WS_department")):if ders.recordcount>0 then response.write ders("WS_departmentName")&"</td><td width='21%' height='23'>"
set aprs=WS_S.HX_SetRSD("*","HX_Appointment"," where WS_Aid="&rs("WS_Appointment")):if aprs.recordcount>0 then response.write aprs("WS_AppointmentName")&"</td><td width='9%' height='23'><div align='center'><a href='domodify.asp?WS_Uid="&rs("WS_Uid")&"'><img src='../HXimages/edit.gif' width='15' height='15' alt='修改' border='0'></a> <a href='userinfolook.asp?WS_Uid="&rs("WS_Uid")&"'><img src='../HXimages/view.gif' width='16' height='15' alt='查看' border='0'></a></div></td></tr>"
i=i+1
if i>=rs.PageSize then Exit Do
rs.movenext
loop
call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",5)
end if
response.write "</table></td></tr></table></td></tr></table>"%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -