wm.company.asp

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

      Content = Content & "<form action='?Action=Rz&ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"' name=myform method=POST>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>店铺认证管理</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td width='30%'><strong>认证状态</strong></td><td width='70%'><strong><font class=font2>"
 	  Select Case RZBL
		Case 0
		  If BLPic = "" Or IsNull(BLPic) Then
            Content = Content & "未认证"
		  Else
            Content = Content & "等待审核中..."
		  End If
		Case 1
          Content = Content & "已认证"
	  End Select
	  Content = Content & "</font></strong></td></tr>"
	  Content = Content & "<tr class=td2><td><strong>店铺名称</strong></td><td><strong>"&Company&"</strong></td></tr>"
	  If BLPic <> "" Or IsNull(BLPic) = False Then
	    Content = Content & "<tr class=td2><td><strong>认证扫描件</strong></td><td><div style='width:500px; height:300px; z-index:1;overflow:auto;' class=div><a href="&WRMPS.CheckStr(BLPic,5)&" target=_blank><img border=0 src='"&WRMPS.CheckStr(BLPic,5)&"'></a></div></td></tr>"
	  End If
	  If RZBL = 0 and (BLPic <> "" Or IsNull(BLPic) = False) Then
	    Content = Content & "<tr class=td2 id=Rz><td><strong>认证操作</strong></td><td><input type=submit name=btnSubmit value='通过认证'> <input type='button' name=btnSubmit value='取消申请' onclick='DelRz.style.display="""";DelRz1.style.display="""";Rz.style.display=""none"";'></td></tr>"
	  End If
      Content = Content & "</form>" & vbCrLf
      Content = Content & "<form action='?Action=DelRz&ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"' name=myform method=POST>" & vbCrLf
	  Content = Content & "<tr class=td2 id=DelRz style='display:none'><td><strong>取消申请理由</strong></td><td><textarea name='Content' style='width:500px;height:120px'>"&WR_Mail(14)&"</textarea></td></tr>"
	  Content = Content & "<tr class=td2 id=DelRz1 style='display:none'><td></td><td><input type=submit name=btnSubmit value='确认取消'> <input type='button' name=btnSubmit value='返回操作' onclick='DelRz.style.display=""none"";DelRz1.style.display=""none"";Rz.style.display="""";'></td></tr>"
      Content = Content & "</form>" & vbCrLf
	  Content = Content & "</table>" & vbCrLf
  
  Case "RZYS"
	Conn.Execute("Update WM_Company Set WM_EndTime=WM_EndTime+365 Where WM_ID = "&ID&"")
	Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?Action=IsRz&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate=3'>",0)

  Case "IsRz"
      Content = Content & ContentTop()
      Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=6><strong>认证店铺管理</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td3 align=center>" & vbCrLf
      Content = Content & "<td>店铺名称</td>" & vbCrLf
      Content = Content & "<td width='10%'>认领人</td>" & vbCrLf
      Content = Content & "<td width='10%'>认证状态</td>" & vbCrLf
	  If Estate = 3 Then Content = Content & "<td width='20%'>到期时间</td>"
      Content = Content & "<td width='15%'>管理</td></tr>" & vbCrLf
      If Word <> "" Then SQL = " and " & Table & " = '" & Word & "'" Else SQL = ""
	  If Estate <> 3 and Estate <> 5 Then Estate = 5
	  Select Case Estate
		  Case 3
	        SQL = "WM_RZBL=1 and WM_Key > 0" & SQL
		  Case 5
            If ConnTypeStr < 1 Then
	          SQL = "WM_RZBL=0 and WM_Key > 0 "&SQL&" and WM_BLPic <> ''"
			Else
	          SQL = "WM_RZBL=0 and WM_Key > 0 "&SQL&" and WM_BLPic Is Not Null"
            End If
	  End Select
      Set ClsPageList = New Cls_PageView  
      ClsPageList.strTableName = "WM_Company"  
      ClsPageList.strPageUrl = ""  
      ClsPageList.strFieldsList = "WM_ID,WM_ClaimUser,WM_Company,WM_RZBL,WM_BLPic,WM_EndTime"  
      ClsPageList.strCondiction = SQL
      ClsPageList.strOrderList = "WM_ID desc"  
      ClsPageList.strPrimaryKey = "WM_ID"  
      ClsPageList.intPageSize = 20
      ClsPageList.intPageNow = Page
      ClsPageList.strCookiesName = "RecordCount"  
      ClsPageList.strPageVar = "Page"  
      ClsPageList.intRefresh = 1
	  ClsPageList.inAdmin = 1
      ClsPageList.objConn = Conn  
      ClsPageList.InitClass  
      arrPage = ClsPageList.arrPage  
      strPageList = ClsPageList.strPageList  
      Set ClsPageList = nothing  
	  
      If IsArray(arrPage) Then
         For i = 0 to UBound(arrPage, 2)  
            Content = Content & "<tr class=td2 align=center>" & vbCrLf
            Content = Content & "<td align=left><a href="&WRMPS.GetCompanyUrl(arrPage(0,i))&" target=_blank>"&arrPage(2,i)&"</a></td>" & vbCrLf
            Content = Content & "<td><a href="&WRMPS.GetSpaceUrl(0,arrPage(1,i))&" target=_blank>"&arrPage(1,i)&"</a></td>" & vbCrLf
            Content = Content & "<td>"
			Select Case arrPage(3,i)
			  Case 0
			    If arrPage(4,i) = "" Or IsNull(arrPage(4,i)) Then
                  Content = Content & "未认证"
				Else
                  Content = Content & "<font class=font1>等待审核中...</font>"
				End If
			  Case 1
                Content = Content & "<font class=font2>已认证</font>"
			End Select
			Content = Content & "</td>" & vbCrLf
	        If Estate = 3 Then Content = Content & "<td align=right>"&arrPage(5,i)&" [<a href='?Action=RZYS&ID="&arrPage(0,i)&"&Page="&Page&"&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'onclick=""return confirm('确定延期？');"">延期一年</a>]</td>"

            Content = Content & "<td>"
			If Estate <> 3 Then Content = Content & "<a href='?Action=Work&ID="&arrPage(0,i)&"&Page="&Page&"&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>操作</a>"
			If Estate = 3 Then Content = Content & "<a href='?Action=DelR&ID="&arrPage(0,i)&"&Page="&Page&"&Table=" & Table & "&Word=" & Word&"&Estate=5' onclick=""return confirm('确定取消认证？');"">取消认证</a>"
			Content = Content & "</td></tr>" & vbCrLf
		 Next  
       End If  

       Content = Content & "</table>" & vbCrLf
       Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 align=center class=td1><tr class=td4><td height=30>" & vbCrLf
       Content = Content & "</td><td align=right>" & vbCrLf
       Content = Content & strPageList ' 插入分页
       Content = Content & "</td></tr></Form>" & vbCrLf
	   Content = Content & "</table>" & vbCrLf
  
  Case "DelR"
	Set Rs = Conn.Execute("Select WM_ClaimUser,WM_BLPic From WM_Company where WM_ID = "&ID)
	If Not Rs.Eof Then
		BLPic = Rs(1)
	    Conn.Execute("Update WM_Member Set WM_ComID=0 where WM_UserName = '"&Rs(0)&"'")
	    Conn.Execute("Update WM_Company Set WM_ClaimUser=null,WM_RZBL=0,WM_BLPic=null,WM_Domain=null,WM_Eng=null,WM_SiteTemp=null,WM_EndTime=null where WM_ID = "&ID)
        Call WRMPS.FsoBegin()
		Call WRMPS.FsoDel("File",WRMPS.CheckStr(BLPic,5))
		Call WRMPS.FsoDel("Dir","../Co/"&ID&"/") '删除店铺目录
		Call WRMPS.FsoEnd()
	End If
	Rs.CLose
	Call WRMPS.ErrView("·取消认领成功<meta http-equiv=refresh content='1;URL=?Action=IsRz&ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate=3'>",0)
	
  Case "EditSave"
    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=?ID="&ID&"&Page="&Page&"&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",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&"&Page="&Page&"&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",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&"&Page="&Page&"&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",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"),0)
	If Intro = "" Or IsNull(Intro) Then Intro = Null
	If Len(Intro) > 1000 Then Intro = Left(Intro,998) & "..."
	WM_Hit = WRMPS.CheckStr(Request.form("WM_Hit"),1)
	If IsNumeric(WM_Hit) = False Or WM_Hit < 0 Then WM_Hit = 0
	WM_Re = WRMPS.CheckStr(Request.form("WM_Re"),1)
	If IsNumeric(WM_Re) = False Or WM_Re < 0 Then WM_Re = 0
	WM_ReSer = WRMPS.CheckStr(Request.form("WM_ReSer"),1)
	If IsNumeric(WM_ReSer) = False Or WM_ReSer < 0 Then WM_ReSer = 0
	WM_RePrice = WRMPS.CheckStr(Request.form("WM_RePrice"),1)
	If IsNumeric(WM_RePrice) = False Or WM_RePrice < 0 Then WM_RePrice = 0
	WM_All = WRMPS.CheckStr(Request.form("WM_All"),1)
	If IsNumeric(WM_All) = False Or WM_All < 0 Then WM_All = 0
	WM_Consume = WRMPS.CheckStr(Request.form("WM_Consume"),1)
	If IsNumeric(WM_Consume) = False Or WM_Consume < 0 Then WM_Consume = 0
	WM_ThinkGo = WRMPS.CheckStr(Request.form("WM_ThinkGo"),0)
	If WM_ThinkGo = "" Or IsNull(WM_ThinkGo) Then WM_ThinkGo = Null
	WM_IsGo = WRMPS.CheckStr(Request.form("WM_IsGo"),0)
	If WM_IsGo = "" Or IsNull(WM_IsGo) Then WM_IsGo = Null
	TempID = WRMPS.CheckStr(Request.form("TempID"),1)
	If TempID = "" Or IsNull(TempID) Then TempID = 0
	Domain = WRMPS.CheckStr(Request.form("WM_Domain"),0)
	If Domain = "" Then Domain = NUll
	WM_Eng = WRMPS.CheckStr(Request.form("WM_Eng"),0)
	If WM_Eng = "" Then WM_Eng = 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 From WM_CompanySort Where WM_ID = "&ClassID,Conn,1,1
	  If Not Rs.Eof Then
	    ClassDir = Rs(0)&Rs(1)
	  End If