wm.company.asp

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

	Intro = WRMPS.CheckStr(Request.form("Intro"),2)
	If Intro = "" Or IsNull(Intro) Then Intro = Null
    
	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,WM_ChannelDir From WM_CompanySort Where WM_ID = "&ClassID,Conn,1,1
	  If Not Rs.Eof Then
	    ChannelDir = Rs(2)
	    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
	
	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 & "1,"&AreaID&","&ChannelID&","&ClassID&",'"&ChannelDir&"','"&ClassDir&"','"&Company&"','"&Address&"','"&Phone&"','"&Mobile&"','"&Tags&"','"&Coordinate&"','"&Fax&"','"&BusinessTime&"','"&IsCard&"','"&Depot&"','"&BusRoute&"','"&Marker&"','"&Web&"','"&Intro&"','"&Request.Cookies("Admin")("Admin")&"',"&ConnTime&",Null,"&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)

	Conn.Execute("Update WM_Config Set WM_CompanyNum = WM_CompanyNum + 1")
	Call WRMPS.SCache("CompanyNum",WRMPS.GetCache("CompanyNum") + 1)
	
    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)
    Call WRMPS.ErrView("·店铺登记成功<br>·<a href=WM.Company.asp>返回信息列表</a><br>·<a href=WM.Company.asp?Action=Add>继续发布</a><meta http-equiv=refresh content='1;URL=?Action=Add&ChannelID="&ChannelID&"'>",1)

    
  Case "AddTwo"
    Content = Content & ContentTop()
    ClassID = WRMPS.CheckStr(Request.form("ClassID"),0)
    AreaID = WRMPS.CheckStr(Request.form("AreaID"),0)
	If ClassID = "" Or AreaID = "" Then Call WRMPS.ErrView("·请选择店铺所属分类及地区<meta http-equiv=refresh content='1;URL=?Action=Add'>",1)

      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf  
	  Content = Content & "<form action='?Action=AddSave' name=myform method=POST>" & vbCrLf
	  Content = Content & "<input type=hidden name=AreaID value="&AreaID&">" & vbCrLf
	  Content = Content & "<input type=hidden name=ClassID value="&ClassID&">" & vbCrLf
	  Content = Content & "<tr Class=td4><td colspan=2><strong>添加店铺</strong></td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td3><td colspan=2><strong>基本资料</strong> (打 <strong><font class=F03>*</font></strong> 为必填项)</td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td width='20%'><strong>店铺名称</strong></td><td width='80%'><input name=Company type=text Style='width:200px' maxlength=50> <strong><font color=#FF0000>*</font></strong></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>详细地址</strong></td><td><input name=Address type=text Style='width:300px' maxlength=50> <strong><font color=#FF0000>*</font></strong></td></tr>" & vbCrLf
      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 Content = Content & "<tr Class=td2><td><strong>相关选项</strong></td><td>"&TestCon&"</td></tr>" & vbCrLf  
	  End If
	  Rso.Close
	  Set Rso = Nothing
	  Content = Content & "<tr Class=td2><td><strong>电话</strong><br>请加上区号，多个请用"",""隔开</td><td><input name=Phone type=text Style='width:150px' maxlength=50></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>手机</strong><br>多个请用"",""隔开</td><td><input name='Mobile' type='text' Style='width:150px' maxlength=50></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>产品标签</strong><br>多个请用"",""隔开</td><td><input name='Tags' type='text' Style='width:300px' maxlength=200></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>标注地图</strong><br>标注后，店铺将定位到电子地图上。</td><td><input name=Coordinate type=hidden><a href=javascript:ShowDialog('../Plus/Map/"&WR_Other(12)&"/?Action=Add&input=Coordinate&xy='+document.myform.Coordinate.value+'',600,400) class=red><img src='img/icon_qi.gif' align='absmiddle' border='0'><span id=Add>修改地图位置</span></a></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td3><td colspan=2><strong>补充资料</strong></td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td><strong>传真</strong><br>请加上区号，多个请用"",""隔开</td><td><input name='Fax' type='text' Style='width:150px' maxlength='50'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>营业时间</strong></td><td><input name='BusinessTime' type='radio' value='日常营业'>日常营业 <input name='BusinessTime' type='radio' value='午后营业'>午后营业 <input name='BusinessTime' type='radio' value='夜店'>夜店 <input name='BusinessTime' type='radio' value='24小时营业'>24小时营业 <input name='BusinessTime' type='radio' value='不详'>不详</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>可否刷卡</strong></td><td><input name='IsCard' type='radio' value='可刷卡'>可刷卡 <input name='IsCard' type='radio' value='不能刷卡'>不能刷卡 <input name='IsCard' type='radio' value='不详'>不详</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>附近公交车站</strong><br>多个请用"",""隔开</td><td><input name='Depot' type='text' Style='width:300px' maxlength=50></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>公交线路</strong><br>多个请用"",""隔开</td><td><input name='BusRoute' type='text' Style='width:300px' maxlength=50></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>附近标志物</strong><br>多个请用"",""隔开</td><td><input name='Marker' type='text' Style='width:300px' maxlength=50></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>店铺网址</strong></td><td><input name='Web' type='text' Style='width:200px' maxlength=50></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>店铺介绍</strong><br>1000字以内</td><td><textarea name='Intro' cols='50' rows='5'></textarea></td></tr>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>模板选项</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>模板选择</strong></td><td>"&TempSelect(0,48,ChannelID,"TempID")&"</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td></td><td><input type=submit value='提交修改' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
	  Content = Content & "</form>" & vbCrLf
	  Content = Content & "</table>" & vbCrLf

  Case "Add"
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf  
	  Content = Content & "<form action='?Action=AddTwo' name=myform method=POST>" & vbCrLf
	  Content = Content & "<tr Class=td4><td colspan=2><strong>添加店铺</strong></td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td><strong>所属地区</strong></td>" & vbCrLf
	  Content = Content & "<td><script src='../Inc/Js/AreaSelect.Js'></Script></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td width='20%'><strong>所属分类</strong></td>" & vbCrLf
	  Content = Content & "<td width='80%'><script src='../Inc/Js/CompanySelect.Js'></Script></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td></td><td><input type=submit value='下一步'></td></tr>" & vbCrLf
	  Content = Content & "</form>" & vbCrLf
	  Content = Content & "</table>" & vbCrLf

  Case "DJSave"	
    Set Rs = Conn.Execute("Select Top 1 WM_Key,WM_Commend,WM_aProp,WM_aZTop,WM_aTop,WM_aTitColor,WM_aTColor,WM_aBgColor,WM_aBColor,WM_aBold From WM_Company Where WM_ID = "&ID)
    If Not Rs.Eof Then
	    WM_Key = Rs(0)
		WM_Commend = Rs(1)
		WM_aProp = Split(Rs(2),"|")
		WM_aZTop = Rs(3)
		WM_aTop = Rs(4)
		WM_aTitColor = Rs(5)
		WM_aTColor = Rs(6)
		WM_aBgColor = Rs(7)
		WM_aBColor = Rs(8)
		WM_aBold = Rs(9)
		aProp1=WM_aProp(0):aProp2=WM_aProp(1)
		
		If WRMPS.CheckStr(Request("DelDJ"), 1) = 1 Then
		  SQL = SQL & "WM_aZTop="&ConnTime
		  SQL = SQL & ",WM_aTop="&ConnTime
		  SQL = SQL & ",WM_aTitColor=Null"
		  SQL = SQL & ",WM_aTColor="&ConnTime
		  SQL = SQL & ",WM_aBgColor=Null"
		  SQL = SQL & ",WM_aBColor="&ConnTime
		  SQL = SQL & ",WM_aBold="&ConnTime
		  SQL = SQL & ",WM_aProp='0|0'"
		  If Int(aProp1) > 0 Then SQL = SQL & ",WM_Key=0"
		  If Int(aProp2) > 0 Then SQL = SQL & ",WM_Commend=0"
		  Conn.Execute("Update WM_Company Set "&SQL&" Where WM_ID = "&ID)
	      Call WRMPS.ErrView("·道具取消成功<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",1)
		End If
		
        aKey = WRMPS.CheckStr(Request("aKey"), 1)
        If aKey = "" Then aKey = 0
		If WM_Key = 0 and aKey > 0 Then
		  aProp1 = aProp1+1
		  SQL = SQL & ",WM_Key=1"
		End If
        aCommend = WRMPS.CheckStr(Request("aCommend"), 1)
        If aCommend = "" Then aCommend = 0
		If WM_Commend = 0 and aCommend > 0 Then
		  aProp2 = aProp2+1
		  SQL = SQL & ",WM_Commend=1"
		End If
        aZTop = WRMPS.CheckStr(Request("aZTop"), 1)
        If aZTop = "" Then aZTop = 0
		If aZTop > 0 Then
		  If WM_aZTop < Now() Then WM_aZTop = Now()
		  WM_aZTop = WM_aZTop + aZTop
		  SQL = SQL & ",WM_aZTop='"&WM_aZTop&"'"
		End If
        aTop = WRMPS.CheckStr(Request("aTop"), 1)
        If aTop = "" Then aTop = 0
		If aTop > 0 Then
		  If WM_aTop < Now() Then WM_aTop = Now()
		  WM_aTop = WM_aTop + aTop
		  SQL = SQL & ",WM_aTop='"&WM_aTop&"'"
		End If
        aTColor = WRMPS.CheckStr(Request("aTColor"), 1)
        If aTColor = "" Then aTColor = 0
		If aTColor > 0 Then
		  If WM_aTColor < Now() Then WM_aTColor = Now()
		  WM_aTColor = WM_aTColor + aTColor
	      SQL = SQL & ",WM_aTColor='"&WM_aTColor&"'"
		End If
		aTitColor = WRMPS.CheckStr(Request("aTitColor"), 0)
		If aTitColor = "" Then aTitColor = WM_aTitColor
		If aTitColor = "" Or IsNull(aTitColor) Then aTitColor = Null
	    SQL = SQL & ",WM_aTitColor='"&aTitColor&"'"
		aBColor = WRMPS.CheckStr(Request("aBColor"), 1)
        If aBColor = "" Then aBColor = 0
		If aBColor > 0 Then
		  If WM_aBColor < Now() Then WM_aBColor = Now()
		  WM_aBColor = WM_aBColor + aBColor
		  SQL = SQL & ",WM_aBColor='"&WM_aBColor&"'"
		End If
		aBgColor = WRMPS.CheckStr(Request("aBgColor"), 0)
		If aBgColor = "" Then aBgColor = WM_aBgColor
		If aBgColor = "" Or IsNull(aBgColor) Then aBgColor = Null
		SQL = SQL & ",WM_aBgColor='"&aBgColor&"'"
        aBold = WRMPS.CheckStr(Request("aBold"), 1)
        If aBold = "" Then aBold = 0
		If aBold > 0 Then
		  If WM_aBold < Now() Then WM_aBold = Now()
		  WM_aBold = WM_aBold + aBold