admin_servermeshwork.asp

官方最新的南方数据v12生成静态商业版。全站生成静态。

<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<%
if request("Submit2")="ok" and request("delbox")<>"" then
	conn.execute "delete from 0791idc_ServerMeshwork where diquID in ("&request("delbox")&")"
end if
dim vars,vars1
vars="是"
vars1="否"
%>
<!-- #include file="Inc/Head.asp" -->

<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<script language=javascript>
function CheckAll(form)
  {
  for (var i=0;i<form1.elements.length;i++)
    {
    var e = form1.elements[i];
    if (e.name != 'chkall')
       e.checked = form1.chkall.checked;
    }
  }
</script>	
<script language="javascript">
function gopage()
{
	var o=document.getElementById("num");
	var num=o.value;
	if(!isNaN(parseInt(num)))
	{
document.URL="Admin_ServerMeshwork.asp?page="+num+"&nb=<%=trim(request("nb"))%>&mc=<%=trim(request("mc"))%>&Title=<%=trim(request("Title"))%>";
	}
}
</script>
<style>
BODY {	FONT-SIZE: 12px; scrollbar-face-color:#CFE2FA; scrollbar-shadow-color:#417CC9; scrollbar-highlight-color:#417CC9; scrollbar-3dlight-color:#CFE2FA; scrollbar-darkshadow-color:#CFE2FA; scrollbar-track-color:#CFE2FA; scrollbar-arrow-color:#417CC9}
.style2 {color: #FF9227}
</style>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" height="6">
  <tr> 
    <td width="701" height="15" ></td>
  </tr>
</table> 
 <form action="Admin_ServerMeshwork.asp" method="post" name="form2">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr align="center">
<%set rs1=server.createobject("adodb.recordset")%>
 
      <td width="65%" height="15" align="center"> <div align="right">省份： 
<Select name="province">
<%Sql1="Select * from 0791idc_province order by shengOrder"
  rs1.open Sql1,conn,1,3
  do while not rs1.eof
  if rs1.eof and rs1.bof then exit do
%>
<option value="<%=rs1("shengName")%>"><%=rs1("shengName")%></option>
<%
	rs1.movenext
	loop
	rs1.close
%>
</Select>
&nbsp;&nbsp;城市： 
          <input name="city" type="text" class="text" id="city" value="<%=request("city")%>" size="25">
        <input type="hidden" value="eee" name="Submit">
		<input type="hidden" value="<%=request("nb")%>" name="nb">
		<input type="hidden" value="<%=request("mc")%>" name="mc">
      </div></td>
      <td width="35%" align="center"><div align="left">
        &nbsp;
        <input name="image" type="image" src="image/shousuo.gif" width="72" height="21">
      </div></td>

  </tr>
</table> 
   </form>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <form action="Admin_ServerMeshwork.asp" method="post" name="form1">
    <tr> 
      <td height="20" colspan="3" valign="bottom"> <input type="hidden" name="Submit2"> 
        <input type="hidden" value="<%=request("nb")%>" name="nb"> 
        <input type="hidden" value="<%=request("mc")%>" name="mc"> 
        <input type="hidden" name="topage" <%if request("topage")<>"" then%>value="<%=request("topage")%>"<%else%>value="1"<%end if%>> 
        &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td>
    </tr>
    <tr> 
      <td colspan="3" align="center" valign="top"> <table width="100%" border="0" cellspacing="1" cellpadding="1" bordercolordark="#ffffff">
          <tr bgcolor="075992"> 
            <td width="2%" height="23" align="center">&nbsp;</td>
            <td width="26%" height="23" align="center"><font color="#FFFFFF">服务店地址</font></td>
            <td width="14%" align="center"><font color="#FFFFFF">省份</font></td>
            <td width="13%" align="center"><font color="#FFFFFF">地区名</font></td>
            <td width="26%" height="23" align="center"><font color="#FFFFFF">服务店电话</font></td>
            <td width="19%" height="23" align="center"><font color="#FFFFFF">相关操作</font></td>
          </tr>
          <%
set rs=server.createobject("adodb.recordset")
if request("Submit")<>"" then
	province=trim(request("province"))
	city=trim(request("city"))
	if province<>"" then
	  aa=aa+" and shengName='"&province&"'"
	end if
	if city<>"" then
	  aa=aa+" and diquName like '%"&city&"%'"
	end if
	Sql="select * from 0791idc_ServerMeshwork where diquID is not null "+aa+""
else
	Sql="select * from 0791idc_ServerMeshwork where diquID is not null"
end if
Sql=Sql&" order by shengName,diquOrder"

  page=Request("page")
  if page<>"" then 
     page=cdbl(page)
  else
     page=1
  end if

  rs.open Sql,Conn,1,1
  rs.PageSize=20
  Total_Page=rs.PageCount
  if (rs.PageCount<page) then page=rs.PageCount
  if (page<1) then  page=1
  if not rs.eof then  rs.AbsolutePage=page
%>
          <% if rs.bof and rs.eof then %>
          <tr bgcolor="#F6F6F6"> 
            <td height="22" colspan="6" align=center>数据库里还没有数据!</td>
          </tr>
          <% else %>
          <%
	for i=1 to rs.pagesize
	if rs.eof then
	exit for
	end if
%>
          <tr bgcolor="#F6F6F6" onMouseOver="this.bgColor='#DCE7FE';" onMouseOut="this.bgColor='#F6F6F6';"> 
            <td height="22" align="center"><input type="checkbox" name="delbox" value="<%=rs("diquID")%>"></td>
            <td align="center">&nbsp;<%=rs("diquDizhi")%></td>
            <td align="center">&nbsp; <%
			'cms_shengfen
			'sql2="Select * from Province where shengName="&rs("shengName")&""
			'rs1.open sql2,conn,1,3
			'if not rs1.eof then
			'	shengName=rs1("shengName")
			'end if
		'	rs1.close
			%> <%=rs("shengName")%> </td>
            <td align="center">&nbsp;<%=rs("diquName")%></td>
            <td height="22" align="center">&nbsp;<%=rs("diquDianhua")%>&nbsp; &nbsp;&nbsp; </td>
            <td height="22" align="center"><a href="Admin_ServerMeshwork_Edit.asp?id=<%=rs("diquID")%>&topage=<%=intcurpage%>&nb=<%=request("nb")%>&mc=<%=request("mc")%>">修改</a> 
            </td>
          </tr>
          <%
				  rs.movenext
				  next 
				  end if
		  %>
        </table></td>
    </tr>
    <tr> 
      <td width="42%" height="30">　　 
        <input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form)"> 
        <span class="style2"><font color="#3664C4">全部选中</font></span> </td>
      <td width="39%"><input name="submit" type='submit' value='删除选定的记录' onClick="javascript:if(window.confirm('您确实要删除吗？')) window.form1.Submit2.value='ok'"></td>
      <td width="19%"><div align="center"><a href="Admin_ServerMeshwork_Add.asp">增加</a></div></td>
    </tr>
  </form>
</table>
<table width="98%" height="26" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="26" align="center">&nbsp;&nbsp;第<%=page%>页 共<%=total_page%>页 共<%=rs.recordcount%>条&nbsp;&nbsp;&nbsp; 
      <%
		if totalpage<>1 then
			if page>1 then
				response.Write("[<a href='Admin_ServerMeshwork.asp?page=1&nb="&trim(request("nb"))&"&mc="&trim(request("mc"))&"&Title="&trim(request("Title"))&"'>&lt;&lt;首页</a>] [<a href='Admin_ServerMeshwork.asp?page="&page-1&"&nb="&trim(request("nb"))&"&mc="&trim(request("mc"))&"&Title="&trim(request("Title"))&"'>&lt;上一页</a>]")
			else
				response.Write("[&lt;&lt;首页] [&lt;上一页]")
			end if
			
			if page<Total_Page then
				response.Write("[<a href='Admin_ServerMeshwork.asp?page="&page+1&"&nb="&trim(request("nb"))&"&mc="&trim(request("mc"))&"&Title="&trim(request("Title"))&"'>下一页&gt;</a>] [<a href='Admin_ServerMeshwork.asp?page="&Total_Page&"&nb="&trim(request("nb"))&"&mc="&trim(request("mc"))&"&Title="&trim(request("Title"))&"'>未页&gt;&gt;</a>]")
			else
				response.Write("[下一页&gt;] [未页&gt;&gt;]")
			end if
		end if
		%>
      &nbsp;转到： 
      <input name="num" type="text" class="tinyline" id="num" size="3">&nbsp;<input name="btngo" type="button" class="tinybtn" id="btngo" onClick="gopage();" value="GO">
      </td>
    </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
%>