www.gusucode.com > 掌柜网店购物系统 4.0码程序 > admin/manageshjia.asp
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>
<html><head><title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../img/css.css" rel="stylesheet" type="text/css">
<style>
BODY {
SCROLLBAR-FACE-COLOR: #e7e7e7;
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #d4d0c8;
SCROLLBAR-3DLIGHT-COLOR: #FFFFFF;
SCROLLBAR-ARROW-COLOR: #ffffff;
SCROLLBAR-TRACK-COLOR: #f7f7f7;
SCROLLBAR-DARKSHADOW-COLOR: #e7e7e7;
}
.style3 {color: #FF6600}
</style>
</head>
<body>
<table class="tableBorder" width="96%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="5" align="center" bgcolor="#dfdfdf"><b>加盟商家审核管理</font></b></td>
</tr>
<tr bgcolor="#f2f2f2" align="center">
<td width="30%" height="30">商家名称 <font color=red>点击修改详细资料!</font></td>
<td width="20%">商家等级</td>
<td width="20%">网站类型</td>
<td width="15%">是否通过审核</td>
<td width="15%">修改操作</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
flag="select * from shjia where flag=1 or flag=2 and tj=1 or tj=2 or tj=3 or tj=4 or tj=5"
rs.open flag,conn,1,1
'set rs=server.CreateObject("adodb.recordset")
'rs.Open "select * from shjia where flag=1 or flag=2 and tj=1 or tj=2 or tj=3 or tj=4 or tj=5",conn,1,1
if rs.recordcount=0 then
%>
<table width="96%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td align=center><font color="#FF0000">暂无商家</font></td>
</tr>
</table>
<%
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<% do while not rs.EOF%>
<form name="form1" method="post" action="saveshjia.asp?action=edit&id=<%=int(rs("shjiaid"))%>">
<tr bgcolor="#f2f2f2" height="30">
<td style="PADDING-LEFT: 10px"><a href=listshj.asp?id=<%=rs("shjiaid")%>><%=trim(rs("name"))%></a></td>
<td align="center">
<select name=tj id=tj>
<%select case rs("tj")
case "1"
response.Write "<option value=1 selected>★☆☆☆☆</option> <option value=2>★★☆☆☆</option> <option value=3>★★★☆☆</option> <option value=4>★★★★☆</option> <option value=5>★★★★★</option>"
case "2"
response.Write "<option value=1>★☆☆☆☆</option> <option value=2 selected>★★☆☆☆</option> <option value=3>★★★☆☆</option> <option value=4>★★★★☆</option> <option value=5>★★★★★</option>"
case "3"
response.Write "<option value=1>★☆☆☆☆</option> <option value=2>★★☆☆☆</option> <option value=3 selected>★★★☆☆</option> <option value=4>★★★★☆</option> <option value=5>★★★★★</option>"
case "4"
response.Write "<option value=1>★☆☆☆☆</option> <option value=2>★★☆☆☆</option> <option value=3>★★★☆☆</option> <option value=4 selected>★★★★☆</option> <option value=5>★★★★★</option>"
case "5"
response.Write "<option value=1>★☆☆☆☆</option> <option value=2>★★☆☆☆</option> <option value=3>★★★☆☆</option> <option value=4>★★★★☆</option> <option value=5 selected>★★★★★</option>"
end select%>
</select>
</td>
<td align="center">
<select name=lx id=lx>
<%select case rs("lx")
case "0"
response.Write "<option value=0 selected>A型免费</option> <option value=1>B型￥100</option> <option value=2>C型￥365</option>"
case "1"
response.Write "<option value=0>A型免费</option> <option value=1 selected>B型￥100</option> <option value=2>C型￥365</option>"
case "2"
response.Write "<option value=0>A型免费</option> <option value=1>B型￥100</option> <option value=2 selected>C型￥365</option>"
end select%>
</select>
</td>
<td align="center">
<select name=flag id=flag>
<%select case rs("flag")
case "1"
response.Write "<option value=1 selected>未通过</option> <option value=2>开 通</option>"
case "2"
response.Write "<option value=1>未通过</option> <option selected value=2>开 通</option>"
end select%>
</select>
</td>
<td align="center">
<input type="submit" name="Submit" value="审核">
<a href="saveshjia.asp?id=<%=int(rs("shjiaid"))%>&action=del" onClick="return confirm('您确定要删除此用户吗？')"><font color=red>删除</font></a>
</td>
</tr>
</form>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<%
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
end if
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table " & Table_style & ">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )
if page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
end if
Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "家商家信息" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>
</table>
<!--#include file="copyright.asp"-->
</div>
</body>
</html>