📄 listmember.asp
字号:
<head>
<LINK href="style.css" rel=stylesheet>
<!--#include file="db.asp"-->
<!--#include file="session.asp"-->
</head>
<body topMargin=0 marginheight="0" leftMargin=0 vlink="#000000">
<table border="0" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
<tr>
<td width="100%">
<table border="0" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="4" bordercolordark="#FFFFFF">
<%
dim conn,rs,CurPage,sql
If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
display = CurPage
sql="Select * From address order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%><tr>
<td><%if rs.eof and rs.bof then%>暂时还没有人员记录<%else
RS.PageSize=7
'Calculate Total Pages
Dim TotalPages
TotalPages = RS.PageCount
If CurPage>RS.Pagecount Then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
'Set Cache Size = No of Records on Each Page
rs.CacheSize = RS.PageSize
'Calculate Max Records
Dim Totalcount
Totalcount =INT(RS.recordcount)
StartPageNum=1
do while StartPageNum+7<=CurPage
StartPageNum=StartPageNum+7
Loop
EndPageNum=StartPageNum+6
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
I=0
p=RS.PageSize*(Curpage-1)
do while (Not RS.Eof) and (I<RS.PageSize)
p=p+1
Set rsc = Server.CreateObject("ADODB.Recordset")
sql="Select * From cp where id="&rs("cmp")
rsc.open sql,Conn,3,3%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td> 姓名：<%=rs("name")%> 公司：<%=rsc("comp")%> <%rsc.close%>
| <%x=request("x")
w=request("w")
sid=request("sid")
sid0=rs("id")
ad=request("ad")
if w="on" and sid=""&sid0&"" then%><a href="listmember.asp?id=<%=rs("id")%>&CurPage=<%=request("curpage")%>" target=_self>隐藏详细情况</a> | <a href="listmember.asp?x=on&sid=<%=rs("id")%>&CurPage=<%=request("curpage")%>" target=_self>修改</a> | <a href="addrdel.asp?id=<%=rs("id")%>" target=_self>删除</a> |<hr width="98%" size="1" align="left"></td>
</tr>
<tr>
<td bgcolor="#C0C0C0"><br> 部门及职位：<%=rs("sort")%><br> 电子邮件：<%=rs("email")%><br> 办公电话：<%=rs("tel")%><br> 分机：<%=rs("telf")%><br> 手机或传呼：<%=rs("mob")%><br> 传真：<%=rs("cz")%><br> </td>
</tr>
<tr>
<td><hr width="98%" size="1" align="left"></td>
</tr>
<%elseif x="on" and sid=""&sid0&"" then
Set rsd = Server.CreateObject("ADODB.Recordset")
sql="Select * From cp order by id desc"
rsd.open sql,Conn,3,3
%>
<a href="listmember.asp?w=on&sid=<%=rs("id")%>&CurPage=<%=request("curpage")%>" target=_self>
查看详细情况</a> | <a href="listmember.asp?x=on&sid=<%=rs("id")%>&CurPage=<%=request("curpage")%>" target=_self>修改</a> | <a href="addrdel.asp?id=<%=rs("id")%>" target=_self>删除</a> |<hr width="98%" size="1" align="left">
<tr><form action=listmember.asp target=_self>
<td bgcolor="#C0C0C0"><input type="hidden" name="id" value="<%=rs("id")%>"><input type="hidden" name="ad" value="ecomp">
<input type="hidden" name="curpage" value="<%=request("curpage")%>">
<br> 公 司：<select name="cmp" style="font-size: 9pt">
<option value="1" selected>请选择所在公司</option>
<%
do while not rsd.eof%>
<option value="<%=rsd("id")%>"><%=rsd("comp")%></option><%rsd.MoveNext
Loop
rsd.close%>
</select><br> 部门及职务：<input type="text" name="sort" size="50" style="font-size: 9pt" value="<%=rs("sort")%>"><br> 姓 名：<input type="text" name="name" size="20" style="font-size: 9pt" value="<%=rs("name")%>"><br> 电子邮件：<input type="text" name="email" size="50" style="font-size: 9pt" value="<%=rs("email")%>"><br> 办公电话：<input type="text" name="tel" size="20" style="font-size: 9pt" value="<%=rs("tel")%>"><br> 分 机：<input type="text" name="telf" size="20" style="font-size: 9pt" value="<%=rs("telf")%>"><br> 手机或传呼：<input type="text" name="mob" size="20" style="font-size: 9pt" value="<%=rs("mob")%>"><br> 传 真：<input type="text" name="cz" size="20" style="font-size: 9pt" value="<%=rs("cz")%>"><br> <input type="submit" value="修 改" style="font-size: 9pt"> <input type="reset" value="取 消" style="font-size: 9pt"><br> </td>
</form></tr>
<tr>
<td><hr width="98%" size="1" align="left"></td>
</tr><%else%>
<a href="listmember.asp?w=on&sid=<%=rs("id")%>&CurPage=<%=request("curpage")%>" target=_self>
查看详细情况</a> | <a href="listmember.asp?x=on&sid=<%=rs("id")%>&CurPage=<%=request("curpage")%>" target=_self>修改</a> | <a href="addrdel.asp?id=<%=rs("id")%>" target=_self>删除</a> |<hr width="98%" size="1" align="left">
<%
id=request("id")
if ad="ecomp" and id=""&sid0&"" then
cmp=request("cmp")
name=request("name")
sort=request("sort")
email=request("email")
tel=request("tel")
telf=request("telf")
mob=request("mob")
cz=request("cz")
if sort="" then
sort="-"
end if
if email="" then
email="-"
end if
if tel="" then
tel="-"
end if
if telf="" then
telf="-"
end if
if mob="" then
mob="-"
end if
if cz="" then
cz="-"
end if
if email="" then
email="-"
end if
strSql = "update address set name='"&name&"',sort='"&sort&"',cmp='"&cmp&"',cz='"&cz&"',tel='"&tel&"',telf='"&telf&"',mob='"&mob&"',email='"&email&"' where id="& id
conn.Execute strSql%> <tr>
<td bgcolor="#C0C0C0"><font color=red>修改成功！</font></td>
</tr>
<tr>
<td><hr width="98%" size="1" align="left"></td>
</tr><%end if
end if%>
</table><%I=I+1
RS.MoveNext
Loop%><p align="right">
<a href="listmember.asp?CurPage=<%=StartPageNum-1%>" target="_self">上一页</a>
<% For I=StartPageNum to EndPageNum
if I<>CurPage then %> <a href="listmember.asp?CurPage=<%=I%>" target=_self><%=I%>
</a> <% else %>
<%=I%> <% end if %> <% Next %>
<% if EndPageNum<RS.Pagecount then %><a href="listmember.asp?CurPage=<%=EndPageNum+1%>" target=_self >更多...</a>
<%end if%><b>|</b> <a href="listmember.asp?" target=_self >最 新</a> </p>
<%rs.close
set rs=nothing
end if%>
</td>
</tr>
</table>
</table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -