www.gusucode.com > 掌柜网店购物系统 4.0码程序 > admin/shiSet.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 dim id,shengid,shiid,shiorder,shiname,shino,i id=request("id") if request("action")="update" then for i=1 to request.form("shiid").count shiid=replace(request.form("shiid")(i),"'","") shengid=replace(request.form("shengid")(i),"'","") shiorder=replace(request.form("shiorder")(i),"'","") shiname=replace(request.form("shiname")(i),"'","") shino=replace(request.form("shino")(i),"'","") if replace(request.form("shiorder")(i),"'","")="" then %> <script language=javascript> history.back() alert("请填写市的显示排序!") </script> <% Response.End end if conn.execute("update szshi set shengid="&shengid&",shiorder="&shiorder&",shiname='"&shiname&"',shino='"&shino&"' where id="&shiid) next conn.close set conn=nothing response.write "<script language=javascript>alert('市设置成功!');window.location.href='shimanage.asp';</script>" end if if request("action")="add" then shengid=request.form("shengid") shino=request.form("shino") shiname=trim(request("shiname")) shiorder=request.form("shiorder") If shiname="" Then response.write "市名称不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!" response.end end if If shino="" Then response.write "市编号名称不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!" response.end end if If shiorder="" Then response.write "排序不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!" response.end end if Set rs = Server.CreateObject("ADODB.Recordset") rs.open "select * from szshi",conn,1,3 rs.addnew rs("shiname")=shiname rs("shengid")=shengid rs("shino")=shino rs("shiorder")=shiorder rs.update rs.close set rs=nothing conn.close set conn=nothing response.write "<script language=javascript>alert('市添加成功!');window.location.href='shimanage.as';</script>" end if %>