- 2013-06-04
open 创建一个新的http请求，并指定此请求的方法、URL以及验证信息 语法 oXMLHttpRequest.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword); 参数 bstrMethod http方法，例如：POST、GET、PUT及PROPFIND。大小写不敏感。 bstrUrl 请求的URL地址，可以为绝
- 2013-06-04
% '================================ '函数列表： '1： 建立数据库的连接 ConnOpen(DataBaseConnectStr,DBType,Conn_object) '2： 断开数据库的连接 ConnClose(Conn_object) '3： 防止SQL注入 SafeRequest(paraName,paraType) '4： 格式化日期 DateFormat(dateStr,dat
- 2013-06-03
这篇文章主要是分享一个asp中for循环的一个小技巧，平时真没注意呢，希望懂asp的朋友可以参考下
- 2013-05-31
标题：asp eWebEditor v3.8 列目录漏洞(其他版本为测试) 漏洞文件：asp/browse.asp 漏洞产生： Sub InitParam() sType = UCase(Trim(Request.QueryString(type)))sStyleName = Trim(Request.QueryString(style))sCusDir = Trim(Request.QueryString(cusdir))Dim i, aSt
- 2013-05-28
无组件分页不可思议吧，看一看本文的效果就知道了，下面与大家分享下具体的实现，感兴趣的朋友可以参考下哈
- 2013-05-20
在 ASP 中使用 Request.ServerVariables(REMOTE_ADDR) 来取得客户端的 IP 地址，但如果客户端是使用代理服务器来访问，那取到的就是代理服务器的 IP 地址，而不是真正的客户端 IP 地址。要想透过代理服务器取得客户端的真实IP 地址，就要使用Request.ServerVariables(H
- 2013-05-15
对于一个支持asp和fso的空间来说有了fso一切变得简单多了 我也是个新手写了一些代码供大家学习研究用 首先看支持fso组件吗 % 'FSO组件名称 dim FSObject FSObject=Scripting.FileSystemObject '========================================================= '◆是否支持
- 2013-05-13
%@ language = vbscript codepage = 936% % option explicit '强制定义变量 dim idcount'记录总数 dim pages'每页条数 dim pagec'总页数 dim page'页码 dim pagenc '每页显示的分页页码数量=pagenc*2+1 pagenc=2 dim pagenmax '每页显示的分页的最大页码 dim pagenmin
- 2013-05-04
% '===============asp 文件操作函数集1.0版本========================= ' 整理作者： 张辉 ' 程序员代号：WJ008 ' 整理时间：2008年 6 月 1 日 ' 关注地址：www.wj008.net ' 所有函数使用的文件地址 全部使用绝对地址 '============================================
- 2013-05-04
1、默认语言 打开fckconfig.js文件（相对FCKeditor文件夹，以下同），把自动检测语言改为不检测，把默认语言改为简体中文： 程序代码 FCKConfig.AutoDetectLanguage = false ; FCKConfig.DefaultLanguage = 'zh-cn' ; 2、字体列表 打开fckconfig.js文件，在字体列表中
- 2013-05-03
% on error resume next PRivate d_exsit Dim Retrieval Dim Domain Dim TakenHTML Function GetURL(url) Set Retrieval = Server.CreateObject(Microsoft.xmlHTTP) With Retrieval .Open GET, url, False, , .Send GetURL = .ResponseText End With Set Retrieval = N
- 2013-05-03
程序代码 % '功能:判断一个值是否存在于数组 '来源:http://www.cncms.com/asp.asp Function InArray( sValue, aArray ) Dim x InArray = False For Each x In aArray If x = sValue Then InArray = True Exit For End If Next End Function % 程序代码 % '功能:判断一
- 2013-05-03
程序代码 % '功能:用来在指定CheckBox的哪几个值上打勾 '来源:http://www.cncms.com/asp.asp Function CheckBoxScript(ByVal FormElement , ByVal ElementValue) CheckBoxScript = scr ipt language=javascript type=text/Javascript vbCrLf String.PRototype. CheckBo
- 2013-05-03
程序代码 % '功能:定义转换为javascript字符串输出(约定Javascript中，用单引号引用字符串) '来源:http://www.cncms.com/asp.asp Function Str4Js(sString) Str4Js = sString If IsNull(sString) Then Str4Js = : Exit Function Str4Js = Replace(Str4Js, \, \\) Str4J
- 2013-05-03
程序代码 % '功能:输出字符串加换行 '来源:http://www.cncms.com/asp.asp Function WriteLn(sString) Response.Write( sString vbCrLf ) End Function % 程序代码 % '功能:输出字符串加HTML代码br / '来源:http://www.cncms.com/asp.asp Function PRintLn(sString) Res
- 2013-05-03
目前还是有BUG的,最新的测试页面在: http://www.reallydo.com/getimg.asp 正则分析页面在: http://jorkin.reallydo.com/article.asp?id=380 发现BUG请在后面留言,谢谢. 1.31修正 src=后面有空格不能正确匹配.已修正. src=''为空时出错.已修正. 发现BUG: 图片路径有多个
- 2013-04-27
普通的替换函数 代码如下: public function HighLight(S,F) dim tL,tM,tR,k tL= tM= tR=S k=instr(1,tR,F,1) do while k0 tL=tL left(tR,k-1) tM=mid(tR,k,len(F)) tL=tL span style='color:red' tM /span tR=right(tR,Len(tR)-len(F)-k+1) k=instr(1,tR,F,1) loop Hig
- 2013-04-27
我们先来看一看 Replace 的详细参数 描述 返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。 语法 Replace(expression, find, replacewith[, compare[, count[, start]]]) Replace 函数的语法有以下参数： 参数 描述 expression 必选项。 字符串表达式 包
- 2013-04-25
经 常 在Internet 上 冲 浪 的 网 友 恐 怕 很 少 有 人 没 有 去 过 聊 天 室 胡乱神聊。 你 只 要 稍 微 留 意 一 下 就会 发 现 这 些 聊 天 室 大 多 是 用CGI 程 序 或 者 用java 开 发 的 Applet 维 护 的。 开 发 过 这 类CGI 或Applet 的 程 序 员 都 知 道，
- 2013-04-25
%@ Language=VBScript % % Option Explicit Dim strSubmit 'Form中用来保存提交按钮的值 Dim strPRinterPath 'Form中保存网络打印机路径的值 Dim strUsername 'Form中用户名的值 Dim strPassWord 'Form中密码的值 Dim strMessage 'Form打印内容的值 Dim objFS 'VBScrip