2013年4月21日

数组去重复[vbs]

摘要： Function quchongfu(srcstr,ig,sp)Dim objDict,x,ysrcarr=split(Trim(srcstr),sp)Set objDict=createobject("Scripting.Dictionary")For Each x In srcArrIf x<>"" Then If ig=True Then y=LCase(x)Elsey=xEnd IfIf Not objDict.Exists(y) Then objDict.Add x,yEnd If Nextx=Join(objDict.Items, 阅读全文

posted @ 2013-04-21 19:07 巍 巍 阅读(430) 评论(0) 推荐(0) 编辑

asp+MsSQL2000模拟Html静态文件缓存

摘要： 这是 JavaScript 写的asp, 看不懂的完了.其实我根本不想发出来的,因为夸我的人太少了.如果你以后还想来点经典的怪异思维代码,来,夸我两句.此代码目的:不用asp创建Html文件的缓存机智来节约服务器消耗,直接使用asp来模拟Html的缓存机智,让代码更简单.好处:1.比单纯的asp文件优秀得多,开启了缓存机智,不需要任何次都查询多次数据库.2.而且更改代码更容易,Html静态改次动态代码就得重新生存所有文件.坏处:1.相对比Html静态文件来说,他多了模拟缓存的步骤但是Html静态实际也是由IIS去执行缓存判断,但是ASP执行效率太慢,所以这变成了坏处.如果ASPX的话,这点可以 阅读全文

posted @ 2013-04-21 19:05 巍 巍 阅读(227) 评论(0) 推荐(0) 编辑

2013年4月20日

漂亮的登陆框

摘要： 阅读全文

posted @ 2013-04-20 20:29 巍 巍 阅读(106) 评论(0) 推荐(0) 编辑

asp 根据ip跳转

摘要： <%IPsum=0iparr=Split(getIP(),".")For i= 0 To 2 IP1=cint(iparr(i))*(256^(2-i))IPsum=IP1+IPsumNextsqlsqlsql="select top 1 ip1 form A where ip1<="&IPsum&" and ip2>="&IPsum&" "set rsrsrsrs=server.createobject("ADODB.recordset")se 阅读全文

posted @ 2013-04-20 20:23 巍 巍 阅读(212) 评论(0) 推荐(0) 编辑

导航