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

ASP
  • 作者:本站 发布时间:2015-04-18 围观439次
    有一个页面a.html使用ajax调用b.asp的json数据,直接使用出现乱码或者有的时候无法调用的情况。 一般情况是b.asp的json数据里有与json格式冲突的字符,比如说:“,”“"”。 那么在b.asp使用编码,再到a.html解码就...
  • 作者:本站 发布时间:2015-03-27 围观342次
    网页调用JSON的时候,如果是中文可能会出现问题,但用UNICODE转换后就可以正常使用,网上找了下没有找到ASP转UNICODE的,然后只有自己写了个。 str="你好啊啊啊svba23e你啊啊啊" response.Write ToUnicode(str) ...
  • 作者:本站 发布时间:2015-03-22 围观509次
    ASP读取Excel表格数据,也可以用于上传Excel表然后批量导入数据操作。 代码如下 <% strAddr = Server.MapPath("xxx.xls") '设置Excel路径 Set excel = Server.CreateObject("adodb.connection") excel.open = "...
  • 作者:本站 发布时间:2015-03-21 围观412次
    本站也提供过一个JS判断的,现在提供一个通过ASP判断用户是否为手机客户端。 使用方法 if CheckMobile then '如果是手机浏览器那么就跳转到手机客户端 response.redirect “http://m.xiaoxiangzi.com” respon...
  • 作者:本站 发布时间:2015-03-17 围观317次
    方法如下: <% function getFileExtName(fileName) dim pos pos=instrrev(filename,".") if pos>0 then getFileExtName=mid(fileName,pos+1) else getFileExtName="" end if end function respon...
  • 作者:本站 发布时间:2015-03-17 围观435次
    这是我自己写的缓存方法,使用方法很简单。 将一下代码保存为cache.asp并给需要缓存的页面进行引用,网站根目录创建文件夹cache,同时在引用页面最后加一句<%End If%>即可使用。 <% '当前URL Function GetThisUr...
  • 作者:本站 发布时间:2015-03-16 围观495次
    使用方法也在代码里,不过首先得下载一个QQWRY.DAT放到这个文件的同目录即可使用。 <% ' ' 返回IP信息 Disp_IPAddressData(IP,0) ' response.Write Look_Ip("173.221.228.138") '这是使用方法 Function Look...
  • 作者:本站 发布时间:2015-03-16 围观228次
    使用后会清空数据库所有表和数据,请慎用。 <% Dim Rs,Conn Set Conn=Server.CreateObject("Adodb.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("readlog.md...
  • 作者:本站 发布时间:2015-03-16 围观416次
    代码如下 Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson) 'Author : nigou '使用方法 : Response.Write GetTable(Table表名,Where条件,Order主键(必须),OrderSort(asc,desc),curpag...
  • 作者:本站 发布时间:2015-03-12 围观292次
    使用方法 call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>") Sub PageControl(iCount,pagecount,page,table_style,font_style) '生成上一页下一页链接 Dim query, a, x, temp...
  • 作者:本站 发布时间:2015-03-12 围观268次
    Rem 判断数字是否整型,返回True或False function isChkInteger(para) on error resume next dim str dim l,i if isNUll(para) then isChkInteger=false exit function end if str=cstr(para) ...
  • 作者:本站 发布时间:2015-03-11 围观273次
    <% function iptohex(byref strip) dim hexip,iparr,vi iparr=split(strip,".") hexip="" for vi=0 to ubound(iparr) if len(iparr(vi))<=3 then if isnumeric(iparr(vi))=true then if cint(iparr(v...
  • 作者:本站 发布时间:2015-03-03 围观466次
    隐藏手机号中间4位数的方法函数 Function HideTel(cip) If Not IsN(cip) Then HideTel = Left(cip, 3) + ""+Right(cip, 4) Else HideTel = "" End If End Function
  • 作者:本站 发布时间:2015-03-03 围观475次
    去除内容里的超级链接函数 Function HtmlFilterLink(HTMLstr) Dim ra Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "<a[^>]+>(.+?)<\/a>" HtmlFilterLink = ra.replac...
  • 作者:本站 发布时间:2015-03-03 围观263次
    价格一般是XX.XX这种格式,并且不能为空。 Function ToPrice(num) If num = "" Or IsNull(num) Then num = 0 ToPrice = FormatCurrency(num, 2, -1, 0, -1) End Function Function FormatPrice(t) On Error...
  • 作者:本站 发布时间:2015-03-03 围观476次
    <% '当前URL Function GetThisUrl() Dim StrUrl Dim StrParam StrUrl = Request.ServerVariables("URL") If Trim(Request.QueryString) <> "" Then StrParam = "?" & Trim(Request.QueryString) Els...
  • 作者:本站 发布时间:2015-02-27 围观461次
    定义一个通用的错误显示函数,然后直接使用<%=ShowErr("错误提示",0)%>即可。 <% '== '函 数 名:ShowErr '作 用:错误提示函数 '参 数:错误说明ErrStr ' 错误类型ErrType(0前台,1后台) '== Public Funct...
  • 作者:本站 发布时间:2015-02-27 围观259次
    HTML转JS,本站也有对应的工具,这个函数主要使用在插广告JS的时候,转JS一般两个步骤,加document.write与转义符\ '== '函 数 名:HtmlToJs '作 用:HTML转JS '参 数:字符串CStrs '== Public Function HtmlT...
  • 作者:本站 发布时间:2015-02-27 围观453次
    这个函数用于由一个表输出一个分类,然后判断当前文章是否属于这个分类,属于则默认选中,常常在文章在第二次编辑的时候使用。 '== '函 数 名:BeSelect '作 用:判断select选项选中 '参 数:Select1,Select2 '...
  • 作者:本站 发布时间:2015-02-27 围观326次
    判断字符串是否在指定长度范围类,常用于在用户名检测、密码检测 '== '函 数 名:ShowString '作 用:判断字符串长度 '参 数: '需进行判断的文本CheckStr '限定最短ShortLen '限定最长LongLen '验证类型Che...
  • 作者:本站 发布时间:2015-02-27 围观394次
    使用类就是面向对象,这里有个FSO类。 使用方法 Set FKFso=New Cls_Fso Call FKFso.ReNameFolder(SiteDBDir,NewFolder) 类的代码 <% Class Cls_Fso '== '函 数 名:FsoLineWrite '作 用:按行写入文件 ...
  • 作者:本站 发布时间:2015-02-27 围观460次
    之前有讲到一个关闭所有对象的函数,今天整个通用的关闭指定对象的过程。 sub gbdx(dx) dx.close set dx=nothing end sub 关闭记录集 call gbdx(rs)
  • 作者:本站 发布时间:2015-02-26 围观342次
    与PHP一样,我们可以先判断是否有一个文件,如果有则不做任何提示,反之没有则需要安装,安装后同时生成这个文件,保证以后不再重复安装。 Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.F...
  • 作者:本站 发布时间:2015-02-26 围观447次
    判断一串字符是否为中文,全部是中文则返回true function iscn(str) Dim i i = Len(str) If i = 0 Then iscn = False Exit Function End If Do While i > 0 If Asc(Mid(str, i, 1)) < 1...
  • 作者:佚名 发布时间:2015-02-22 围观345次
    在以往的一些验证码还要head.fix和body.fix文件,而稍微新一点的则不一样,一个文件就可以搞定验证码,虽然不是很好看,几个数字组成的验证码,但还是可以用。作为一个最求新技术的小祥子,以后为大家介绍更好的验证...
总数:159 上一页1 2 3 4 5 6 7下一页