摘要: 我们在制作广告的时候,要考虑到有些客户根本不懂得HTML代码,于是,只能建一个傻瓜型的广告添加功能广告模块自动生成广告代码并且添加上传文件系统打开admin/ad/index.asp在最后加入:Sub writescript()Il "<scritp>" &vbcrlfIl "var vchar1" &vbcrlfIl " function assign1(vchar1){" &vbcrlfIl " if (vchar1==""img"") {&qu 阅读全文
posted @ 2011-12-27 09:45 读者4074 阅读(365) 评论(0) 推荐(0) 编辑
摘要: <scritp>// JavaScript Documentvar $ = function (id) {return "string" == typeof id ? document.getElementById(id) : id;};var Class = {create: function() {return function() {this.initialize.apply(this, arguments);}}}Object.extend = function(destination, source) {for (var property in sou 阅读全文
posted @ 2011-12-27 09:44 读者4074 阅读(220) 评论(0) 推荐(0) 编辑
摘要: 大概说了一下对象,就要说一下在VB中如何创建自己的对象 —— 类 [类模块(Class)]一个类中最基本的应该算是Private Sub Class_Initialize() '构建End SubPrivate Sub Class_Terminate() '清除End Sub要创建属性可以自己写,也可以用类生成器或者工具->添加过程,其他的跟在窗体中写差不多了, 下次再有空再谈谈事件的触发,毕竟VB是事件驱动嘛!使用类的方法需要两步,定义+初始化.dim ** as 类名 '这一步只是定义了类,没有初始化的是不能用的,会显示*** with 什么未设置 之类的se 阅读全文
posted @ 2011-12-27 09:15 读者4074 阅读(290) 评论(0) 推荐(0) 编辑