shengcity.asp

创建和运行动态、交互的Web服务器应用程序

set rs=nothing


    '//查询省份功能部分
       case "chekskey"
       skey =request("skey")
       set rs=server.createobject("adodb.recordset")

       if skey="" then skey=request.QueryString("skey")
       rs.open "select * from shop_sheng where shengname='"&skey&"' ",conn,1,1

       if rs.bof and rs.eof then
          response.write "<script language=javascript>alert('没有找到您查询的省份！');window.location.reload('shengcity.asp?action=sheng')</script>"
       else%>

       <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
        <form name="form1" method="post" action="shengcity.asp?action=chekskey">
         <tr>
            <td colspan=2 bgcolor="#cccccc" height=28><div align="center">输入查询省份名称&nbsp;<input name="skey" type="text" class="tx" id="skey" size="14">&nbsp;<input type="submit" name="Submit32" class="bt5" value="查 询"></div></td>
         </tr>   
        </form>
         <tr>
           <td width="70%" valign=top>
            <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0">
              <tr>
                <td><table width="100%" border="0"  align=center cellspacing="0" cellpadding="0" bgcolor="#ffffff"> 
                <td bgcolor="#ece9d8"><div align="center">排 序</div></td>
                <td bgcolor="#ece9d8"><div align="center">省份名称</div></td>
                <td bgcolor="#ece9d8"><div align="center">编辑</div></td> 
                <td bgcolor="#ece9d8"><div align="center">删除</div></td>
              </tr>
              <tr> 
               <form name="form1" method="post" action="shengcity.asp?action=shengsave&sid=<%=rs("shengid")%>">
                <td bgcolor="#ffffff"><div align="center"> 
                            <input name="shengidorder" type="text" id="shengidorder" size="2" value=<%=rs("shengidorder")%> onkeypress	= "return regInput(this,	/^[0-9]*$/,		String.fromCharCode(event.keyCode))"
		onpaste		= "return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('Text'))"></div></td>
                <td bgcolor="#ffffff"><div align="center">
                            <input name="shengname"    type="text" id="shengname"    size="8" value=<%=trim(rs("shengname"))%>></div></td> 
                <td bgcolor="#ffffff"><div align="center"> 
                            <input type="submit" name="Submit2" class="bt" value="确认">
                <td bgcolor="#ffffff"><div align="center">
                <a href="shengcity.asp?action=shengdel&sid=<%=rs("shengid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a> </div></td>
               </form>

              </tr>
             </table>

           </tr>
          </table>
        
        </tr>
       </table>

       <%end if

       case "city"'//城界面的设计(查、显、添)%>

   <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
     <tr>
        <form name="form1" method="post" action="shengcity.asp?action=chekckey">
           <td colspan=2 bgcolor="#cccccc" height=28><div align="center">输入查询城区名称&nbsp;<input name="ckey" type="text" class="tx" id="ckey" size="14">&nbsp;<input type="submit" name="Submit32" class="bt5" value="查 询"></div></td>
        </form>
     </tr>
     <tr>
       <td width="70%" valign=top>

       <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0">
        <tr>
           <td><table width="100%" border="0"  align=center cellspacing="0" cellpadding="0" bgcolor="#ffffff">
           <td bgcolor="#ece9d8"><div align="center">送货分类</div></td>
           <td bgcolor="#ece9d8"><div align="center">城区名称</div></td>
           <td bgcolor="#ece9d8"><div align="center">编辑</div></td>
           <td bgcolor="#ece9d8"><div align="center">删除</div></td>
         </tr>
     <%
            set rs=server.CreateObject("adodb.recordset")
	        rs.open "select * from shop_city order by cityidorder",conn,1,1
		ci = rs.recordcount
          Page = rs.AbsolutePage
	  page=1:i=0:i_mun=1
          rs.PageSize = 10 

          if Not IsEmpty(Request("Page")) then 
             Page = CInt(Request("Page")) 
             if Page > rs.PageCount then 
                rs.AbsolutePage = rs.PageCount 
             elseif Page <= 0 then 
                Page = 1 
             else
               rs.AbsolutePage = Page 
             end if
          else
             Page = 1
         End if
         
            For i = 1 to rs.PageSize
               if rs.EOF then     
                  Exit For 
               end if 
               if i_mun mod 2=1 then 
                  i_color="#ffffff"
               else
                  i_color="#eeeeee"
               end if
       %>
      <tr> 
         <form name="form1" method="post" action="shengcity.asp?action=citysave&cid=<%=rs("cityid")%>">
            <td bgcolor=<%=i_color%>><div align="center"><select name="faid" size="1" id="faid">
             <%for ii=1 to 6
                   if rs("faid")=ii then%>
                     <option value=<%=ii%> selected>类型<%=cstr(ii)%></option>
             <%    else%>
                     <option value=<%=ii%>>类型<%=cstr(ii)%></option>
             <%    end if
                  next%>
             </select></div></td>
            <td bgcolor=<%=i_color%>><div align="center">
                <input name="cityname"    type="text" id="cityname"    size="8" value=<%=trim(rs("cityname"))%>></div></td>
            <td bgcolor=<%=i_color%>><div align="center"> 
                <input type="submit" name="Submit" class="bt" value="修改">
            <td bgcolor=<%=i_color%>><div align="center"> 
                <a href="shengcity.asp?action=citydel&cid=<%=rs("cityid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a> </div></td>
          </form>
       </tr>
       <%i_mun=i_mun+1
         rs.movenext
	    next
       %>

        <tr> 
           <td colspan=4 bgcolor="#ece9d8" height=40><div align="center">城区共<%=rs.recordcount%>条<%=rs.pagecount%>页 
            <%if request("page")>1 then%>
                <a Href="index.asp?Page=<% = 1%>">首页</a>&nbsp;&nbsp;<a Href="shengcity.asp?action=city&Page=<% =page-1 %>">上一页</a>
            <%end if %>
            <%if request("page")<>rs.pagecount and page<rs.pagecount then %>
                <a Href="shengcity.asp?action=city&Page=<% =page + 1%>">下一页</a>&nbsp;&nbsp;<a Href="shengcity.asp?action=city&Page=<%=rs.PageCount%>">尾页</a> 
            <%end if
            if rs.pagecount>0 then %>
               当前第<font color="#FF3300"><%=page%></font>页		
            <%end if%></font></div></td>
         </tr>
       </table>

    </tr>
  </table>
        <td valign=top>

       <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0" bgcolor="#cccccc">
         <form name="form2" method="post" action="shengcity.asp?action=cityadd">
           <tr><td colspan=2 bgcolor="#ece9d8"><div align="center"><b>增加城区</b></div></td>
           <tr>
              <td align="right" bgcolor="#ffffff">省份</td>
              <%set rs1=server.CreateObject("adodb.recordset")
                   rs1.open "select * from shop_sheng order by shengidorder",conn,1,1%>   
              <td bgcolor="#ffffff"><select name="shengid" size="1" id="shengid">
              <%do while not rs1.eof%>
              <option value="<%=rs1("shengid")%>"><%=trim(rs1("shengname"))%></option>
              <%rs1.movenext
                    loop
	        rs1.close%></select></td>
            <tr>
               <td align="right" bgcolor="#ffffff">城区</td>
               <td bgcolor="#ffffff"><input name="cityname" type="text" id="cityname" size="14"></td>
            <tr>
               <td align="right" bgcolor="#ffffff">分类</td>
               <td bgcolor="#ffffff"><select name="faid" size="1" id="faid">
               <%for ii=1 to 6%>
               <option value=<%=ii%>>类型<%=cstr(ii)%></option>          
               <%next%></select></td>
               <input name=cityidorder type=hidden value=<%=ci+1%>>
           <tr>
               <td colspan=2><div align="center"><input type="submit" name="Submit3" class="bt5" value="添 加"></div></td>
          </tr>
        </form>

      </tr>
    </table>
