user_company.asp

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

       Content = Content & "</table>" & vbCrLf
	   Content = Content & PageButtom()
  
  Case "My"
    Content = Content & PageTop()
    Content = Content & UserPath(",<a href=User_Company.asp?Action=My>我认领的店铺</a>")

    Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr class=td2><form name=form1 method=post><td width='40%'><input name='Word' type='text' style='width:180' maxlength='50' value='" & WRMPS.CheckStr(Request("Word"), 0) & "'> "
    Content = Content & "<select name=Table align=absmiddle>"
    Content = Content & "<option value=WM_Company " & WRMPS.GetCheckVer("WM_Company", Table, 0) & ">店铺名称</option>"
    Content = Content & "<option value=WM_CheckUser " & WRMPS.GetCheckVer("WM_CheckUser", Table, 0) & ">登记人</option>"
    Content = Content & "<option value=WM_ClaimUser " & WRMPS.GetCheckVer("WM_ClaimUser", Table, 0) & ">所有人</option>"
    Content = Content & "<option value=WM_Tags " & WRMPS.GetCheckVer("WM_Tags", Table, 0) & ">产品</option>"
    Content = Content & "<option value=WM_Address " & WRMPS.GetCheckVer("WM_Address", Table, 0) & ">详细地址</option>"
    Content = Content & "<option value=WM_Intro " & WRMPS.GetCheckVer("WM_Intro", Table, 0) & ">店铺介绍</option>"
    Content = Content & "</select> <input type='submit' name='Submit' value=' 查询 ' >"
    Content = Content & "</td></form>"
    Content = Content & "<form name=form1 method='post' action='User_Company.asp'><td width='60%'>&nbsp;"
    Content = Content & "<select name=Estate align=absmiddle onChange='javascript:submit()'>"
    Content = Content & "<option value=''>所有</option>"
    Content = Content & "<option value=1 " & WRMPS.GetCheckVer("1", WRMPS.CheckStr(Estate,1), 0) & ">已审核店铺</option>"
    Content = Content & "<option value=0 " & WRMPS.GetCheckVer("0", WRMPS.CheckStr(Estate,1), 0) & ">待审核店铺</option>"
    Content = Content & "<option value=3 " & WRMPS.GetCheckVer("3", WRMPS.CheckStr(Estate,1), 0) & ">已认领店铺</option>"
    Content = Content & "<option value=2 " & WRMPS.GetCheckVer("2", WRMPS.CheckStr(Estate,1), 0) & ">已锁定店铺</option>"
    Content = Content & "</select> "
    Content = Content & "</td></form></tr></Table>" & vbCrLf

      Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
      Content = Content & "<tr><td colspan=7 class=td4><strong>我的店铺</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr align=center>" & vbCrLf
      Content = Content & "<td class=td3>店铺名称(点击查看)</td>" & vbCrLf
      Content = Content & "<td class=td3 width='15%'>登记时间</td>" & vbCrLf
      Content = Content & "<td class=td3 width='5%'>评论</td>" & vbCrLf
      Content = Content & "<td class=td3 width='5%'>查看</td>" & vbCrLf
      Content = Content & "<td class=td3 width='4%'>状态</td>" & vbCrLf
      Content = Content & "<td class=td3 width='5%'>道具</td>" & vbCrLf
      Content = Content & "<td class=td3 width='10%'>管理</td></tr>" & vbCrLf	  
      sql = "Select A.WM_ID,A.WM_Company,A.WM_ClaimUser,A.WM_CheckTime,B.WM_CreateHTML,B.WM_FileExt_Item,A.WM_Key,A.WM_Re,A.WM_Hit,A.WM_RZBL,A.WM_aZTop,A.WM_aTop,A.WM_aTColor,A.WM_aBColor,A.WM_aBold,A.WM_aProp from WM_Company A Inner Join WM_Channel B on A.WM_ChannelID = B.WM_ID Where A.WM_RZBL=1 and A.WM_ClaimUser = '"&MemName&"' and A.WM_EndTime > "&ConnTime&" order by A.WM_ID desc"
	  Rs.Open Sql, Conn, 1, 1
        If Rs.EOF Then
          Content = Content & "<tr><td colspan=7></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
          Do While Not Rs.EOF And i < ListNum
            Content = Content & "<tr align=center class=td2><td align=left><a href="&WRMPS.GetCompanyUrl(Rs(0))&" target=_blank>"&Rs(1)&"</a></td>" & vbCrLf
	        Content = Content & "<td>"&Rs(3)&"</td>" & vbCrLf
	        Content = Content & "<td>"&Rs(7)&"</td>" & vbCrLf
	        Content = Content & "<td>"&Rs(8)&"</td>" & vbCrLf
	        Content = Content & "<td>"
			Select Case Rs(6)
			  Case 0
			    Content = Content & "<font color=blue>待审</font>"
			  Case 1
			    Content = Content & "正常"
			  Case 2
			    Content = Content & "<font color=red>锁定</font>"
			End Select
			Content = Content & "</td>" & vbCrLf
            Content = Content & "<td><a href=# onClick=""openWithIframe('店铺道具','?Action=DJ&ID="&Rs(0)&"',800,500);"">"
			If Rs(10) < Now() And Rs(11) < Now() And Rs(12) < Now() And Rs(13) < Now() And Rs(14) < Now() And Trim(Rs(15)) = "0|0" Then
			  Content = Content & "<img src='img/djno.gif' title='未使用道具' border=0>"
			Else
			  Content = Content & "<img src='img/dj.gif' title='已使用道具' border=0>"
			End If
			Content = Content & "</a></td>" & vbCrLf
	        Content = Content & "<td><a href='../Company/Edit.asp?ID="&Rs(0)&"' target=_blank>修改</a></td>" & vbCrLf
	        Content = Content & "</tr>" & vbCrLf
          Rs.MoveNext
          i = i + 1
          Loop
          URLParameter = "Estate=" & Estate & "&Table=" & Table & "&Word=" & Word&""
          Content = Content & "</table>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 align=center class=td5><tr><td height=30 align=right>" & vbCrLf
          Content = Content & WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
          Content = Content & "</td></tr>" & vbCrLf
		  Content = Content & "</table>" & vbCrLf
        End If
	  Rs.Close
	  Set Rs=Nothing
  	  Content = Content & PageButtom()

  Case Else
    Content = Content & PageTop()
    Content = Content & UserPath(",<a href=User_Company.asp>店铺管理</a>")

    Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr class=td2><form name=form1 method=post><td width='40%'><input name='Word' type='text' style='width:180' maxlength='50' value='" & WRMPS.CheckStr(Request("Word"), 0) & "'> "
    Content = Content & "<select name=Table align=absmiddle>"
    Content = Content & "<option value=WM_Company " & WRMPS.GetCheckVer("WM_Company", Table, 0) & ">店铺名称</option>"
    Content = Content & "<option value=WM_ClaimUser " & WRMPS.GetCheckVer("WM_ClaimUser", Table, 0) & ">所有人</option>"
    Content = Content & "<option value=WM_Tags " & WRMPS.GetCheckVer("WM_Tags", Table, 0) & ">标签</option>"
    Content = Content & "<option value=WM_Address " & WRMPS.GetCheckVer("WM_Address", Table, 0) & ">详细地址</option>"
    Content = Content & "<option value=WM_Intro " & WRMPS.GetCheckVer("WM_Intro", Table, 0) & ">店铺介绍</option>"
    Content = Content & "</select> <input type='submit' name='Submit' value=' 查询 ' >"
    Content = Content & "</td></form>"
    Content = Content & "<form name=form1 method='post' action='User_Company.asp'><td width='60%'>&nbsp;"
    Content = Content & "<select name=Estate align=absmiddle onChange='javascript:submit()'>"
    Content = Content & "<option value=''>所有</option>"
    Content = Content & "<option value=1 " & WRMPS.GetCheckVer("1", WRMPS.CheckStr(Estate,1), 0) & ">已审核店铺</option>"
    Content = Content & "<option value=0 " & WRMPS.GetCheckVer("0", WRMPS.CheckStr(Estate,1), 0) & ">待审核店铺</option>"
    Content = Content & "<option value=3 " & WRMPS.GetCheckVer("3", WRMPS.CheckStr(Estate,1), 0) & ">已认领店铺</option>"
    Content = Content & "<option value=2 " & WRMPS.GetCheckVer("2", WRMPS.CheckStr(Estate,1), 0) & ">已锁定店铺</option>"
    Content = Content & "</select> "
    Content = Content & "</td></form></tr></Table>" & vbCrLf

      Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
      Content = Content & "<form action='?Action=Save&Estate=" & Estate & "&Table=" & Table & "&Word=" & Word&"' name=myform method=POST>" & vbCrLf
      Content = Content & "<tr><td colspan=9 class=td4><strong>店铺管理</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr align=center class=td3>" & vbCrLf
      Content = Content & "<td width='3%'></td>" & vbCrLf
      Content = Content & "<td>店铺名称(点击查看)</td>" & vbCrLf
      Content = Content & "<td width='15%'>登记时间</td>" & vbCrLf
      Content = Content & "<td width='17%'>认领情况</td>" & vbCrLf
      Content = Content & "<td width='5%'>评论</td>" & vbCrLf
      Content = Content & "<td width='5%'>查看</td>" & vbCrLf
      Content = Content & "<td width='4%'>状态</td>" & vbCrLf
      Content = Content & "<td width='5%'>道具</td>" & vbCrLf
      Content = Content & "<td width='10%'>管理</td></tr>" & vbCrLf
	  If Estate <> "" Then 
	    Select Case Int(Estate)
	      Case 0
		    WM_Estate = " and A.WM_Key = 0"
	      Case 1
		    WM_Estate = " and A.WM_Key = 1"
		  Case 2
		    WM_Estate = " and A.WM_Key = 2"
		  Case 3
		    WM_Estate = " and A.WM_RZBL > 0"
	    End Select
	  End If
      If Word <> "" and IsNull(Word)=False Then
	    If Table = "WM_ClaimUser" Or Table = "WM_CheckUser" Then
		  SQL = " and A." & Table & " = '" & Word & "'"
		Else
		  SQL = " and A." & Table & " like'%"&Word&"%'"
		End If
	  Else
	    SQL = ""
	  End If
	  
      sql = "Select A.WM_ID,A.WM_Company,A.WM_ClaimUser,A.WM_CheckTime,B.WM_CreateHTML,B.WM_FileExt_Item,A.WM_Key,A.WM_Re,A.WM_Hit,A.WM_RZBL,A.WM_aZTop,A.WM_aTop,A.WM_aTColor,A.WM_aBColor,A.WM_aBold,A.WM_aProp from WM_Company A Inner Join WM_Channel B on A.WM_ChannelID = B.WM_ID Where A.WM_CheckUser = '"&MemName&"'"&WM_Estate&SQL&" 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
          Do While Not Rs.EOF And i < ListNum
            Content = Content & "<tr align=center class=td2><td>" & vbCrLf
            If Rs(9) = 0 Then Content = Content & "<input type=checkbox name=ID value="&Rs(0)&">" & vbCrLf
	        Content = Content & "</td><td align=left><a href="&WRMPS.GetCompanyUrl(Rs(0))&" target=_blank>"&Rs(1)&"</a></td>" & vbCrLf
	        Content = Content & "<td>"&Rs(3)&"</td><td align=left>" & vbCrLf
	        If Rs(9) > 0 Then Content = Content & "已认领(<a href="&WRMPS.GetSpaceUrl(0,Rs(2))&" target=_blank>"&Rs(2)&"</a>)" & vbCrLf
	        Content = Content & "</td><td>"&Rs(7)&"</td>" & vbCrLf
	        Content = Content & "<td>"&Rs(8)&"</td>" & vbCrLf
	        Content = Content & "<td>"
			Select Case Rs(6)
			  Case 0
			    Content = Content & "<font color=blue>待审</font>"
			  Case 1
			    Content = Content & "正常"
			  Case 2
			    Content = Content & "<font color=red>锁定</font>"
			End Select
			Content = Content & "</td>"
            Content = Content & "<td><a href=# onClick=""openWithIframe('店铺道具','?Action=DJ&ID="&Rs(0)&"',800,500);"">"
			If Rs(10) < Now() And Rs(11) < Now() And Rs(12) < Now() And Rs(13) < Now() And Rs(14) < Now() And Trim(Rs(15)) = "0|0" Then
			  Content = Content & "<img src='img/djno.gif' title='未使用道具' border=0>"
			Else
			  Content = Content & "<img src='img/dj.gif' title='已使用道具' border=0>"
			End If
			Content = Content & "</a></td>" & vbCrLf
			Content = Content & "<td>" & vbCrLf
	        If Rs(9) = 0 Then Content = Content & "<a href='../Company/Edit.asp?ID="&Rs(0)&"' target=_blank>修改</a> <a href='?Action=Save&Work=Del&ID="&Rs(0)&"&Page="&Page&"&Estate=" & Estate & "&Table=" & Table & "&Word=" & Word&"' onclick=""return confirm('确定删除？');"">删除</a>" & vbCrLf
	        Content = Content & "</td></tr>" & vbCrLf
          Rs.MoveNext
          i = i + 1
          Loop
          URLParameter = "Estate=" & Estate & "&Table=" & Table & "&Word=" & Word&""
          Content = Content & "</table>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 align=center class=td5><tr><td height=30>" & vbCrLf
          Content = Content & "<input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='Work'>"
		  Content = Content & "<option value='Del'>删除</option></select>　<input type='submit' name='submit' value='操 作'>" & vbCrLf
          Content = Content & "</td><td align=right>" & vbCrLf
          Content = Content & WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
          Content = Content & "</td></tr></Form>" & vbCrLf
		  Content = Content & "</table>" & vbCrLf
        End If

	  Rs.Close
	  Set Rs=Nothing
	  Content = Content & PageButtom()

End Select
Set Rso=Nothing
Call DBConnEnd()
Call ClassEnd()
Response.write Content

%>