asp代码集合
关注
分享
扫一扫
文章平均质量分 54
超级大笨狼
猿类
展开
-
不用ADOX也可以判断access表是否存在
哈哈，不用ADOX也可以！！ Dim cn ,strCnn,rstSchemaset cn = server.createobject("ADODB.Connection") set strCnn = server.createobject("ADODB.Recordset")set rstSchema = server.createobject("ADODB.Recordset原创 2004-09-14 10:10:00 · 2597 阅读 · 8 评论 -
简单加密解密原形
加密：适用于任何字符，包括空格和url冲突的"&""?""%"汉字等符号简单加密，可以改造成移位加密，比如每个字符asc码值增加或减少一个数字可以改造成移位随机加密。比如每个字符前有一个随机数字，表示该字符asc码值增加或减少这个随机数字function encode(x) for i=1 to len(x) TempNum=hex(asc(mid(x,i,1))) if len原创 2004-09-14 13:17:00 · 1775 阅读 · 3 评论 -
xmlhttp异步传输
function getData(){ var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); // 异步调用 xmlhttp.onreadystatechange = function() { if (xmlhttp.readyState == 4) // 调用完毕 { if (xmlhttp.status == 200) //原创 2004-10-03 15:29:00 · 1845 阅读 · 0 评论 -
正则表达式
正则表达式 set re = new RegExp re.Pattern = "[-:/s]" re.Global = true msgbox re.Replace(now(), "") set re =nothing Function IsVerify(patrn,strng) strng=Trim(strng) Select Case patrn Case "User" 用户原创 2004-10-03 15:30:00 · 2328 阅读 · 2 评论 -
日期连动
年 月 日初始年 MyAdd "f.s1",1970,2050初始月 MyAdd "f.s2",1,12初始日 MyAdd "f.s3",1,31sub MyAdd(S,x,y)增加 set obj=eval(S) for i=x to y set o=document.createElement("OPTION") o.text=i o.value=i obj.add o n原创 2004-10-03 15:31:00 · 1361 阅读 · 0 评论 -
繁体解决方案一，ASP,JSP,PHP,DotNet任何开发通用。
用法：在后台控制这行输出否，就可以把简体变成繁体。convert.js文件：//原创：neweroica/elove 2003-1-6 优化：CSDN-Superdullwolfvar convertTag=true;var GB2312Str=皑蔼碍爱翱袄奥坝罢摆败颁办绊帮绑镑谤剥饱宝报鲍辈贝钡狈备惫绷笔毕毙币闭边编贬变辩辫标鳖别瘪濒滨宾摈饼并拨钵铂驳卜补财参蚕残惭惨灿苍舱仓沧厕侧原创 2006-12-15 08:02:00 · 6376 阅读 · 4 评论 -
Google搜索字符的分析UTF-8
mystr="http://www.google.com/search?hl=zh-CN&ie=UTF-8&q=Visual+Basic+6.0%E4%B8%AD%E6%96%87%E7%89%88%E5%AE%9E%E7%94%A8%E5%8F%82%E8%80%83%E6%89%8B%E5%86%8C&btnG=%E6%90%9C%E7%B4%A2&lr=lang_zh-CN" funct原创 2006-12-14 22:04:00 · 2778 阅读 · 1 评论 -
我做的通用象棋连线器,可以连接到游戏大厅
我做的象棋连线器可以连接到游戏大厅[通用]使用的是象眼UCCI引擎panyuguang962@hotmail.com测试阶段象棋 连线器 外挂 作弊 游戏大厅 下载地址: http://download.csdn.net/source/661453原创 2008-10-02 10:49:00 · 4021 阅读 · 2 评论