Asp技巧
文章平均质量分 77
daviva
这个作者很懒,什么都没留下…
展开
-
转换双字节字符为合法的URL传输字串
转换双字节字符为合法的URL传输字串 function getUrlEncodel(byVal Url) Dim i,code getUrlEncodel="" if trim(Url)="" then exit function for i=1 to len(Url) code=Asc(mid(Url,i,1))原创 2004-08-11 14:04:00 · 732 阅读 · 0 评论 -
将GB2312编码的汉字,转换为ISO编码
Function StrConv(ByVal strIn, ByVal encoding) Dim st: Set st = Server.CreateObject("adodb.stream") st.Type = 2 st.Open st.WriteText strIn st.Position = 0 st.Charset = encoding Str原创 2004-08-19 10:12:00 · 1444 阅读 · 2 评论 -
读取Access数据库表名
ASP ←返回版面: strConn="DBQ="+server.mappath("kendylan.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set objConn=server.createobject("Adodb.connection")objConn.open strConnset rsSchema=obj原创 2004-08-31 10:36:00 · 822 阅读 · 0 评论 -
关于Adodb.Stream 的使用说明
组件:"Adodb.Stream"有下列方法:Cancel 方法 使用方法如下 Object.Cancel 说明:取消执行挂起的异步 Execute 或 Open 方法的调用。Close 方法 使用方法如下 Object.Close :关闭对像CopyTo 方法 使用方法如下 Object.CopyTo(destStream,[Ch原创 2004-09-21 11:25:00 · 1220 阅读 · 2 评论 -
asp函数:文件,获得汉子的首个字母,替换字符串
列举某一目录上的所有文件,如:call bianli("c:")function bianli(path) set fso=createobject("scripting.filesystemobject")on error resume next set objFolder=fso.GetFolder(path)set objSubFolders=objFolder.Subfolders f原创 2004-08-31 10:46:00 · 1608 阅读 · 0 评论 -
通过Adodb.Stream取得图像的高/宽度
上传图片或显示SWF的时候都希望得到它的高度和宽度基本原理使用Adodb.Stream读二进制文件然后进行解析,然后返回一数组第一个元素为类型(BMP JPG PNG GIF SWF)第二个元素为宽度{width}第三个元素为高度{height}第四个元素为width={width},height={height}式字符串Class qswhImg dim aso Private Sub原创 2004-09-21 11:26:00 · 672 阅读 · 0 评论 -
ASP程序也能在线升级[收藏]
文件名:updata.asp远程地址const url="http://localhost/test/"action=request("action")if action="updata" thendownload(url&"config.txt")download(url&"pack.jpg")response.Write("下载成功安装")elseif action="install"原创 2004-09-30 08:54:00 · 900 阅读 · 0 评论 -
asp函数FileSystemObject详解
Set fs=Server.CreateObject("Scripting.FileSystemObject")1.文件是否存在If (fs.FileExists("c:/winnt/cursors/3dgarro.cur"))=true Then Response.Write("File c:/winnt/cursors/3dgarro.cur exists.")Else R原创 2004-10-15 08:59:00 · 2092 阅读 · 1 评论 -
ASPJPEG组件使用说明
ASPJPEG是一款功能相当强大的图象处理组件,用它可以轻松地做出图片的缩略图和为图片加上水印功能。1、为图片制作缩略图Dim Jpeg,PathSet Jpeg = Server.CreateObject("Persits.Jpeg") 图片所在位置Path = Server.MapPath("images") & "/clock.jpg" 打开Jpeg.Open Path原创 2004-10-22 11:02:00 · 7018 阅读 · 0 评论