29
2014
05

五种类型的程序员

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

22
2014
05

一键生成网站程序生成了个防水材料网

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

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

 

20
2014
05

最近计划开发的一款软件

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

1、输入关键词

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

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

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

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

6、自定义模板页

到时候站群就靠它了

19
2014
05

A5任务大厅自动获取任务的程序下载

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

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

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

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

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

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


演示图:

18
2014
05

ASP截取网页的方法

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
15
2014
05

IFRAME中的JS向父窗口传值

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

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


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

新云CMS4.0下载地址分组功能设计

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

演示如下

14
2014
05

VB Webbrowser控件相关代码收藏

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


获取网页的方法

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

瑞丽市人民政府网站建设项目

做这个项目的时候,刚好2013年春节的前的第2个星期,公司人手不够,临时让我出差去瑞丽跟客户沟通下这个网站的需求。本来我准备年前一个星期回家的,半路出来个这么个事。


本来我就是过去谈谈需求,确认下需求让客户签个字,结果客户提的部分要求公司还做不到,真是为公司那些人捉急,最后我亲自上了,无非是在这基础上做一个数据截取程序(小偷程序),实时调用他们地方在云南省信息公开

13
2014
05

VB常用代码收藏

之前我一个VB的视频教程都没有看过,便开发出来了一个对我实用的功能,这因为VB与ASP是相通的,这里我收藏了部分代码,供我以后再次使用。

 

VB链接数据库

Set conn = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/database.mdb" '连接这个数据库,也就是VB程序目录下的database.mdb
conn.open Connstr
Text1.Text = conn.execute("select t