wm.company.asp

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

		  SQL = SQL & ",WM_aBold='"&WM_aBold&"'"
		End If

	   SQL = " WM_aProp='"&aProp1&"|"&aProp2&"'"&SQL
	   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)
    Else
	   Call WRMPS.ErrView("·操作错误<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",0)
    End If
    Rs.Close
	Set Rs=Nothing

  Case "DJ"
      Set Rs = Conn.Execute("Select Top 1 WM_aZTop,WM_aTop,WM_aTitColor,WM_aBgColor,WM_aBold,WM_aProp,WM_Commend,WM_Key,WM_aTColor,WM_aBColor From WM_Company Where WM_ID = "&ID)
      If Not Rs.Eof Then
	    WM_aZTop = Rs(0)
		WM_aTop = Rs(1)
		WM_aTitColor = Rs(2)
		WM_aBgColor = Rs(3)
		WM_aBold = Rs(4)
		WM_aProp = Split(Rs(5),"|")
		WM_Commend = Rs(6)
		WM_Key = Rs(7)
		WM_aTColor = Rs(8)
		WM_aBColor = Rs(9)
      End If
      Rs.Close
	  Set Rs=Nothing

	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "<form name='myform' action='?Action=DJSave&ID="&ID&"' method='post'>"
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td width='33%'>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='../member/Img/dj1.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>自动审核道具</strong><br><br>"
      If WM_Key > 0 Then
	    Content = Content & "此信息已审核"
	  Else
	    Content = Content & "道具使用："&WM_aProp(0)&"次<br><input type=checkbox name=aKey value=1> 购买"
	  End If
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf
	  
      Content = Content & "    <td width='34%'>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='../member/Img/dj3.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>总置顶道具</strong><br><br>"
      If Cdate(WM_aZTop) > Now() Then
	    Content = Content & "已使用 (到期："&Year(WM_aZTop)&"-"&Month(WM_aZTop)&"-"&Day(WM_aZTop)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aZTop value=0 size=5> 天"
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "    <td width='33%'>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='../member/Img/dj4.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>分类置顶道具</strong><br><br>"
      If Cdate(WM_aTop) > Now() Then
	    Content = Content & "已使用 (到期："&Year(WM_aTop)&"-"&Month(WM_aTop)&"-"&Day(WM_aTop)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aTop value=0 size=5> 天"
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf
	  
      Content = Content & "  </tr><tr><td height=8px colspan=3></td></tr><tr>" & vbCrlf

      Content = Content & "    <td>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='../member/Img/dj2.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>自动推荐道具</strong><br><br>"
      If WM_Commend > 0 Then
	    Content = Content & "此信息已推荐"
	  Else
	    Content = Content & "道具使用："&WM_aProp(1)&"次<br><input type=checkbox name=aCommend value=1> 购买"
	  End If
	  Content = Content & "</td>" & vbCrlf
      Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "    <td>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='../member/Img/dj5.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>标题变色道具</strong><br><br>"
      If Cdate(WM_aTColor) > Now() Then
	    Content = Content & "已使用 <span style='padding:5px;background:"&WM_aTitColor&"' title='当前颜色'><img width=0 height=0 align=absmiddle></span>(到期："&Year(WM_aTColor)&"-"&Month(WM_aTColor)&"-"&Day(WM_aTColor)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aTColor value=0 size=5> 天"
	  Content = Content & "<br>换换颜色 "&Color("aTitColor")
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "    <td>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='../member/Img/dj6.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>标题背景色道具</strong><br><br>"
      If Cdate(WM_aBColor) > Now() Then
	    Content = Content & "已使用 <span style='padding:5px;background:"&WM_aBgColor&"' title='当前颜色'><img width=0 height=0 align=absmiddle></span>(到期："&Year(WM_aBColor)&"-"&Month(WM_aBColor)&"-"&Day(WM_aBColor)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aBColor value=0 size=5> 天"
	  Content = Content & "<br>换换颜色 "&Color("aBgColor")
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "  </tr><tr><td height=8px colspan=3></td></tr><tr>" & vbCrlf

      Content = Content & "    <td>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='../member/Img/dj7.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>标题加粗道具</strong><br><br>"
      If Cdate(WM_aBold) > Now() Then
	    Content = Content & "已使用 (到期："&Year(WM_aBold)&"-"&Month(WM_aBold)&"-"&Day(WM_aBold)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aBold value=0 size=5> 天"
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "  </tr>" & vbCrlf
	  Content = Content & "  <tr class=td2><td colspan=3 height=60px><div style='text-align:center'>"
	  Content = Content & "<br><input type=checkbox name=DelDJ value=1>取消所有已使用的道具　<input type=submit value='确认使用'></div>"
      Content = Content & "  <tr class=td3><td colspan=3><li>后台使用道具不收任何费用。</td></tr>" & vbCrlf
      Content = Content & "</form>"
      Content = Content & "</table>" & vbCrlf

  Case Else
      Content = Content & ContentTop()
      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 class=td4><td colspan=10><strong>店铺管理</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td3 align=center>" & vbCrLf
      Content = Content & "<td width='3%'></td>" & vbCrLf
      Content = Content & "<td>店铺名称(点击查看)</td>" & vbCrLf
      Content = Content & "<td width='4%'>补充</td>" & vbCrLf
      Content = Content & "<td width='15%'>登记人</td>" & vbCrLf
      Content = Content & "<td width='15%'>登记时间</td>" & vbCrLf
      Content = Content & "<td width='5%'>评论</td>" & vbCrLf
      Content = Content & "<td width='5%'>查看</td>" & vbCrLf
      Content = Content & "<td width='8%'>状态</td>" & vbCrLf
      Content = Content & "<td width='5%'>道具</td>" & vbCrLf
      Content = Content & "<td width='10%'>管理</td></tr>" & vbCrLf
	  Select Case Int(Estate)
	      Case 0
		    WM_Estate = " and WM_Key = 0"
	      Case 1
		    WM_Estate = " and WM_Key = 1"
		  Case 2
		    WM_Estate = " and WM_Key = 2"
		  Case 4
		    WM_Estate = " and WM_Commend = 1 and WM_Key > 0"
		  Case 6
		    WM_Estate = " and (WM_aZTop > "&ConnTime&" Or WM_aTop > "&ConnTime&" Or WM_aTColor > "&ConnTime&" Or WM_aBColor > "&ConnTime&" Or WM_aBold > "&ConnTime&" Or WM_aProp <> '0|0') and WM_Key > 0"
		  Case 7
		    WM_Estate = " and WM_Coordinate <> '' and WM_Coordinate Is Not Null"
	  End Select
      If Word <> "" and IsNull(Word)=False Then
	    If Table = "WM_ClaimUser" Or Table = "WM_CheckUser" Then
		  SQL = " and " & Table & " = '" & Word & "'"
		Else
		  SQL = " and " & Table & " like'%"&Word&"%'"
		End If
	  Else
	    SQL = ""
	  End If
	  SQL = WM_Estate&SQL
	  If SQL <> "" Then
	    If Lcase(Left(SQL,4)) = " and" Then SQL = Right(SQL,len(SQL)-4)
	  End If

      Set ClsPageList = New Cls_PageView  
      ClsPageList.strTableName = "WM_Company"  
      ClsPageList.strPageUrl = ""  
      ClsPageList.strFieldsList = "WM_ID,WM_Company,WM_CheckUser,WM_CheckTime,WM_Key,WM_Re,WM_Hit,WM_EditNum,WM_Commend,WM_aZTop,WM_aTop,WM_aTColor,WM_aBColor,WM_aBold,WM_aProp"  
      ClsPageList.strCondiction = SQL
      ClsPageList.strOrderList = "WM_ID desc"  
      ClsPageList.strPrimaryKey = "WM_ID"  
      ClsPageList.intPageSize = 20
      ClsPageList.intPageNow = Page
      ClsPageList.strCookiesName = "RecordCount"  
      ClsPageList.strPageVar =