<%rs.close
set rs=nothing

       case "chekckey" '//查询城区功能部分

       ckey =request("ckey")
       set rs=server.createobject("adodb.recordset")

       if ckey="" then ckey=request.QueryString("ckey")
          rs.open "select * from shop_city where cityname='"&ckey&"' ",conn,1,1
       if rs.bof and rs.eof then
          response.write "<script language=javascript>alert('没有找到您查询的城区！');window.location.reload('shengcity.asp?action=city')</script>"
       else%>

       <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
         <tr>
            <form name="form1" method="post" action="shengcity.asp?action=chekckey">
               <td colspan=4 bgcolor="#cccccc" height=28><div align="center">输入查询城区名称&nbsp;<input name="ckey" type="text" class="tx" id="ckey" size="14">&nbsp;<input type="submit" name="Submit32" class="bt5" value="查 询"></div></td>
            </form>
         </tr>

         <tr><td width="70%" valign=top>

         <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0">
          <tr>
            <td><table width="100%" border="0"  align=center cellspacing="0" cellpadding="0" bgcolor="#ffffff"> 
            <td bgcolor="#ece9d8"><div align="center">送货分类</div></td>
            <td bgcolor="#ece9d8"><div align="center">城区名称</div></td>
            <td bgcolor="#ece9d8"><div align="center">编辑</div></td>
            <td bgcolor="#ece9d8"><div align="center">删除</div></td>
          </tr>
          <tr> 
             <form name="form1" method="post" action="shengcity.asp?action=citysave&cid=<%=rs("cityid")%>">
                <td bgcolor="#ffffff"><div align="center"> 
                <select name="faid" size="1" id="faid">
                  <%for ii=1 to 6
                        if rs("faid")=ii then%>
                           <option value=<%=ii%> selected>类型<%=cstr(ii)%></option>
                        <%else%>
                           <option value=<%=ii%>>类型<%=cstr(ii)%></option>
                        <%end if
                    next%></select></div></td>
                <td bgcolor="#ffffff"><div align="center">
                    <input name="cityname"    type="text" id="cityname"    size="8" value=<%=trim(rs("cityname"))%>></div></td>
                <td bgcolor="#ffffff"><div align="center">
                    <input type="submit" name="Submit" class="bt" value="修改">
                <td bgcolor="#ffffff"><div align="center"><a href="shengcity.asp?action=citydel&cid=<%=rs("cityid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a> </div></td>
              </form>

             </tr>
            </table>
       
           </tr>
          </table>

         </tr>
        </table>
       <%end if  
end select
set rs=nothing%>
  
 </tr>
</table>
</body>
</html>