<%Checklogin("信息管理")%> 管理区域
<% Act = Request.QueryString("act") If act = "save" Then Set Rs = Server.CreateObject("ADODB.RecordSet") isedit = False id = Request.Form("id") If id<>"" And IsNumeric(id) Then isedit = True productId=Request.Form("productId") num=Request.Form("num") price=Request.Form("price") If isedit Then Rs.Open "Select * From country Where id="& id,Conn,1,3 Rs("addtime")=now() Rs.Update:Rs.Close:Set Rs=Nothing productId=split(productId,",") numarr=split(num,",") pricearr=split(price,",") Conn.execute("delete from price where AreaId="&id&"") For i=0 to ubound(productId) If numarr(i)="" then numarr(i)=0 If pricearr(i)="" then pricearr(i)=0 Conn.execute("insert into price (productId,AreaId,num,price) values("&productId(i)&","&id&","&numarr(i)&",'"&pricearr(i)&"')") Next Conn.Close:Set Conn=Nothing Page = Request.QueryString("Page") Keys=Server.UrlEnCode(Request.QueryString("Keys")) Ord=Server.UrlEnCode(Request.QueryString("Ord")) Response.Redirect "?keys="&Keys&"&Ord="&Ord&"&Page="&Page Else Rs.Open "country",Conn,1,3 Rs.AddNew Rs("addtime")=now() Rs.Update:Rs.Close productId=split(productId,",") numarr=split(num,",") pricearr=split(price,",") For i=0 to ubound(productId) If numarr(i)="" then numarr(i)=0 If pricearr(i)="" then pricearr(i)=0 Conn.execute("insert into price (productId,AreaId,num,price) values("&productId(i)&","&id&","&numarr(i)&",'"&pricearr(i)&"')") Next Set Rs=Nothing:Conn.Close:Set Conn=Nothing Response.Redirect "?" End If Conn.Close:Set Conn=Nothing Response.End End If 'end save If Act = "add" Or Act = "edit" Then id = Request.QueryString("id") isedit = False If id<>"" And IsNumeric(id) Then isedit=True If isedit Then Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * From country Where id="&id,Conn,1,1 If Not Rs.Bof And Not Rs.Eof Then countryCode=TextUnCode(Rs("countryCode")) countryName=TextUnCode(Rs("countryName")) addtime=Rs("addtime") Else isedit = False End If Rs.Close:Set Rs=Nothing End If Page = Request.QueryString("Page") Keys=Server.UrlEnCode(Request.QueryString("Keys")) Ord=Server.UrlEnCode(Request.QueryString("Ord")) hrefstr = "?keys="&Keys&"&Ord="&Ord&"&Page="&Page %>
国家
区号
更新日期 <%=addtime%>
售价管理
<%Set Rs1 = Server.CreateObject("ADODB.RecordSet") Rs1.Open "select id,ProductName,ProductImg,unit from Products where id in(select productId from price where AreaId="&id&")",conn,1,1 DO while not Rs1.bof and not Rs1.eof %>
<%=Rs1("ProductName")%>
">
<%Set Rs2= Server.CreateObject("ADODB.RecordSet") Rs2.open "Select num,price from Price where productId="&Rs1("id")&" and AreaId="&id&" order by num asc",conn,1,1 Do while not Rs2.bof and not Rs2.eof %>
">"> ">
<% Rs2.moveNext loop Rs2.close Set Rs2=Nothing %>
<% Rs1.moveNext loop Rs1.close Set Rs1=Nothing %>
产品添加
    <% Response.End End If 'End add If Act="postchk" Then Keys = Server.UrlEnCode(Request.QueryString("Keys")) Ord = Server.UrlEnCode(Request.QueryString("Ord")) Page = Request.QueryString("Page") chkact = Request.Form("chkact") SqlStr = "" For i = 1 To Request.Form("chkbox").Count If SqlStr<>"" Then SqlStr = SqlStr & " Or id="&Request.Form("chkbox")(i) Else SqlStr = " Where id="&Request.Form("chkbox")(i) End If Next SqlStr = "Delete From country"&SqlStr Conn.Execute(SqlStr):Conn.Close:Set Conn=Nothing Response.Redirect "?Keys="&Keys&"&Ord="&Ord&"&Page="&Page Response.End End If 'End postchk Keys=Request.QueryString("Keys") Keyscode=TextEnCode(Keys) Ord=Request.QueryString("Ord") Page = Request.QueryString("Page") If Ord<>"" Then OrdStr=Ord&"," Else OrdStr="" End If Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * From country Where countryName like '%"&Keyscode&"%' or countryCode like '%"&Keyscode&"%' Order By id Desc",Conn,1,1 Keys=Server.UrlEnCode(Keys) Ord=Server.UrlEnCode(Ord) hrefstr = "?keys="&Keys %>
    <% If Not Rs.Bof And Not Rs.Eof Then Rs.PageSize = 20 If Page = "" Then Page = 1 If Page = "end" Then Page = Rs.PageCount If Not IsNumeric(Page) Or Page < 1 Then Page = 1 Page = Cint(Page) If Page > Rs.PageCount Then Page = Rs.PageCount Rs.AbsolutePage = Page TempNum = Rs.PageSize * (Page - 1) Set Rs1=Server.CreateObject("ADODB.RecordSet") For i=1 To Rs.PageSize If Rs.Bof Or Rs.Eof Then Exit For TempNum=TempNum+1:classid=Rs(1) %> <% Rs.MoveNext Next Else If Keys="" Then %> <% Else %> <% End If End If %>
    序号 国家 区号 操作
    <%=TempNum%> <%=Rs("countryName")%> <%=Rs("countryCode")%> 修改
    Sorry，当前暂无信息
    Sorry，没有找到“<%=Keyscode%>”相关的信息，点击返回
    <% If Rs.PageCount > 1 Then PageName="?Keys="&Keys&"&Ord="&Ord&"&" Pagelen=3 If Page>1 Then Response.Write "首页" Response.Write "上一页" End If If Pagelen*2+1 >= Rs.PageCount Then StartPage=1:EndPage=Rs.PageCount Else If Page<=Pagelen+1 Then StartPage=1 EndPage=Pagelen*2+1 Else StartPage=Page-Pagelen EndPage=Page+Pagelen End If If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount End If For i = StartPage To EndPage If i = Page Then Response.Write ""&i&"" Else Response.Write ""&i&"" End If Next If Page Pagelen Then Response.Write "..."&Rs.PageCount&"" Response.Write "下一页" Response.Write "尾页" End If Response.Write "" End If %>
    " onFocus="if(this.value == '<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>'){this.value='';}" onBlur="if(this.value == ''){this.value='<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>';}" onKeyDown="if(event.keyCode==13){location.href='?Keys='+escape(document.getElementById('keys').value)}" />
    <%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>