📄 memberlist.asp
字号:
<!-- #include file = "include/sysbase.asp" -->
<!-- #include file = "include/config.asp" -->
<%
dim rsObj,strSQL
dim page, myKeyword, thisUrl, i, bShowAdd
myKeyword = Request.Form("myKeyword")
page = Request.QueryString("page")
if (page = "" or IsEmpty(page)) then page = 1
thisUrl = "memberList.asp?myKeyword=" & myKeyword
Session("adminOldUrl") = thisUrl&"&page = "&page
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Member WHERE 1 = 1"
if not (myKeyword = "" or IsEmpty(myKeyword) ) then
strSQL = strSQL &" AND Name like '%" & myKeyword & "%'"
end if
strSQL = strSQL & " ORDER by Memberid"
rsObj.Open strSQL, conn, 1,2
rsObj.pagesize = conMaxPerPage
%>
<html>
<head>
<title>memberlist(administrate)</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
<script language = Javascript>
<!--
function deleteMe(i){
if (confirm("delete？Can't be resumed。") == 1){
window.location = "memDel.asp?memberID=" + i;
}
}
//-->
</script>
</head>
<body text = "#000000" leftmargin = "0" topmargin = "0">
<div align = "center"><br>
客户管理(administrate) </div>
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "4" align = "center">
<tr bgcolor = "#5EA5E6">
<td width = "15%" nowrap bgcolor="#FF0000"> account
<div align = "center"><font color = "#FFFFFF"> </font></div> </td><td width = "17%" nowrap bgcolor="#000000">
<div align = "center"><font color = "#FFFFFF">name</font></div> </td>
<td width = "6%" nowrap bgcolor="#000000">
<div align = "center"><font color = "#FFFFFF">sex</font></div> </td>
<td width = "23%" nowrap bgcolor="#000000">
<div align = "center"><font color = "#FFFFFF">Email</font></div> </td>
<td nowrap bgcolor="#000000">
<div align = "center"><font color = "#FFFFFF">phone</font></div> </td>
<td width = "13%" nowrap bgcolor="#000000">
<div align = "center"><font color = "#FFFFFF">zipcode</font></div> </td>
<td width = "9%" nowrap bgcolor="#FF0000">
<div align = "center"><font color = "#FFFFFF">delete</font></div> </td>
</tr>
<%
dim rsID
i = 1
if not (rsObj.eof or err) then rsObj.move (page-1)*conMaxPerPage
do while not (rsObj.eof or err)
rsID = rsObj("memberID")
%>
<tr title = "more detail" style = "cursor:hand" onClick = "Javascript:window.location = 'memModify.asp?Memberid=<%=rsObj("memberID")%>'">
<td width = "15%"><%=rsObj("memberID")%> </td>
<td width = "17%"><%=rsObj("name")%> </td>
<td width = "6%"><%=rsObj("sex")%> </td>
<td width = "23%"><%=rsObj("email")%> </td>
<td > <%=rsObj("phone")%> </td>
<td width = "13%"><%=rsObj("Zipcode")%> </td>
<td align=center ><a href="javascript:deleteMe('<%=rsObj("MemberID")%>')">delete</a></td>
</tr>
<%
i = i+1
if i>conMaxPerPage then exit do
rsObj.MoveNext
loop
%>
<tr bgcolor = "#FF0000">
<td colspan = "7">
<% bShowAdd = False %>
<!-- #include file = "include/pageguide.asp"-->
<%
rsObj.Close()
set rsObj = Nothing
CloseConn()
%></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -