📄 index.asp
字号:
<!--#include file="../login/0.asp"--><!--#include file="../../conn/conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/css.css" rel="stylesheet" type="text/css">
<STYLE>
BODY {
SCROLLBAR-FACE-COLOR: #799ae1;
SCROLLBAR-HIGHLIGHT-COLOR: #799ae1;
SCROLLBAR-SHADOW-COLOR: #799ae1;
SCROLLBAR-3DLIGHT-COLOR: #799ae1;
SCROLLBAR-ARROW-COLOR: #fcfcfc;
SCROLLBAR-TRACK-COLOR: #aabfec;
SCROLLBAR-DARKSHADOW-COLOR: #799ae1;
SCROLLBAR-BASE-COLOR: #799ae1;
background-color: #CAD7F7;
}
.STYLE3 {
color: #FFFFFF;
font-weight: bold;
}
</STYLE>
</head>
<body>
<div align="center">
<table width="99%" align="center">
<tr valign="middle">
<td width="644" height="40" align="center" nowrap><INPUT TYPE="submit" value="未审核" onClick="location.href='?xs=zt=0'">—<INPUT TYPE="submit" value="试营业" onClick="location.href='?xs=zt=1'">—<INPUT TYPE="submit" value="营业中" onClick="location.href='?xs=zt=2'">—<INPUT TYPE="submit" value="已过期" onClick="location.href='?xs=zt=3'">—<INPUT TYPE="submit" value="已作废" onClick="location.href='?xs=zt=4'">—<INPUT TYPE="submit" value="己推荐" onClick="location.href='?xs=tui=1'">
—<INPUT TYPE="submit" value="没推荐" onClick="location.href='?xs=tui=0'"></td>
<form name="form1" method="post" action=?sou=yes>
<td width="329" height="40" align="center">
<input name="txt" type="text" id="txt" value="输入店铺名" size="12">
<input name="Submit" type="submit" value="搜索">
</td> </form>
</tr>
</table>
</div>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr valign="middle" bgcolor="#f1f1f1">
<td width="68" height="25" align="center" background="../../images/admin_bg_11.gif"><font color="#FFFFFF"><b>ID号</b></font></td>
<td width="341" height="25" align="center" background="../../images/admin_bg_11.gif"><font color="#FFFFFF"><b>网店名称</b></font></td>
<td width="82" height="25" align="center" background="../../images/admin_bg_11.gif"><font color="#FFFFFF"><b>负责人</b></font></td>
<td width="146" height="25" align="center" background="../../images/admin_bg_11.gif"><font color="#FFFFFF"><b>网店注册日期</b></font></td>
<td width="85" height="25" align="center" background="../../images/admin_bg_11.gif"><font color="#FFFFFF"><b>网店状态</b></font></td>
<td width="85" align="center" background="../../images/admin_bg_11.gif"><span class="STYLE3">管理</span></td>
<td width="77" height="25" align="center" background="../../images/admin_bg_11.gif"><font color="#FFFFFF"><b>管理</b></font></td>
<td width="60" height="25" align="center" background="../../images/admin_bg_11.gif"><font color="#FFFFFF"><b>删除</b></font></td>
</tr>
<%
xs=request("xs")
txt=trim(request("txt"))
if request("x")<>"" then
Select case request("x")
case "tui"
if request("tui")<>1 then
tui=1
else
tui=0
end if
Set s= Server.CreateObject("abodb.recordset")
conn.execute("Update user_name set tui="&tui&" where id="&request("id")&"")
Response.redirect "index.asp?xs="&xs&"&txt="&txt&"&page="&request("page")&""
case "del"
conn.execute("Delete user_name where id="&request("id")&"")
Response.redirect "index.asp?xs="&xs&"&txt="&txt&"&page="&request("page")&""
End Select
end if
Set rs=Server.CreateObject("ADODB.Recordset")
if txt<>"" then
sql="select id,name,name2,sj,zt,tui,password,js2,jishu,dailiid from user_name where name like '%"&txt&"%' or name2 like '%"&txt&"%' or dz like '%"&txt&"%' order by id desc"
elseif xs<>"" then
Set s= Server.CreateObject("abodb.recordset")
sql="select id,name,name2,sj,zt,tui,password,js2,jishu,dailiid from user_name where "&xs&" order by id desc"
else
Set s= Server.CreateObject("abodb.recordset")
sql="select id,name,name2,sj,zt,tui,password,js2,jishu,dailiid from user_name order by id desc"
end if
rs.open sql,conn,3,1
rs.pagesize = 20
if request("page")="" or isempty(request("page")) then
page = 1
else
page=int(request("page"))
end if
if page>rs.pagecount then
page=rs.pagecount
end if
if not rs.BOF then
Rs.Move Rs.PageSize*(page-1)
end if
i=1
do while not rs.eof and i<=rs.pagesize
%>
<tr valign="middle" bgcolor="#FFFFFF">
<td width="68" height="25" align="center" bgcolor="#E8F1FF"><a href=../../user/index.asp?userid=<%=rs("id")%> target="_blank"><%=rs("id")%></a></td>
<td width="341" height="25" bgcolor="#E8F1FF">[<%=rs("dailiid")%>]<b><%=replace(rs("name"),"<","〈")%></b> [<%=rs("js2")%>/<%=rs("jishu")%>]</td>
<td width="82" height="25" align="center" bgcolor="#E8F1FF"><%=replace(rs("name2"),"<","〈")%></td>
<td width="146" height="25" align="center" bgcolor="#E8F1FF"><%=rs("sj")%></td>
<td width="85" height="25" align="center" bgcolor="#E8F1FF">
<%Select case rs("zt")
case "0"
Response.Write("<font color=#ff0000>未审核</font>")
case "1"
Response.Write("<font color=#ff6600>试营业</font>")
case "2"
Response.Write("营业中")
case "3"
Response.Write("<font color=#ff0000><del>已过期</font>")
case "4"
Response.Write("<del>已作废")
End Select
%></td>
<td width="85" height="25" align="center" bgcolor="#E8F1FF"><INPUT TYPE="submit" value="操作店铺" onClick="location.href='xiu.asp?xs=<%=request("xs")%>&txt=<%=request("txt")%>&page=<%=page%>&id=<%=rs("id")%>'"></td>
<td height="25" align="center" bgcolor="#E8F1FF"><input type="button" value="进入店铺" onClick="window.open('../../user/admin/login.asp?name=<%=rs("id")%>&pass=<%=rs("password")%>','blank_')"></td>
<td width="60" height="25" align="center" bgcolor="#E8F1FF"><INPUT TYPE="submit" value="删除" onClick="location.href='?x=del&xs=<%=request("xs")%>&txt=<%=request("txt")%>&page=<%=page%>&id=<%=rs("id")%>'"></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
<tr valign="middle" bgcolor="#FFFFFF">
<form name=form method=post action=?xs=<%=request("xs")%>&txt=<%=request("txt")%>>
<td height="25" colspan="8" align="center" bgcolor="#E8F1FF">
<%
if rs.recordcount<>0 then
if page-1 mod 10=0 then
p=(page-1) \ 10
else
p=(page-1) \ 10
end if
response.write "页次："& page &"/"& rs.pagecount &"页 每页"& rs.pagesize &" 共"& rs.recordcount &"条记录"&_
" 分页："
if rs.pagecount>1 and page<>1 then response.write "<a href=?xs="&request("xs")&"&txt="&request("txt")&"&page=1 title='首页'>[|<]</a> "
if p*10>0 then response.write "<a href='?xs="&request("xs")&"&txt="&request("txt")&"&page="&p*10&"' title=上十页>[<<]</a> "
uming_i=1
for ii=p*10+1 to P*10+10
if ii=page then
response.write "<font color=#ff0000>["+Cstr(ii)+"]</font> "
else
response.write "<a href='?xs="&request("xs")&"&txt="&request("txt")&"&page="&ii&"'>["+Cstr(ii)+"]</a> "
end if
if ii=rs.pagecount then exit for
uming_i=uming_i+1
next
if ii<=rs.pagecount and uming_i=11 then response.write "<a href='?xs="&request("xs")&"&txt="&request("txt")&"&page="&ii&"' title=下十页>[>>]</a> "
if rs.pagecount>1 and page<>rs.pagecount then response.write "<a href=?xs="&request("xs")&"&txt="&request("txt")&"&page="& rs.pagecount &" title='尾页'>[>|]</a>"
response.write(" 跳页：<input type=text name=page size=2 maxlength=3 > <input type=submit name=Submit value=Go >")
end if%> </td>
</form>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -