http://www.ialvin.cn/blog/不停揣测你心里，可有我姓名……zh-cnhttp://www.ialvin.cn/blog/images/logos.gifhttp://www.ialvin.cn/blog/不停揣测你心里，可有我姓名……http://www.ialvin.cn/blog/article.asp?id=17378423497@qq.com(林志斌)2010-05-20 17:01:24http://www.ialvin.cn/blog/article.asp?id=173往浏览器一贴, 居然还可以打开.

留言信息也还在

http://www.x-woods.com/service/book/x.swf?bookId=10578

^_^ 怀旧一下]]>http://www.ialvin.cn/blog/article.asp?id=17278423497@qq.com(林志斌)2010-03-19 14:03:33http://www.ialvin.cn/blog/article.asp?id=172但是 javascript 并不支持.

想到了一个不使用体积大大的对照表的法子.

在 Firefox, Chrome, Opera 最新版本下,均测试通过:

<meta http-equiv="Content-Type" content="text/html; charset=GBK" /> <script type="text/javascript"> function encodeURL(s) { var img = document.createElement("img"); function escapeDBC(s) { if (!s) return "" if (window.ActiveXObject) return s.replace(/[\d\D]/g, function($0) { window.vbsval = ""; execScript('window.vbsval=Hex(Asc("' + $0 + '"))', "vbscript") return "%" + window.vbsval.slice(0,2) + "%" + window.vbsval.slice(-2); }); img.src = "nothing.asp?key=" + s; return img.src.split("key=").pop(); } return s.replace(/([^\x00-\xff]+)|([\x00-\xff]+)/g, function($0, $1, $2) { return escapeDBC($1) + encodeURIComponent($2||''); }); } alert(encodeURL("中文")); </script>

至此, 在客户端使用 GB 集对文字进行 URI 的问题似乎就解决了.]]>http://www.ialvin.cn/blog/article.asp?id=17178423497@qq.com(林志斌)2009-11-04 12:57:54http://www.ialvin.cn/blog/article.asp?id=171VBScript 解析 JSON是个问题. 自己写解析程序,当然不容易.

碰到这问题, 第一个想到的就是 JScript 了.
<script language="jscript" runat="server"> Array.prototype.get = function(x) { return this[x]; }; function parseJSON(strJSON) { return eval("(" + strJSON + ")"); } </script> <% Dim json, obj json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}" Set obj = parseJSON(json) Response.Write obj.a & "<br />" Response.Write obj.b.name & "<br />" Response.Write obj.c.length & "<br />" Response.Write obj.c.get(0) & "<br />" Set obj = Nothing %>这是直接在 asp 里混用脚本.
还有一个方法就是 使用 MS 的 脚本控件.
也一样是使用了 JScript
Dim scriptCtrl Function parseJSON(str) If Not IsObject(scriptCtrl) Then Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl") scriptCtrl.Language = "JScript" scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;" End If scriptCtrl.ExecuteStatement "result = " & str & ";" Set parseJSON = scriptCtrl.CodeObject.result End Function Dim json json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}" Set obj = parseJSON(json) Response.Write obj.a & "<br />" Response.Write obj.b.name & "<br />" Response.Write obj.c.length & "<br />" Response.Write obj.c.get(0) & "<br />" Set obj = Nothing Set scriptCtrl = Nothing


--------------- 2009.12.31 ---------------

之前写这个时,还忽略了一个问题.

上面二个方法都使用了 jscript 把 json 串解析成 js 对象.

不同之处是, 第一个方法, eval 是在当前宿主环境中执行.
第二个方法是, 在另外的宿主环境中执行.

这涉及到了一个安全性问题. json 如果是从客户端提交上来的话, 难以保证没有恶意用户提交非法代码...
这样,第一个方法,就会在当前环境中 eval(...恶意代码...)　后果不堪设想!!!

第二个方法,创建了 ScriptControl 控件, 在里面执行代码则相对安全了, 因为是在一个隔离起来的环境中执行.
但还有两个东东要给先卡掉, 因为代码在 ScriptControl 中执行,也可以在里面使用 ActiveXObject 或 GetObject 与外界打交道..
仍然不安全.

这时候,就有必要再调整一下代码:
Dim scriptCtrl Function parseJSON(str) If Not IsObject(scriptCtrl) Then Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl") scriptCtrl.Language = "JScript" scriptCtrl.AddCode "function ActiveXObject() {}" ' 覆盖 ActiveXObject scriptCtrl.AddCode "function GetObject() {}" ' 覆盖 ActiveXObject scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;" End If On Error Resume Next scriptCtrl.ExecuteStatement "result = " & str & ";" Set parseJSON = scriptCtrl.CodeObject.result If Err Then Err.Clear Set parseJSON = Nothing End If End Function Dim json json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}" Set obj = parseJSON(json) Response.Write obj.a & "<br />" Response.Write obj.b.name & "<br />" Response.Write obj.c.length & "<br />" Response.Write obj.c.get(0) & "<br />" Set obj = Nothing If IsObject(scriptCtrl) Then Set scriptCtrl = Nothing ]]>http://www.ialvin.cn/blog/article.asp?id=17078423497@qq.com(林志斌)2009-10-22 02:14:30http://www.ialvin.cn/blog/article.asp?id=170
VBScript 版本Function DecodeBase64(str) With CreateObject("Microsoft.XMLDOM").createElement("TXT") .dataType = "bin.base64" .text = str DecodeBase64 = .nodeTypedValue End With End Function Function EncodeBase64(bytes) With CreateObject("Microsoft.XMLDOM").createElement("TXT") .dataType = "bin.base64" .nodeTypedValue = bytes EncodeBase64 = .text End With End Function

JScript 版本var Base64Encoder = { encode : function(str) { with (Server.CreateObject("Microsoft.XMLDOM").createElement("TXT")) { dataType = "bin.base64"; text = str; return nodeTypedValue; } }, decode : function(bts) { with (Server.CreateObject("Microsoft.XMLDOM").createElement("TXT")) { dataType = "bin.base64"; nodeTypedValue = bts; return text; } } }; ]]>http://www.ialvin.cn/blog/article.asp?id=16978423497@qq.com(林志斌)2009-07-31 23:14:17http://www.ialvin.cn/blog/article.asp?id=169
　　想着四年来一直朝夕相处的人儿就再也没有什么机会聚在一起了，这阵子总有那么些伤感。大大男生也像女生一样的多愁善感么？也许吧，我还是认为是四年来同窗已结下不解的情谊。我一直都这么觉得，我身边的人一个个都是这么的可爱。我不能肯定这种感觉以后是否会变的很淡，甚至完全失去。都说踏入社会后，人会变得不真。这时候，我想我得记下点什么了。

2009.07.23——小贝篇
2009.07.26——楷哥篇
2009.07.27——大祺篇
2009.08.01——阿福篇
2009.08.05——＋＋篇
2009.08.05——黑黑篇
2009.08.31——南哥篇

……]]>http://www.ialvin.cn/blog/article.asp?id=16878423497@qq.com(林志斌)2009-05-21 03:55:16http://www.ialvin.cn/blog/article.asp?id=168想了想，想不到别的好的方法　就用了摸拟手算的方法
public static void main(String[] args) { System.out.print("sqrt(1)=" + sqrt("1")); System.out.print("\tsqrt(25)=" + sqrt("25")); System.out.print("\tsqrt(26)=" + sqrt("26")); // sqrt(26)==5 呵呵,因为只有整数部分 System.out.print("\tsqrt(100)=" + sqrt("100")); System.out.println("\tsqrt(144)=" + sqrt("144")); // 生成一个 5000 位以内的数 StringBuffer sb = new StringBuffer(""); Random rand = new Random(); int length = rand.nextInt(5000)+1; for (int i=0; i<length; i++) sb.append(rand.nextInt(10)); String theNumber = sb.toString(); System.out.println("n:" + sb.toString()); System.out.println("位数:" + length); // 开方 long t = System.currentTimeMillis(); BigInteger result = sqrt(theNumber); t = System.currentTimeMillis()-t; System.out.println("sqrt(n)=" + result.toString()); System.out.println("用时:" + t + "毫秒"); } public static BigInteger sqrt(String theNumber) { int length = theNumber.length(), i; BigInteger res = BigInteger.ZERO; BigInteger twenty = BigInteger.valueOf(20); BigInteger t, x=BigInteger.ZERO, v, few=BigInteger.ZERO; BigInteger hg = BigInteger.valueOf(100); String tmpString = null; int pos = 2-length%2; tmpString = theNumber.substring(0, pos); while (true) { v = few.multiply(hg).add(BigInteger.valueOf(Integer.parseInt(tmpString))); if (res.compareTo(BigInteger.ZERO)==0) i=9; else i = v.divide(res.multiply(twenty)).intValue(); for (; i>=0; i--) { t = res.multiply(twenty).add(BigInteger.valueOf(i)).multiply(BigInteger.valueOf(i)); if (t.compareTo(v)<=0) { x = t; break; } } res = res.multiply(BigInteger.TEN).add(BigInteger.valueOf(i)); few = v.subtract(x); pos++; if (pos>length) break; tmpString = theNumber.substring(pos-1, ++pos); } return res; } ]]>http://www.ialvin.cn/blog/article.asp?id=16778423497@qq.com(林志斌)2009-05-03 22:29:23http://www.ialvin.cn/blog/article.asp?id=167传进的是一个字符串 (字串内容当然是表达式了)
最终要求出运算结果

之前在 JScript 或 VBScript 里通常是 eval 来解决
下面给个 Java 的

只能算 +-*/ 还有括号

/** * (#)Calculator.java　　　　创建时间：Apr 30, 2009 6:14:03 PM<br /> */ package cn.ialvin.util; import java.util.Stack; import java.util.regex.Pattern; /** * @author 林志斌(<b>ialvin.cn</b>) 广东 普宁 里湖 */ public class Calculator { public static void main(String[] args) { String exp = "-3.3 + 1.5 * (- 3 + -5)"; Calculator calculator = new Calculator(); System.out.println(calculator.cal(exp)); } public double cal(String exp) { exp = adj(exp); exp = conver(exp); Stack<Object> stack = new Stack<Object>(); String[] cs = exp.split("[^\\d.+\\-*/]+"); int i = 0; while (i < cs.length) { String c = cs<i>; i++; if ("+".equals(c)) { stack.push((Double)stack.pop() + (Double)stack.pop()); } else if ("-".equals(c)) { stack.push(0 - (Double)stack.pop() + (Double)stack.pop()); } else if ("*".equals(c)) { stack.push((Double)stack.pop() * (Double)stack.pop()); } else if ("/".equals(c)) { stack.push(1 / (Double)stack.pop() * (Double)stack.pop()); } else { stack.push(Double.parseDouble(c)); } } return Double.parseDouble(stack.pop().toString()); } private String adj(String exp) { exp = exp.replaceAll("[^\\d.+\\-*\\/()]+", ""); exp = exp.replaceAll("(^|[(+\\-*\\/])\\-([\\d.]+)", "$1(0-$2)"); return exp.replaceAll("[+\\-*\\/()]", " $0 ").trim(); } private String conver(String exp) { String[] str = exp.split("\\s+"); Stack<String> expStack = new Stack<String>(); for(int i = str.length - 1 ; i >= 0 ; i--) expStack.push(str<i>); Stack<String> outStack = new Stack<String>(); Stack<String> operStack = new Stack<String>(); operStack.push("#"); while (expStack.size()> 0) { String c = expStack.pop().toString(); if (c.matches("^\\d+(?:\\.\\d*)?$")) { outStack.push(c); } else if ("(".equals(c)) { operStack.push(c); } else if (")".equals(c)) { if (operStack.lastElement().equals("(")) { operStack.pop(); } else { expStack.push(c); outStack.push(operStack.pop()); } } else { if (comparison(c, operStack.lastElement())) outStack.push(operStack.pop()); operStack.push(c); } } operStack.remove(operStack.firstElement()); while(!operStack.empty()) outStack.push(operStack.pop()); return outStack.toString().replaceAll("\\[|\\]|\\,", ""); } private int getLevel(Object o) { if ("(".equals(o)) return 1; if ("+".equals(o)) return 2; if ("-".equals(o)) return 2; if ("*".equals(o)) return 3; if ("/".equals(o)) return 3; return -1; } private boolean comparison(String c1 ,Object c2) { return getLevel(c2)-getLevel(c1) >= 0; } }]]>http://www.ialvin.cn/blog/article.asp?id=16578423497@qq.com(林志斌)2009-01-05 17:39:48http://www.ialvin.cn/blog/article.asp?id=165http://topic.csdn.net/u/20090104/17/db61e39c-7aed-46e0-8a0f-b571497f087c.html
看了人家好多个漂亮的作品，自己也想练练。

