博文
保存一个指定url的文件到本机上(2007-01-09 12:22:00)
摘要：<%'================================================'作 用：保存远程的文件到本地'参 数：LocalFileName ------ 本地文件名' RemoteFileUrl ------ 远程文件URL'返回值：True ----成功' False ----失败'================================================Sub SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData On Error Resume Next Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", s_RemoteFileUrl, False, "", "" .Send GetRemoteData = .ResponseBody End With Set Retrieval = Nothing Set Ads = Server.CreateObject("Adodb.Stream") With Ads .Type = 1 .Open .Write GetRemoteData .SaveToFile Server.MapPath(s_LocalFileName), 2 .Cancel() .Close() End With Set Ads=nothingEnd Sub%>
<%path="./pic/1.gif"Call SaveRemoteFile(path,"http://image2.sina.com.cn/ent/v/m/2006-0......
asp实现繁简转换(2006-12-20 23:21:00)
摘要：国际化似乎是一个非常流行的口号了，一个网站没有英文版至少也要弄个繁体版，毕竟都是汉字，翻译起来不会那么麻烦:P
一般的繁简转换是使用字典，通过GB的内码算出BIG5字符在字典中的位置，读取显示之，用fso应该可以实现。这里介绍的方法思路更简单一些，用Dictionary对象，就是字典，呵呵，dicGb2Big5(gb)就是对应的BIG5。比起计算内码再按照位置读取字符简单的多吧:)
为了减少开销，把字典放在Application中，即在global.asa中建立两个application的字典对象
<OBJECT id=objGb2Big5 progid="s cripting.Dictionrary" runat="server" scope="application"></OBJECT><OBJECT id=objBig52Gb progid="s cripting.Dictionrary" runat="server" scope="application"></OBJECT>
在application_onstart中给字典添加项目
……objGb2Big5.Add "啊", "摆" objGb2Big5.Add "阿", "" objGb2Big5.Add "埃", "甁" ……
……objBig52Gb.Add "摆", "啊" objBig52Gb.Add "", "阿" objBig52Gb.Add "甁", "埃" ……
字典项很多，就不都写了
做好了字典，使用的时候只要查一下就行了:)
function gb2big5(str) dim i, l, k, t, rtn l = len(str) rtn="" for i=1 to l k = mid(str, i, 1) if ascw(k)>=0 and ascw(k)<128 then t = k else if objGb2Big5.Exists(k) then t = objGb2Big5.Ite......
复制文件夹中内容的asp代码(2006-11-22 14:11:00)
摘要：<%domain="123"Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")str123=server.mappath("./aaa")s1=server.mappath("./")Set MyFolder=MyFileObject.GetFolder(str123)For Each thing in MyFolder.Files'复制里面的文件s=Split(thing,"\")a=UBound(s)s3=Split(thing,"\")(a)MyFileObject.CopyFile thing,s1&"\"&domain&"\"&s3NextFor Each thing in MyFolder.SubFolders'复制子文件夹s=Split(thing,"\")a=UBound(s)s3=Split(thing,"\")(a)response.write thing&"<br>"response.write s1&"\"&domain&"\"&s3response.write "<br>"MyFileObject.copyFolder thing,s1&"\"&domain&"\"&s3Next%>
注：aaa为文件夹名,domain为新文件夹名......
asp中去掉html代码(2006-11-01 16:16:00)
摘要：有一段代码如：<a href="/Shop_Cart.asp">购物车</a><img src="/images/Spacer.gif" width="43" height="5"> <a href="/Shop_Banking.asp">收银台</a><img src="/images/Spacer.gif" width="46" height="5"> <a href="/help.asp">服务台</a><img src="/images/Spacer.gif" width="39" height="5"> <a href="/Vip_home.asp">会员中心</a><img src="/images/Spacer.gif" width="2" height="5" border="0"> 怎样才能在asp中把其中的HTML标记去掉？只保留其中的文字（购物车,收银台等）？-------------------------------------------------------------------------......
图片验证码(2006-10-27 15:23:00)
摘要：<%Option ExplicitResponse.Expires = 0Response.AddHeader "Pragma","no-cache"Response.AddHeader "cache-ctrol","no-cache"Response.ContentType = "Image/BMP"Randomize Timer
Dim Text_Data(9),Text_Len,Int_Temp(),I,j,k,Int_Temp2
''***** 参数配置区 *****
Text_Len = 4 ''验证码长度(支持1-25位)
''**********************
ReDim Int_Temp( Text_Len - 1 )
Text_Data(0) = "00000000000001111000001100110000110111000011011100001100110000111011000011101100001100110000011110000000000000"Text_Data(1) = "00000000000000011000000011100000111110000000011000000001100000000110000000011000000001100000000110000000000000"Text_Data(2) = "00000000000001111000001100110000110011000000001100000001100000001100000001100000001100000000111111000000000000"Text_Data(3) = "00000000000001111000001100110000110011000000001100000011100000000011000011001100001100110000011110000000000000"Text_Data(4) = "00000000000001100000000110000000011011000001101100000110110000110011000011111110000000110000000011000000000000......
asp+access四级联动(2006-10-26 13:55:00)
摘要：<form name="frm"><select name=school onchange="MulSelect(1)"></select><select name=department onkeypress=sortMe(this) onchange="MulSelect(2)"></select><select name=grade onchange="MulSelect(3)"></select><select name=student></select><p> </p></form>
<script>// 四级联动var arrSel=["school","department","grade","student"]arrData=[];
// 从数据库中读出四级联动的数据, 保存到 arrData 数组中(二维数组)<%dim conn,rsset conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("test.mdb") & ";Persist Security Info=False"set rs=conn.execute("select * from dbselect")do while not rs.eof%>
arrData[arrData.length]=["<%=trim(rs("school"))%>","<%=trim(rs("department"))%>","<%=trim(rs("grade"))%>","<%=trim(rs("student"))%>"]
<%rs.movenextlooprs.close:set rs=nothingconn.close:set conn=nothing%></script>
<script>// 下拉框选择变化时触发的函数，用于重新生成......
用asp代码生成access数据库(2006-10-26 08:41:00)
摘要：<%DBName = "c:\AccessDB.mdb"if Request.Form("SubmitCreate")<>"" then'创建数据库Set mycat = Server.CreateObject( "ADOX.Catalog" )mycat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBNameif err.number=0 thenResponse.Write("<script>alert('数据库创建成功')</script>")end ifend if%><%if Request.Form("SubmitCreateTable")<>"" then'创建数据表Set conn = Server.CreateObject( "ADODB.Connection" )conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBNameSql="CREATE TABLE TestTable("&_ "id int IDENTITY (1, 1) NOT NULL ,"&_ "name varchar(255) NOT NULL ,"&_ "pass varchar(255) NULL ,"&_ "logintimes int Default 0 NOT NULL ,"&_ "createtime datetime Default ......
纯编码实现数据库的建立或压缩！！(2006-10-24 19:01:00)
摘要：
纯编码实现数据库的建立或压缩！！
作者： 萧寒 2001-06-29 14:27
<% '#######以下是一个类文件，下面的注解是调用类的方法################################################ '# 注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用 '# Access 数据库类 '# CreateDbFile 建立一个Access 数据库文件 '# CompactDatabase 压缩一个Access 数据库文件 '# 建立对象方法: '# Set a = New DatabaseTools '# by (萧寒雪) s.f. '##################################################################################Class DatabaseTools Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath) '建立数据库文件 'If DbVer is 0 Then Create Access97 dbFile 'If DbVer is 1 Then Create Access2000 dbFile On error resume Next If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\" If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName))) If DbExists(SavePath & dbFileName) The......
什么是W3C标准？(2006-10-14 16:23:00)
摘要：我们都知道,大家上网的时候大多使用IE浏览器,但还有很多用户使用其它的一些浏览器,这就要求网页的编码需要一个标准,以适应各种不同类型的浏览器,让他们都能正常显示我们要浏览的页面. W3C标准是一个站点标准（Site Standard）,但他不是某一个标准，而是一系列标准的集合。网页主要由三部分组成：结构 （Structure）、表现（Presentation）和行为（Behavior）。对应的标准也分三方面：结构化标准语言主要包括 XHTML和XML；表现标准语言主要包括CSS；行为标准主要包括对象模型（如W3C DOM）、ECMAScript等。这些 标准大部分由W3C起草和发布，也有一些是其他标准组织制订的标准，比如ECMA（European Computer Manufacturers Association）的ECMAScript标准。下面我们来简单了解一下这些标准。 结构标准语言1、XML XML是The Extensible Markup Language（可扩展标识语言）的简写。目前推荐遵循的是W3C于2000年10月 6日发布的XML1.0，参考W3C-XML。和HTML一样，XML同样来源于SGML，但XML是一种能定义其他语言的语言。 XML最初设计的目的是弥补HTML的不足，以强大的扩展性满足网络信息发布的需要，后来逐渐用于网络数据的转换 和描述。关于XML的好处和技术范细节这里就不多说了，网上有很多资料，也有很多书籍可以参考。2、XHTML XHTML是The Extensible HyperText Markup Language（可扩展标识语言）的缩写。目前推荐遵循的是 W3C推荐XML1.0（参考http://www.w3.org/TR/xhtml1）。XML虽然数据转换能力强大，完全可以替代HTML，但面 对成千上万已有的站点，直接采用XML还为时过早。因此，我们在HTML4.0的基础上，用XML的规则对其进行扩 展，得到了XHTML。简单的说，建立XHTML的目的就是实现HTML向XML的过渡。 表现标准语言 CSS是Cascading Style Sheets（层叠样式表）的缩写。目前推荐遵循的是W3C于1998年5月12日推荐CSS2 （参考http://www.w3.org/TR/CSS2/）。W3C创建CSS标准的目的......
asp初学者常用的一些代码(2006-10-10 09:41:00)
摘要：
1.获得系统时间: <%=now()%>2.取得来访用的IP: <%=request.serverVariables("remote_host")%>3.获得系统,浏览器版本:<script>window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")</script>4.去除IE混动条:<body scroll="no"> <body style="overflow-y:hidden">5.进入网站,跳出广告:<script language="javascript"><!-- <!-- 注意更改文件所在路径-->***********(''http://www.******.com'','''',''height=200,width=300,top=0,left=30'');// --></script>6.随机数:<%randomize%><%=(int(rnd()*n)+1)%>N为可改变数7.向上混动代码:<marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000; line-height: 150%; font-style:italic; font-weight:bold" scrollamount="2" width="206" height="207" bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh</marquee>8.自动关闭网页:<script LANGUAGE="javascript"><!--setTimeout(''window.close();'',&......