-
[Asp 应用]ASP 实现取指定一个范围的随机数的函数2011-04-29 08:40:02 |
· ASP 实现取指定一个范围的随机数值的函数，比如获取一个5~20 (包含5和20)之间的随机数，即RndNum(5,20)
Private Function RndNum(Min,Max) Randomize RndNum = Min+int((Max-Min+1)*Rnd) End Function
-
[Asp 应用]Asp Base64 编码与解码函数2011-04-28 18:02:08 |
·
<%Option ExplicitDim sBASE_64_CHARACTERSsBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS)Function st...
-
[Asp 基础]ASP 获取当前完整URL地址函数2011-04-28 15:59:18 |
· ASP 获取当前完整URL地址函数，包括参数、端口(如果非80端口)
Public Function GetUrl() GetUrl = "http://" & Request.ServerVariables("SERVER_NAME") If Request.ServerVariables("SERVER_PORT") <> 80 Then...
-
[Asp 基础]ASP中遍历Dictionary所有Key与值2011-04-09 10:58:49 |
·
<%Dim Items,key Set Items=Server.CreateObject("Scripting.Dictionary") call Items.Add ("ID","111") call Items.Add ("Name","222") For Each key in Items Response.Write(key & "：" & Items(key) ...
-
[Asp 应用]ASP 遍历所有Application对象2010-12-29 22:01:21 |
· asp 遍历所有Application对象:
<%Dim objItemFor Each objItem in Application.Contents response.write objItemNext%>
-
[Asp 应用]ASP与Access/SQL 数据库连接示例2010-12-19 20:56:50 |
· ASP与Access数据库连接：
<% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd...
-
[Asp 应用]ASP 检测图片木马上传的函数2010-12-19 20:22:48 |
· 木马原理：入侵者使用诸如ASP图片木马生成器之类的工具将一张正常的图片与一个ASP木马文件合并成一个图片文件（即将对网站有害的
ASP代码插在图片编码之后，虽然图片仍然可以正常显示，但是文件内容和尺寸已被改变...
-
[Asp 应用]ASP 获取客户端的浏览器类型以及操作系统信息2010-11-20 12:52:25 |
· 通过以下方法可以获取页面浏览者所用的浏览器版本以及操作系统等等相关信息。
<%=Request.ServerVariables("HTTP_USER_AGENT")%>
-
[组件开发]ASP 读取Word文档内容简单示例2010-11-03 23:44:36 |
· 以下通过Word.Application对象来读取Doc文档内容并显示示例。
下面进行注册Word组件：
1、将以下代码存档命名为：AxWord.wsc
<?xml version="1.0"?><component> <registration description="PH ActiveX Word Win...
-
[Asp 应用]ASP UTF-8格式URL解码函数2010-11-03 23:17:39 |
· 这个函数可将UTF-8格式的URL进行解码。
Function UrlDecode_GBToUtf8(ByVal str) Dim B,ub ''中文字的Unicode码(2字节) Dim UtfB ''Utf-8单个字节 Dim UtfB1, UtfB2, UtfB3 ''Utf-8码的三个字节 Dim i, n, s n=0 u...
-
[Asp 应用]ASP GB2312转UTF-8 URL编码2010-11-03 22:11:29 |
· 以下这个函数是用于在GB2312页面进行URL编码,并且编码出来的是UTF-8格式字符串。
这样编码后UTF-8页面就可以直接获取URL参数了，不用再编码转换了。
<%Private Function UrlEncode_GBToUtf8(szInput) Dim wch, uc...
-
[Asp 应用]ASP GB2312编码转换UTF-8函数2010-11-03 21:57:59 |
· 利用adodb.stream 对象可轻易转成UTF-8编码。
Function toUTF(strText) Dim stream Set stream = Server.CreateObject("adodb.stream") With stream .Charset = "UTF-8" .Type = 2 .Mode =3 .Open .WriteTex...
-
[Asp 应用]ASP 纯真IP数据库QQWry.dat读取操作类2010-10-26 17:42:07 |
· 通过该操作类可轻易的将IP转换成城市地区信息。
<%Class TQQWry ' ' 变量声名 ' Dim Country, LocalStr, Buf, OffSet Private StartIP, EndIP, CountryFlag Public QQWryFile Public FirstStartIP, LastStartIP, Re...
-
[Asp 实例]ASP XML操作类2010-10-25 16:38:04 |
· ASP XML操作类，包括：建立一个XML文件、删除节点、清空节点、添加节点、添加节点属性等等操作。
<%Class XMLDOMDocument Private fNode, fANode Private fErrInfo, fFileName, fOpen Dim XmlDom '返回节点的缩...
-
[Asp 实例]ASP 公历转换农历实例2010-10-09 10:50:47 |
· <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xh...
-
[Asp 基础]ASP 类的初步认识详解2010-10-06 15:47:38 |
· ASP如何编写class类？类的初步认识。Class相当于一个包装箱,它可以将变量和函数包装起来,形成一个整体,本系列文章要讲的所有内容,可以说是包装的学问....Class在asp中出现蛮久了,不过很少看到它被用在代码当中.记得当年研究动网的论坛程序的时候,看到了一些例子,当时还觉得比较崇拜对自...
-
[Asp 应用]收集的几个ASP缓存操作类2010-10-06 15:24:55 |
· 下面是收集的几个ASP缓存类：
木鸟写的：
<%'**' vbs Cache类'' 属性valid，是否可用，取值前判断' 属性name，cache名，新建对象后赋值' 方法add(值,到期时间)，设置cache内容' 属性value，返回cache内容' 属性bl...
-
[组件开发]ASP 中正则零宽断言的实现2010-09-08 15:51:02 |
· 提示：今天又封装了个不错的，纯C++（http://www.newxing.com/Tech/Program/VisualBasic/NewXing.RegExp_643.html ）编写的组件，完全兼容VBScript.RegExp 正则组件的各种属性与方法，支持与 Perl 兼容的正则表达式语...
-
[Asp 技巧]ASP 中实现可选参数Optional2010-08-19 12:09:55 |
· 教您如何在ASP中实现像VB里边的Optional参数一样效果...
<script language="jscript" type="text/jscript" runat="server">// 基于C的JScript服务端脚本可以实现函数重载function ShowMsg(msg){ return Show_Msg(msg,""); // Show_Msg函...
-
[Asp 应用]ASP 转换为绝对路径函数2010-08-11 04:51:51 |
·
' 参 数：strPath 原路径Function ChkMapPath(ByVal strPath) Dim fullPath strPath = Replace(Replace(Trim(strPath), "/", "\"), "\\", "\") If strPath = "" Then strPath = "." If InStr(strPath,":\") = 0 T...
-
[Asp 技巧]ASP 防止重复刷新方法2010-08-04 21:52:11 |
· 方法1:
<%Dim SplitReflashPageDim DoReflashPageDim shuaxin_timeDoReflashPage = Trueshuaxin_time = 10ReflashTime = Now()If (Not IsNull(session("ReflashTime"))) And CInt(shuaxin_time)>0 And DoReflas...
-
[XML 相关]ASP生成XML格式的数据文档实例2010-08-02 20:19:18 |
· 如果是生成XML文件，介于动态文档是ASP格式的，所以必须借助FSO进行XML文件的生成。...一、必须弄清楚最终需要的是什么
我们通过asp或其他动态编程语言，最终需要的是XML格式的数据，这点和XML数据所在的文件载体无关，它可以是实实在在的XML文件，比如...
-
[Asp 实例]ASP 海量数据分页存储过程代码2010-07-17 12:55:10 |
· 以下是ASP网页代码：
<%Response.Buffer = TrueDim SqlLocalName, SqlUsername, SqlPassword, SqlDatabaseNameDim ConnStr, Conn'''''''''''''''''''''''''''''''''SQL数据库 ''''''''''''''''''''''''''''''''''''...
-
[Asp 基础]ASP 禁止代理上网用户访问网站2010-07-11 23:19:46 |
· <%
'当Request.ServerVariables("HTTP_X_FORWARDED_FOR")的值不为空即是代理用户。
IsIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")If IsIP <> "" Then response.write "基于网站本身和你的个人资料安全，...
-
[Asp 基础]ASP 生成静态HTML文件的两种方法2010-07-11 22:56:44 |
· 本文介绍用ADODB.Stream与Scripting.FileSystemObject两种方式生成静态页面文件实例。...ASP里常用的有用ADODB.Stream生成文件和Scripting.FileSystemObject生成文件两种：
1、Scripting.FileSystemObject生成文件方法：
<%Set fso = Cr...
-
[Asp 应用]ASP 遍历指定目录及子目录所有文件2010-07-08 23:35:37 |
· 可以遍历指定一个目录下的所有文件,包括子目录。
<%'遍历文件夹Sub ListFolderContents(Path) Dim fs, Folder, File, Item, url Set fs = CreateObject("Scripting.FileSystemObject") Set Folder = fs.GetFold...
-
[Asp 实例]ASP 调用SQL Server存储过程简单实例2010-07-04 10:34:15 |
· 这是个用ASP 调用SQL Server存储过程以及参数传递表循环读取等简单实例。...首先在SQL里建立一个数据库叫it，怎么建我就不说了，这个简单，一看就知道了。然后在库里建个表，写几个数据记录，如下
打开查询分析器：
在里边写下如下语句...
-
[Asp 技巧]ASP 防盗链下载及隐藏文件路径2010-06-10 05:20:04 |
· ASP 隐藏真实文件路径及盗链检测...
<%Call ChkPostAgent '防止盗链检测Call DownloadFIle("soft/test.rar") '下载文件%><%Public Sub ChkPostAgent() 'On Error Resume Next Dim server_v1, server_v2 Dim m_blnAgent, m_strAgent...
-
[Asp 应用]ASP对Excel报表读写操作技术全攻略2010-05-25 16:39:04 |
· 总结ASP对xcel的基本操作,包括:Excel生成数据表、生成Chart图、Excel文件浏览、下载、删除方案。...目录
一、环境配置
二、ASP对Excel的基本操作
三、ASP操作Excel生成数据表
四、ASP操作Excel生成Chart图
五、服务器端Excel文件浏览、下载、删除方案...
-
[Asp 实例]ASP发送邮件到指定地址函数_ASP E-mail发送函数2010-05-18 22:27:58 |
· ASP利用JMail组件发送邮件至指定接收人地址.函数：SendEmail(发送人Email,发送者,收件人Email,邮件标题,邮件内容,smtp服务器地址,邮件服务器验证密码)... <%'SendEmail(发送人Email,发送者,收件人Email,邮件标题,邮件内容,smtp服务器地址,邮件服务器验证密码)Function Send...