胡乱写了一个简单点的，投上去。当是记录自己的学习历程。
“【编程游戏】贺岁放礼花。（点燃续帖2-8楼wcwtitxu的焰火）” 就是我投的。
运行起来，执行效率较低。还得多学学...
效果预览
代码如下:<html> <head><title>新年快樂 萬事如意</title> <style> body{ background:#000; padding:0; margin:0; overflow:hidden; } .ptr{ width:2px; height:2px; overflow:hidden; position: absolute; } </style> <script> function setColor(p) { p.r=Math.floor(p.r/2); p.g=Math.floor(p.g/2); p.b=Math.floor(p.b/2); if (p.r==0 && p.g==0 && p.b==0) return document.body.removeChild(p.ptr); p.ptr.style.background = "rgb("+p.r+","+p.g+","+p.b+")"; setTimeout(function(){setColor(p);}, 150); } function Point(x, y, r, g, b) { this.ptr = document.createElement("DIV"); this.ptr.className = "ptr"; document.body.appendChild(this.ptr); this.ptr.style.left = x + "px"; this.ptr.style.top = y + "px"; this.r = 2*r; this.g = 2*g; this.b = 2*b; var p = this; setTimeout(function(){setColor(p)}, Math.random()*200); } function Firework(mx, my) { this.mx = mx; this.my = my; this.cy=document.body.clientHeight||document.documentElement.clientHeight; } Firework.prototype.fire = function() { if (this.cy <= this.my) return this.expansion(); new Point(this.mx, this.cy, 0x40, 0x40, 0x40); this.cy -= 10; var self = this; setTimeout(function(){self.fire();}, 50); }; Firework.prototype.init = function() { this.fs = []; var r1 = Math.random()*256; var g1 = Math.random()*256; var b1 = Math.random()*256; for (var x=0; x<20; x++) { var o = {r:r1,g:g1,b:b1}; var d = Math.random() * 6.283; var d1 = Math.random(); o.vx = Math.sin(d) * d1 * 8; o.vy = Math.cos(d) * d1 * 8; o.l = Math.floor(Math.random() * 5) + 5; this.fs[x] = o; o.x = this.mx; o.y = this.my; } }; Firework.prototype.expansion = function() { if (!this.fs) this.init(); for (var x=0; x<20; x++) { var o = this.fs[x]; if (o===null) continue; if (o.l < 0) { this.fs[x] = null; continue; } o.vy += 0.03; o.x += o.vx; o.y += o.vy; o.l -= 1; new Point(o.x, o.y, o.r, o.g, o.b); } var me = this; setTimeout(function() { me.expansion(); }, 100); }; window.onload = function() { if (Math.random() < 0.3) { var h=document.body.clientHeight||document.documentElement.clientHeight; var w=document.body.clientWidth||document.documentElement.clientWidth; new Firework(0.2*w+0.6*w*Math.random(),h/2+30-h/2*Math.random()).fire(); } setTimeout(arguments.callee, 500); }; </script></head><body></body></html>]]>http://www.ialvin.cn/blog/article.asp?id=16478423497@qq.com(林志斌)2008-12-23 21:03:02http://www.ialvin.cn/blog/article.asp?id=164
老师扫视着同学：“这节课我们来讨论三个问题。”
他问道：“世界上第一高峰是哪座山？”
大家哄堂大笑地回答：“珠穆朗玛峰！”
老师接着追问：“第二高峰呢？”
这下同学们面面相觑，无人应声，
老师转过身，在黑板上写下一句话：屈居第二与默默无闻毫无区别。

老师顿了顿，说：“好了，下面我们来看第二问题。有个人烧壶开水，可是等他生好火才发现柴火可能不够，他该怎么办？”
同学们议论纷纷，但意见都趋同于赶快去找柴火，或说去借，或说去买。
可老师都不置可否，他说：“为什么不把茶壶里的水倒掉一些呢？”
同学们一听，一片佩服声。

接下来，老师又说出了第三个问题：“我国古代有一个人，想学好一门立身的本领。他曾经反复的比较，决心去学屠龙之技。于是，他拜名师，日夜苦练，终于有所成。大家说他会怎么样呢？”
同学们兴致勃勃，说他肯定能成为英雄、明星，受世人崇拜。有的还旁征博引。
老师越听越摇头，他：“这个人一定会穷苦潦倒一生，因为世上根本就没有龙。”

经过老师一节课的循循善诱，大家终于明白，原来这节课老师要告诉我们的是做人、做事、做学问的道理。
那就是做人要力求出色，勇争第一，这样别人才能发现你、记住你;
做事要敢于创新，方法灵活，千万不可墨守成规;
做学问要学以致用，能将知识转化效益，闭门造车是没有出路的。

的确，这节课，让我们所有的人受益终生。
]]>http://www.ialvin.cn/blog/article.asp?id=16278423497@qq.com(林志斌)2008-11-11 22:45:21http://www.ialvin.cn/blog/article.asp?id=162function getMapScale() { var y = Math.abs(miny + maxy) / 2;　// 取地图中心点纬度 var r = Math.cos(Math.PI * y / 180) * 6378137; // 求出纬圈半径 var W = Math.PI * r * (maxx - minx) / 180; // 由经线夹角算出图片水平方向实际距离 // imageWidth-图片宽度(像素) // 150-比例尺宽(像素) return Math.round(W * 150 / imageWidth); }这样得到的比例值实际上还是有点误差，但误差不大了。]]>http://www.ialvin.cn/blog/article.asp?id=16178423497@qq.com(林志斌)2008-11-08 02:58:21http://www.ialvin.cn/blog/article.asp?id=161一些功能模仿 PJBlog
玩玩还行，实际使用还是有缺陷。

JScript 写的 ASP, 页面是 XML+XSLT

不过因为是自己写的，不管多烂，自己也都会使用，呵呵

下载地址：http://www.blogjava.net/Files/alvin/ABlog.rar

如果发现安全漏洞什么的，希望能够反馈给我。]]>http://www.ialvin.cn/blog/article.asp?id=16078423497@qq.com(林志斌)2008-10-21 03:57:19http://www.ialvin.cn/blog/article.asp?id=160空间在 09-18 突然被莫名其妙的停掉，服务商给不出合理的解释，也一直没有恢复。
这段时间，是天天煎熬啊
拖到今天总算把主要的一些东西又给部署上去了。

高中的师姐说帮她写一套程序，来学校后就一直赶着写了个简单 XML+XSLT 的。自己也顺便把博客程序给换了，看不出来吧，还用 Jinn Lynn 的绿色皮肤，看起来就跟以前的一模一样。查看页面源文件就能发现不同了。
以前博客的信息也转了过来，不过会员信息就全都没了
程序是自己写的了，等完善一下，可能过段时间会把代码放出来，放出来才容易发现问题，有助于学习 ^_^]]>http://www.ialvin.cn/blog/article.asp?id=15778423497@qq.com(林志斌)2008-09-05 15:51:10http://www.ialvin.cn/blog/article.asp?id=157　　我的城院生活，怎么表达呢，借用一下 JavaScript 吧：
window.alert(/^[^喜乐]+$/.test(我的城院生活));
　　唉，是 "true"。]]>http://www.ialvin.cn/blog/article.asp?id=15678423497@qq.com(林志斌)2008-07-31 20:23:20http://www.ialvin.cn/blog/article.asp?id=156见:http://topic.csdn.net/u/20080729/18/b257b0ce-d947-495d-a722-00b8b6a577dc.html

使用的是网上流行的　UTF2GB(UTFStr) 函数。
代码甚是复杂，但其实目的是为了实现 JScript 里 decodeURIComponent 功能。
我很是郁闷，既然 JScript 有 decodeURIComponent，而且 ASP 又可以使用 JScript 为什么现成的内置函数不用呢？如：
<script language="JScript" runat="Server"> function decodeURL(s) { return decodeURIComponent(s) } </script> <% Response.Write decodeURL("%E6%8A%9A%E9%A1%BA%E9%9D%92%E6%9D%BE%E8%8D%AF%E4%B8%9A") %>

可能有些朋友就特不喜欢 JScript, 那么利用一下 ADODB.Stream 转码也方便的多
Function UTF2GB(s) Dim sm Set sm = Server.CreateObject("ADODB.Stream") With sm .Type = 2 .Mode = 3 .Open .CharSet = "iso-8859-1" .WriteText UnEscape(s) ' 使用 unescape 解码成 iso-8859-1 串后 利用 ADODB.Stream 转换编码 .Position = 0 .CharSet = "UTF-8" UTF2GB = .ReadText(-1) .Close End With Set sm = Nothing End Function Response.Write UTF2GB("%E6%8A%9A%E9%A1%BA%E9%9D%92%E6%9D%BE%E8%8D%AF%E4%B8%9A")
^_^ 上面说了这么多，都跟主题没什么关系

在原来贴子中，提问的网友最后提到了一个很好的问题。
就是像:
"抚顺青松药业"
GBK 的 URI 编码是 "%B8%A7%CB%B3%C7%E0%CB%C9%D2%A9%D2%B5"
UTF-8 的 URI 编码是 "%E6%8A%9A%E9%A1%BA%E9%9D%92%E6%9D%BE%E8%8D%AF%E4%B8%9A"

在未知何种编码格式的情况下，如何能自动识别其编码，正确解出 "抚顺青松药业" (Google 就能做到)

这个问题之前自己也有被难住过，那时候是做页面统计时，为了分析用户从搜索引擎进入时，用户搜的是什么关键字，这就需要从来路页面的地址中分析出关键字，而 提交给 Google 的搜索关键字有时是 GBK 的 URI 编码，有时是 UTF-8 的 URI 编码。这就要求我们也必须能像 Google 一样能识别出 URI 串是用了什么编码。

在搜索了 UTF-8 的编码规则后，终于写出了下面的代码
Function DecodeURI(ByVal s) s = UnEscape(s) Dim reg, cs cs = "GBK" Set reg = New RegExp reg.Pattern = "^(?:[\x00-\x7f]|[\xfc-\xff][\x80-\xbf]{5}|[\xf8-\xfb][\x80-\xbf]{4}|[\xf0-\xf7][\x80-\xbf]{3}|[\xe0-\xef][\x80-\xbf]{2}|[\xc0-\xdf][\x80-\xbf])+$" If reg.Test(s) Then cs = "UTF-8" Set reg = Nothing Dim sm Set sm = CreateObject("ADODB.Stream") With sm .Type = 2 .Mode = 3 .Open .CharSet = "iso-8859-1" .WriteText s .Position = 0 .CharSet = cs DecodeURI = .ReadText(-1) .Close End With Set sm = Nothing End Function Response.Write DecodeURI("%B8%A7%CB%B3%C7%E0%CB%C9%D2%A9%D2%B5") Response.Write DecodeURI("%E6%8A%9A%E9%A1%BA%E9%9D%92%E6%9D%BE%E8%8D%AF%E4%B8%9A")
偶尔也会有 GBK 编码串被误认为 UTF-8 的，不过，误认的问题并不好解决，Google 都也会出这样的问题。
把代码记下来，备以后用 ]]>http://www.ialvin.cn/blog/article.asp?id=15578423497@qq.com(林志斌)2008-07-12 03:39:25http://www.ialvin.cn/blog/article.asp?id=155其实,不回家也很可能不更新..^_^

学校真郁闷, 暑假不给学生留宿.汗 ]]>http://www.ialvin.cn/blog/article.asp?id=15478423497@qq.com(林志斌)2008-07-05 13:30:00http://www.ialvin.cn/blog/article.asp?id=154在 ASP 中要也有这么个东东就好了。ASP 一般都通过 ADODB 组件访问数据库的，其实 ADODB.Command 就有 Prepared 的功能。早上没事干就封装了一下，做成 WSC 脚本组件的形式。以方便以后的使用。
下面是 Connection.WSC 的代码：（代码以文本形式保存为 Connection.WSC 就可以了）
<?xml version="1.0" encoding="UTF-8"?> <?component error="0" debug="0" ?> <component> <comment>Alvin(ialvin.cn)</comment> <registration description="Connection" progid="ALIB.Connection" version="1.00" remotable="true" classid="{46dac711-0b77-43b2-b195-1ee912dcb322}"></registration> <public> <property name="Count"><get/></property> <property name="ActiveConnection"><get/></property> <property name="ConnectionString"><get/><put/></property> <method name="Prepare"><PARAMETER name="sql"/></method> <method name="ResetParam"></method> <method name="Open"></method> <method name="Execute"></method> <method name="QueryS"></method> <method name="Query"><PARAMETER name="cursorType"/><PARAMETER name="lockType"/></method> <method name="OpenRS"><PARAMETER name="rs"/><PARAMETER name="cursorType"/><PARAMETER name="lockType"/></method> <method name="EncodeLike"><PARAMETER name="str"/></method> <method name="SetNull"></method> <method name="SetInt"><PARAMETER name="num"/></method> <method name="SetFloat"><PARAMETER name="num"/></method> <method name="SetString"><PARAMETER name="str"/></method> <method name="SetBinary"><PARAMETER name="bits"/></method> <method name="SetBoolean"><PARAMETER name="bln"/></method> <method name="SetDateTime"><PARAMETER name="dt"/></method> </public> <object progid="ADODB.Command" id='oCMD'/> <object progid="ADODB.RecordSet" id='oRS'/> <implements type="ASP" id="ASP"/> <script language="VBScript"><![CDATA[ Dim coxn: Set coxn = New Connection Class Connection Private conn, coxnStr, cnt, opened Public Property Get ActiveConnection() Set ActiveConnection = conn End Property Public Property Get Count() Count = cnt End Property Public Property Get ConnectionString() ConnectionString = coxnStr End Property Public Property Let ConnectionString(ByVal newValue) coxnStr = newValue End Property Private Sub Class_Initialize() cnt = 0 opened = False End Sub Public Sub OpenConnection() Set conn = CreateObject("ADODB.Connection") conn.Open coxnStr oCMD.Prepared = True oCMD.CommandType = 1 Set oCMD.ActiveConnection = conn opened = True End Sub Public Sub Prepare(ByVal sql) If Not opened Then Call OpenConnection() Call ResetParam() oCMD.CommandText = sql End Sub Public Sub AppendParameter(ByVal value, ByVal dataType) Dim param: Set param = oCMD.CreateParameter() param.Type = dataType param.Value = value param.Direction = 1 Call oCMD.Parameters.Append(param) End Sub Public Function Execute() Set Execute = oCMD.Execute() cnt = cnt + 1 End Function Public Sub OpenRS(ByRef rs, ByVal cursorType, ByVal lockType) rs.CursorType = cursorType rs.LockType = lockType Call rs.Open(oCMD) cnt = cnt + 1 End Sub Public Sub ResetParam() While oCMD.Parameters.Count > 0 oCMD.Parameters.Delete 0 Wend End Sub Private Sub Class_Terminate() If IsObject(conn) Then If conn.State=1 Then Call conn.Close() Set conn = Nothing End If End Sub End Class Function get_ConnectionString() get_ConnectionString = coxn.ConnectionString End Function Function put_ConnectionString(newValue) coxn.ConnectionString = newValue End Function Function get_ActiveConnection() Set get_ConnectionString = coxn.ActiveConnection End Function Function get_Count() get_Count = coxn.Count End Function Function Prepare(ByVal sql) Call coxn.Prepare(sql) End Function Function SetInt(ByVal num) Call coxn.AppendParameter(num, 3) End Function Function SetFloat(ByVal num) Call coxn.AppendParameter(num, 4) End Function Function SetString(ByVal str) Call coxn.AppendParameter(str, 8) End Function Function SetDateTime(ByVal dt) Call coxn.AppendParameter(dt, 135) End Function Function SetBoolean(ByVal bln) Call coxn.AppendParameter(bln, 11) End Function Function SetBinary(ByRef bits) Dim param Set param = oCMD.CreateParameter("", 205, &H001, -1) Call param.AppendChunk(bits) Call oCmd.Parameters.Append(param) Set param = Nothing End Function Function SetNull() Call oCMD.Parameters.Append(oCMD.CreateParameter("", 200, &H0001, 1, Null)) End Function Function Open() Call coxn.OpenConnection() End Function Function Execute() Set Execute = coxn.Execute() End Function Function OpenRS(ByRef rs, ByVal cursorType, ByVal lockType) Call coxn.OpenRS(rs, cursorType, lockType) End Function Function Query(ByVal cursorType, ByVal lockType) Set Query = CreateObject("ADODB.RecordSet") Call OpenRS(Query, cursorType, lockType) End Function Function QueryS() QueryS = Null Call OpenRS(oRS, 0, 1) If oRS.State <> 1 Then Exit Function If Not oRS.EOF Then QueryS = oRS.Fields.Item(0).Value Call oRS.Close() End Function Function ResetParam() Call coxn.ResetParam() End Function Function EncodeLike(ByVal str) Dim regex: Set regex = New RegExp regex.Pattern = "[\]\[`\-=\\;',./~!@#$%^&*()_+|{}:""<>?]" regex.Global = True EncodeLike = regex.Replace(str, "[$+]") Set regex = Nothing End Function ]]></script> </component>
这是一个脚本，但它却是一个不折不扣的 ActiveX 组件了。
保存成 Connection.WSC 后，右键菜单可以选择注册和注销。

