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

ASP
  • 作者:本站 发布时间:2015-02-22 围观210次
    这是一个独立的下载页,通过下载详情页点击过来,只需要传一个ID参数,然后这个页面处理跳转真实下载地址。 类与实例化类在同一个页面,实际上也不需要专门做这么一个类,我认为。本来是来自其他下载程序,但为了让...
  • 作者:本站 发布时间:2015-02-21 围观439次
    很多程序比如下载站都有一个好评率,就是计算好评与差评的百分比,函数代码如下。 function getpcent(byval t0,byval t1) dim t2 if t1="" then t1=0 t2="0%" else t2="0.00%" end if if isnum(t...
  • 作者:本站 发布时间:2015-02-21 围观474次
    有的时候程序自动点好,比如说文章缩略图,可以指定也可以自动获取文章里的第一张图片。 get_frist_pic(文章内容HTML) function get_frist_pic(byval t0) get_frist_pic="" if strlen(t0)=0 then exit functio...
  • 作者:本站 发布时间:2015-02-21 围观262次
    代码如下,以时间+随机数字生成文件夹。 response.write getrndfilename() ‘使用方法 function getrndfilename() dim t0,t1 randomize t0=int(900*rnd)+100 t1=now() getrndfilename=year(t1)&mont...
  • 作者:本站 发布时间:2015-02-21 围观306次
    一小段代码判断用户注册时候的用户名与数据库里是否有相同的,有则返回FALSE UserName = trim(Request.QueryString("UserName")) sql="select [ID] From 用户表 where username='"& UserName &"'" set r...
  • 作者:本站 发布时间:2015-02-21 围观236次
    以前介绍过过滤掉所有HTML标签的函数,今天再为大家介绍过滤指定HTML标签的函数 Function lFilterBadHTML(byval strHTML,byval strTAGs) Dim objRegExp,strOutput Dim arrTAG,i arrTAG=Split(strTAGs,","...
  • 作者:本站 发布时间:2015-02-21 围观230次
    ASP判断蜘蛛并且记录到数据库内。 使用方法 Call spiderbot() 代码如下 Function spiderbot() dim agent agent = lcase(request.servervariables("http_user_agent")) dim Bot: Bot = "" '百度 if ...
  • 作者:本站 发布时间:2015-02-21 围观284次
    有的ASP网站带社交功能,防止用户冒充管理员,可以禁止用户注册管理员或者admin等字样的用户名。 首先定义不允许注册的字符串,可以从数据库里取,也可以直接写在代码里。代码如下 '用户名检测 Function ChkRegNa...
  • 作者:本站 发布时间:2015-02-19 围观464次
    作为一个网站,必然少不了配置文件,里面主要装一些公用的信息,比如说网站名称,管理员EMAIL,各种功能配置是否开启等。有人直接通过文件里定义常量,也有直接在后台操作保存到数据库里的,这里举个从数据库了提取配...
  • 作者:本站 发布时间:2015-02-19 围观328次
    很多站点都卖广告位,有的是程序自带的集成,也有的直接跳转到广告的网址。 今天介绍一个点击广告链接计数的代码,无非是查询网址并更新点击次数 首先,广告的网址得保存到数据库,并且一个ID对应一个广告连接,其...
  • 作者:本站 发布时间:2015-02-19 围观323次
    提示信息并跳转,使用方法 Call AutoJump("我要跳了","网址") sub AutoJump(str1,url) Response.Write("<br/>&nbsp;&nbsp;<font color=red>"&str1&"</font><br/>") Response.Write("<br/>&...
  • 作者:本站 发布时间:2015-02-18 围观391次
    两个函数,一个是模拟POST数据的函数,一个是转换编码的函数(之前已经介绍过)。 Function GetBody(ips) '获取远程IP地址POST信息 Set https = Server.CreateObject("MSXML2.XMLHTTP") With https .Open "Pos...
  • 作者:本站 发布时间:2015-02-18 围观235次
    今天大年三十,首先祝大家新年快乐!但我相信应该不会有人在我发布后就立刻会看到。 今天研究JSON数据,一个示例代码就知道怎么操作了,函数类都在这里。 有些接口需要POST数据,等下再来一篇POST数据的函数。 Di...
  • 作者:本站 发布时间:2015-02-17 围观317次
    ASP获取当前页面的函数,并且通过不同的参数返回所需要的不同的值 '获取当前页面URL 'GetUrl("") http://www.xiaoxiangzi.com/news/index.asp?action=news&page=1&user=phenex (包括端口和参数) 'GetUrl...
  • 作者:本站 发布时间:2015-02-17 围观505次
    404错误页面就是当页面不存在的时候显示的,也可以称之为网站的状态码是404。正常可以访问的网页是200的状态。 如果网站伪静态的话,那么不存在的页面,也是访问的ASP页面,比如说有一个规则 /show.asp?id=x ->/ht...
  • 作者:本站 发布时间:2015-02-17 围观617次
    我本来喜欢下载别人的代码研究,但是有些代码就喜欢“加密”,为什么加双引号,因为是伪加密,比如说ChrW加密,无非就是替换字符串而已。但是文件这么多,一个个字符串替换实在麻烦,于是我写了一个简单的方法和页...
  • 作者:本站 发布时间:2015-02-17 围观472次
    这些代码常用于后台的主页,让你对系统的各个信息做一个了解。 服务器名:<%=Request.ServerVariables("SERVER_NAME")%> 服务器IP:<%=Request.ServerVariables("LOCAL_ADDR")%> 服务器端口:<%=Request.ServerVa...
  • 作者:本站 发布时间:2015-02-17 围观253次
    这个文件基本在所有ASP程序里都会用到,一般是销毁SESSION、清除COOKIE、跳转到首页,每个功能一行代码。 <% session.Abandon() response.cookies("..")="" ‘如果有指定的cookie名,可以删除指定的cookie respo...
  • 作者:本站 发布时间:2015-02-17 围观493次
    如果要批量删除选中的数据,那首先得在每条数据前做多选框。 <input type="checkbox" name="id" value="<%=rs("id")%>"> 再做一个全选按钮 <input name="chkall" type="checkbox" id="chkall" value="select" onc...
  • 作者:本站 发布时间:2015-02-17 围观217次
    代码如下 首先得打开数据库,然后将数据输出,m就是每条数据的序号 sql="select * from Info order by id asc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 k=rs.recordcount ...
  • 作者:本站 发布时间:2015-02-17 围观209次
    防止用户重复投票,我这有三个常用的办法 1、使用cookie If Request.cookie("vote")="yes" then response.write "请不要重复提交" Else '执行投票过程 Response.cookie("vote")="yes" ‘给cookie赋值 End If ...
  • 作者:本站 发布时间:2015-02-16 围观312次
    操作XML类的代码如下 Class MainClass_Xml Public xmlDocument,xmlPath,xmlDomObj,xmlstr Private xmlDomVer,xmlFileSavePath Public Sub Class_Initialize() xmlDomVer = getXmlDomVer() createXmlDo...
  • 作者:本站 发布时间:2015-02-16 围观418次
    网站安全很重要,过滤不严一不小心就被利用了。过滤XSS代码如下,无非是替换一些关键词 Function Checkxss(byVal ChkStr) Dim Str Str = ChkStr If IsNull(Str) Then CheckStr = "" Exit Function End ...
  • 作者:本站 发布时间:2015-02-16 围观343次
    时间一般的格式是 2015/02/16 09:34 也有可能是-符号,这得看服务器上的设置。 也就是说只要将这些符号替换掉,只保留数字就可以了,代码如下 Function timeToStr(Byval t) t=Replace(Replace(Replace(Replace(t...
  • 作者:本站 发布时间:2015-02-16 围观319次
    外部提交数据会让服务器有安全隐患,所以防止外部提交很有必要。 '获取上一页 Function getRefer() getRefer = request.ServerVariables("HTTP_REFERER") End Function '获取服务器名称 Function getServerna...
总数:159 上一页1 2 3 4 5 6 7下一页