wm.ads_sort.asp

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

		Rs.Open "Select WM_AreaID,WM_Small,WM_Big From WM_ADS Where WM_Big = '"&Tag&"' and WM_SkinDir = '"&WR_Setting(5)&"'",Conn,1,1
	    Do while Not Rs.Eof
		  Path = "../Img/AD_"&Rs(0)&"_"&Rs(2)&Rs(1)&".asp"
		  Call WRMPS.FsoDel("File",Path)
		Rs.MoveNext
		Loop
	    Rs.Close
	    Call WRMPS.FsoEnd()
	  Set Rs = Nothing
      Conn.Execute ("delete From WM_ADS Where WM_Big= '"&Tag&"' and WM_SkinDir = '"&WR_Setting(5)&"'")
      Conn.Execute ("delete From WM_ADSsmall Where WM_ADBigID= '"&Tag&"' and WM_SkinDir = '"&WR_Setting(5)&"'")
      Conn.Execute ("delete From WM_ADSbig Where WM_Tag= '"&Tag&"' and WM_SkinDir = '"&WR_Setting(5)&"'")
    Call DBConnEnd()
    Call WRMPS.ErrView("·删除成功<meta http-equiv=refresh content='1;URL=?Action=ADSSort'>",1)
	
  Case "SmallDel"
    Tags = WRMPS.CheckStr(Request("Tags"), 0)
    Call DBConnBegin()
	  Set Rs = Server.CreateObject("ADODB.RecordSet")
        Call WRMPS.FsoBegin()
		Rs.Open "Select WM_AreaID,WM_Small,WM_Big From WM_ADS Where WM_Big = '"&Tag&"' and WM_Small = '"&Tags&"' and WM_SkinDir = '"&WR_Setting(5)&"'",Conn,1,1
	    Do while Not Rs.Eof
		  Path = "../Img/AD_"&Rs(0)&"_"&Rs(2)&Rs(1)&".asp"
		  Call WRMPS.FsoDel("File",Path)
	    Rs.MoveNext
		Loop
	    Rs.Close
	    Call WRMPS.FsoEnd()
	  Set Rs = Nothing
      Conn.Execute ("delete From WM_ADS Where WM_Big = '"&Tag&"' and WM_Small = '"&Tags&"' and WM_SkinDir = '"&WR_Setting(5)&"'")
      Conn.Execute ("delete From WM_ADSsmall Where WM_ADBigID = '"&Tag&"' and WM_Tag = '"&Tags&"' and WM_SkinDir = '"&WR_Setting(5)&"'")
    Call DBConnEnd()
    Call WRMPS.ErrView("·删除成功<meta http-equiv=refresh content='1;URL=?Action=ADSSort&Small=OK&Tag="&Tag&"'>",1)

  Case "ADSSort"
    Content = Content & "<table width='100%' border=0 cellspacing=1 cellpadding=3 Class=TD1>" & vbCrLf
    Content = Content & "  <tr Class=TD4><td colspan=4><strong>所有广告大类</strong></td></tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Call DBConnBegin()
    Set Rs = Conn.Execute("Select WM_ADBig,WM_ID,WM_Tag From WM_ADSbig where WM_SkinDir = '"&WR_Setting(5)&"'")
	i=0
	Do While Not Rs.Eof
	  i=i+1
      Content = Content & "    <td width='25%'>"&Rs(2)&"："&Rs(0)&" [<a href=?Action=ADSSort&Tag="&Rs(2)&"&Small=OK Class=Gray>广告位</a> <a href=?Action=BigEdit&ID="&Rs(1)&" Class=Gray>修</a> <a href=?Action=BigDel&Tag="&Rs(2)&" Class=Gray>删</a>]</td>" & vbCrLf
	  If i mod 4=0 Then Content = Content & "</tr><tr bgcolor='#F7F7F7'>" & vbCrLf
	Rs.MoveNext
	Loop
	Rs.Close
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
	
	If Request("Small") <> "" Then
      Content = Content & "<table width='100%' border=0 cellspacing=1 cellpadding=3 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 width='20%'>广告位</td>" & vbCrLf
        Content = Content & "    <td width='6%'>尺寸</td>" & vbCrLf
        Content = Content & "    <td width='8%'>广告类型</td>" & vbCrLf
        Content = Content & "    <td width='8%'>位置标记</td>" & vbCrLf
        Content = Content & "    <td width='*'>广告调用代码</td>" & vbCrLf
        Content = Content & "    <td width='10%'>操作</td>" & vbCrLf
        Content = Content & "  </tr>" & vbCrLf
      Call DBConnBegin()
      Set Rs = Conn.Execute("Select WM_ID,WM_ADSmall,WM_ADSize,WM_ADSType,WM_Tag From WM_ADSsmall Where WM_ADBigID='"&Tag&"' and WM_SkinDir = '"&WR_Setting(5)&"'")
	  Do While Not Rs.Eof
        Content = Content & "  <tr Class=TD2 align=center>" & vbCrLf
        Content = Content & "    <td align=Left>"&Rs(1)&"</td>" & vbCrLf
        Content = Content & "    <td>"&Rs(2)&"</td>" & vbCrLf
        Content = Content & "    <td>"&AdsType(Rs(3))&"</td>" & vbCrLf
        Content = Content & "    <td>"&Tag&Rs(4)&"</td>" & vbCrLf
        Content = Content & "    <td><input style=""width:98%"" onclick=""this.select();oCopy('"&chr(60)&"script language=JavaScript src={$InstallDir}Img/?"&Tag&Rs(4)&chr(62)&chr(60)&"/script"&chr(62)&"')"" readonly type=text value=""&lt;script language=javascript src={$InstallDir}Img/?"&Tag&Rs(4)&"&gt;&lt;/script&gt;""></td>" & vbCrLf
        Content = Content & "    <td><a href=?Action=SmallEdit&SID="&Rs(0)&"&Tag="&Tag&">修改</a> <a href=?Action=SmallDel&SID="&Rs(0)&"&Tag="&Tag&"&Tags="&Rs(4)&" onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
        Content = Content & "  </tr>" & vbCrLf
	  Rs.MoveNext
	  Loop
	  Rs.Close
      Content = Content & "</table>" & vbCrLf
	End If

    Content = Content & "<br><table width='100%' border=0 cellspacing=0 cellpadding=0><tr>" & vbCrLf
    Content = Content & "<td width='50%' valign=top>" & vbCrLf
    Content = Content & "<table width='99%' border=0 cellspacing=1 cellpadding=3 Class=TD1>" & vbCrLf
    Content = Content & "<form name='form1' method='post' action='?Action=BigSave'>" & vbCrLf
    Content = Content & "  <tr Class=TD4>" & vbCrLf
    Content = Content & "    <td colspan=2><strong>添加广告大类</strong></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Content = Content & "    <td width='30%' align=right><strong>广告大类名称</strong></td>" & vbCrLf
    Content = Content & "    <td width='70%'><input type='text' name='WM_ADBig'></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Content = Content & "    <td align=right><strong>大类标记</strong></td>" & vbCrLf
    Content = Content & "    <td><input type='text' name='WM_Tag'><br>可由数字或字母组成，不能重复。如：A　输入后将不能修改</td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Content = Content & "    <td></td>" & vbCrLf
    Content = Content & "    <td><input type=submit name='Submit' value=' 提 交 '></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "</form>" & vbCrLf
    Content = Content & "</table><br>" & vbCrLf
	Content = Content & "</td>" & vbCrLf
    Content = Content & "<td width='50%' valign=top>" & vbCrLf
    Content = Content & "<table width='100%' border=0 cellspacing=1 cellpadding=3 Class=TD1>" & vbCrLf
    Content = Content & "<form name='form1' method='post' action='?Action=SmallSave'>" & vbCrLf
    Content = Content & "  <tr Class=TD4>" & vbCrLf
    Content = Content & "    <td colspan=2><strong>添加广告位置</strong></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Content = Content & "    <td align=right><strong>所属大类</strong></td>" & vbCrLf
    Content = Content & "    <td><select name='WM_ADBigID'>"
    Set Rs = Conn.Execute("Select WM_ADBig,WM_Tag From WM_ADSbig where WM_SkinDir = '"&WR_Setting(5)&"'")
	Do While Not Rs.Eof
      Content = Content & "<option value='"&Rs(1)&"'" & WRMPS.GetCheckVer(Tag,Rs(1),0) & ">"&Rs(0)&"</option>" & vbCrLf
	Rs.MoveNext
	Loop
	Rs.Close
	Set Rs = Nothing
    Call DBConnEnd()
	Content = Content & "</select></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Content = Content & "    <td width='20%' align=right><strong>广告位置说明</strong></td>" & vbCrLf
    Content = Content & "    <td width='80%'><input type='text' size=40 name='WM_ADSmall'></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Content = Content & "    <td align=right><strong>位置标记</strong></td>" & vbCrLf
    Content = Content & "    <td><input type='text' name='WM_Tag'><br>可由数字或字母组成，不能重复。如：1　输入后将不能修改</td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Content = Content & "    <td align=right><strong>广告尺寸</strong></td>" & vbCrLf
    Content = Content & "    <td><input type='text' name='WM_ADSize'><br>宽,高。豆号请用英文 如：468,60 </td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Content = Content & "    <td align=right><strong>广告类型</strong></td>" & vbCrLf
    Content = Content & "    <td><select name='WM_ADSType'>"
    For i=0 To 10
	  Content = Content & "<option value='"&i&"'>"&AdsType(i)&"</option>" & vbCrLf
    Next
	Content = Content & "</select></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr Class=TD2>" & vbCrLf
    Content = Content & "    <td></td>" & vbCrLf
    Content = Content & "    <td><input type=submit name='Submit' value=' 提 交 '></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "</form>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
	Content = Content & "</td>" & vbCrLf
    Content = Content & "</tr></table>" & vbCrLf
End Select
Call ClassEnd()
Response.write Content
Call GetBottom()
%>