editshop.asp

. 缓存处理技术

<!--#include file="sysconfig.asp"-->
<!--#include file="checkadmin.asp"-->
<%
Call CheckAdminFlag(TempAdminFlag,3)

Dim ShopID:shopid=rst("shopid")
if not isNum(rst("shopid")) then
   response.write"<script language=javascript>alert('警告！商店配置信息修改出错！');"
   response.write"history.back(-1);</script>"
end if
Dim SHopHelp,ShopCredit,ShopGongGao,shopintroduce
shophelp=HtmlEncode(Request.Form("shophelp"))
if shophelp="" or isNull(shophelp) then shophelp="无"
shopcredit=HtmlEncode(Request.Form("shopCredit"))
if shopcredit="" or isNull(shopcredit) then shopcredit="无"
shopgonggao=HtmlEncode(Request.Form("shopgonggao"))
if shopgonggao="" or isNull(shopgonggao) then shopgonggao="无"
shopintroduce=HtmlEncode(Request.Form("shopIntroduce"))
if shopintroduce="" or isNull(shopintroduce) then shopintroduce="无"

 Dim BBR_S1,BBR_S2,BBR_S3,BBR_S4,BBR_ClassPath
 BBR_S1=CheckStr(Trim(Rst("S1")))
 BBR_S2=CheckStr(Trim(Rst("S2")))
 BBR_S3=CheckStr(Trim(Rst("S3")))
 BBR_S4=CheckStr(Trim(Rst("S4")))
 if Not isNum(BBR_S1) then BBR_S1=0
 if Not isNum(BBR_S2) then BBR_S2=0
 if Not isNum(BBR_S3) then BBR_S3=0
 if Not isNum(BBR_S4) then BBR_S4=0

 BBR_ClassPath=Cstr(BBR_S1&"|"&BBR_S2&"|"&BBR_S3&"|"&BBR_S4)
 BBR_ClassPath=Replace(BBR_ClassPath,"|0","")

 if Cstr(BBR_ClassPath)="0" then Call AlertInfo("请选择店铺分类！","",0)


On Error Resume Next
Dim CloseTime
closetime=cdate(rst("shopclosetime"))
if Err then closetime=now()
Dim RsLink
set rslink=server.createobject("adodb.recordset")
sql="select * from shops where shopid="&shopid
rslink.open sql,conn,1,3
rslink("shopname")=InterceptString(CheckStr(Trim(rst("shopname"))),16)
rslink("shopintroduce")=shopintroduce
rslink("shophelp")=shophelp
rslink("shopcredit")=shopcredit
rslink("shopgonggao")=shopgonggao
rslink("shopimageurl")=CheckStr(Trim(rst("shopimageurl")))
rslink("shopClassPath")=BBR_ClassPath
rslink("shopflag")=cint(rst("shopflag"))
rslink("shopstatus")=cint(rst("shopstatus"))
rslink("shopclosetime")=closetime
rslink("shopcheck")=Request.Form("shopcheck")
rslink("BBR_ShopCommend")=Request.Form("BBR_ShopCommend")
rslink.update

rslink.close
set rslink=nothing

if Err Then
   Call AlertInfo("出错了，请检查你输入的信息是否符合要求","",0)
else
   Call AlertInfo("店铺信息更新成功了！","Edit_Shop.asp?Sid="& ShopID &"",1)
end if
%>