苗启源的部落格

做程序的，经常遇到同一个空间仿多个测试站点的问题。如果遇到一个“聪明”的用户，登录自己的后台系统，访问其他目录下站点的后台，可能发现也同时可能把其他人的后台系统也登录了。
问题描述有点绕口，我写了一个小小的函数，不同目录使用不同的Session，解决了这个问题。 阅读全文…

    MiniTV概念版发布，MiniTV为猫七团队的苗启源最新开发的一套免费网络电视软件。本次放出的是概念版。截图是 正在播放的 日本某频道的节目。
阅读全文…

塔桥村简介‍

‍塔桥村有新村和旧村之分.新村在汤头办事处西北四公里出的一座小山西面,在山前有一条8米宽的新修建的水泥路,顺着大路一直西行,在200米左右既可以看到崭新的鳞次栉比的房屋,屋顶上太阳能密集,这就是塔桥新村.

新村现居住着605户2200口人.每到夜幕降临,璀璨夺目的让人流连往返的,整个村的祥和安宁给人带来了更加留恋的滋味,这是一个从1986年就开始搬迁的新村,,2007年刚刚搬迁完毕.
塔桥旧村;再顺着新的水泥路继续往西西行至沂河岸边东岸,这便是塔桥旧村.2007年该村在街道办事处的领导下开始旧村改造,改造了空壳村,整理出良田545,.8亩.塔桥旧村濒临沂河,南北和沟南以及红埠岭相对.相传该村开始建于北宋真宗时期,大中祥符年间(1008年),因当时村前有一大桥多次塌陷,由”塔桥”改为塌桥,后来用他的谐音,变成了今日的”塔桥”.
该村为杂姓大村:张网李赵孙陈苗等20多个姓,从家谱来看,多是明朝代宗景泰年间由山西洪洞县喜鹊窝迁徙而来的.
阅读全文…

   使用Windows7很久了，调试asp,php网站，一直没有问题。用这也算顺手，所以最近不准备换了。

    本站目录下的成语接龙最近流量恢复到了两三千IP左右，特别是二字开头的成语，三字开头的成语，四字开头的成语等文章给我带来了不菲的流量，为了再接再厉，准备在体验上再下些功夫。重新设计下成语接龙程序。本程序使用404.php，实现为静态。下载到本地调试，在IIS7中设置了404错误页竟然不行。

    查阅了很多资料，终于找到了解决办法，在web.config 找到httpErrors节点，修改为errorMode=”Custom”就可以了。

重启下IIS，现在就可以正常访问了。

最近公司想整理下业务，看看有什么漏掉的订单。万网，息壤的业务比较多。万网的可以导出csv，而息壤就悲剧了。好几百页，只能一条一条的复制，郁闷。受QQ云输入法的影响，将JS保存到收藏夹，点击链接执行JS，加载外部JS创建表单，通过DOM获取内容，提交到本地的数据库。剩下的就好处理了。

1、新建收藏夹项目，路径填写：

javascript:(function(){$tmp=document.createElement("script");$tmp.src='http://192.168.99.29/_app/xirang.js';document.getElementsByTagName("head")[0].appendChild($tmp);})();

2、本地架设好服务器，xirang.js内容如下：

(function(){
  $tmp=document.createElement("div");
  $tmp.innerHTML=' <form action="http://192.168.99.29/_app/xirang.asp" style="display:none" method="post" id="__tmp_form"><textarea name="txtdb"></textarea></form>';
  document.getElementsByTagName("body")[0].appendChild($tmp);}
)();
hostlist = (function(){
  _t=document.getElementsByTagName("table");
  for(i=0;i<_t.length;i++){
    if(_t[i].getAttribute("className") == "listtable"){
      return _t[i];
    }
  }
  return "";
})();
if(typeof(hostlist) == "object"){
  __tmp_frm = document.getElementById("__tmp_form");
  __tmp_frm.txtdb.value = hostlist.innerHTML;
  __tmp_frm.submit();
}else{
  if(confirm("没有找到数据，点确定返回第一页")){
    location.href = "http://www.xrnet.cn/store/member.php?module=mysite&start_item=0&search=&sort_order=expiry_date&sort_order_desc=1";
  };
};

3、现在点击收藏夹中的项目，主机列表的内容(HTML代码)就到了一个表单中，并提交到了：http://192.168.99.29/_app/xirang.asp。

4、建立一个xirang.asp，保存内容。

  set conn = server.createobject("ADODB.Connection")
  conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("xirang.mdb")
  set rs = server.createobject("ADODB.Recordset")

  frmstr = request.servervariables("HTTP_REFERER")
  if frmstr = "" then
    rs.open "select txt from txtdb",conn,1,1
    do while not rs.eof
      response.write rs(0)
      response.flush()
      rs.movenext
    loop
  else
    tmpstr = "<table width=""100%"" border=""1"">" & request.form("txtdb") & "</table>"
    stanum = split(mid(frmstr,instr(frmstr,"start_item")+11),"&")(0)
    if isnumeric(stanum) then stanum = cLng(stanum) else stanum = 0
    nxtnum = stanum + 20

    rs.open "select * from txtdb",conn,3,2
    rs.addnew
    rs("txt") = tmpstr
    rs("pag") = stanum
    rs.update
    rs.close
    set rs = nothing
    set conn = nothing

    response.redirect "http://www.xrnet.cn/store/member.php?module=mysite&start_item=" & nxtnum & "&search=&sort_order=expiry_date&sort_order_desc=1"
  end if

5、不停的点击收藏夹的，直到最后一页。

6、直接用浏览器打开，http://192.168.99.29/_app/xirang.asp，就导出了列表的数据。 另存为网页，改后缀名为.xls，用excel打开，另存为excel格式。用access/mssql导入，有脚本处理就可以了。这些不在本文的讨论范围，不提供代码。

这种方法，可以保存任何内容。本人现在对外接单，如果有网站程序开发/重构的需求，欢迎和我联系。QQ:77068320

09年的时候写过一个ASP输出分页页面的函数，分享两个ASP分页(页码)函数(http://www.miaoqiyuan.cn/p/asp-yema-fenye)。在开发中，省了不少力气，今天在些一个php的分页(页码)函数，供以后工作用。和ASP版本的参数，函数名都一样。

<?php
  /*
    #函数：csPage
    #功能：返回页面列表
  */
  Function csPage($iPage,$aPage,$urlStart,$urlEnd){
  	$tmp = "";
    if($iPage == 1 && $aPage == 1){
      $tmp = "<strong> 1/1 </strong>";
    }else{
      if($iPage == 1){
        $tmp = "<span> |< </span><span> << </span>";
      }else{
        $tmp = '<a title="首页" href="' . $UrlStart . 1 . $urlEnd . '"> |< </a><a title="上一页" href="' . $UrlStart . ($iPage-1) . $urlEnd . '"> << </a>';
      }
      $tmp .= "<strong> " . $iPage . "/" . $aPage . " </strong>";
      if($iPage == $aPage){
      	$tmp .= '<span> >> </span><span> >| </span>';
      }else{
        $tmp .= '<a title="下一页" href="' . $urlStart . ($iPage+1) . $urlEnd .' "> >> </a><a title="尾页" href="' . $urlStart . $aPage . $urlEnd . '"> >| </a>';
      }
    }
    return $tmp;
  }
  ?>