wm.company_edit.asp

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

	  WM_Address = Rs(9)
	  Address = Rs(10)
	  If IsNull(Address) Then Address = ""
	  If IsNull(WM_Address) Then WM_Address = ""
	  If WM_Address <> Address Then
	    Content = Content & "<tr Class=td2><td><strong>详细地址</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(9)&"</td><td>"&Rs(10)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Address1 value=1><input type=hidden name=Address value='"&Rs(10)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_DB(10),DB(10)
      For i = 1 To 10
	    WM_DB(i) = Rs(32+i)
	    DB(i) = Rs(42+i)
	    If IsNull(DB(i)) Then DB(i) = ""
	    If IsNull(WM_DB(i)) Then WM_DB(i) = ""
	    If WM_DB(i) <> DB(i) Then
	      Content = Content & "<tr Class=td2><td><strong>"&Rs(52+i)&"</strong></td>" & vbCrLf
	      Content = Content & "<td>"&Rs(32+i)&"</td><td>"&Rs(42+i)&"</td>" & vbCrLf
	      Content = Content & "<td align=center><input type=checkbox name=DB"&i&"1 value=1><input type=hidden name=DB"&i&" value='"&Rs(42+i)&"'><input type=hidden name=DB"&i&"T value='"&Rs(52+i)&"'></td></tr>" & vbCrLf
	    End If
	  Next
	  Dim WM_Phone
	  WM_Phone = Rs(11)
	  Phone = Rs(12)
	  If IsNull(Phone) Then Phone = ""
	  If IsNull(WM_Phone) Then WM_Phone = ""
	  If WM_Phone <> Phone Then
	    Content = Content & "<tr Class=td2><td><strong>电话</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(11)&"</td><td>"&Rs(12)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Phone1 value=1><input type=hidden name=Phone value='"&Rs(12)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_Mobile
	  WM_Mobile = Rs(13)
	  Mobile = Rs(14)
	  If IsNull(Mobile) Then Mobile = ""
	  If IsNull(WM_Mobile) Then WM_Mobile = ""
	  If WM_Mobile <> Mobile Then
	    Content = Content & "<tr Class=td2><td><strong>手机</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(13)&"</td><td>"&Rs(14)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Mobile1 value=1><input type=hidden name=Mobile value='"&Rs(14)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_Tags
	  WM_Tags = Rs(15)
	  Tags = Rs(16)
	  If IsNull(Tags) Then Tags = ""
	  If IsNull(WM_Tags) Then WM_Tags = ""
	  If WM_Tags <> Tags Then
	    Content = Content & "<tr Class=td2><td><strong>产品标签</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(15)&"</td><td>"&Rs(16)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Tags1 value=1><input type=hidden name=Tags value='"&Rs(16)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_Coordinate
	  WM_Coordinate = Rs(17)
	  Coordinate = Rs(18)
	  If IsNull(Coordinate) Then Coordinate = ""
	  If IsNull(WM_Coordinate) Then WM_Coordinate = ""
	  If WM_Coordinate <> Coordinate Then
	    Content = Content & "<tr Class=td2><td><strong>标注地图</strong></td>" & vbCrLf
	    Content = Content & "<td><a href=""javascript:ShowDialog('../Plus/Map/"&WR_Other(12)&"/?Action=Show&xy="&Rs(17)&"',600,400)"" class=red>查看原始位置</a></td><td><a href=javascript:ShowDialog('../Plus/Map/"&WR_Other(12)&"/?Action=Show&xy="&Rs(18)&"',600,400) class=red>查看新的位置</a></td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Coordinate1 value=1><input type=hidden name=Coordinate value='"&Rs(18)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_Fax
	  WM_Fax = Rs(19)
	  Fax = Rs(20)
	  If IsNull(Fax) Then Fax = ""
	  If IsNull(WM_Fax) Then WM_Fax = ""
	  If WM_Fax <> Fax Then
	    Content = Content & "<tr Class=td2><td><strong>传真</strong></td>" & vbCrLf
  	    Content = Content & "<td>"&Rs(19)&"</td><td>"&Rs(20)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Fax1 value=1><input type=hidden name=Fax value='"&Rs(20)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_BusinessTime
	  WM_BusinessTime = Rs(21)
	  BusinessTime = Rs(22)
	  If IsNull(BusinessTime) Then BusinessTime = ""
	  If IsNull(WM_BusinessTime) Then WM_BusinessTime = ""
	  If WM_BusinessTime <> BusinessTime Then
	    Content = Content & "<tr Class=td2><td><strong>营业时间</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(21)&"</td><td>"&Rs(22)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=BusinessTime1 value=1><input type=hidden name=BusinessTime value='"&Rs(22)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_IsCard
	  WM_IsCard = Rs(23)
	  IsCard = Rs(24)
	  If IsNull(IsCard) Then IsCard = ""
	  If IsNull(WM_IsCard) Then WM_IsCard = ""
	  If WM_IsCard <> IsCard Then
	    Content = Content & "<tr Class=td2><td><strong>可否刷卡</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(23)&"</td><td>"&Rs(24)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=IsCard1 value=1><input type=hidden name=IsCard value='"&Rs(24)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_Depot
	  WM_Depot = Rs(25)
	  Depot = Rs(26)
	  If IsNull(Depot) Then Depot = ""
	  If IsNull(WM_Depot) Then WM_Depot = ""
	  If WM_Depot <> Depot Then
	    Content = Content & "<tr Class=td2><td><strong>附近公交车站</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(25)&"</td><td>"&Rs(26)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Depot1 value=1><input type=hidden name=Depot value='"&Rs(26)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_BusRoute
	  WM_BusRoute = Rs(27)
	  BusRoute = Rs(28)
	  If IsNull(BusRoute) Then BusRoute = ""
	  If IsNull(WM_BusRoute) Then WM_BusRoute = ""
	  If WM_BusRoute <> BusRoute Then
	    Content = Content & "<tr Class=td2><td><strong>公交线路</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(27)&"</td><td>"&Rs(28)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=BusRoute1 value=1><input type=hidden name=BusRoute value='"&Rs(28)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_Marker
	  WM_Marker = Rs(29)
	  Marker = Rs(30)
	  If IsNull(Marker) Then Marker = ""
	  If IsNull(WM_Marker) Then WM_Marker = ""
	  If WM_Marker <> Marker Then
	    Content = Content & "<tr Class=td2><td><strong>附近标志物</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(29)&"</td><td>"&Rs(30)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Marker1 value=1><input type=hidden name=Marker value='"&Rs(30)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_Web
	  WM_Web = Rs(31)
	  Web = Rs(32)
	  If IsNull(Web) Then Web = ""
	  If IsNull(WM_Web) Then WM_Web = ""
	  If WM_Web <> Web Then
	    Content = Content & "<tr Class=td2><td><strong>店铺网址</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(31)&"</td><td>"&Rs(32)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Web1 value=1><input type=hidden name=Web value='"&Rs(32)&"'></td></tr>" & vbCrLf
	  End If
	  Dim WM_Intro
	  WM_Intro = Rs(4)
	  Intro = Rs(5)
	  If IsNull(Intro) Then Intro = ""
	  If IsNull(WM_Intro) Then WM_Intro = ""
	  If WM_Intro <> Intro Then
	    Content = Content & "<tr Class=td2><td><strong>店铺介绍</strong></td>" & vbCrLf
	    Content = Content & "<td>"&Rs(4)&"</td><td>"&Rs(5)&"</td>" & vbCrLf
	    Content = Content & "<td align=center><input type=checkbox name=Intro1 value=1><input type=hidden name=Intro value='"&Rs(5)&"'></td></tr>" & vbCrLf
	  End If
	  Content = Content & "<tr Class=td2><td colspan=4 align=center><input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<input type=submit value='确认更新'></td></tr>" & vbCrLf
	  Content = Content & "</form>" & vbCrLf
	  Content = Content & "</table>" & vbCrLf
    End If
    Rs.Close

  Case Else
      Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
      Content = Content & "<form action='?Action=Del&ComID="&ComID&"&CID="&CID&"&Page="&Page&"&Key="&Key&"' name=myform method=POST>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=9><strong>店铺管理</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td3 align=center>" & vbCrLf
      Content = Content & "<td width='4%'></td>" & vbCrLf
      Content = Content & "<td>原店铺名称(点击查看)</td>" & vbCrLf
      Content = Content & "<td width='15%'>补充人</td>" & vbCrLf
      Content = Content & "<td width='15%'>补充时间</td>" & vbCrLf
      Content = Content & "<td width='12%'>管理</td></tr>" & vbCrLf
      If ComID <> "" Then C_ID = " and A.WM_ComID="&ComID Else C_ID = ""
	  If Key <> 1 Then Key = 0
      sql = "Select A.WM_ID,A.WM_ComID,A.WM_Company,A.WM_CheckUser,A.WM_CheckTime,B.WM_Company from WM_CompanyTemp A Inner Join WM_Company B on A.WM_ComID = B.WM_ID where A.WM_Key="&Key&C_ID&" order by A.WM_ID desc"
	  Rs.Open Sql, Conn, 1, 1
        If Rs.EOF Then
          Content = Content & "<tr><td colspan=9></td></tr></table>" & vbCrLf
        Else
          '分页的实现
          ListNum = 20
          Rs.PageSize = ListNum
          If Page = "" Then Page = 1
          If Page < 1 Then Page = 1
          Rs.AbsolutePage = Page
          i = 0
          If Page = "" Then N = 0 Else N = ListNum * (Page - 1)
          Do While Not Rs.EOF And i < ListNum
            N = N + 1
            Content = Content & "<tr align=center"
			If n mod 2 = 0 Then Content = Content & " class=td3>" & vbCrLf Else Content = Content & " class=td2>" & vbCrLf
            Content = Content & "<td><input type=checkbox name=ID value='"&Rs(0)&"|"&Rs(1)&"'></td>" & vbCrLf
	        Content = Content & "<td align=left><a href="&WRMPS.GetCompanyUrl(Rs(1))&" target=_blank>"&Rs(5)&"</a><br><a href=?ComID="&Rs(1)&"&Key="&Key&"><font color=gray>所有此店铺的补充</font></a></td>" & vbCrLf
	        Content = Content & "<td><a href="&WRMPS.GetSpaceUrl(0,Rs(3))&" target=_blank>"&Rs(3)&"</a></td>" & vbCrLf
	        Content = Content & "<td>"&Rs(4)&"</td>" & vbCrLf
	        Content = Content & "<td>"
			If Key <> 1 Then Content = Content & "<a href='?Action=Edit&ID="&Rs(0)&"&ComID="&ComID&"&CID="&Rs(1)&"&Page="&Page&"&Key="&Key&"'>操作</a> | "
			Content = Content & "<a href='?Action=Del&ID="&Rs(0)&"|"&Rs(1)&"&ComID="&ComID&"&Page="&Page&"&Key="&Key&"' onclick=""return confirm('确定删除？');"">删除</a></td></tr>" & vbCrLf
          Rs.MoveNext
          i = i + 1
          Loop
          URLParameter = "Page="&Page&"&ComID="&ComID&"&Key="&Key&"&CID="&Cid
          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 & "<input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　"
		  Content = Content & "<input type=submit name='submit' value='批量删除'>" & vbCrLf
          Content = Content & "</td><td align=right>" & vbCrLf
          Content = Content & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
          Content = Content & "</td></tr></Form>" & vbCrLf
		  Content = Content & "</table>" & vbCrLf
        End If

	  Rs.Close
	  Set Rs=Nothing
End Select
Set Rso=Nothing
Call DBConnEnd()
Call ClassEnd()
Response.write Content
Call GetBottom()
%>