asp 判断上传文件中是否存在危险代码

2017年02月06日 73 阅读

复制代码 代码如下:<% function CheckFileContent（FileName） dim ClientFile,ClientText,ClientContent,DangerString,DSArray,AttackFlag,k set ClientFile=Server.CreateObject（"Scripting.FileSystemObject"） set ClientText=ClientFile.OpenTextFile（...

asp 获取url函数小结

2017年02月06日 56 阅读

方法一：简单，得不到参数，只有一个虚拟路径 复制代码 代码如下: GetUrl =request（"url"） 例如：http://127.0.0.1/shiyan.asp？dfsdfsf=dsfsdfd&aa=dddd 获取为:shiyan.asp 复制代码 代码如下: <% dim changdu,url,ends,wurl changdu=len（request.ServerVariables（"URL"）） url=instrrev（req...

ASP 调用dll及封装dll实例

2017年02月06日 56 阅读

打开VB6，新建ActiveX DLL 2、在工程引用中加入Microsoft Active Server Pages Object Library选择 3、填加代码如下： 复制代码 代码如下: "Code Start "声明部分 Private MyScriptingContext As ScriptingContext Private MyApplication As Application Private MyRequest As Request P...

asp 实现的冒泡排序程序

2017年02月06日 60 阅读

复制代码 代码如下:arr = array（12,52,14,43,24,58,15,64,24,57,17,56,45） arrLen = ubound（arr） for i=0 to arrLen-1 for j = 0 to （arrlen -1）-i if arr（j）>arr（j+1） then temp = arr（j） arr（j）= arr（j+1） arr（j+1） = temp end if next next for each ...

asp 自定义分段函数/求第N名成绩

2017年02月06日 57 阅读

复制代码 代码如下:Function splitx（strs1 As String, strs2 As String, n As Integer） "自定义分段函数 splitx（[字符串],"分隔符",第n段） Dim groupST（） As String groupST = Split（strs1, strs2） If UBound（groupST） < n - 1 Then splitx = 0 Else splitx = groupST（n...

ASP 高级模板引擎实现类

2017年02月06日 59 阅读

复制代码 代码如下:Class template Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr Private TagName " *************************************** "设置编码 " *************************************** ...

ASP 常见的连接字符串写法（access2007）

2017年02月06日 56 阅读

Access 连接字符串 strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:MyDatabase.mdb;” Access 2007 连接字符串 strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Mode=Share Exclusive;Data Source=C:MyDatabase.accdb;” MSSQL Server 连接字符串 ...

ASP向Excel导数据（图片）终结版 ASP操作Excel

2017年02月06日 60 阅读

相信有很多人有用程序向Excel导数据的需求, 且做过. 一般导出一些文本数据是很方便的, 可选方法很多, 比如拼接文本字符串存.cvs格式（以逗号与回车符分隔数据,默认用Excel打开）, 比如把xls文件当成数据用SQL来操作 等等. 当需要导出图片数据的时候该怎么办？ 这就需要使用Excel.Application对象. 实际上用Excel.Application可以做到OfficeExcel软件所能做到的全部操作, 功能相当强大. 但我们每个人学习...

ASP实现防止网站被采集代码

2017年02月06日 58 阅读

复制代码 代码如下:<% Dim AppealNum,AppealCount AppealNum=10 "同一IP60秒内请求限制10次 AppealCount=Request.Cookies（"AppealCount"） If AppealCount="" Then Response.Cookies（"AppealCount"）=1 AppealCount=1 Response.Cookies（"AppealCount"）.Expires=Date...

ASP连接SQL2005数据库连接代码

2017年02月06日 59 阅读

说明： a、以下字符中数据库名forum，数据库服务器名WWW-2443D34E558SQL2005（或者127.0.0.1） b、查看sql数据库服务器名称：对象资源管理器->数据库->右键点击自己建的数据库->属性->权限 c、Provider=sqlncli也可以,UID与“=”之间不可以有空格，如果换用user id就可以有 空格，Initial Catalog可以换用database，pwd可以换用password，dat...

ASP程序与SQL存储过程结合使用详解

2017年02月06日 61 阅读

定义总是很抽象。存储进程其实就是能完成一定操作的一组SQL语句，只不过这组语句是放在数据库中的（这里我们只谈SQL SERVER）。如果我们通过创建存储进程以及在ASP中调用存储进程，就可以避免将SQL语句同ASP代码混杂在一起。这样做的好处至少有三个：第一、大大提高效率。存储进程本身的执行速度非常快，而且，调用存储进程可以大大减少同数据库的交互次数。第二、提高安全性。假如将SQL语句混合在ASP代码中，一旦代码失密，同时也就意味着库结构失密。第三、有利于...