使用方法：
<% Dim coxn, rs, connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb") ' 创建对象 (无注册组件) --------------------- Set coxn = GetObject("script:" & Server.MapPath("Connection.WSC")) coxn.ConnectionString = connStr ' ... Set coxn = Nothing ' 或者 (需要注册组件) ---------------------- Set coxn = Server.CreateObject("ALIB.Connection") ' coxn.ConnectionString = connStr '... Set coxn = Nothing %>
' 执行无返回结果的 SQL Call coxn.Prepare("Insert INTO [test] VALUES(?, ?, ?, ?, ?, ?, ?)") Call coxn.SetInt(1) Call coxn.SetFloat(106.56) Call coxn.SetString("测试") Call coxn.SetDateTime(Now()) Call coxn.SetNull() Call coxn.SetBoolean(True) Call coxn.SetBinary(bits) ' 二进制数据 [byte() 数组] Call coxn.Execute()
'查询返回唯一值的 SQL coxn.Prepare "SELECT Count(*) FROM [test] WHERE [id]>? AND [title]=?" coxn.SetInt 10 coxn.SetString "测试" result = coxn.QueryS() ' 直接返回结果,而不是 RecordSet Response.Write result
' 普通查询 coxn.Prepare "SELECT * FROM [test] WHERE [id]>? AND [title]=?" coxn.SetInt 10 coxn.SetString "测试" Set rs = coxn.Execute() .... rs.Close Set rs = Nothing
' 返回指定了 CursorType、LockType 的 RecordSet coxn.Prepare "SELECT * FROM [test] WHERE [id]>? AND [title]=?" coxn.SetInt 10 coxn.SetString "测试" Set rs = coxn.Query(1, 1) ' coxn.Execute() 相当于 coxn.Query(0, 1) .... rs.Close Set rs = Nothing
' 打开现有的 RecordSet ' 先建立了 RecordSet Set rs = Server.CreateObject("ADODB.RecordSet") coxn.Prepare "SELECT * FROM [test] WHERE [id]>? AND [title]=?" coxn.SetInt 10 coxn.SetString "测试" Call coxn.OpenRS(rs, 1, 1) ' 打开 rs ' 操作 rs ' ... Call rs.Close() '关闭 rs Call coxn.Prepare("SELECT * FROM [test] WHERE 1=2") Call coxn.OpenRS(rs, 1, 3) '再次打开 rs Call rs.AddNew() rs("title") = "测试2" Call rs.Update() Call rs.Close() ' 关闭 rs Set rs = Nothing
大家如果发现有问题漏洞什么的欢迎留言告知，大家也可以自行完善一下。]]>http://www.ialvin.cn/blog/article.asp?id=15378423497@qq.com(林志斌)2008-06-22 03:31:16http://www.ialvin.cn/blog/article.asp?id=153功能较简单的那种, 界面上模仿了 Discuz
JSP 本来就学的不行, 只是尽量实现了 MVC

