📄 edit.asp
字号:
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="../Inc/Cls.Content.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
Dim ID
If Not WRUser.ChkLogin Then Call WRMPS.AjaxLogin("",0,"您需要登录后才可以修改补充店铺！")
ID = WRMPS.CheckStr(Request("ID"), 1)
If ID = "" Or IsNull(ID) Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=Index.asp'>",0)
Dim xy,TestCon,SaveType
Dim ClassDir,ClaimUser,i,AreaName
Dim Company,Address,Phone,Mobile,Tags,Code,Coordinate,Fax,BusinessTime,IsCard,Depot,BusRoute,Marker,Web,Intro
Dim DB1,DB2,DB3,DB4,DB5,DB6,DB7,DB8,DB9,DB10,DB1T,DB2T,DB3T,DB4T,DB5T,DB6T,DB7T,DB8T,DB9T,DB10T
Call DBConnBegin()
Set Rs=server.createobject("adodb.recordset")
'检测修改权限
SaveType = 0 '另存在缓存库中
Set Rs = Conn.Execute("Select WM_ClaimUser,WM_RZBL,WM_CheckUser,WM_Key From WM_Company Where WM_ID="&ID)
If Not Rs.Eof Then
If Rs(1) > 0 Then '已认领
If MemName <> Rs(0) Then Call WRMPS.ErrView("·此店铺已被认领，您不是店主，没有权限操作此功能<meta http-equiv=refresh content='1;URL=Index.asp'>",0) Else SaveType = 1
Else '未认领
If Int(FlagCom(16)) < 1 Then Call WRMPS.ErrView("·您没有此店铺的修改权限", 0)
If Rs(3) = 0 Then
If MemName <> Rs(2) Then Call WRMPS.ErrView("·您没有此店铺的修改权限<meta http-equiv=refresh content='1;URL=Index.asp'>",0) Else SaveType = 1
End If
End If
Else
Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=Index.asp'>",0)
End If
Rs.Close
Select Case WRMPS.CheckStr(Request("Action"),0)
Case "Save"
Call WRMPS.CheckSubmit()
AreaID = WRMPS.CheckStr(Request.form("AreaID"),1)
ClassID = WRMPS.CheckStr(Request.form("ClassID"),1)
If AreaID = "" Or IsNull(AreaID) Or ClassID = "" Or IsNull(ClassID) Then Call WRMPS.ErrView("·操作错误。<meta http-equiv=refresh content='1;URL=Edit.asp?ID="&ID&"'>",0)
Company = WRMPS.CheckStr(Request.form("Company"),0)
If Company = "" Or IsNull(Company) Then Call WRMPS.ErrView("·请填写店铺名称<meta http-equiv=refresh content='1;URL=?ID="&ID&"&AreaID="&AreaID&"&ClassID="&ClassID&"'>",0)
Address = WRMPS.CheckStr(Request.form("Address"),0)
If Address = "" Or IsNull(Address) Then Call WRMPS.ErrView("·请填写店铺详细地址<meta http-equiv=refresh content='1;URL=?ID="&ID&"&AreaID="&AreaID&"&ClassID="&ClassID&"'>",0)
Phone = WRMPS.CheckStr(Request.form("Phone"),0)
If Phone = "" Or IsNull(Phone) Then Phone = Null
Mobile = WRMPS.CheckStr(Request.form("Mobile"),0)
If Mobile = "" Or IsNull(Mobile) Then Mobile = Null
Tags = WRMPS.CheckStr(Request.form("Tags"),0)
If Tags = "" Or IsNull(Tags) Then Tags = Null
Coordinate = WRMPS.CheckStr(Request.form("Coordinate"),0)
If Coordinate = "" Or IsNull(Coordinate) Then Coordinate = Null
Fax = WRMPS.CheckStr(Request.form("Fax"),0)
If Fax = "" Or IsNull(Fax) Then Fax = Null
BusinessTime = WRMPS.CheckStr(Request.form("BusinessTime"),0)
If BusinessTime = "" Or IsNull(BusinessTime) Then BusinessTime = Null
IsCard = WRMPS.CheckStr(Request.form("IsCard"),0)
If IsCard = "" Or IsNull(IsCard) Then IsCard = Null
Depot = WRMPS.CheckStr(Request.form("Depot"),0)
If Depot = "" Or IsNull(Depot) Then Depot = Null
BusRoute = WRMPS.CheckStr(Request.form("BusRoute"),0)
If BusRoute = "" Or IsNull(BusRoute) Then BusRoute = Null
Marker = WRMPS.CheckStr(Request.form("Marker"),0)
If Marker = "" Or IsNull(Marker) Then Marker = Null
Web = WRMPS.CheckStr(Request.form("Web"),0)
If Web = "" Or IsNull(Web) Then Web = Null
Intro = WRMPS.CheckStr(Request.form("Intro"),2)
If Intro = "" Or IsNull(Intro) Then Intro = Null
If Len(Intro) > 1000 Then Intro = Left(Intro,998) & "..."
Code = WRMPS.CheckStr(Request.form("Code"),0)
If WRMPS.CheckCode("Company",1) Then If Code <> WRMPS.GetCookies("Code") Then Call WRMPS.ErrView("·验证码不正确<meta http-equiv=refresh content='1;URL=?ID="&ID&"&AreaID="&AreaID&"&ClassID="&ClassID&"'>",0)
DB1 = WRMPS.CheckStr(Request("DB1"),0)
If DB1 = "" Then DB1 = Null:DB1T = Null Else DB1T = WRMPS.CheckStr(Request("DB1T"),0)
DB2 = WRMPS.CheckStr(Request("DB2"),0)
If DB2 = "" Then DB2 = Null:DB2T = Null Else DB2T = WRMPS.CheckStr(Request("DB2T"),0)
DB3 = WRMPS.CheckStr(Request("DB3"),0)
If DB3 = "" Then DB3 = Null:DB3T = Null Else DB3T = WRMPS.CheckStr(Request("DB3T"),0)
DB4 = WRMPS.CheckStr(Request("DB4"),0)
If DB4 = "" Then DB4 = Null:DB4T = Null Else DB4T = WRMPS.CheckStr(Request("DB4T"),0)
DB5 = WRMPS.CheckStr(Request("DB5"),0)
If DB5 = "" Then DB5 = Null:DB5T = Null Else DB5T = WRMPS.CheckStr(Request("DB5T"),0)
DB6 = WRMPS.CheckStr(Request("DB6"),0)
If DB6 = "" Then DB6 = Null:DB6T = Null Else DB6T = WRMPS.CheckStr(Request("DB6T"),0)
DB7 = WRMPS.CheckStr(Request("DB7"),0)
If DB7 = "" Then DB7 = Null:DB7T = Null Else DB7T = WRMPS.CheckStr(Request("DB7T"),0)
DB8 = WRMPS.CheckStr(Request("DB8"),0)
If DB8 = "" Then DB8 = Null:DB8T = Null Else DB8T = WRMPS.CheckStr(Request("DB8T"),0)
DB9 = WRMPS.CheckStr(Request("DB9"),0)
If DB9 = "" Then DB9 = Null:DB9T = Null Else DB9T = WRMPS.CheckStr(Request("DB9T"),0)
DB10 = WRMPS.CheckStr(Request("DB10"),0)
If DB10 = "" Then DB10 = Null:DB10T = Null Else DB10T = WRMPS.CheckStr(Request("DB10T"),0)
Rs.Open "Select WM_ParentDir,WM_Dir From WM_CompanySort Where WM_ID = "&ClassID,Conn,1,1
If Not Rs.Eof Then
ClassDir = Rs(0)&Rs(1)
End If
Rs.Close
Rs.Open "Select Top 1 WM_ID From WM_Company Where WM_ID <> "&ID&" and WM_Company ='"&Company&"' and WM_AreaID="&AreaID&" and WM_ClassID="&ClassID&"",Conn,1,1
If Not Rs.Eof Then
Call WRMPS.ErrView("·店铺已存在",0)
End If
Rs.Close
WRMPS.DelCookies "Code"
If SaveType < 1 Then '新增到Temp
Sql = "Select WM_AreaID,WM_ClassID,WM_ClassDir,WM_Company,WM_Address,WM_Phone,WM_Mobile,WM_Tags,WM_Coordinate,WM_Fax,WM_BusinessTime,WM_IsCard,WM_Depot,WM_BusRoute,WM_Marker,WM_Web,WM_Intro,WM_DB1,WM_DB2,WM_DB3,WM_DB4,WM_DB5,WM_DB6,WM_DB7,WM_DB8,WM_DB9,WM_DB10,WM_DB1T,WM_DB2T,WM_DB3T,WM_DB4T,WM_DB5T,WM_DB6T,WM_DB7T,WM_DB8T,WM_DB9T,WM_DB10T,WM_CheckUser,WM_CheckTime,WM_ComID,WM_Key From WM_CompanyTemp"
Else
Sql = "Select WM_AreaID,WM_ClassID,WM_ClassDir,WM_Company,WM_Address,WM_Phone,WM_Mobile,WM_Tags,WM_Coordinate,WM_Fax,WM_BusinessTime,WM_IsCard,WM_Depot,WM_BusRoute,WM_Marker,WM_Web,WM_Intro,WM_DB1,WM_DB2,WM_DB3,WM_DB4,WM_DB5,WM_DB6,WM_DB7,WM_DB8,WM_DB9,WM_DB10,WM_DB1T,WM_DB2T,WM_DB3T,WM_DB4T,WM_DB5T,WM_DB6T,WM_DB7T,WM_DB8T,WM_DB9T,WM_DB10T From WM_Company Where WM_ID = "&ID&""
End If
Rs.Open SQL,Conn,1,3
If SaveType < 1 Then
Rs.AddNew
Rs(37) = MemName
Rs(38) = Now()
Rs(39) = ID
Rs(40) = 0
End If
Rs(0) = AreaID
Rs(1) = ClassID
Rs(2) = ClassDir
Rs(3) = Company
Rs(4) = Address
Rs(5) = Phone
Rs(6) = Mobile
Rs(7) = Tags
Rs(8) = Coordinate
Rs(9) = Fax
Rs(10) = BusinessTime
Rs(11) = IsCard
Rs(12) = Depot
Rs(13) = BusRoute
Rs(14) = Marker
Rs(15) = Web
Rs(16) = Intro
Rs(17) = DB1
Rs(18) = DB2
Rs(19) = DB3
Rs(20) = DB4
Rs(21) = DB5
Rs(22) = DB6
Rs(23) = DB7
Rs(24) = DB8
Rs(25) = DB9
Rs(26) = DB10
Rs(27) = DB1T
Rs(28) = DB2T
Rs(29) = DB3T
Rs(30) = DB4T
Rs(31) = DB5T
Rs(32) = DB6T
Rs(33) = DB7T
Rs(34) = DB8T
Rs(35) = DB9T
Rs(36) = DB10T
Rs.Update
Rs.Close
If SaveType < 1 Then
Conn.Execute("Update WM_Company Set WM_EditNum = WM_EditNum + 1 Where WM_ID="&ID)
Call WRMPS.ErrView("·店铺修改成功，请等待管理员的审核<meta http-equiv='refresh' content='3;URL="&WRMPS.GetCompanyUrl(ID)&"'>",1)
Else
Call WRMPS.ErrView("·店铺修改成功<meta http-equiv='refresh' content='3;URL="&WRMPS.GetCompanyUrl(ID)&"'>",1)
End If
Case "Post"
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/Edit.asp?ID="&ID&">修改店铺</a>"
SitePath = WRMPS.GetSitePath(0,SitePath)
Call WRMPS.FsoBegin()
TempStr = WRTemp.SiteTemplates(1,0,57,ChannelID)
Call WRMPS.FsoEnd()
TempStr = WRMPS.GetReplace(TempStr,"{$ID}",ID)
TempStr = WRTemp.SiteChannel(TempStr)
TempStr = WRTemp.SiteLabel(TempStr)
Response.write TempStr
Case Else
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&">"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/Edit.asp?ID="&ID&">修改店铺</a>"
SitePath = WRMPS.GetSitePath(0,SitePath)
AreaID = WRMPS.CheckStr(Request("AreaID"),1)
ClassID = WRMPS.CheckStr(Request("ClassID"),1)
Call WRMPS.FsoBegin()
TempStr = WRTemp.SiteTemplates(1,0,56,ChannelID)
Call WRMPS.FsoEnd()
Rs.Open"Select * From WM_Company Where WM_ID = "&ID&"",Conn,1,1
If Not Rs.Eof Then
If AreaID = "" Or IsNull(AreaID) Or ClassID = "" Or IsNull(ClassID) Then
AreaID = Rs("WM_AreaID")
ClassID = Rs("WM_ClassID")
End If
AreaName=WRDB.GetClassName("WM_Area",AreaID)
Set Rso = Conn.Execute("Select WM_Name From WM_CompanySort Where WM_id = "&ClassID&"")
If Not Rso.Eof Then
ClassName = Rso(0)
End If
Rso.Close
TempStr = WRMPS.GetReplace(TempStr,"{$AreaName}",AreaName)
TempStr = WRMPS.GetReplace(TempStr,"{$ClassName}",ClassName)
TempStr = WRMPS.GetReplace(TempStr,"{$AreaID}",AreaID)
TempStr = WRMPS.GetReplace(TempStr,"{$ClassID}",ClassID)
If Instr(TempStr,"{$Map}") > 0 Then
If AreaID > 0 Then
Set Rso = Conn.Execute("Select WM_Map from WM_Area Where WM_ID="&AreaID)
If Not Rso.Eof Then
xy = Rso(0)
End If
Rso.Close
End If
If xy = "" Or IsNull(xy) Then xy = WR_Area(1)
TempStr = WRMPS.GetReplace(TempStr,"{$Map}","../Plus/Map/"&WR_Other(12)&"/?Action=Add&input=Coordinate&xy=""+document.myform.Coordinate.value+""&xy="&xy)
End If
If Instr(TempStr,"{$OtherOption}") > 0 Then
Set Rso = Server.CreateObject("ADODB.RecordSet")
Rso.Open "Select WM_DB from WM_CompanySort Where WM_ID="&ClassID, Conn, 1, 1
If Not Rso.Eof Then
TestCon = Rso(0)
TestCon = WRMPS.GetReplace(TestCon,"[$DB1$]",Rs("WM_DB1"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB2$]",Rs("WM_DB2"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB3$]",Rs("WM_DB3"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB4$]",Rs("WM_DB4"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB5$]",Rs("WM_DB5"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB6$]",Rs("WM_DB6"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB7$]",Rs("WM_DB7"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB8$]",Rs("WM_DB8"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB9$]",Rs("WM_DB9"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB10$]",Rs("WM_DB10"))
TestCon = WRMPS.GetReplace(TestCon,"[$DB1("&Rs("WM_DB1")&")$]","selected")
TestCon = WRMPS.GetReplace(TestCon,"[$DB2("&Rs("WM_DB2")&")$]","selected")
TestCon = WRMPS.GetReplace(TestCon,"[$DB3("&Rs("WM_DB3")&")$]","selected")
TestCon = WRMPS.GetReplace(TestCon,"[$DB4("&Rs("WM_DB4")&")$]","selected")
TestCon = WRMPS.GetReplace(TestCon,"[$DB5("&Rs("WM_DB5")&")$]","selected")
TestCon = WRMPS.GetReplace(TestCon,"[$DB6("&Rs("WM_DB6")&")$]","selected")
TestCon = WRMPS.GetReplace(TestCon,"[$DB7("&Rs("WM_DB7")&")$]","selected")
TestCon = WRMPS.GetReplace(TestCon,"[$DB8("&Rs("WM_DB8")&")$]","selected")
TestCon = WRMPS.GetReplace(TestCon,"[$DB9("&Rs("WM_DB9")&")$]","selected")
TestCon = WRMPS.GetReplace(TestCon,"[$DB10("&Rs("WM_DB10")&")$]","selected")
If TestCon <> "" and Isnull(TestCon)=False Then
TempStr = WRMPS.GetReplace(TempStr,"{$OtherOptionStyle}","")
TempStr = WRMPS.GetReplace(TempStr,"{$OtherOption}",TestCon)
End If
End If
Rso.Close
End If
TempStr = WRMPS.GetReplace(TempStr,"{$OtherOptionStyle}"," style=""display:none""")
TempStr = WRMPS.GetReplace(TempStr,"{$OtherOption}","")
TempStr = WRMPS.GetReplace(TempStr,"{$ID}",ID)
TempStr = WRMPS.GetReplace(TempStr,"{$Company}",Rs("WM_Company"))
TempStr = WRMPS.GetReplace(TempStr,"{$Tags}",Rs("WM_Tags"))
TempStr = WRMPS.GetReplace(TempStr,"{$IsCard}",Rs("WM_IsCard"))
TempStr = WRMPS.GetReplace(TempStr,"{$BusinessTime}",Rs("WM_BusinessTime"))
TempStr = WRMPS.GetReplace(TempStr,"{$Address}",Rs("WM_Address"))
TempStr = WRMPS.GetReplace(TempStr,"{$Coordinate}",Rs("WM_Coordinate"))
TempStr = WRMPS.GetReplace(TempStr,"{$Depot}",Rs("WM_Depot"))
TempStr = WRMPS.GetReplace(TempStr,"{$BusRoute}",Rs("WM_BusRoute"))
TempStr = WRMPS.GetReplace(TempStr,"{$Marker}",Rs("WM_Marker"))
TempStr = WRMPS.GetReplace(TempStr,"{$Web}",Rs("WM_Web"))
TempStr = WRMPS.GetReplace(TempStr,"{$Intro}",WRMPS.CheckStr(Rs("WM_Intro"),7))
TempStr = WRMPS.GetReplace(TempStr,"{$Phone}",Rs("WM_Phone"))
TempStr = WRMPS.GetReplace(TempStr,"{$Fax}",Rs("WM_Fax"))
TempStr = WRMPS.GetReplace(TempStr,"{$Mobile}",Rs("WM_Mobile"))
TempStr = WRMPS.GetReplace(TempStr,"[$("&Rs("WM_BusinessTime")&")$]","checked")
TempStr = WRMPS.GetReplace(TempStr,"[$("&Rs("WM_IsCard")&")$]","checked")
End If
Rs.Close
If Instr(TempStr,"{$IDCode}") > 0 Then
TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("Company",1))
If WRMPS.CheckCode("Company",1) Then
TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","")
Else
TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""")
End If
End If
TempStr = WRTemp.SiteChannel(TempStr)
TempStr = WRTemp.SiteLabel(TempStr)
Response.write TempStr
End Select
Set Rso = Nothing
Set Rs = Nothing
Call ClassEnd()
Call DBConnEnd()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -