<% If Not WRUser.ChkLogin Then Call WRMPS.AjaxLogin("",0,"您需要登錄后才可以登記店鋪!") If Int(WR_Company(0)) < 1 Or Int(Mem(0)(6)) > 1 Then Call WRMPS.ErrView("","","
  • 您沒有權限操作此功能",0) Call DBConnBegin() '檢查是否已登記過店鋪 Set Rs = Conn.Execute("Select WM_ComID From WM_Member Where WM_ID="&MemID) If Not rs.eof Then If rs(0) > 0 Then Call WRMPS.ErrView("返回"&ChannelName&"首頁","index.asp","
  • 您不是已經店鋪過店鋪了嗎?",0) Else Call WRMPS.ErrView("返回"&ChannelName&"首頁","index.asp","
  • 操作錯誤",0) End If rs.close Dim xy,TestCon Dim ClassDir,i,ID Dim Company,Address,Phone,Mobile,Tags,Code,Coordinate,Fax,BusinessTime,IsCard,Depot,BusRoute,Marker,Web,Intro,AreaB,AreaS,WM_Key ClassID = WRMPS.CheckStr(Request("ClassID"),1) Set Rs=server.createobject("adodb.recordset") Select Case WRMPS.CheckStr(Request("Action"),0) Case "Check" Company = WRMPS.CheckStr(Request("Company"),0) Set Rs = Conn.Execute("Select Top 1 WM_ID From WM_Company Where WM_Company ='"&Company&"'") If Not Rs.Eof Then Response.write "此店鋪已存在 [點擊查看?]" response.end End If Rs.CLose Set Rs = Nothing Response.write "恭喜您,此店鋪可以繼續登記" Case "Save" Call WRMPS.CheckSubmit() AreaID = WRMPS.CheckStr(Request.form("AreaID"),1) If AreaID ="" Then Call WRMPS.ErrView("","","
  • 請選擇店鋪所在地區",0) AreaB = WRMPS.CheckStr(Request.form("ChildArea"),0) AreaB = WRMPS.GetReplace(WRMPS.GetReplace(AreaB," ","")," ","") AreaS = 0 If AreaB <> "" Then If InStr(AreaB,",") > 0 Then:AreaS = Split(AreaB,",")(1):AreaB = Split(AreaB,",")(0) Else AreaB = 0 End If If ClassID ="" Then Call WRMPS.ErrView("","","
  • 請選擇店鋪所屬分類",0) Company = WRMPS.CheckStr(Request.form("Company"),0) If Company = "" Or IsNull(Company) Then Call WRMPS.ErrView("","?AreaID="&AreaID&"&ClassID="&ClassID&"","
  • 請填寫店鋪名稱",0) Address = WRMPS.CheckStr(Request.form("Address"),0) If Address = "" Or IsNull(Address) Then Call WRMPS.ErrView("","?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) Tags = WRMPS.GetReplace(Tags," ",",") 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 Code = WRMPS.CheckStr(Request.form("Code"),0) If WRMPS.CheckCode("Company",1) Then If Code = "" Or Code <> Session("Code") Then Call WRMPS.ErrView("","?AreaID="&AreaID&"&ClassID="&ClassID,"
  • 驗證碼不正確",0) Call WRMPS.RequestDB() 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_Company = '"&Company&"' and WM_ClassID="&ClassID&" and WM_AreaID="&AreaID&"",Conn,1,1 If Not Rs.Eof Then Call WRMPS.ErrView("","?AreaID="&AreaID&"&ClassID="&ClassID,"
  • 您準備登記的店鋪已存在",0) End If Rs.Close WM_Key = Int(Mem(0)(6)) '垃圾信息檢測 Set WRClass = New Cls_Sift SiftState = WRClass.ClassSift(False,Company,Intro,Phone,"","") If SiftState = 1 Then Call WRMPS.ErrView("","?AreaID="&AreaID&"&ClassID="&ClassID,"
  • 信息提交失敗
  • 被系統判定為非法或垃圾信息",0) If SiftState = 2 Then WM_Key = 0 Set WRClass = Nothing If WM_Key = 1 Then Call WRDB.SaveConsume(0,MemName,0,0,Int(Mem(2)(4)),0,"店鋪“"&Company&"”登記成功") SQL = "Insert into WM_Company(" SQL = SQL & "WM_Jingjia,WM_Key,WM_AreaID,WM_ChannelID,WM_ClassID,WM_ChannelDir,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_User,WM_Time,WM_RZBL,WM_BLPic,WM_FiRstRE,WM_LastRE,WM_Hit,WM_Re,WM_ReSer,WM_RePrice,WM_All,WM_Consume,WM_ThinkGo,WM_IsGo,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_GB,WM_PhotoNum,WM_LastPhoto,WM_CouponNum,WM_Commend,WM_Collection,WM_TempID,WM_DB11,WM_DB12,WM_DB13,WM_DB14,WM_DB15,WM_DB16,WM_DB17,WM_DB18,WM_DB19,WM_DB20,WM_DB11T,WM_DB12T,WM_DB13T,WM_DB14T,WM_DB15T,WM_DB16T,WM_DB17T,WM_DB18T,WM_DB19T,WM_DB20T,WM_AreaB,WM_AreaS,WM_ProductNum" SQL = SQL & ")values(" SQL = SQL & "0,"&WM_Key&","&AreaID&","&ChannelID&","&ClassID&",'"&ChannelDir&"','"&ClassDir&"','"&Company&"','"&Address&"','"&Phone&"','"&Mobile&"','"&Tags&"','"&Coordinate&"','"&Fax&"','"&BusinessTime&"','"&IsCard&"','"&Depot&"','"&BusRoute&"','"&Marker&"','"&Web&"','"&Intro&"','"&MemName&"',"&ConnTime&",0,Null,Null,Null,0,0,0,0,0,0,Null,Null,'"&DB1&"','"&DB2&"','"&DB3&"','"&DB4&"','"&DB5&"','"&DB6&"','"&DB7&"','"&DB8&"','"&DB9&"','"&DB10&"','"&DB1T&"','"&DB2T&"','"&DB3T&"','"&DB4T&"','"&DB5T&"','"&DB6T&"','"&DB7T&"','"&DB8T&"','"&DB9T&"','"&DB10T&"',0,0,Null,0,0,0,0,'"&DB11&"','"&DB12&"','"&DB13&"','"&DB14&"','"&DB15&"','"&DB16&"','"&DB17&"','"&DB18&"','"&DB19&"','"&DB20&"','"&DB11T&"','"&DB12T&"','"&DB13T&"','"&DB14T&"','"&DB15T&"','"&DB16T&"','"&DB17T&"','"&DB18T&"','"&DB19T&"','"&DB20T&"',"&AreaB&","&AreaS&",0" SQL = SQL & ")" Conn.Execute(SQL) If WM_Key > 0 Then Conn.Execute("Update WM_Config Set WM_CompanyNum = WM_CompanyNum + 1") Call WRMPS.SCache("CompanyNum",WRMPS.GetCache("CompanyNum") + 1) End If Session("Code") = "" If (WR_Mail(5) <> "NO" And Int(WR_Company(3)) > 0) Or Int(WR_Mail(17)) > 0 Then MailBody = WR_Mail(9) MailBody = Replace(MailBody,"{$Company}",Company) Subject = "恭喜您,在"&WR_Setting(0)&"上登記的店鋪"&Company&"成功!" If WR_Mail(5) <> "NO" And Int(WR_Company(3)) > 0 Then Call WRMPS.SendMail(WRTemp.SiteLabel(MailBody&vbCrLf&vbCrLf&WR_Mail(4)),WRTemp.SiteLabel(WR_Setting(0)),WRTemp.SiteLabel(Subject),Email) If Int(WR_Mail(17)) > 0 Then Call WRDB.SendMessage(MemName,Null,"店鋪“"&Company&"”登記成功!",WRTemp.SiteLabel(MailBody)) End If End If Set Rs = Conn.Execute("Select max(WM_ID) from WM_Company") If Not Rs.EOF Then ID = Rs(0) End If Rs.Close Conn.Execute("Update WM_Member Set WM_ComID = "&ID&" Where WM_ID = "&MemID) Call WRMPS.FsoBegin() Call WRMPS.CreTextToImg(ID,2,Fax,Phone,Mobile) Call WRMPS.FsoEnd() If WM_Key > 0 Then Dim Clew 'yi begin If Int(WR_Prop(2)) > 0 Then Clew = "" 'yi end Call WRMPS.ErrView("","../Member","
  • 店鋪登記成功
  • 正在進入用戶管理頁面"&Clew,1) Else If SiftState = 2 Then Call WRMPS.ErrView("","../Member","
  • 由于您提交的內容帶有敏感字符,請等待管理員的審核",1) Else Call WRMPS.ErrView("","../Member","
  • 登記成功,請等待管理員的審核",1) End If End If Case Else Dim ScriptCkeck,MyCityID1,ClassID1 If ClassID = "" Then ClassID = 0 ClassID1 = ClassID&",0" MyCityID1 = MyCityID&",0" Set Rs = Conn.Execute("Select WM_ParentID From WM_Area Where WM_Child = 0 and WM_ID="&MyCityID) If Not Rs.Eof Then MyCityID1 = Rs(0)&","&MyCityID End If Rs.Close Set Rs = Conn.Execute("Select WM_ParentID From WM_CompanySort Where WM_Child = 0 and WM_ID="&ClassID) If Not Rs.Eof Then ClassID1 = Rs(0)&","&ClassID End If Rs.Close Call WRMPS.FsoBegin() TempStr = WRTemp.SiteTemplates(1,0,44,ChannelID) Call WRMPS.FsoEnd() If Instr(TempStr,"{$Map}") > 0 Then If AreaID > 0 Then Set Rs = Conn.Execute("Select WM_Map from WM_Area Where WM_ID="&AreaID) If Not Rs.Eof Then xy = Rs(0) End If Rs.Close End If If xy = "" Or IsNull(xy) Then xy = WR_Area(1) TempStr = WRMPS.GetReplace(TempStr,"{$Map}","../Plus/Map/"&WR_Other(1)&"/?Action=Add&input=Coordinate&xy=""+document.myform.Coordinate.value+""&xy="&xy) End If Set Rs = Nothing 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 If MyCityID > 0 Then ScriptCkeck = "ChangeAreaID("&MyCityID1&");DBOption('AreaID',"&MyCityID&");" If ClassID > 0 Then ScriptCkeck = ScriptCkeck& "ChangeClassID("&ClassID1&");DBOption('ClassID',"&ClassID&");" If ScriptCkeck <> "" Then ScriptCkeck = "" TempStr = WRMPS.GetReplace(TempStr,"{$ScriptCkeck}",ScriptCkeck) TempStr = WRTemp.SiteChannel(TempStr) TempStr = WRTemp.SiteLabel(TempStr) Response.write TempStr End Select Call ClassEnd() Call DBConnEnd() %>我爱玩山西麻将app