源码下载:http://www.blogjava.net/Files/alvin/bbs.rar


后来里面发现有逻辑上的错误,没有改过来]]>http://www.ialvin.cn/blog/article.asp?id=15278423497@qq.com(林志斌)2008-06-14 13:51:51http://www.ialvin.cn/blog/article.asp?id=152都可以对字串进行编码,它们之间的异同,在此就不说了.

本文是为了解决在 JavaScript 对文本进行本地编码格式的 URI 编码问题。
JS 本身使用的字符编码是 Unicode
escape 函数也是 Unicode 的
encodeURI 和 encodeURIComponent 则都是 UTF-8 的。

但我们有时则需要按本地编码格式对字符串进行 URI 编码。如：GB2312 的

如果是在 IE 可以借助 VBScript 的 Asc 函数。但是在非 IE 浏览器就不好办了。到底要怎么样才能够进行 GBK 的 URLEncode 呢？
之前看到一个方法就是在 JS 中加入一个 Unicode->GB2312 的映射表，也是一个办法，但是觉得加了几十Ｋ的东东，字符还不知道是不是很完整。

今天突然想到了用 Flash, 在 Flash 可以在 ActionScript 中通过 System.useCodepage = true 设置使用本地编码。然后利用 ExternalInterface 给 JS 曝个接口。JavaScript 调用 Flash 的函数来实现。

思路觉得还不错，于是就测试了一下。

在 Flash8 中新建个空白文档。在主场景里加了下面动作代码：
import flash.external.ExternalInterface; System.useCodepage = true; stop(); function encodeURL(str:String) { return (escape(str)); // ActionScript 的 escape 跟 JavaScript 的 escape 是不一样的. } ExternalInterface.addCallback("encodeURL", this, encodeURL);
然后建个 htm 测试下
<script type="text/javascript">//<![CDATA[ function thisMovie(movieName) { if (navigator.appName.indexOf("Microsoft") != -1) { return window[movieName]; } else { return document[movieName]; } } function mDo() { alert(thisMovie("encURI").encodeURL("中国人")); } //]]></script> <object id="encURI" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="0" height="0"> <param name="allowScriptAccess" value="sameDomain" /> <param name="movie" value="encodeURL.swf" /> <embed name="encURI" src="encodeURL.swf" width="0" height="0" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /> </object> <input type="button" onclick="javascript:mDo()" value=" test ">

测试页面: http://www.ialvin.cn/util/py.htm
果然成功了！
觉得自己这个主意还是不错的。嘿嘿！]]>http://www.ialvin.cn/blog/article.asp?id=15178423497@qq.com(林志斌)2008-05-24 02:02:45http://www.ialvin.cn/blog/article.asp?id=151就在网上搜了些资源拼凑下搞了个。组几个同学以团队作品交上去.

ASP+Access，服务器脚本：JScript。
前台ASP输出的是XML由浏览器下载XSLT格式成XHTML。


源码：http://www.blogjava.net/Files/alvin/js.rar]]>http://www.ialvin.cn/blog/article.asp?id=15078423497@qq.com(林志斌)2008-04-05 03:12:37http://www.ialvin.cn/blog/article.asp?id=150下面是利用此类做的一个月历例子.

源文件:点击下载]]>