then
response.write"alert('请选择要移动的分类别!');"
response.write""
response.end
endif
ifmoveareato="0"then
response.write"alert('请填要移动到的主类别!');"
response.write""
response.end
endif
conn.execute"updateareasetbigarea='"&moveareato&"'wherearea='"&movearea&"'"
conn.execute"updatesubssetbigarea='"&moveareato&"'wherearea='"&movearea&"'"
response.write"alert('分类别移动成功!');"
response.write""
endif
endif
%>
viewuser.asp源代码:
<%
ifrequest("del")<>""then
conn.Execute("delete*fromuserwhereid="&request("del"))
endif
%>
邮件群发管理系统
请您在这里查找并修改帐号资料
<%
setrs=server.createobject("adodb.recordset")
ifnotisempty(request("page"))then
pagecount=cint(request("page"))
else
pagecount=1
endif
key=request("searchuser")
ifkey=""then
sql="select*fromuserorderbyiddesc"
else
sql="select*fromuserwhereusernamelike'%"&key&"%'orderbyiddesc"
endif
rs.opensql,conn,1,1
ifrs.eofandrs.bofthen
response.write""
response.write"===暂无==="
response.write""
response.end
endif
rs.pagesize=20
ifpagecount>rs.pagecountorpagecount<=0then
pagecount=1
endif
rs.AbsolutePage=pagecount%>
<%ifrs.pagecount=1then%>
共有[<%=rs.recordcount%>]用户帐号
以下是[1~<%=rs.recordcount%>]个
<%else%>
<%
page_start=(pagecount-1)*rs.pagesize
ifpagecount=1thenpage_start=1
page_end=rs.pagesize*pagecount
ifpagecount*rs.pagesize=>rs.recordcountthenpage_end=rs.recordcountendif%>
共有[<%=rs.recordcount%>]用户帐号以下是[<%=page_start%>~<%=page_end%>]
<%response.write""
response.write"◆"
ifpagecount=1then
response.write"首页上一页"
else
response.write"首页"
response.write"上一页"
endif
ifrs.PageCount-pagecount<1then
response.write"下一页尾页"
else
response.write"下一页"
response.write"尾页"
endif
response.write"页次:"&pagecount&"/"&rs.pagecount&"页"
response.write"转到第页"
response.write""%>
<%endif%>
ID
用户名
密码
来自
OICQ
电话
邮件地址
-删除-
-编辑-
<%dowhilenotrs.eof%>
<%=rs("id")%>
"><%=rs("username")%>
<%=rs("password")%>
<%=rs("userfrom")%>
<%=rs("oicq")%>
<%=rs("telphone")%>
"><%=rs("email")%>
[">删除]
[">编辑]
<%i=i+1
rs.movenext
ifi>=rs.PageSizethenexitdo
loop
rs.close
setrs=nothing
conn.close
setconn=nothing
%>
建议使用1024X768及以上分辨率