📄 wm.ads.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 4 页
字号:
	    WM_Begin = Null
	    WM_End = Null
	  Case 2
        WM_Begin = WRMPS.CheckStr(Request("WM_Begin"), 0)
        WM_End = WRMPS.CheckStr(Request("WM_End"), 0)
        If WM_Begin <> "" and IsDate(WM_Begin) Then WM_Begin = CDate(WM_Begin) Else WM_Begin = Null
        If WM_End <> "" and IsDate(WM_End) Then WM_End = CDate(WM_End) Else WM_End = Null
	    If WM_Begin = "" Or WM_End = "" Then Call WRMPS.ErrView("·请选择广告插放开始及结束日期<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
	End Select
	If WM_SiteTitle = "" Then Call WRMPS.ErrView("·请填写站点客户名称<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
	Select Case WM_Type
	  Case 1
	    Pic = Null
		Size1 = Null
		WM_Code = Null
        If WM_Text = "" Then Call WRMPS.ErrView("·请填写文字广告内容<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
        If WM_Url = "" Then Call WRMPS.ErrView("·请填写广告连接URL<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
        If OpenType = "" Then Call WRMPS.ErrView("·请选择广告打开方式<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
	  Case 2
	    WM_Text = Null
		WM_Code = Null
        If Pic = "" Then Call WRMPS.ErrView("·请填写广告图片地址<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
        If WM_Url = "" Then Call WRMPS.ErrView("·请填写广告连接URL<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
        If Size1 = "" Then Call WRMPS.ErrView("·请填写广告大小<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
        If OpenType = "" Then Call WRMPS.ErrView("·请选择广告打开方式<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
	  Case 3
	    WM_Text = Null
		WM_Url = Null
		OpenType = Null
		WM_Code = Null
        If Pic = "" Then Call WRMPS.ErrView("·请填写广告图片地址<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
        If Size1 = "" Then Call WRMPS.ErrView("·请填写广告大小<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
	  Case 4
	    WM_Text = Null
		WM_Url = Null
		OpenType = Null
		Pic = Null
		Size1 = Null
        If WM_Code = "" Then Call WRMPS.ErrView("·请填写广告代码<meta http-equiv=refresh content='1;URL=?Action=AddTwo&CityID="&CityID&"&AdsBig="&AdsBig&"&AdsSmall="&AdsSmall&"'>",0)
	End Select

	  Set Rs = Server.CreateObject("ADODB.RecordSet")
      Rs.Open "Select * From WM_ADS Where WM_AreaID = "&CityID&" And WM_Small = '"&AdsSmall&"' And WM_Big = '"&AdsBig&"' and WM_SkinDir = '"&WR_Setting(5)&"'",Conn,1,3
	  If Not Rs.Eof Then
	    Rs.Close
	    Set Rs = Nothing	  
	    Call WRMPS.ErrView("·该城市位置的广告已经存在<meta http-equiv=refresh content='1;URL=?Action=AddOne'>",0)
	  Else
	    Rs.Addnew
	    Rs("WM_AreaID") = CityID
	    Rs("WM_Big") = AdsBig
	    Rs("WM_Small") = AdsSmall
	    Rs("WM_Sort") = WM_Sort
	    Rs("WM_Type") = WM_Type
	    Rs("WM_Pic") = Pic
	    Rs("WM_Text") = WM_Text
	    Rs("WM_Url") = WM_Url
	    Rs("WM_Code") = WM_Code
	    Rs("WM_Size") = Size1
	    Rs("WM_OpenType") = OpenType
	    Rs("WM_PlayType") = PlayType
	    Rs("WM_Begin") = WM_Begin
	    Rs("WM_End") = WM_End
	    Rs("WM_SiteTitle") = WM_SiteTitle
	    Rs("WM_Name") = WM_Name
	    Rs("WM_Contact") = WM_Contact
	    Rs("WM_Remark") = Remark
	    Rs("WM_Time") = Now()
	    Rs("WM_SkinDir") = WR_Setting(5)
	    Rs.Update
	    Rs.Close
	    Set Rs = Nothing	  
	  End If
	  Call AdsFile(0)
    Call WRMPS.ErrView("·添加成功<meta http-equiv=refresh content='1;URL=WM.Ads.asp'>",1)
  
  Case "AddTwo"
    AdsBig = WRMPS.CheckStr(Request("AdsBig"), 0)
    AdsSmall = WRMPS.CheckStr(Request("AdsSmall"), 0)
	CityID = WRMPS.CheckStr(Request("CityID"), 1)
    If AdsBig = "" Or AdsSmall = "" Then Call WRMPS.ErrView("·请选择广告位置<meta http-equiv=refresh content='1;URL=?Action=AddOne'>",0)
    If CityID = "" Then Call WRMPS.ErrView("·请选择广告所属地区<meta http-equiv=refresh content='1;URL=?Action=AddOne'>",0)
      Set Rs = Conn.Execute("Select WM_ADBig From WM_ADSbig Where WM_Tag='"&AdsBig&"' and WM_SkinDir = '"&WR_Setting(5)&"'")
      If Not Rs.Eof Then
	    BN = Rs(0)
	  End If
      Set Rs = Conn.Execute("Select WM_ADSmall,WM_ADSize,WM_ADSType From WM_ADSsmall Where WM_Tag='"&AdsSmall&"' and WM_ADBigID='"&AdsBig&"' and WM_SkinDir = '"&WR_Setting(5)&"'")
      If Not Rs.Eof Then
	    SN = Rs(0)
		SS = Rs(1)
		ST = Rs(2)
	  End If
	  If CityID > 0 Then
	    City=WRDB.GetClassName("WM_Area",CityID)
	  Else
	    City = WR_Area(0)
	  End If
      Set Rs = Conn.Execute("Select * From WM_ADS Where WM_AreaID = "&CityID&" And WM_Big = '"&AdsBig&"' And WM_Small = '"&AdsSmall&"' and WM_SkinDir = '"&WR_Setting(5)&"'")
      If Not Rs.Eof Then
	    Call WRMPS.ErrView("·该城市位置的广告已经存在<meta http-equiv=refresh content='1;URL=?Action=AddOne'>",0)
	  End If
	  Set Rs = Nothing
	  If ST = 10 Then Response.Redirect "?Action=Magic&Big="&AdsBig&"&Small="&AdsSmall&"&CityID="&CityID
    Content = Content & "<Script language='JavaScript' Src='../Inc/GetDate.Js'></Script>" & vbCrLf
	Content = Content & "<table width='100%' border=0 cellspacing=1 cellpadding=3 class=td1>" & vbCrLf
    Content = Content & "<form name='myform' method='post' action='?Action=Save'>" & vbCrLf
  	Content = Content & "<input name=AdsBig type=hidden value="&AdsBig&">" & vbCrLf
  	Content = Content & "<input name=AdsSmall type=hidden value="&AdsSmall&">" & vbCrLf
  	Content = Content & "<input name=CityID type=hidden value="&CityID&">" & vbCrLf
  	Content = Content & "<input name=WM_Sort type=hidden value="&ST&">" & 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%'><strong>所属地区</strong></td>" & vbCrLf
    Content = Content & "    <td width='70%'><strong>"&City&"</strong></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2>" & vbCrLf
    Content = Content & "    <td><strong>广告位置</strong></td>" & vbCrLf
	Content = Content & "<td><strong>"&BN&" - "&SN&"</strong></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Select Case ST
	  Case 0
	    Content = Content & "<input name=WM_Type type=hidden value=1>"
	  Case 1,2,3,4,5,6,7,8
	    Content = Content & "  <tr class=td2>" & vbCrLf
        Content = Content & "    <td><strong>图片属性</strong></td>" & vbCrLf
        Content = Content & "    <td><input type=radio name=WM_Type value=2 onclick=ads(""pic"") checked >图片　<input type=radio name=WM_Type value=3 onclick=ads(""swf"")>Flash <font color='#FF0000'><strong>*</strong></font></td>" & vbCrLf
        Content = Content & "  </tr>" & vbCrLf
	  Case 9
	    Content = Content & "<input name=WM_Type type=hidden value=4>"
	End Select
    Content = Content & "  <tr class=td2 id=ad1>" & vbCrLf
    Content = Content & "    <td><strong>广告图片</strong></td>" & vbCrLf
    Content = Content & "    <td><input type=text name=Pic size=40 maxlength=200> <font color='#FF0000'><strong>*</strong></font> <a href=""javascript:openWithIframe('上传广告图片','../Plus/UpLoad/Index.asp?Type=7&User=1',350,150);""><img src='img/pic.gif' align=absmiddle alt='上传' border=0>上传</a></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2 id=ad2>" & vbCrLf
    Content = Content & "    <td><strong>文字内容</strong></td>" & vbCrLf
    Content = Content & "    <td><input type=text name=WM_Text size=40> <font color='#FF0000'><strong>*</strong></font></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2 id=ad3>" & vbCrLf
    Content = Content & "    <td><strong>连接URL</strong></td>" & vbCrLf
    Content = Content & "    <td><input type=text name=WM_Url size=40> <font color='#FF0000'><strong>*</strong></font></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2 id=ad6>" & vbCrLf
    Content = Content & "    <td><strong>广告代码</strong></td>" & vbCrLf
    Content = Content & "    <td><textarea name=WM_Code cols=40 rows=5></textarea> <font color='#FF0000'><strong>*</strong></font></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2 id=ad4>" & vbCrLf
    Content = Content & "    <td><strong>广告大小</strong></td>" & vbCrLf
	If Instr(SS,",") < 1 Then SS = ","
    Content = Content & "    <td>宽：<input type=text name=Size1 size=5 value="&Split(SS,",")(0)&">　高：<input type=text name=Size1 size=5 value="&Split(SS,",")(1)&"> <font color='#FF0000'><strong>*</strong></font></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2 id=ad5>" & vbCrLf
    Content = Content & "    <td><strong>打开方式</strong></td>" & vbCrLf
    Content = Content & "    <td><select name='OpenType'>"
	Content = Content & "<option value='_blank'>新窗口</option>" & vbCrLf
	Content = Content & "<option value='_self'>原窗口</option>" & vbCrLf
	Content = Content & "<option value='_parent'>主窗口</option>" & vbCrLf
	Content = Content & "<option value='_top'>父窗口</option>" & vbCrLf
	Content = Content & "</select></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2>" & vbCrLf
    Content = Content & "    <td><strong>广告插放条件</strong></td>" & vbCrLf
    Content = Content & "    <td><input type=radio name=PlayType value=1 checked>无限制<br><input type=radio name=PlayType value=2>日期段限制 <input type='text' name='WM_Begin' value='"&date()&"' size=10><a style='cursor:pointer;' onClick='PopCalendar.show(document.myform.WM_Begin, ""yyyy-m-d"", null, null, null, ""11"");'><img src='../Images/other/Calendar.gif' border='0' Style='Padding-Top:10px' align='absmiddle'></a> 至 <input type='text' name='WM_End' value='"&DateAdd("m", 1, Date)-1&"' size=10><a style='cursor:pointer;' onClick='PopCalendar.show(document.myform.WM_End, ""yyyy-m-d"", null, null, null, ""11"");'><img src='../Images/other/Calendar.gif' border='0' Style='Padding-Top:10px' align='absmiddle'></a></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
  	Content = Content & "  <tr class=td3>" & vbCrLf
    Content = Content & "    <td colspan=2><strong>客户信息</strong></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2>" & vbCrLf
    Content = Content & "    <td><strong>客户站点名称</strong></td>" & vbCrLf
    Content = Content & "    <td><input type=text name=WM_SiteTitle size=30> <font color='#FF0000'><strong>*</strong></font></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2>" & vbCrLf
    Content = Content & "    <td><strong>客户姓名</strong></td>" & vbCrLf
    Content = Content & "    <td><input type=text name=WM_Name size=30></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2>" & vbCrLf
    Content = Content & "    <td><strong>客户联系方式</strong></td>" & vbCrLf
    Content = Content & "    <td><input type=text name=WM_Contact size=30></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2>" & vbCrLf
    Content = Content & "    <td><strong>备注</strong></td>" & vbCrLf
    Content = Content & "    <td><textarea name=Remark cols=40 rows=5></textarea></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=' 提 交 ' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "</form>" & vbCrLf
    Content = Content & "</table><script>"
    Select Case ST
	  Case 0
	    Content = Content & "ads(""text"")"
	  Case 1,2,3,4,5,6,7,8
	    Content = Content & "ads(""pic"")"
	  Case 9
	    Content = Content & "ads(""code"")"
	End Select
	Content = Content & "</script>" & vbCrLf

  Case "AddOne"
    Content = Content & "<table width='100%' border=0 cellspacing=1 cellpadding=3 class=td1>" & vbCrLf
    Content = Content & "<form name='myform' method='post' action='?Action=AddTwo'>" & 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%'><strong>所属地区</strong></td>" & vbCrLf
    Content = Content & "    <td width='70%'>" & vbCrLf
    Content = Content & WRDB.GetAreaSort(0,1,0,"CityID")
    Content = Content & "</select></td>" & vbCrLf
    Content = Content & "  </tr>" & vbCrLf
    Content = Content & "  <tr class=td2>" & vbCrLf
    Content = Content & "    <td><strong>广告位置</strong></td>" & vbCrLf
    Content = Content & "    <td>"&ClassSelect()&"</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
💿 文件大小 4665 K
👤 上传用户 zergwyk
📂 所属分类其他行业
🏷️ 相关标签

#5.0 #分类 #信息系统 #商
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -