<% If Not WRUser.ChkLogin Then Call WRMPS.AjaxLogin("",0,"您需要登錄后才可以登記產品!") If Int(Mem(0)(18)) > 1 Then Call WRMPS.ErrView("","","
  • 您沒有權限操作此功能", 0) Dim ComID Dim ScriptCkeck,MyCityID1,ClassID1,UserSortSelect,UserSortID Dim ClassDir,i,ID,AreaB,AreaS,WM_Key Dim Title,Model,Price,CurrencyType,Path,PathList,Intro,Code,Company Call DBConnBegin() '檢查權限 If Int(Mem(0)(18)) < 2 Then Set Rs = Conn.Execute("Select A.WM_ComID,B.WM_Key,B.WM_Company From WM_Member A Inner Join WM_Company B on A.WM_ComID = B.WM_ID Where A.WM_ID = "&MemID) If Not Rs.Eof Then ComID = Rs(0) Company = Rs(2) If Rs(1) <> 1 Then Call WRMPS.ErrView("","index.asp","
  • 店鋪還沒有經過審核或被鎖定,不能操作",0) Else Call WRMPS.ErrView("返回"&ChannelName&"首頁","index.asp","
  • 您得先登記一個店鋪才能使用此功能",0) End If Rs.Close Else Call WRMPS.ErrView("返回"&ChannelName&"首頁","index.asp","
  • 您沒有權限操作此功能",0) End If ClassID = WRMPS.CheckStr(Request("ClassID"),1) Set Rs=server.createobject("adodb.recordset") Select Case WRMPS.CheckStr(Request("Action"),0) Case "Save" Call WRMPS.CheckSubmit() AreaID = WRMPS.CheckStr(Request.form("AreaID"),1) If AreaID ="" Then Call WRMPS.ErrView("","?AreaID="&AreaID&"&ClassID="&ClassID&"","
  • 請選擇產品所在地區",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("","?AreaID="&AreaID&"&ClassID="&ClassID&"","
  • 請選擇產品所屬分類",0) Title = WRMPS.CheckStr(Request.form("Title"),0) If Title = "" Or IsNull(Title) Then Call WRMPS.ErrView("","?AreaID="&AreaID&"&ClassID="&ClassID&"","
  • 請填寫產品名稱",0) UserSortID = WRMPS.CheckStr(Request.form("UserSortID"),1) If UserSortID = "" Then UserSortID = 0 Model = WRMPS.CheckStr(Request.form("Model"),0) If Model = "" Then Model = Null Price = WRMPS.CheckStr(Request.form("Price"),1) If Price = "" Then Price = 0 Else If IsNumeric(Price) = False Then Price = 0 End If CurrencyType = WRMPS.CheckStr(Request.form("CurrencyType"),0) If Price = 0 Then CurrencyType = Null Intro = WRMPS.CheckStr(Request.form("Intro"),2) If Intro = "" Or IsNull(Intro) Then Call WRMPS.ErrView("","?AreaID="&AreaID&"&ClassID="&ClassID&"","
  • 產品介紹不能為空",0) Path = WRMPS.CheckStr(Request.form("Pic"),4) If Path = "" Then Path = Null PathList = WRMPS.CheckStr(Request.form("PicList"),4) If PathList = "" Then PathList = Null Code = WRMPS.CheckStr(Request.form("Code"),0) If WRMPS.CheckCode("Product",1) Then If Code = "" Or Code <> Session("Code") Then Call WRMPS.ErrView("","?AreaID="&AreaID&"&ClassID="&ClassID&"","
  • 驗證碼不正確",0) Session("Code") = "" Call WRMPS.RequestDB() Rs.Open "Select WM_ParentDir,WM_Dir From WM_ProductSort Where WM_ID = "&ClassID,Conn,1,1 If Not Rs.Eof Then ClassDir = Rs(0)&Rs(1) End If Rs.Close WM_Key = Int(Mem(0)(18)) '垃圾信息檢測 Set WRClass = New Cls_Sift SiftState = WRClass.ClassSift(False,Title,Intro,"","","") If SiftState = 1 Then Call WRMPS.ErrView("","?AreaID="&AreaID&"&ClassID="&ClassID,"
  • 信息提交失敗
  • 被系統判定為非法或垃圾信息",0) If SiftState = 2 Then WM_Key = 0 Set WRClass = Nothing SQL = "Insert into WM_Product(" SQL = SQL & "WM_ClassID,WM_ClassDir,WM_AreaID,WM_AreaB,WM_AreaS,WM_ChannelID,WM_ChannelDir,WM_Title,WM_U_ClassID,WM_Model,WM_Price,WM_CurrencyType,WM_Intro,WM_Pic,WM_PicList,WM_PostType,WM_User,WM_ComID,WM_Company,WM_Key,WM_Hit,WM_Re,WM_Time,WM_Commend,WM_TempID,WM_Collection,WM_DB1,WM_DB2,WM_DB3,WM_DB4,WM_DB5,WM_DB6,WM_DB7,WM_DB8,WM_DB9,WM_DB10,WM_DB11,WM_DB12,WM_DB13,WM_DB14,WM_DB15,WM_DB16,WM_DB17,WM_DB18,WM_DB19,WM_DB20,WM_DB1T,WM_DB2T,WM_DB3T,WM_DB4T,WM_DB5T,WM_DB6T,WM_DB7T,WM_DB8T,WM_DB9T,WM_DB10T,WM_DB11T,WM_DB12T,WM_DB13T,WM_DB14T,WM_DB15T,WM_DB16T,WM_DB17T,WM_DB18T,WM_DB19T,WM_DB20T,WM_Jingjia" SQL = SQL & ")values(" SQL = SQL & ClassID &",'"&ClassDir &"',"&AreaID&","&AreaB&","&AreaS&","&ChannelID&",'"&ChannelDir&"','"&Title&"',"&UserSortID&",'"&Model&"',"&Price&",'"&CurrencyType&"','"&Intro&"','"&Path&"','"&PathList&"',1,'"&MemName&"',"&ComID&",'"&Company&"',"&WM_Key&",0,0,"&ConnTime&",0,0,0,'"&DB1&"','"&DB2&"','"&DB3&"','"&DB4&"','"&DB5&"','"&DB6&"','"&DB7&"','"&DB8&"','"&DB9&"','"&DB10&"','"&DB11&"','"&DB12&"','"&DB13&"','"&DB14&"','"&DB15&"','"&DB16&"','"&DB17&"','"&DB18&"','"&DB19&"','"&DB20&"','"&DB1T&"','"&DB2T&"','"&DB3T&"','"&DB4T&"','"&DB5T&"','"&DB6T&"','"&DB7T&"','"&DB8T&"','"&DB9T&"','"&DB10T&"','"&DB11T&"','"&DB12T&"','"&DB13T&"','"&DB14T&"','"&DB15T&"','"&DB16T&"','"&DB17T&"','"&DB18T&"','"&DB19T&"','"&DB20T&"',0" SQL = SQL & ")" Conn.Execute(SQL) If WM_Key > 0 Then Call WRDB.SaveConsume(0,MemName,0,0,Mem(2)(8),0,"產品“"&Title&"”發布成功") Conn.Execute("Update WM_Config Set WM_ProductNum = WM_ProductNum + 1") Conn.Execute("Update WM_Company Set WM_ProductNum = WM_ProductNum + 1 where WM_ID="&ComID) Call WRMPS.SCache("ProductNum",WRMPS.GetCache("ProductNum") + 1) End If Set Rs = Conn.Execute("Select max(WM_ID) from WM_Product") If Not Rs.EOF Then ID = Rs(0) End If Rs.Close If WM_Key > 0 Then Dim Clew 'yi begin If Int(WR_Prop(2)) > 0 Then Clew = "" 'yi end Call WRMPS.ErrView("","index.asp","
  • 產品登記成功
  • 查看您發布的產品
  • 返回繼續發布"&Clew,1) Else If SiftState = 2 Then Call WRMPS.ErrView("",WR_Setting(3)&ChannelDir,"
  • 由于您提交的內容帶有敏感字符,請等待管理員的審核
  • 繼續發布產品",1) Else Call WRMPS.ErrView("",WR_Setting(3)&ChannelDir,"
  • 登記成功,請等待管理員的審核
  • 繼續發布產品",1) End If End If Case Else 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_ProductSort 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,38,ChannelID) Call WRMPS.FsoEnd() '自定義分類 If Instr(TempStr,"{$UserSortSelect}") > 0 Then UserSortSelect = "" TempStr = WRMPS.GetReplace(TempStr,"{$UserSortSelect}",UserSortSelect) End If If Instr(TempStr,"{$IDCode}") > 0 Then TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("Product",1)) If WRMPS.CheckCode("Product",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