您所在的位置:小祥子 » 编程 » ASP

ASP
  • 作者:本站 发布时间:2015-02-16 围观315次
    使用方法 trimOuter(" xxxx ") '得到的结果是xxxx 下面这个是通用的 trimOuterStr("aabbbbaa","aa") '去除字符串两头的aa '去除字符串前后空格 Function trimOuter(Byval str) dim vstr : vstr = str if le...
  • 作者:本站 发布时间:2015-02-16 围观342次
    页面开始的时候,设置一个开始时间,结束的时候,再设置一个结束时间,两个时间相减获得执行时间,而查询数据库的次数只需要conn.queryCount就可以得到。下面一个是过程,直接输出代码,一个是方法,都可以使用。 '...
  • 作者:本站 发布时间:2015-02-16 围观288次
    XmlHttp版本越高,越好使用,首先将所有版本保存,然后做一个for循环,从高往低判断是否已经安装。 Function getXmlHttpVer() dim i,xmlHttpVersions,xmlHttpVersion getXmlHttpVer = false xmlHttpVersions ...
  • 作者:本站 发布时间:2015-02-16 围观332次
    '获取文件夹列表 Function getFolderList(Byval cDir) dim filePath,objFolder,objSubFolder,objSubFolders,i i = 0 redim folderList(0) filePath = server.mapPath(cDir) set objFolder=objFso.GetFold...
  • 作者:本站 发布时间:2015-02-16 围观423次
    移动文件夹以及移动文件的方法函数 使用方法 moveFolder("要移动的文件夹",“新建的文件夹”) moveFile("移动的文件","移动到哪里") 代码如下 '移动文件夹 Function moveFolder(oldFolder,newFolder) dim vo...
  • 作者:本站 发布时间:2015-02-16 围观230次
    当网页已经操作完毕后,必须得释放所有已经产生的对象,不然随着网页访问次数的增多,对象没有及时关闭会导致服务器资源消耗过多。 Function terminateAllObjects() on error resume next if conn.isConnect th...
  • 作者:本站 发布时间:2015-02-16 围观414次
    千万不要惊讶ASP也有类,类的使用方法可以见上一篇文章。这里只提供数据库类的代码 Class MainClass_DB public dbConn,dbRs,isConnect,fetchCount private connStr,vqueryCount,vdbType private errid,errdes...
  • 作者:佚名 发布时间:2015-02-16 围观322次
    现在编程多数人主张OOP面向对象的方法,OOP自然少不了类的使用,这里为大家找了一个简单的例子,为下一篇,数据库类作为铺垫。 <% '//开始一个类-// Class myClass '//声明(声明就是定义)myClass类的类内...
  • 作者:本站 发布时间:2015-02-15 围观295次
    本站以前也介绍过,但是今天发现一个很简单的截取办法。用Split函数,代码如下 Function GetKey(HTML,Start,Last) filearray=split(HTML,Start) filearray2=split(filearray(1),Last) GetKey=filearray2(0) ...
  • 作者:本站 发布时间:2015-02-15 围观347次
    将以下代码保存为conn.asp,然后其他页面就可以调用这个文件了。 Dim conn Dim db Dim connstr db = "Databases/data.mdb" '数据库文件位置 On Error Resume Next connstr = "DBQ=" + Server.mappath("" &...
  • 作者:本站 发布时间:2015-02-15 围观267次
    首先假设conn.asp文件是连接数据库的,这个文件怎么写,很多程序里都有调用。然后是接收参数,根据参数去数据库里寻找这张图片。很多程序都可以用到的,比如说下载站,点击缩略图进去是这个显示大图的页面,再或者做...
  • 作者:佚名 发布时间:2015-02-15 围观479次
    连接数据库见文章下面的相关文章,代码如下 <% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select 字段 from 表 order by id" rslist.open sql,conn,1,3 do while not rslist.eof %> <p><%=r...
  • 作者:本站 发布时间:2015-02-15 围观420次
    想调用远程图片,但又不想保存,更不想直接显示别人的地址,下面的这个方法就非常实用 Function saveimg(url) Response.Expires = 0 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctro...
  • 作者:本站 发布时间:2015-02-14 围观346次
    以前我写代码的时候,经常用到if下面的else,想想当时真是太2了。 举个例子,我就判断字符是不是数字,如果不是数字程序就提示 If isnumeric(request("number")) Then '是数字就不用任何提示 Else response.wri...
  • 作者:本站 发布时间:2015-02-14 围观450次
    连接数据库操作以及md5方法本站的其他文章有说明,见文章下面的相关文章也可以。为了方便大家阅读,后面都带注释。 <!--#include file="conn.asp"--> <!-- #include file="MD5.asp" --> <!--conn.asp是数据库,md...
  • 作者:本站 发布时间:2015-02-14 围观322次
    使用方法 CreateFile("文件名","文件内容") Sub CreateFile(Filename,temp) ' Dim fso, tf ,Filename ,temp Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile(Filename, T...
  • 作者:本站 发布时间:2015-02-14 围观400次
    在一个URL里加入参数,比如说a=1,那么如果原网址没有参数,比如说http://www.xiaoxiangzi.com/,那么就需要先加一个?再加参数。http://www.xiaoxiangzi.com/?a=1,如果原网址已经有参数了,比如向之前的网址加入一个...
  • 作者:本站 发布时间:2015-02-13 围观256次
    有的时候我们需要将一些日志直接记录到文件里面更好,而不记录到数据库。这时候就轮到以下代码出场了。 Sub slog(logs) Dim toppath Dim fs Dim Ts toppath = Server.Mappath("/log.htm") Set fs = Creat...
  • 作者:本站 发布时间:2015-02-13 围观373次
    首先,谈思路。 1、网站有一个表专门储存锁定IP段的数据 2、用户访问的时候,获取用户的IP 3、转换成十进制对比用户的IP是否在数据库里的IP段之间,如果是,结束所有访问并提示 代码如下 <% dim stop_ip,un_ip...
  • 作者:本站 发布时间:2015-02-13 围观262次
    因为很多地方都可能用到提示并跳转,所以做一个方法来规范一下会更好。 Function Alert(message,gourl) message = replace(message,"'","\'") If gourl="-1" then Response.Write ("<script language=javasc...
  • 作者:本站 发布时间:2015-02-13 围观204次
    一般注册用户,会先用JS对当前提交的数据进行简单的限制,但在ASP里再做一个限制会让程序更加安全。 我们要求,用户名长度大于等于2,小于等于16,并且不能有特殊字符。方法函数如下 function IsValidMemName(memn...
  • 作者:本站 发布时间:2015-02-13 围观328次
    一般常用的两个参数类型,一个是字符,一个是数字。 字符串的传入后我们还可以对其进行稍加安全处理,比如说单引号换成两个单引号。方法如下 Function SafeRequest(ParaName,ParaType) '--- 传入参数 --- 'ParaN...
  • 作者:本站 发布时间:2015-02-13 围观281次
    禁止从外部提交数据,只需要对比来路与当前域名,相等程序则处理,不相等我们则提示。 方法函数如下 function SerUrl() Dim server_v1,server_v2 server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) ...
  • 作者:本站 发布时间:2015-02-12 围观242次
    正则获取网页里的图片,一般用于小偷程序里,当然,你修改之后也可以提取其他内容,比如说电话号码。 Function GetImg(str) set objregEx = new RegExp objregEx.IgnoreCase = true objregEx.Global = true zzs...
  • 作者:本站 发布时间:2015-02-12 围观357次
    PHP里有三元运算符a?b:c,ASP也可以有,不过得自己写个方法。这个方法的代码也很简洁。 Function IIF(A,B,C) If A Then IIF = B Else IIF = C End Function 然后IFF(a,b,c)与PHP的a?b:c一样了。
总数:159 上一页1 2 3 4 5 6 7下一页