wm.ads_sort.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("AdsPlace") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Dim ID,SID,Action,i,WM_ADBig,WM_ADBigID,WM_ADSmall,WM_ADSize,WM_ADSType,Rs1,Path,WM_Tag,Tag,Tags
ID = WRMPS.CheckStr(Request("ID"), 1)
SID = WRMPS.CheckStr(Request("SID"), 1)
Tag = WRMPS.CheckStr(Request("Tag"), 0)

Action = Request("Action")
If Action = "" Then Action = "ADSSort"

Select Case Action
  Case "BigEditSave"
    WM_ADBig = WRMPS.CheckStr(Request("WM_ADBig"),0)
    WM_Tag = WRMPS.CheckStr(Request("WM_Tag"),0)
    If WM_ADBig = "" Then Call WRMPS.ErrView("·请输入广告大类名称<meta http-equiv=refresh content='1;URL=?Action=ADSSort'>",0)
    Call DBConnBegin()
	  Conn.Execute("Update WM_ADSbig set WM_ADBig='"&WM_ADBig&"' Where WM_ID="&ID&" and WM_SkinDir = '"&WR_Setting(5)&"'")
      Call WRMPS.ErrView("·修改成功<meta http-equiv=refresh content='1;URL=?Tag="&WM_Tag&"&Small=OK'>",1)
    Call DBConnEnd()

  Case "BigEdit"
    Call DBConnBegin()
	Set Rs = Conn.Execute("Select WM_ADBig,WM_Tag From WM_ADSbig Where WM_ID="&ID&"")
	If Not Rs.Eof Then
    Content = Content & "<table width='100%' border=0 cellspacing=1 cellpadding=3 Class=TD1>" & vbCrLf
    Content = Content & "<form name='form1' method='post' action='?Action=BigEditSave&ID="&ID&"'>" & 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='hidden' name='WM_Tag' value='"&Rs(1)&"'><input type='text' name='WM_ADBig' value='"&Rs(0)&"'></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
	End If
	Rs.Close
	Set Rs = Nothing
    Call DBConnEnd()
  
  Case "BigSave"
    WM_ADBig = WRMPS.CheckStr(Request("WM_ADBig"),0)
	WM_Tag = WRMPS.CheckStr(Request("WM_Tag"),0)
    If WM_ADBig = "" Then Call WRMPS.ErrView("·请输入广告大类名称<meta http-equiv=refresh content='1;URL=?Action=ADSSort'>",0)
    If WM_Tag = "" Then Call WRMPS.ErrView("·请选择大类标记<meta http-equiv=refresh content='1;URL=?Action=ADSSort'>",0)
    Call DBConnBegin()
	Set Rs=server.createobject("adodb.recordset")
	Rs.Open "Select WM_ID From WM_ADSbig where WM_Tag='" & WM_Tag & "' and WM_SkinDir = '"&WR_Setting(5)&"'", Conn, 1, 1
    If Not Rs.EOF Then
      Rs.Close
	  Set Rs = Nothing
      Call WRMPS.ErrView("·您填写的大类标记 "&WM_Tag&" 已存在<meta http-equiv=refresh content='1;URL=?Action=ADSSort'>", 0)
    End If
	Rs.Close
	Set Rs = Nothing
	Conn.Execute("insert Into WM_ADSbig(WM_ADBig,WM_SkinDir,WM_Tag)values('"&WM_ADBig&"','"&WR_Setting(5)&"','"&WM_Tag&"')")
    Call WRMPS.ErrView("·添加成功<meta http-equiv=refresh content='1;URL=?Action=ADSSort&Small=OK&Tag=" & WM_Tag & "'>",1)
    Call DBConnEnd()
  
  Case "SmallSave"
    WM_ADBigID = WRMPS.CheckStr(Request("WM_ADBigID"),0)
    WM_ADSmall = WRMPS.CheckStr(Request("WM_ADSmall"),0)
    WM_ADSize = WRMPS.CheckStr(Request("WM_ADSize"),0)
    WM_ADSType = WRMPS.CheckStr(Request("WM_ADSType"),1)
	WM_Tag = WRMPS.CheckStr(Request("WM_Tag"),0)
    If WM_ADBigID = "" Then Call WRMPS.ErrView("·请选择广告大类<meta http-equiv=refresh content='1;URL=?Action=ADSSort'>",0)
    If WM_ADSmall = "" Then Call WRMPS.ErrView("·请填写广告位置说明<meta http-equiv=refresh content='1;URL=?Action=ADSSort'>",0)
    If WM_ADSize = "" Then WM_ADSize = ","
    If WM_Tag = "" Then Call WRMPS.ErrView("·请选择位置标记<meta http-equiv=refresh content='1;URL=?Action=ADSSort'>",0)
    If WM_ADSType = "" Then Call WRMPS.ErrView("·请选择广告类型<meta http-equiv=refresh content='1;URL=?Action=ADSSort'>",0)
	Call DBConnBegin()
	Set Rs=server.createobject("adodb.recordset")
	Rs.Open "Select WM_ID From WM_ADSsmall where WM_Tag='" & WM_Tag & "' and WM_ADBigID='" & WM_ADBigID & "' and WM_SkinDir = '"&WR_Setting(5)&"'", Conn, 1, 1
    If Not Rs.EOF Then
      Rs.Close
	  Set Rs = Nothing
      Call WRMPS.ErrView("·您填写的位置标记 "&WM_ADBigID&WM_Tag&" 已存在<meta http-equiv=refresh content='1;URL=?Action=ADSSort&Small=OK&Tag=" & WM_ADBigID & "'>", 0)
    End If
	Rs.Close
	Set Rs = Nothing
	Conn.Execute("insert Into WM_ADSsmall(WM_ADSmall,WM_ADBigID,WM_ADSize,WM_ADSType,WM_SkinDir,WM_Tag)values('"&WM_ADSmall&"','"&WM_ADBigID&"','"&WM_ADSize&"',"&WM_ADSType&",'"&WR_Setting(5)&"','"&WM_Tag&"')")
    Call DBConnEnd()
	Call WRMPS.ErrView("·添加成功<meta http-equiv=refresh content='1;URL=?Action=ADSSort&Small=OK&Tag=" & WM_ADBigID & "'>",1)
  
  Case "SmallEditSave"
    WM_ADBigID = WRMPS.CheckStr(Request("WM_ADBigID"),0)
    WM_ADSmall = WRMPS.CheckStr(Request("WM_ADSmall"),0)
    WM_ADSize = WRMPS.CheckStr(Request("WM_ADSize"),0)
    WM_ADSType = WRMPS.CheckStr(Request("WM_ADSType"),1)
    If WM_ADSmall = "" Then Call WRMPS.ErrView("·请填写广告位置说明<meta http-equiv=refresh content='1;URL=?Action=SmallEdit&SID=" & SID & "&ID=" & WM_ADBigID & "'>",0)
    If WM_ADSize = "" Then WM_ADSize = ","
    If WM_ADSType = "" Then Call WRMPS.ErrView("·请选择广告类型<meta http-equiv=refresh content='1;URL=?Action=SmallEdit&SID=" & SID & "&ID=" & WM_ADBigID & "'>",0)
    Call DBConnBegin()
	Conn.Execute("Update WM_ADSsmall Set WM_ADSmall='"&WM_ADSmall&"',WM_ADSize='"&WM_ADSize&"',WM_ADSType="&WM_ADSType&" Where WM_ID="&SID&" and WM_SkinDir = '"&WR_Setting(5)&"'")
	Call DBConnEnd()
	Call WRMPS.ErrView("·修改成功<meta http-equiv=refresh content='1;URL=?Action=ADSSort&Small=OK&Tag="&WM_ADBigID&"'>",1)

  Case "SmallEdit"
    Call DBConnBegin()
	Set Rs1 = Conn.Execute("Select WM_ADSmall,WM_ADBigID,WM_ADSize,WM_ADSType,WM_Tag From WM_ADSsmall Where WM_ID="&SID&"")
	If Not Rs1.Eof Then
      Content = Content & "<table width='100%' border=0 cellspacing=1 cellpadding=3 Class=TD1>" & vbCrLf
      Content = Content & "<form name='form1' method='post' action='?Action=SmallEditSave&SID="&SID&"'>" & 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><input type=hidden name='WM_ADBigID' Value='"&Rs1(1)&"'>"
      Set Rs = Conn.Execute("Select WM_ADBig,WM_Tag From WM_ADSbig where WM_SkinDir = '"&WR_Setting(5)&"'")
	  Do While Not Rs.Eof
        If Rs1(1) = Rs(1) Then Content = Content & Rs(1)&"："&Rs(0) & vbCrLf
	  Rs.MoveNext
	  Loop
	  Rs.Close
	  Set Rs = Nothing
	  Content = Content & "</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' size=40 name='WM_ADSmall' Value='"&Rs1(0)&"'></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' Value='"&Rs1(2)&"'><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&"'"&WRMPS.GetCheckVer(Rs1(3),i,0)&">"&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
	End If
	Rs1.Close
	Set Rs1 = Nothing
    Call DBConnEnd()

  Case "BigDel"
    Call DBConnBegin()
	  Set Rs = Server.CreateObject("ADODB.RecordSet")
        Call WRMPS.FsoBegin()