asp 小偷采集程序原理与常用函数方法

2017年02月06日 60 阅读

用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么采集程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。一、事例 下面就XMLHTTP在ASP中的应用做个简单说明 复制代码 代码如下: <% "常用函数 "...

防盗链接ASP函数

2017年02月06日 56 阅读

简单介绍下功能吧：使用了ASP的一个对象ServerVariables（服务器环境变量），通过这个环境变量可以获取到真正的下载地址再通过一些简单的VBS内置函数破坏其真正地址的完整性。达到欺骗下载软件的功能。现附上源码提供大家学习。 复制代码 代码如下:<% FunctIon DownloadFIle（StrFIle） StrFIlename=StrFIle Response.Buffer=True Response.Clear Set S=Serv...

asp将table生成excel文件（xls）

2017年02月06日 58 阅读

复制代码 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if request（"action"）=1 then Response.ContentType="application/ms-excel" Response.AddHeader "content-disposition","attachment;filename=www.xls" end if %> <！DOCTYPE...

asp实现新评论自动发短信提示的代码

2017年02月06日 59 阅读

我很想自己写一个这样的程序，不过wordpress是php的，我blog是ASP的，只好用ASP写代码了。经过一番折腾测试，终于让我的梦想变为现实。 程序的流程是这样的，当有人发表评论的时候就会把那条评论发到我手机上，是通过过一个网站的api接口实现信息发送的，其实就是飞信的api。飞信不是可以自己发信息给自己吗？原理其实很简单。 提醒：你手机必须开通飞信功能。 例子： ====A.ASP==== 复制代码 代码如下: <FORM name="for...

asp最简单的生成验证码代码

2017年02月06日 97 阅读

为了防止再次被攻击，做个验证码过滤程序是必要的。我在网上找了一些资料，觉得用别人做好的代码总是很不爽，自己做麻又不会写复杂的代码，特别是生成图片的那种。尝试了网上的很多种方法都不行，不知道为什么，可能没经验吧。感觉挺复杂的。 最后花了一个小时写了一个超级简单的验证代码，哈哈绝对原创，只有十几行代码。是随机生成的，因为比较简单所以对付不了那些强大的发帖软件，不过总比没有的好，放上验证码之后观测了几天多是没有见到发垃圾帖了，应该有效吧，哈哈。 例子： ====...

ASP 常见对象总结（熟悉一下利用以后的开发使用）

2017年02月06日 59 阅读

ADO对象： Connection Command Recordset Record Stream ASP支持的对象很多，可以自己编写COM组件，下面是我们经常使用的： Server.CreateObject（"scripting.filesystemobject"） Server.CreateObject（"scripting.dictionary"）hashtable server.createxobject（"word.Application"）//...

ASP UTF-8编码生成静态网页的函数

2017年02月06日 59 阅读

以下函数采用FSO对象，文件位置在FSO.ASP。FSO对象的文件编码属性只有三种，系统默认，Unicode，ASCII，并没有我们要的utf-8，所以一般中文系统上使用FSO对象生成的文件都是gb2312网页编码格式，无法生成UTF-8编码，因此，英文等拉丁语系和中文可以正常显示，但象俄语等非拉丁语系，页面就会出现乱码。 复制代码 代码如下: function createfile（sfilename,scontent） set fso=server.C...

ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法

2017年02月06日 74 阅读

具体特征如下： 1、通过模板实现俄文正常。 2、通过后台数据库生成的静态俄文信息，后台显示正常， 前台乱码。 3、英文正常。 和该主题相关的类似或不同表达 FSO写UTF-8编码文件 FSO怎么才能生成utf-8编码的文件 FSO生成的文件默认是什么编码格式 如何转换成UTF-8编码 FSO生成静态网页的问题 ASP中用FSO生成文件代码如下 复制代码 代码如下: function createfile（sfilename,scontent） set fs...

asp Access数据备份,还原,压缩类代码

2017年02月06日 58 阅读

<！--#include file="config.asp" --> <！--#include file="Fun.asp" --> <% "数据库管理类 class Datas "备份 public sub Bk（） Set fso=server.createobject（"scripting.filesystemobject"） fso.CopyFile Server.MapPath（SiteDataPath）,Serve...