📄 arun_member.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
If Request("Page")=Empty Then
Page=1
Else
Page=cint(Request("Page"))
End If
select case request.form("R1")
case "复原"
man=Split(request("choice"), ", " )
repno=request("choice")
page=request("page")
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
for i=0 To UBound(man)
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from members where ID=" &man(i)
rs.open sqlstr,conn,3,2
if rs.recordcount<>0 then
rs("use")=0
rs.update
end if
rs.close
next
conn.close
response.redirect "list_member.asp?page="&page
end select
select case request.form("D1")
case "永久删除"
man=Split(request("choice"), ", " )
repno=request("choice")
page=request("page")
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
for i=0 To UBound(man)
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from members where ID=" &man(i)
rs.open sqlstr,conn,3,2
if rs.recordcount<>0 then
rs.delete
rs.update
end if
rs.close
next
conn.close
response.redirect "list_member.asp?page="&page
end select
%>
<HTML>
<HEAD>
<TITLE>西风售物网管理模组－修删会员</TITLE>
<link REL="stylesheet" HREF="../style.css" TYPE="text/css">
</HEAD>
<body bgcolor=ffffff marginheight=0 marginwidth=0 leftmargin=0 topmargin=0>
<center>
<img src=../img/chome.jpg width=298 height=86><br><br>
<font size=4><big>删除会员记录</big></font><br><br>
<FORM METHOD=POST ACTION=<%=Myself%>>
<table border=1 width=95%>
<tr bgcolor=ff8040><th width=5%><input type="radio" name="t" value="p" checked></td>
<td width=15%>会员署名</td>
<td width=15%>联系电话</td>
<td width=15%>联系电话</td>
<td width=12%>居住城市</td>
<td width=30%>联系地址</td>
<td width=9% align=center>电子信箱</td></tr>
<%
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from Members where use=1"
rs.open sqlstr,conn,3,2
If rs.EOF THEN
Response.Write "<tr><td colspan=7><big>没有任何删除会员的记录</big></td></tr>"
Else
RS.PageSize = 30
If Not rs.eof Then
RS.AbsolutePage = PAGE
End if
pagecount=rs.pagecount
I=1
Do until rs.EOF or I > RS.PageSize
Response.Write "<tr><th><input type=checkbox name=choice value="&rs("ID") &"></td>"
Response.Write "<td><a href=edit_member.asp?ID="&rs("ID")&">"&rs("Cname")&"</a></td>"
Response.Write "<td>"&rs("tel1")&"</td>"
Response.Write "<td>"&rs("tel2")&"</td>"
Response.Write "<td>"&rs("City")&"</td>"
Response.Write "<td>"&rs("address1")&"</td>"
Response.Write "<td><a href=mailto:"&rs("email")&"><img src=../img/mail.gif border=0></a></td></tr>"
rs.MoveNext
I=I+1
Loop
End If
rs.close
conn.close
%>
</table><br>
<input type="hidden" name="page" value="<%=page%>">
<input type="submit" name="R1" value="复原">
<input type="submit" name="D1" value="永久删除">
</FORM>
<%
If page>1 Then
Response.write "<a href=arun_member.asp?page="&page-1&">上一页</a> "
End If
Response.write "页 <font face=Arial><b>"&pagecount&" / "
Response.write page &"</b></font> "
For j=1 to pagecount
IF J <> page THEN
response.write "<a href=arun_member.asp?page="&j&">"&j&"</a> "
End If
Next
If page<pagecount Then
Response.write "<a href=arun_member.asp?page="&page+1&">下一页</a> "
End If
%>
<hr width="95%">
<font size=2><em>系统时间：<%=Now%></em> 程式设计 : <a href=http://chome.rich2000.com.tw>Chome</a></font> <a href=mailto:chinimin@ms6.hinet.net>站长信箱</a><br>
</center>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -