一段asp防注入的通用脚本

2017年02月06日 60 阅读

放在conn.asp里就行了。 "屏蔽通过地址栏攻击 url=Request.ServerVariables（"QUERY_STRING"） ifinstr（url,";"）>=1then url=Replace（url,";","；"）:Response.Redirect（"？"&url） endif "屏蔽通过表单攻击 foreachiteminrequest.form stritem=lcase（server.HTMLEncode（Reques...

十万条Access数据表分页的两个解决方法

2017年02月06日 93 阅读

我采用的方式是每页装入20条记录,循环写在表格中显示出来,再定四个翻页键用来查看数据,但问题是虽然是每次装入页面的记录只有二十条,但每次要打开记录集时还是必须一次性装入所有的记录,所以才慢。 解决方法一： 1.设置一个自增长字段.并且该字段为INDEX. 2.由于是ACCESS,所以,只能是前台分页.自增长字段目的,就是为了实现分页功能. 1>记录用户前页的最后一个自增值,例如M. 2>下一页,取下一页的开始值.M+1,结束值:M+1+1.5*...

asp下让数据库在需要读取的时候才打开第1/2页

2017年02月06日 60 阅读

细心的开发人员有时会想到，我们在一个需要读写数据库的页面里包含类似 <！--#includefile="conn.asp"-->的代码时，当你没有进行读取操作，数据库究竟是怎么样的状态呢？ 那么，我们有没有办法让数据库连接仅在需要读取数据库时才打开，不读取时就没有任何动作呢，以下即提供这种思路，以求抛砖引玉。 这种思路即是将数据库连接代码封装在函数里，在需要读取时调用这个函数。 以下是SQL连接代码： FunctionOpen_conn（） d...

ASP代码实现自动清除替换ACCESS（MDB）数据库的日文字符的

2017年02月06日 64 阅读

此时我们通常能想到的想法是找一个exe程序，把这个问题解决掉。我原来用C#写过这样一个类似的程序。 Google里面应该能找到我以前写的那个。就不说了。 后来某一天，我发现ASP就能实现。我当时真的觉得自己太屎了。 不过ASP的这种方法很不好。容易造成系统崩溃（如果数据库大）。 所以只是写在这里。算是抛砖引玉。 "下面我解释一下下： FunctionTransferJapanDc9CnInDB（） OnErrorResumeNext Err.Clear D...

原来ASP和PHP都是可以删除自身的

2017年02月06日 56 阅读

z.asp 复制代码 代码如下:<% s=Server.MapPath（"z.asp"） Setfso=CreateObject（"Scripting.FileSystemObject"） Iffso.FileExists（s）Then fso.Deletefile（s） EndIf Setfso=Nothing %>z.php 复制代码 代码如下:<？php $file="z.php"; if（file_exists（$file））{ ...

asp获取URL参数的几种方法分析总结 <font color=red>原创</font>

2017年02月06日 157 阅读

需要用到这个功能，没怎么测试呢，测试后给具体代码 假如地址是： http://dxy.com:8082/test/geturl.asp？Param-VR52tmx3syn03777.html 方法一：简单，得不到参数，只有一个虚拟路径 复制代码 代码如下:GetUrl=request（"url"）"这个因为我们没有url=什么字样所以直接pass掉方法二：得到整个URL，得到参数复制代码 代码如下:"得到当前页面的地址 FunctionGetUrl（） O...

asp+javascript实现404页的处理转换

2017年02月06日 55 阅读

主要是给用户的友好性，原来用户是依靠搜索引擎进入我每篇文章的，怎么能让用户让一个旧的页面跳转到新的页面，且文章不变，如： 程序代码 http://www.jb51.net/blog/article.asp？id=381//旧网址 进入之后自动跳转到 http://www.jb51.net/article.asp？id=381 这就需要new321服务器的404页来处理了，代码如下： 程序代码 <% url=Request.ServerVariable...

ASP+模板生成Word、Excel、html的代码第1/2页

2017年02月06日 71 阅读

大多数都是采用Excel.Application（http://www.blueidea.com/tech/program/2006/3547.asp）组件来生成发现容易出错，而且对于大多数和我一样的菜鸟来说，比较麻烦，考虑到前些天用ASP+模板+adodb.stream生成静态页面的办法，经过多次尝试，终于掌握了一种用ASP+模板生成Excel和word的新的办法，先分享如下： 用模板生成Excel、Word最大优点： Word、Excel文档样式易于控...

天枫常用的ASP函数封装如下

2017年02月06日 62 阅读

复制代码 代码如下:<% "－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ "天枫ASPclassv1.0，集常用asp函数于一体 "天枫版权所有"QQ:76994859EMAIL:Chenshaobo@gmail.com "所有功能函数名如下： "StrLength（str）取得字符串长度 "CutStr（str,strlen）字符串长度切割 "CheckIsEmpty（tstr）检测是否为空 "isInteger（pa...

asp获取当前文件名的代码

2017年02月06日 56 阅读

DimcurUrl:curUrl=Replace（Request.ServerVariables（"Script_Name"）,"/",""）...

ASP把长的数字用逗号隔开显示的代码

2017年02月06日 63 阅读

000000000000000000000000000000000000000000000000000000000000000 复制代码 代码如下:<% FunctionComma（str） IfNot（IsNumeric（str））orstr=0Then Result=0 ElseIfLen（Fix（str））<4Then Result=str Else Pos=Instr（1,str,"."） IfPos>0Then Dec=Mid（...

防止网页后退 asp禁止缓存

2017年02月06日 75 阅读

像一般网上很多禁止缓存的代码，有时并不可靠，这时你只要在操作的页面加上就可以了，在网页的里指定要定向的新页，再点后退，看是不是不会再退到刚才的操作页面了，实际上已经把这个历史给删除了 """"""""""""""""""""""""""""""""""""""""ASP脚本 Response.Buffer=True Response.ExpiresAbsolute=Now（）-1 Response.Expires=0 Response.CacheContr...

ASP的一些自定义函数整理第1/2页

2017年02月06日 67 阅读

<% "============================================================================================================================ "函数列表： "1：建立数据库的连接ConnOpen（DataBaseConnectStr,DBType,Conn_object） "2：断开数据库的连接ConnClose（Conn_object...

ASP个人网站与动网整合非官方方法

2017年02月06日 59 阅读

虽然动网已提供有详细的"动网论坛系统Api接口开发人员指南"，但像我这样的菜鸟一时半会可是参详不透的，汗。不甘心，在对其登录、验证等函数进行一番研究再加以测试后最终竟也小有所成，菜鸟也有菜鸟的办法: 本次测试的论坛版本为Version7.1.0Sp1，未对其他版本做进行测试 一、网站文件结构 wwwroot ┝index.asp ┝CheckUserLogin.asp ┕bbs/ 二、整合原理 对于同步更新实现不困难，整合主要问题就是难在同步登录，所以我们...

asp实现的可以提醒生日的几种方法附代码

2017年02月06日 76 阅读

asp生日自动提醒小程式 用ASP编写，调试通过，使用方便-asp birthday automatically remind small programs with the preparation of ASP, debug, easy to use方法一： 最初写的一个用于班级网站的最近一个月同学生日的提醒小程序。虽然不怎么样，而且很乱，但是最起码是自己动脑筋去想的，所以我比较看重。ASP程序虽然有好多可以借鉴人家的。但是我想更多时候，我们应该在经典上...

Access模糊查询查不到数据的解决方法

2017年02月06日 72 阅读

一般我们在程序里写模糊查询时都是写成如下这样： Select*fromtablewheretxtTitlelike"%脚本之家%" 不管连接的数据库是ACCESS还是SQLServer 但是最近写程序时总出现语句正确，但就是出不来结果的情况，比如：手动简单设置服务器安全，及引发的思考，这里提到我写服务查询时总是出不来结果的情况，时间长了，出这问题多了，我发现一个问题，如果按上面的写法写到程序里都是正确的，但是如果用ACCESS里的“查询”功能时会发现，同样...

asp源码打包成xml的工具

2017年02月06日 72 阅读

下边这个存为Pack.asp,打包文件时运行 复制代码 代码如下:<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%> <%OptionExplicit%> <%OnErrorResumeNext%> <%Response.Charset="UTF-8"%> <%Server.ScriptTimeout=99999999%> <！DOCTYPEhtmlPUBLIC...

透彻掌握ASP分页技术很详细的分析

2017年02月06日 64 阅读

首先，来看看效果！ 看看功能：分页程序首先读取每页预置的记录条数，在此是5条，其它将在下页中显示，同时提示当前页数、总页数、总记录数，当显示的页数为第一页时，“首页”、“上一页”链接失效，当显示的页数为最后页时，“下一页”、“尾页”链接失效。 接下来，以实例的方式告诉大家怎么一步步的做出这种分页效果。 首先，数据库中字段record_info存在于info表中（学习ASP分页的时候估计你对数据库也有了一定的了解），先链接数据库并将一个记录集打开，以下代码：...

asp下根据标题生成关键字的代码

2017年02月06日 54 阅读

"Function CreateKeyWords（KeyWords） "关键字生成系统 Dim i,L,TempStr KeyWords_Temp=reReplace（KeyWords, "[x00-xff]| | | |，|。|、|！|？|：|"|"|［|］|—|—|（|）|…", ""） L=Len（KeyWords_Temp） For i=1 To L-1 TempStr=TempStr & "," & Mid（KeyWords_Temp,i,2）...

asp取日期1月25日为0125的最简单方法

2017年02月06日 56 阅读

right（"0"&year（now）,2）&right（"0"&month（now）,2）&right（"0"&day（now）,2）&right（"0"&hour（now）,2）&right（"0"&minute（now）,2）&right（"0"&second（now）,2） ...