user_classad.asp

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

		TestCon = WRMPS.GetReplace(TestCon,"[$DB3$]",Rs("WM_DB3"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB4$]",Rs("WM_DB4"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB5$]",Rs("WM_DB5"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB6$]",Rs("WM_DB6"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB7$]",Rs("WM_DB7"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB8$]",Rs("WM_DB8"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB9$]",Rs("WM_DB9"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB10$]",Rs("WM_DB10"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB1("&Rs("WM_DB1")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB2("&Rs("WM_DB2")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB3("&Rs("WM_DB3")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB4("&Rs("WM_DB4")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB5("&Rs("WM_DB5")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB6("&Rs("WM_DB6")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB7("&Rs("WM_DB7")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB8("&Rs("WM_DB8")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB9("&Rs("WM_DB9")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB10("&Rs("WM_DB10")&")$]","selected")
		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 valign=top><strong>内容介绍</strong><div class=Up><div class=UpFont><a href=""javascript:openWithIframe('添加附件','../Plus/UpLoad/Index.asp?Type=1&User=3',350,150);"">添加附件</a></div><div style='width:120px; height:120px; z-index:1;overflow:auto;' class=div ID=PicPreview><Img src='../Images/nopic.gif'></div></div></td><td><INPUT type='hidden' name='Content' value="""
	  If Rs("WM_Content") <> "" Then Content = Content & Server.HTMLEncode(WRMPS.CheckStr(Rs("WM_Content"),5))
	  Content = Content & """><IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=Content&sMode=EDIT&EditButton=NO&Tool=UCLASS' FRAMEBORDER=0 SCROLLING=no WIDTH='98%' HEIGHT=250></IFRAME> <font color=#FF0000>*</font></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td valign=top><strong>相关图片</strong></td><td><input type=text name=Pic size=50 maxlength=100 value='"&WRMPS.CheckStr(Rs("WM_Pic"),5)&"'><br>"
      WM_Pic = Rs("WM_Pic")
	  If IsNull(WM_Pic) = False and WM_Pic <> "" Then Content = Content & "<script>PicReset('"&WRMPS.CheckStr(WM_Pic,5)&"')</script>"
      Content = Content & "<select name=PicSelect onChange=PicReset(this.value)>" & vbCrLf
	  If IsNull(WM_Pic) = False and WM_Pic <> "" Then
	    Content = Content & "<option value='"&WRMPS.CheckStr(WM_Pic,5)&"' selected>"&WRMPS.CheckStr(WM_Pic,5)&"</option>" & vbCrLf
	  Else
        Content = Content & "<option value='' >还没有上传图片</option>" & vbCrLf
	  End If
      Content = Content & "</select>"
      Content = Content & "</td></tr>" & vbCrLf

	  Content = Content & "<tr Class=td2><td><strong>发布天数</strong></td><td><select name=Dayss size=1>" & vbCrLf
	  Content = Content & "<option value=1"&WRMPS.GetCheckVer(1,Int(Rs("WM_EndTime")-Rs("WM_PostTime")),0)&">一天</option>" & vbCrLf
	  Content = Content & "<option value=3"&WRMPS.GetCheckVer(3,Int(Rs("WM_EndTime")-Rs("WM_PostTime")),0)&">三天</option>" & vbCrLf
	  Content = Content & "<option value=7"&WRMPS.GetCheckVer(7,Int(Rs("WM_EndTime")-Rs("WM_PostTime")),0)&">一周</option>" & vbCrLf
	  Content = Content & "<option value=15"&WRMPS.GetCheckVer(15,Int(Rs("WM_EndTime")-Rs("WM_PostTime")),0)&">半个月</option>" & vbCrLf
	  Content = Content & "<option value=30"&WRMPS.GetCheckVer(30,Int(Rs("WM_EndTime")-Rs("WM_PostTime")),0)&">一个月</option>" & vbCrLf
	  Content = Content & "<option value=90"&WRMPS.GetCheckVer(90,Int(Rs("WM_EndTime")-Rs("WM_PostTime")),0)&">三个月</option>" & vbCrLf
	  Content = Content & "<option value=180"&WRMPS.GetCheckVer(180,Int(Rs("WM_EndTime")-Rs("WM_PostTime")),0)&">六个月</option>" & vbCrLf
	  Content = Content & "<option value=360"&WRMPS.GetCheckVer(360,Int(Rs("WM_EndTime")-Rs("WM_PostTime")),0)&">一年</option>" & vbCrLf
	  Content = Content & "</select></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>联系人</strong></td><td><input type=text name=Contact size=30 maxlength=50 value='"&Rs("WM_Contact")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>Email</strong></td><td><input type=text name=Email size=30 maxlength=50 value='"&Rs("WM_email")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>联系电话</strong></td><td><input type=text name=Tel size=30 maxlength=50 value='"&Rs("WM_tel")&"'><br>如为座机或小灵通请填写：区号-电话号码</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>联系地址</strong></td><td><input type=text name=AddRess size=30 maxlength=200 value='"&Rs("WM_address")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>QQ</strong></td><td><input type=text name=QQ size=30 maxlength=12 value='"&Rs("WM_qq")&"'></td></tr>" & vbCrLf
      Content = Content & "<tr Class=td2><td><strong>关键字</strong><br>多个请用“,”分隔</td><td><input type=text name=WM_Tag maxlength=50 size=30 value='"&Rs("WM_Tag")&"'></td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td></td><td><input type=submit value='提交修改' onclick=""Loading.style.display=''""></td></tr>" & vbCrLf
	  Content = Content & "</form>" & vbCrLf
	  Content = Content & "</table>" & vbCrLf
    End If
    Rs.Close
    Set Rs = Nothing
	Content = Content & PageButtom()
    Call DBConnEnd()

  Case "Edit"
    Set Rs=server.createobject("adodb.recordset")
    Rs.Open"Select * From WM_ClassAD Where WM_ID = "&ID&" and WM_Post = '"&MemName&"'",Conn,1,1
    If Not Rs.Eof Then
      AreaIDName=WRDB.GetClassName("WM_Area",Rs("WM_AreaID"))
      ClassName=WRDB.GetClassName("WM_ClassSort",Rs("WM_ClassID"))
      Content = Content & PageTop()
      Content = Content & UserPath(",<a href=User_ClassAD.asp>分类信息管理</a>")

      Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf  
	  Content = Content & "<form action='?Action=EditTwo&SearchKey="&SearchKey&"&Days="&Days&"&SearchID="&SearchID&"' name=myform method=POST>" & vbCrLf
	  Content = Content & "<input type=hidden name=AreaID_ value="&Rs("WM_AreaID")&">" & vbCrLf
	  Content = Content & "<input type=hidden name=ClassID_ value="&Rs("WM_ClassID")&">" & vbCrLf
	  Content = Content & "<input type=hidden name=Page value="&Page&">" & vbCrLf
	  Content = Content & "<input type=hidden name=ID value="&ID&">" & vbCrLf
	  Content = Content & "<tr><td colspan=2 Class=td4>修改分类信息</td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td><strong>所属地区</strong></td>" & vbCrLf
	  Content = Content & "<td>"&AreaIDName&"　<font onclick='Edit2(b1)' style='cursor:pointer' color=blue>修改请点击</font></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2 id=b1 style='display:none'><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%'>"&ClassName&"　<font onclick='Edit3(c1)' style='cursor:pointer' color=blue>修改请点击</font></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2 id=c1 style='display:none'><td><strong>修改分类</strong></td>" & vbCrLf
	  Content = Content & "<td><script src='../Inc/Js/ClassSelect.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
    End If
    Rs.Close
    Set Rs = Nothing
	Content = Content & PageButtom()
    Call DBConnEnd()
	
  Case "DJSave"
	DI1=0:DC1=0:DI2=0:DC2=0:DI3=0:DC3=0:DI4=0:DC4=0:DI5=0:DC5=0:DI6=0:DC6=0:DI7=0:DC7=0	
    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_ClassAD Where WM_ID = "&ID&" and WM_Post='"&MemName&"'")
    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'"
		  SQL = SQL & ",WM_Full=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_ClassAD Set "&SQL&" Where WM_ID = "&ID&" and WM_Post = '"&MemName&"'")
	      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
          DI1 = Int(WR_Prop(14)):DC1 = Int(WR_Prop(15))
		  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
          DI2 = Int(WR_Prop(16)):DC2 = Int(WR_Prop(17))
		  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
          DI3 = Int(WR_Prop(18))*aZTop:DC3 = Int(WR_Prop(19))*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
          DI4 = Int(WR_Prop(20))*aTop:DC4 = Int(WR_Prop(21))*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
          DI5 = Int(WR_Prop(22))*aTColor:DC5 = Int(WR_Prop(23))*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
          DI6 = Int(WR_Prop(24))*aBColor:DC6 = Int(WR_Prop(25))*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
          DI7 = Int(WR_Prop(26))*aBold:DC7 = Int(WR_Prop(27))*aBold
		  SQL = SQL & ",WM_aBold='"&WM_aBold&"'"
		End If
        WM_Full = WRMPS.CheckStr(Request("WM_Full"), 1)
        If WM_Full = "" Then WM_Full = 0
		If WM_Full > 0 Then
          DI8 = Int(WR_Prop(28)):DC8 = Int(WR_Prop(29))
		  SQL = SQL & ",WM_Full=1"
		End If

	    DCountOut = DC1 + DC2 + DC3 + DC4 + DC5 + DC6 + DC7 + DC8
	    DIntegral = DI1 + DI2 + DI3 + DI4 + DI5 + DI6 + DI7 + DI8

       Set Rs = Conn.Execute("Select Top 1 WM_CountOut,WM_Integral From WM_Member Where WM_ID = "&MemID)
       If Not Rs.Eof Then
	     If DCountOut > Rs(0) Or DIntegral > Rs(1) Then Call WRMPS.ErrView("·您的账户积分或"&WR_Other(0)&"已不够本次支付！<br>·<a href='User_Exchange.asp' target=_parent>现在就去兑换？</a>",0)
       End If
       Rs.Close
	   
	   If DI1>0 Or DC1>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC1),Int("-"&DI1),0,"购买信息自动审核道具")
	   If DI2>0 Or DC2>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC2),Int("-"&DI2),0,"购买信息自动推荐道具")
	   If DI3>0 Or DC3>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC3),Int("-"&DI3),0,"购买信息总置顶道具")
	   If DI4>0 Or DC4>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC4),Int("-"&DI4),0,"购买信息分类置顶道具")
	   If DI5>0 Or DC5>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC5),Int("-"&DI5),0,"购买信息标题变色道具")
	   If DI6>0 Or DC6>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC6),Int("-"&DI6),0,"购买信息标题背景色道具")
	   If DI7>0 Or DC7>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC7),Int("-"&DI7),0,"购买信息标题加粗道具")
	   If DI8>0 Or DC8>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC8),Int("-"&DI8),0,"购买信息全屏显示道具")

	   SQL = " WM_aProp='"&aProp1&"|"&aProp2&"'"&SQL
	   Conn.Execute("Update WM_ClassAD 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_Integral,WM_CountOut From WM_Member Where WM_ID = "&MemID)
      If Not Rs.Eof Then
	    DIntegral = Rs(0)
	    DCountOut = Rs(1)		
      End If
      Rs.Close
      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,WM_Full From WM_ClassAD Where WM_ID = "&ID&" and WM_Post='"&MemName&"'")
      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)
		WM_Full = Rs(10)
	  Else
	    Call WRMPS.ErrView("·操作错误",0)
      End If
      Rs.Close
	  Set Rs=Nothing
      Content = Content & PageHand()
	  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='Img/dj1.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>自动审核道具</strong><br>积分：<span class=Font2>"&WR_Prop(14)&"</span>/次<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(15)&"</span>/次<br>"
      If WM_Key > 0 Then