小祥子的博客

        这里做了个实例，帝国CMS通过Excel导入到数据库里，但不是所有人都可以用，因为我做的是我本地已经建好的模型。

        代码是现成的读取Excel的类，仅需与帝国CMS做个结合即可。

        首先添加一个文章，然后获取提交文章的时候所获取的数组，再构造这样一个数组，获取Excel表的数据，循环进行提交。   

 &n

一个程序员如何快速赚到一百万，说的详细点儿就是：一个固定工作者怎么跳出固有的模式，靠其他途径（投资、理财、生意、创意、外包等）赚得相对殷实的钞票？

80% 人都会问这种赚钱问题，但这种问题却太难回答，因为太难有个可标准化的模式去效仿或借鉴。

我在代码之路上曾经遇到过很多奇怪的对手，也遇到过奇怪的队友。我至少接触了五种不同的“代码斗士”。其中一些有才的战友有助于开发工作的进行，而另一些看起来阻碍了我的每一个计划。

用一键生成网站的程序做了个防水材料网站，也顺便在这里吸引下蜘蛛 www.fangshui123.com 。

弄了定时发布，以及伪静态，一键只是将相关的关键词入库，再有ASP文件来采集相应关键词的内容，最后随机定时的发布。

我打算做这样一款软件，输入一个关键词，马上就显示所有相关的关键词，然后再由这些关键词自动生成页面，如果这款软件放到7年前我才接触互联网那会，应该会产生不少价值，如今网站不好做了。我理了下大致的功能流程：

1、输入关键词

2、显示所有相关的关键词

3、将相关关键词作为分类添加到数据库

4、由每个关键词生成数个页面，也就是每个栏目下生成一些文章页

5、定时显示+伪静态实现定时发布

6、自定义模板页

到时候站群就靠它了

1、开启程序后，每10秒监控一次最新任务的情况，如果有任务，则会出现一个窗口提示

2、隐藏到任务栏后，如果要再显示窗口程序，双击任务栏的金钱图标

3、单击任务名，自动打开该任务的网页

4、任务自动保存到同目录的数据库文件Database.mdb中

5、程序是有点简陋，也没有经过美化，但绝对实用，也不收钱。

6、目前只支持32位，64位的同学需要自己去找64位的ocx组件，实在不行，你只有本地安装一个VB企业版了。

演示图：

Function getHTTPPage(url) 
    dim http 
    set http=Server.createobject("Microsoft.XMLHTTP")
    Http.open "GET",url,false
    Http.send() 
    if Http.readystate<>4 then
       exit function 
    e

Iframe中JS向父窗口传值，一般用在上传功能里。

比如说上传，需要调用一个通用的iframe窗口，上传成功后需要把路径直接写到当前父窗口的框架里。

parent.document.forms[0].PicUrl.value='<%=savepath & "/" & file.filename %>';

新云CMS4.0sp2默认不能对下载地址进行分组，经过本人修改后可灵活的对下载地址进行分组。

演示如下

这两天打算做一个长尾关键词获取工具，但由于大量获取的话XMLHTTP效率不是很高，我准备用Webbrowser控件试一试。相关代码如下

获取网页的方法

Public Function GetHtmlBody(ByVal URL$)
WebBrowser1.Navigate URL
Do While WebBrowser1.Busy '等待加载完成后再执行后面的代码.
DoEvents
Loop
Text3.Text = WebBrowser1.Document.documentElement.outerHTML &#3