post.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#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"-->

<%
If Not WRUser.ChkLogin Then Call WRMPS.AjaxLogin("",0,"您需要登录后才可以登记店铺！")
If Int(WR_Company(0)) < 1 Or Int(FlagCom(0)) < 1 Then Call WRMPS.ErrView("·您没有权限操作此功能！<meta http-equiv=refresh content='100;URL=../'>",0)
Dim xy,TestCon
Dim ClassDir,ClaimUser,i,ID
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")
Select Case WRMPS.CheckStr(Request("Action"),0)
  Case "Check"
	AreaID = WRMPS.CheckStr(Request("AreaID"),1)
	ClassID = WRMPS.CheckStr(Request("ClassID"),1)
	Company = WRMPS.CheckStr(Request("Company"),0)
	Set Rs = Conn.Execute("Select Top 1 WM_ID From WM_Company Where WM_Company ='"&Company&"' and WM_AreaID="&AreaID&" and WM_ClassID="&ClassID&"")
	If Not Rs.Eof Then
	   Response.write "<span style=""color:red;font-weight:bold"">此店铺已存在</span> <a href="&WRMPS.GetCompanyUrl(Rs(0))&" target=_blank>[点击查看？]</a>"
	   response.end
	End If
	Rs.CLose
    Set Rs = Nothing
	Response.write "恭喜您，此店铺可以继续登记"

  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=Post.asp'>",0)
	Company = WRMPS.CheckStr(Request.form("Company"),0)
	If Company = "" Or IsNull(Company) Then Call WRMPS.ErrView("·请填写店铺名称<meta http-equiv=refresh content='1;URL=?Action=Post&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=?Action=Post&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
	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=?Action=Post&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_AreaID="&AreaID&" and WM_ClassID="&ClassID&" and WM_Company ='"&Company&"'",Conn,1,1
	  If Not Rs.Eof Then
	    Call WRMPS.ErrView("·您准备登记的店铺已存在",0)
	  End If
	Rs.Close
	
	If WRMPS.CheckStr(Request.form("IsShopkeeper"),1) > 0 Then
	  ClaimUser = MemName
	Else
	  ClaimUser = Null
	End If
	
	If Int(FlagCom(3)) > 0 Then Call WRDB.SaveConsume(0,MemName,0,Int(FlagCom(2)),Int(FlagCom(1)),0,"登记店铺“"&Company&"”成功")
	SQL = "Insert into WM_Company("
	SQL = SQL & "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_CheckUser,WM_CheckTime,WM_ClaimUser,WM_ClaimTime,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_EditNum,WM_GB,WM_PhotoNum,WM_LastPhoto,WM_CouponNum,WM_Commend,WM_Collection,WM_aZTop,WM_aTop,WM_aTitColor,WM_aBgColor,WM_aBold,WM_aProp,WM_aTColor,WM_aBColor,WM_TempID"
	SQL = SQL & ")values("
	SQL = SQL & Int(FlagCom(3)) &","&AreaID&","&ChannelID&","&ClassID&",'"&ChannelDir&"','"&ClassDir&"','"&Company&"','"&Address&"','"&Phone&"','"&Mobile&"','"&Tags&"','"&Coordinate&"','"&Fax&"','"&BusinessTime&"','"&IsCard&"','"&Depot&"','"&BusRoute&"','"&Marker&"','"&Web&"','"&Intro&"','"&MemName&"',"&ConnTime&",'"&ClaimUser&"',"&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,0,Null,0,0,0,"&ConnTime&","&ConnTime&",Null,Null,"&ConnTime&",'0|0',"&ConnTime&","&ConnTime&",0"
	SQL = SQL & ")"
	Conn.Execute(SQL)

	If Int(FlagCom(3)) > 0 Then
	  Conn.Execute("Update WM_Config Set WM_CompanyNum = WM_CompanyNum + 1")
	  Conn.Execute("Update WM_Member Set WM_CompanyNum = WM_CompanyNum + 1 Where WM_ID = "&MemID)
	  Call WRMPS.SCache("CompanyNum",WRMPS.GetCache("CompanyNum") + 1)
	End If
    WRMPS.DelCookies "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
    Call WRMPS.CreTextToImg(ID,2,Fax,Phone,Mobile,AddRess)
	If Int(FlagCom(3)) > 0 Then
	  If WRMPS.CheckStr(Request.form("IsShopkeeper"),1) > 0 Then
	    Call WRMPS.ErrView("·登记成功，请尽快上传您的店铺营业执照<meta http-equiv='refresh' content='1;URL=../Member/User_RL.asp?Action=RL&ID="&ID&"'>",1)
	  Else
	    Call WRMPS.ErrView("·登记成功，1秒钟后自动跳转到用户管理页面<meta http-equiv='refresh' content='3;URL=../Member'>",1)
	  End If
	Else
	    Call WRMPS.ErrView("·登记成功，请等待管理员的审核<meta http-equiv='refresh' content='3;URL=../Member'>",1)
	End If

  Case "Post"
    SitePath = ",<a href="&WR_Setting(3)&ChannelDir&">"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/Post.asp>登记店铺</a>"
	SitePath = WRMPS.GetSitePath(0,SitePath)
	AreaID = WRMPS.CheckStr(Request("AreaID"),1)
	ClassID = WRMPS.CheckStr(Request("ClassID"),1)
    If AreaID = "" Then Call WRMPS.ErrView("·请选择城市分类<meta http-equiv=refresh content='1;URL=Post.asp'>",0)
    If ClassID = "" Then Call WRMPS.ErrView("·请选择店铺分类<meta http-equiv=refresh content='1;URL=Post.asp'>",0)
	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
	    Set Rs = Nothing
      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
	TempStr = WRMPS.GetReplace(TempStr,"{$AreaID}",AreaID)
	TempStr = WRMPS.GetReplace(TempStr,"{$ClassID}",ClassID)
	
	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$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB2$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB3$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB4$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB5$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB6$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB7$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB8$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB9$]","")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB10$]","")
		If TestCon <> "" and Isnull(TestCon)=False Then
		  TempStr = WRMPS.GetReplace(TempStr,"{$OtherOptionStyle}","")
		  TempStr = WRMPS.GetReplace(TempStr,"{$OtherOption}",TestCon)
		End If
	  End If
	  Rso.Close
	  Set Rso = Nothing
    End If
	TempStr = WRMPS.GetReplace(TempStr,"{$OtherOptionStyle}"," style=""display:none""")
	TempStr = WRMPS.GetReplace(TempStr,"{$OtherOption}","")
	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

  Case Else
	SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/Post.asp>登记店铺</a>"
	SitePath = WRMPS.GetSitePath(0,SitePath)

	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,55,ChannelID)
	Call WRMPS.FsoEnd()
	TempStr = WRTemp.SiteChannel(TempStr)
	TempStr = WRTemp.SiteLabel(TempStr)
	Response.write TempStr
End Select

Call ClassEnd()
Call DBConnEnd()

%>