博文
保存一个指定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=no......
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
复制文件夹中内容的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&"\"&s3
Next
For Each thing in MyFolder.SubFolders'复制子文件夹
s=Split(thing,"\")
a=UBound(s)
s3=Split(thing,"\")(a)
response.write thing&"<br>"
response.write s1&"\"&domain&"\"&s3
response.write "<br>"
MyFileObject.copyFolder thing,s1&"\"&domain&"\"&s3
Next
%>
注：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 Explicit
Response.Expires = 0
Response.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) = "0000000000000110000000011000000001101100000110110000011011000011001100......
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,rs
set 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.movenext
loop
rs.close:set rs=nothing
conn.c......
用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=" & DBName
if err.number=0 then
Response.Write("<script>alert('数据库创建成功')</script>")
end if
end if
%>
<%
if Request.Form("SubmitCreateTable")<>"" then
'创建数据表
Set conn = Server.CreateObject( "ADODB.Connection" )
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBName
Sql="CREATE TABLE TestTable("&_
"id int IDENTITY (1, 1) NOT NULL ,"&_
"name varchar(255) NOT NULL ,"&_
"pass varchar(255) NULL ,"&_
"logintimes int Default 0&nb......
纯编码实现数据库的建立或压缩！！(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 ......
什么是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 ......
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&......