广告模块自动生成广告代码

我们在制作广告的时候，要考虑到有些客户根本不懂得HTML代码，于是，只能建一个傻瓜型的广告添加功能

功能预览
【图片待会抓上来】

广告模块自动生成广告代码并且添加上传文件系统

打开admin/ad/index.asp

在最后加入:
Sub writescript()
Il "<scritp>" &vbcrlf
Il "var vchar1" &vbcrlf
Il "  function assign1(vchar1){" &vbcrlf
Il "   if (vchar1==""img"")   {" &vbcrlf
Il "   form1.adtext.value = ""<a href='""+form1.adlink.value+""' target='_blank'><img src='""+form1.artimg.value+""' width='""+form1.adwidth.value+""' height='""+form1.adheight.value+""' border='0'></a>"";" &vbcrlf
Il "   }" &vbcrlf
Il "   else if (vchar1==""flash"")   {" &vbcrlf
Il "   form1.adtext.value = ""<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width=""+form1.adwidth.value+"" height=""+form1.adheight.value+""><param name='movie' value=""+form1.artimg.value+""><param name='quality' value='high'><embed src='""+form1.artimg.value+""' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width=""+form1.adwidth.value+"" height=""+form1.adheight.value+""></embed></object>"";" &vbcrlf
Il "   }" &vbcrlf
Il "  }" &vbcrlf
Il "</scritp>" &vbcrlf
End Sub

'对取出的数据格式化,把不标准部分用正则处理
Function GetAdImg(strString,x)
  Dim MM_objRegexp,MM_strString
  Set MM_objRegexp=new RegExp
  with MM_objRegexp
   .IgnoreCase = True '不区分大小写
   .Global = True '全局搜索
   '.Pattern="[\x00-\x2f\x3A-\x40\x5b-\x60\x7B-\xFF\x2E]"
   '正则中[^a]表示只取a，[a]表示只不取a，()内的内容表示预存，可以用$取出
   If x = 1 Then .Pattern=".*src='([^']*)'.*" '取src值
   If x = 2 Then .Pattern=".*href='([^']*)'.*" '取href值
   'MM_strString=.execute(strString)
   MM_strString=.Replace(strString,"$1")
  End with
  Set MM_objRegexp = Nothing
  GetAdImg = MM_strString
End Function

找到
Il king.check("adtitle|6|"&encode(ad.lang("check/title"))&"|1-250")
Il "




"
在下面添加：

'**************************************************

Call writescript
'广告类型
Il "<p><label>广告类型</label><select name='adtype'><option selected value='img'>图片</option><option value='flash'>FLASH</option><option value='other'>其它</option></select>　<input type='button' name='b2' onclick=""assign1(form1.adtype.value);"" value='生成完整代码'>"
Il "</p>"
'链接地址
Il "<p><label>链接地址</label><input maxlength='255' type='text' name='adlink' id='adlink' value='"& GetAdImg(formencode(data(1,0)),2) &"' class='in4' />"
'添加的文件上传
Il "<p><label>显示文件</label><input maxlength='255' type='text' name='artimg' id='artimg' value='"& GetAdImg(formencode(data(1,0)),1) &"' class='in4'/>"
Il " <input type='button' value='浏览' class='k_button' onclick=""posthtm('../system/manage.asp?action=filemanage','aja','type=jpeg/jpg/png/gif&path='+encodeURIComponent(document.getElementById('artimg').value)+'&formname=artimg')"" />广告文件上传到aimage目录下"
Il "</p>"

不错  支持。。。。。。。。。。。。。。。

为什么我加上后会显示出来这一段代码呢？

var vchar1 function assign1(vchar1){ if (vchar1=="img") { form1.adtext.value = ""; } else if (vchar1=="flash") { form1.adtext.value = ""; } }

自己会点技术，够自己用，是一件很好的事情。哎，我老学不会

感觉不错，但是我是菜鸟

今天又来找蛋了

没有看明白

额，前台哪显示呢？

Reply: 楼主
因为我不是广告方面的，但现在要做的东西和广告有关。。。动态广告显示。。。广告内容可随和环境变化而变化。。或者随人的控制  希望您给点建议。。

bucun