代码如下:<%@LANGUAGE="JAVASCRIPT"%> <title>Google PR值查询 asp程序</title> <% function hexdec(str) { return parseInt(str,16); } function zeroFill(a,b) { var z = hexdec(80000000); if (z & a) { a = a>>1; a &= ~z; a |= 0x40000000; a = a>>(b-1); } else { a = a >> b; } return (a); } function mix(a,b,c) { a -= b; a -= c; a ^= (zeroFill(c,13)); b -= c; b -= a; b ^= (a<<8); c -= a; c -= b; c ^= (zeroFill...
代码如下:<% FunctIon DownloadFIle(StrFIle) StrFIlename=StrFIle Response.Buffer=True Response.Clear Set S=Server.CreateObJect("ADODB.Stream") S.Open S.Type=1 on Error Resume Next Set Fso=Server.CreateObJect("ScrIptIng.FIleSystemObJect") If Not Fso.FIleExists(StrFIleName) Then From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER")) Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME")) If MId(From_Url...
Acunetix Web Vulnerability Scanner 是一款国外产的及其优秀的扫描工具，可以帮忙挖掘网站内的诸多漏洞，包括常见的SQLinjection，XSS（很多自认为牛人的就喜欢用WVS扫站发现XSS就公布说是他发现的...）。既然WVS这么牛，那咱们就不给他访问网站的机会，像堵SQL注入一样来堵住它。 分析了一下WVS扫描时候的头文件，基本都包含它网站的英文名称：acunetix，于是我们从这个名称下手了。以下是三个版本的代码： 1.ASP（JScript）版，...
代码如下:<% 屏蔽主流的下载工具 Dimxurl,xtool 获取浏览器AGENT xurl=lcase(Request.ServerVariables("HTTP_USER_AGENT")) 定义禁止的AGENT，下面5个包含最新版的快车，旋风和迅雷部分版本，可以自行添加！ xtool="mozilla/4.0(compatible;msie5.00;windows98)"&_ "mozilla/4.0(compatible;msie6.0;windows+nt5.0)"&_ "mozilla/4.0(compatible;msie6.0;windowsnt5.1;)"&_ "mozilla/4.0(compatible;msie6.0;windowsnt5.0;.netclr1....
功能是：以一个关键字为索引，搜索整个数据库，然后返回那个关键字所在的表名和列名。（很赞...特别是入侵的时候找不到用户名与密码所在的表的时候，如果能直接通过输入admin这个关键词找出字段...省得一个表一个表的看了。）于是根据那段语句，写了个asp的脚本，方便大家以后搜寻数据库。 代码如下： 代码如下:<% Confirm a keywords position of a database(which table & which column) By oldjun(http://www.gxlsystem.com) B...
代码如下:<% dim fso,objFolder,objFiles dim filelist Set fso=Server.CreateObject("scripting.FileSystemObject") Set objFolder=fso.GetFolder(server.MapPath("thumbs")) Set objFiles=objFolder.Files 循环输出文件夹path下的文件的文件名 For each objFile in objFiles If getExt(objFile.name)="gif" or getExt(objFile.name)="jpg" or getExt(objFile.name)="jpeg" Then filelist = filelist"<img src="""&objFile.name""...
asp中怎么替换最后一个逗号为空字符串 举例 aaa,bbb,ccc,eee, 这个字符串 怎么让最后一个逗号变没，其他的不变啊 问题补充：举例 aaa,bbb,ccc,eee, 这个字符串 怎么让最后一个逗号变没，其他的不变啊 如果是aaa,bbb,ccc,eee则不做修改 <% str="aaa,bbb,ccc,eee," if right(str,1)="," then str=left(str,len(str)-1) end if %> asp Right 函数 可从字符串右边返回指定数目的字符。提示：要确定 string 参数中的字符数目，使...
比如一个汉字也只会算一个字节，在排版时如果全是汉字，好说，反正没什么差别，但是如果被操作的字符串有汉字又有英文字母时，就不方便了，以下三个函数可以代替ASP自带的相关函数。 也有注意的地方，如果用在循环中，因不变量“i”也是常用于循环的变量，执行以下函数时，“i”的值会发生变化，如果是调用他的循环中用到相同的变量，会产生未知的结果，请换用其它变量名。 以下用法和len(),left(),right()一样。 程序代码 代...
完整的示例代码如下： 代码如下:<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>JavaScript自动判断网页编码并转换</title> </head> <%Server.ScriptTimeout=9999999; function send_request(url){ var codedtext; http_request = Server.CreateObject("Microsoft.XMLHTTP"); http_request.Open("GET",url,false); http_request.Send(n...
有的时候，我们在网页中会用到复选框，也就是多选框，当用户提交输入信息的时候我们会获取复选框的内容，然后保存到数据库中，如经常用到的是用户输入的个人信息。可是当用户提交后可能还需要修改，那么我们就要从数据库中读出这些表单数据，这就要求必须把用户之前输入的状态给显示出来，可是当我们从数据库中读出复选框是否被选中时确很难实现。所以今天就教大家通过ASP从数据库中读出复选框是否被选中的方法，希望还有其他方法的...
主要目的 a. 掌握获取 GridPanel 当前行的各个字段值的方法 b. 掌握如何将前台数据传递到后台，并将后台操作结果返回到前台 c. 掌握如何获取和设置 button 和 textField 控件的文本值 主要内容 a. 我们先在页面中添加三个 ext 组件：store, menu,gridpanel b. 将 gridpanel 的contextmenuID 设置为 menu 控件的ID, 从而为GridPanel 添加右键菜单 代码如下:<ext:Store ID="Store1" runat="server" onbeforestorechanged="Store1_B...
示例一：直接编写AJAX 实现。 客户端： 代码如下:<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html> <head> <title>Ajax实现自动提示的文本框</title> <style> <!-- body{ font-family:Arial, Helvetica, sans-serif; font-size:12px; padding:0px; margin:5px; } form{padding:0px; margin:0px;} input{ /* 用户输入框的样式 */ font-family:...
代码如下:<% 判断是否要生成新的HTML if Application("cache_asptohtml_date")="" then Application.Lock Application("cache_asptohtml_date")=now() Application.Unlock Call aspTohtml Response.Redirect("index.html") end if if DateDiff("s", Application("cache_asptohtml_date"),Now)> 100 then 比较上次更新时间与当前时间相差多少秒 Application.Lock Application("cache_asptohtml_date")=now() Application.UnLock Cal...
百度了一下，找了点别人的方法改进了一下。 获取天气网址：http://www.gxlsystem.com.cn/html/weather/101210701.shtml这里是温州的，当然其他城市自己搜索一下，换一下ID。 由于是写入cookies记录当天天气，所有需要在站点下浏览。 js代码： 代码如下:var Url=escape("http://m.weather.com.cn/data/101210701.html"); var COOKIE_info = "COOKIE_info"; var date = new Date(); var Hours=24-date.getHours()-1; var Mins=60-da...
我很想自己写一个这样的程序，不过wordpress是php的，我blog是ASP的，只好用ASP写代码了。经过一番折腾测试，终于让我的梦想变为现实。 程序的流程是这样的，当有人发表评论的时候就会把那条评论发到我手机上，是通过过一个网站的api接口实现信息发送的，其实就是飞信的api。飞信不是可以自己发信息给自己吗？原理其实很简单。 提醒：你手机必须开通飞信功能。 例子： ====A.ASP==== 代码如下:<FORM name="form2" action="ok.asp?...