自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 一个ajax调用

 function CreateHTTPObject()...{var xmlhttp;try...{xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");}catch (e)...{try...{xmlhttp = new ActiveX...

2008-01-18 20:06:00

阅读数 210

评论数 0

原创 公交数据获取程序更新

网站更新了,采用了ajax,嘿嘿,这下数据更好获取了,速度也加快不少.写来写去还是那几个函数~只是方法有点变化而已,没意思啊~ urlx=InputBox( "输入需要生成的地名:"&vbcrlf&"地址只能为拼音,并且8684.cn上有"&...

2008-01-18 11:14:00

阅读数 441

评论数 2

原创 公交路线获取程序 vbs版

urlx=InputBox( "输入需要生成的地名:"&vbcrlf&"地址只能为拼音,并且8684.cn上有"&vbcrlf&"Ex:chengdu", "线路地址输入", "...

2007-11-16 11:09:00

阅读数 294

评论数 0

原创 几个小东西,也许做用户注册的时候能用上

 1用户名input name="usname" type="text" onkeyup="value=value.replace(/[W]/g,) " size="20" maxlength="20&quo...

2007-11-02 13:36:00

阅读数 378

评论数 0

原创 推荐一个网盘,800m,支持200m附件,全免费.还不错

我在使用800disk,很好用,相信对你有点帮助,试试吧:)http://tel1.800disk.net/?j=cattle13800m,支持200m附件,全免费.还不错,我使用的电信,速度不错,adsl能全速上下传,美中不足就是每天有流量限制,不过免费的,限制也没什么吧~~够用就好

2007-11-02 13:24:00

阅读数 251

评论数 0

原创 公交站点系统,8684.cn的数据,更新较快,能直接运用于pybus等手机公交查询软件的数据库转换

Function getCategories(url)on error resume nextDim oXMLHTTPDim oCategoriesDim BodyTextDim Pos,Pos1Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP...

2007-10-17 09:19:00

阅读数 904

评论数 0

原创 新闻小偷生成txt。写给编辑用的……

%function RegExpTest(str,pat,x)    Dim r, Match, Matches    Set r = New RegExp    r.Pattern = pat    r.IgnoreCase = false    r.Global = True    Set M...

2007-10-10 15:49:00

阅读数 187

评论数 0

原创 成都公交站点列表系统

%Function getCategories(url)on error resume nextDim oXMLHTTPDim oCategoriesDim BodyTextDim Pos,Pos1Set oXMLHTTP = CreateObject("Microsoft.XMLHTT...

2007-10-10 15:47:00

阅读数 241

评论数 0

原创 一个未完善的分页存储过程

 PROCEDURE usp_PagingLarge    @tblName      varchar(255),       -- 表名     @fldName      varchar(255),       -- 字段名     @PageSize     int = 10,       ...

2007-09-29 11:48:00

阅读数 204

评论数 0

原创 判断来访链接

comeurl=request.servervariables("HTTP_REFERER")if comeurl  scomeurl=split(comeurl,".")  if scomeurl(1)    response.write "本页...

2007-09-29 11:37:00

阅读数 207

评论数 0

原创 javascript读取cookies函数实例

 function getCookieVal (offset)  {  var endstr = document.cookie.indexOf (";", offset);  if (endstr == -1)    endstr = document.cookie.leng...

2007-09-29 11:33:00

阅读数 241

评论数 0

原创 fso常用函数收集

function makepathmakepath=year(date()) & "-" & month(date()) & "-" & day(date()) & "/"end functionf...

2007-09-29 11:31:00

阅读数 166

评论数 0

原创 ie右键菜单

       var intDelay=1; //设置菜单显示速度,越大越慢   var intInterval=20; //每次更改的透明度   var linkurl=0  function showmenuie5(m){  linkurl=(m)  var rightedge=documen...

2007-09-27 14:47:00

阅读数 241

评论数 0

原创 看不惯满天飞的二级关联下拉菜单,就不能换个形式?

看不惯满天飞的二级关联下拉菜单,就不能换个形式?用层操作不是更简单明了,很容易扩展成三级关联。数据表 id place cid.show { position:absolute; left:0px; top:0px; width:150px; z-index:1; background:#ddd;...

2007-09-27 14:33:00

阅读数 315

评论数 0

原创 几个常用的正则函数

 function RegExpTest(str,pat,x) Dim r,name Set r = New RegExp r.Pattern = pat r.IgnoreCase = false r.Global = true x="$" & x name=r.rep...

2007-09-27 14:13:00

阅读数 185

评论数 0

提示
确定要删除当前文章?
取消 删除