ASP所有的Session变量获取实现代码
复制代码 代码如下:Dim strName, iLoop For Each strName in Session.Contents Response.Write strName & " - " & Session.Contents(strName)& "[BR]" Next 一般情况下，上面的代码可以工作得很好。但当Session变量是一个对象或者数组时，打印的结果就不正确了。 这样我们修改代码如... [阅读全文]
eofbof,关于ASP eof与bof 区别分析
if rs.bof then 表示：当前指针的位置是在第一行记录之前 if rs.eof then 表示：当前指针的位置是在最后一行记录之后 if not rs.eof then 表示：当前指针的位置没有到达最后一条记录 if not rs.bof then 表示：当前指针的位置没有到达第一条记录 －－－－－－－－－－－－－－－－－－－－－－－－－ ＃＃＃推荐使用下面两条 if not (rs.b... [阅读全文]
ajax验证,asp ajax注册验证之 防止用户名输入空格
check.asp 复制代码 代码如下: % '''''''''''''''''''''''''''''''''''' Function ReplaceText(fString,patrn,replStr) Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.Ig... [阅读全文]
中国集报论坛,asp sqlserver 执行存储过程返回记录集报对象关闭时不允许操作
如果要得到返回值，需要用Command的方法。 首先说明，返回值有两种。一种是在存储过程中直接return一个值，就象C和VB的函数返回值那样；另一种是可以返回多个值，存储这些值的变量名称需要在调用参数中先行指定。 这个例子要处理多种参数，输入参数，输出参数，返回记录集以及一个直接返回值（够全了吧？） 存储过程如下： 复制代码 代码如下: use pubs GO -- 建立存储过程 create ... [阅读全文]
获取扩展名,ASP 获取文件扩展名函数getFileExt（）
复制代码 代码如下:% '功能:取得文件扩展名 Function getFileExt(sFileName) getFileExt = Mid(sFileName, InstrRev(sFileName, ".") + 1) End Function % ... [阅读全文]
asp分页代码,asp 简单分页代码
复制代码 代码如下:% set rs=server.createobject("adodb.recordset") exce="sql" 'sql 查询语句 rs.open exce,conn,1,1 % 然后是分页属性的设置 % rs.PageSize=3 ‘设置页码 pagecount=rs.PageCount '获取总页码 page=int(request("page")) '接收页码 if... [阅读全文]
删除数据库记录,asp删除mssql数据库中没有记录的图片代码
采用双重循环。把图片进行“.”分割后名字问前面部分，那其余数据库中的 图片路径记录进行对比 采用vb的InStr函数 如果存在的话返回值0,过可以得出结论 代码如下deal.asp 复制代码 代码如下:%@ language="vbscript"% %response.Expires = 0% !--#include file="conn.asp"-- % Dim objFSO,objFolder... [阅读全文]
静态函数,asp 网站静态化函数代码html
复制代码 代码如下:Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld) if mulu="" then mulu="/" if htmlmulu="" then htmlmulu="/" mulu=replace(SysRootDir&mulu, "//", "/") htmlmulu=replace(Sy... [阅读全文]
split函数,asp利用Split函数进行多关键字检索
如题：我写入关键字到数据库，多的时候用|隔开了，我提取再做相关文章搜索的时候，我怎么提取用|隔开的文字啊，这样我就好用关键字做搜索啊 回复： 复制代码 代码如下: script language="vbscript" dim keywords,operator,operend,strsql keywords="服装|荷花|名牌|中国" strsql = "select * from table_n... [阅读全文]
文件上传,通过表单的做为二进制文件上传request.totalbytes提取出上传的二级制数据
复制代码 代码如下:input name="file" type="file" formsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrB(13) & chrB(10) divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) datastart=i... [阅读全文]
rss生成器,asp 动态生成rss（不成生xml文件）代码
rss的优点 1.您可以有选择地浏览您感兴趣的以及与您的工作相关的新闻。 2.您可以把需要的信息从不需要的信息（兜售信息，垃圾邮件等）中分离出来。 3.您可以创建自己的新闻频道，并将之发布到因特网。 什么是 RSS？ RSS 指 Really Simple Syndication（真正简易联合） RSS 使您有能力聚合（syndicate）网站的内容 RSS 定义了非常简单的方法来共享和查看标题和... [阅读全文]
asp下拉菜单,ASP XML制作菜单管理程序
以下是menu.asp代码 程序代码 % '--------------------------------------- '作者:野 草 '日期:2006年4月24日 'Q Q:94440079 '--------------------------------------- '读取XML文件函数 Function YCMS_menu() dim menu_temp,m Set goxml=Se... [阅读全文]
aspjpeg,aspjpeg组件通用加水印函数代码
aspjpeg组件实现加水印函数的调用方法： %printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") % 复制代码 代码如下:function printwater(waterpath,upfilepath) Dim Logobox,LogoPath,ogvbox LogoPath = Server.MapPath(waterpath) Set... [阅读全文]
缩略图水印,aspjpeg 添加水印教程及生成缩略图教程
1、为图片加入水印功能 Dim Jpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象 Jpeg.Open BlogPath & "/upload/" & FileName ' 图片所在位置 Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 Jpeg.Canvas.Font.Family =... [阅读全文]
函数注释格式,asp之自动闭合HTML/ubb标签函数附简单注释
Function closeUBB(strContent) '************************************* '自动闭合UBB '************************************* Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match Set re = New RegExp '申明r... [阅读全文]
vb函数代码,asp 读取文件和保存文件函数代码
'************************************* '读取文件 '************************************* Function LoadFromFile(ByVal File) Dim objStream Dim RText RText = Array(0, "") Set objStream = Server.CreateObject("... [阅读全文]
asp随机函数,asp 随机字符串函数
'************************************* 'asp计算随机数 '************************************* Function randomStr(intLength) Dim strSeed, seedLength, pos, Str, i strSeed = "abcdefghijklmnopqrstuvwxyz12345678... [阅读全文]
form表单验证,asp form 表单验证函数
'************************************* '检测是否只包含英文和数字 '************************************* Function IsvalidValue(ArrayN, Str) IsvalidValue = False Dim GName For Each GName in ArrayN If Str = GName Th... [阅读全文]
骑马砍杀导入导出,ASP 循环导入导出数据处理 不使用缓存
% '//数据处理部分 dim Content,Num,I,strCodea I=request("I") If len(I)=0 then I=0 Response.write "brdiv align=center该程序目前已经循环处理了"&I&"次数据/divbr" strCodea="UploadFiles/News" '//需要查询是否包含的字符串 strCodeb="""""/Uplo... [阅读全文]
asp数据库代码,asp 数据库连接函数代码
以下是SQL连接代码： 复制代码 代码如下:Function Open_conn() dim Conn,Strconn set Conn=server.createobject("adodb.connection") Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据... [阅读全文]
asp查询代码,asp查询xml的代码 不刷新页面查询的方法
以下为引用的内容： html head title不刷新页面查询的方法/title meta http-equiv="Content-Type" content="text/html; charset=gb2312" /head script language="javascript" !--初始化，将数据岛中数据装入列表框中-- function loadinsel() { var employ... [阅读全文]
asp动态网页,ASP 快速执行动态网页
这是一篇关于怎样精简代码和Asp 特征以获得最快执行速度的详细文章。对于一个急燥的用户来说，任何在按下用户按钮到结果出现在它们的屏幕之间的延迟可能意味着它们会转到浏览其它的站点？假如你的是商业站点，这有可能意味着失去潜在的销售。 我们没有任何办法控制用户的带宽，但我们的确能通过优化Asp 站点来获得最佳的*能。大部分潜在*能的提升是通过系统改变而不是紧缩代码，一个不合适的想法是，一旦遇到系统效率问... [阅读全文]
asp代码,asp实现本周的一周时间列表的代码
复制代码 代码如下:td=date() '此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期.. str="一二三四五六日" '生成具体是周几的串,根据位置来取就可以了.. for x=1 to 7 '这个循环主要是判断是最近的周一是哪天就可以了... if td-weekday(td)+1+x=td then '这个判断是要让当前日期显示红色,没什么特别的价值.. respons... [阅读全文]
getpost,asp get和post数据接收过滤
复制代码 代码如下:% '--------定义部份------------------ Dim XH_Post,XH_Get,XH_In,XH_Inf,XH_Xh,XH_db,XH_dbstr '自定义需要过滤的字串,用 "|" 分隔 XH_In = "'|;|and|exec|insert|select|delete%20from|update|count|*|%|chr|mid|master|... [阅读全文]
为google量身定做的sitemap生成代码asp版
外面很多所谓sitemap生成代码都只生成目录文件地址,没生成动态的,我后来自己写了这个,是支持动态的,例子: 如你是文章网站,文章有2000条,那你修改下对应你的文章数据表,即可生成除了所有目录文件外,还生成你的动态2000条地址,绝对的没话说,生成速度非常快 把下面代码保存为sitemap.asp文件,修改我已注明的几个地方,其他的一概不要修改,好不好用过才知道。复制代码 代码如下:!--#i... [阅读全文]
rss聚合,适合所有网站的rss和xml聚合功能asp代码
rss.asp格式的 下面代码保存为rss.asp 复制代码 代码如下:!--#include file="conn.asp"-- % strURL = "http://" & request.servervariables("server_name") & _ left(request.servervariables("script_name"),len(request.servervariab... [阅读全文]
ASP MSSQL存储过程的实现小例
sql复制代码 代码如下:CREATE PROCEDURE Proname //使用CREATE PROCEDURE 创建存储过程 Proname为存储过程名称 @Lname VARCHAR(30) //定义传入的参数 AS SET NOCOUNT _disibledevent=复制代码 代码如下://下面是建立与MSSQL SERVER连接的字符串，大家都知道，我就不讲了。 strConnect... [阅读全文]
动网论坛数据库,动网论坛的asp 数据库连接代码
复制代码 代码如下:%@LANGUAGE="VBSCRIPT"% % option explicit dim startime,endtime,conn,strCon,db startime=timer() Dim strSQLServerName Dim strSQLDBUserName Dim strSQLDBPassword Dim strSQLDBName '请填写数据库具体参数 '---... [阅读全文]
数据库注入,ASP+MSSQL2000 数据库被批量注入后的解决方法
mssql的每个varchar、text字段都被自动插入一段js代码，即使删除这段代码，如果没有从源头上解决，几分钟后，js代码就又会自动插入数据库。 经过飘易的观察，这很有可能是程序自动执行的，黑客先从搜索引擎google、百度等搜索存在漏洞的采用asp+mssql设计的网站，然后采用小明子这样的注入扫描工具，扫描整个网站，一旦发现有sql注入的漏洞或者上传漏洞，黑客就通过各种手段，上传自己的大... [阅读全文]
js正则函数,asp 去掉html中的table正则代码函数
'去掉html中的table代码 Function OutTable(str) dim a,re set re=new RegExp re.pattern="\[^]+()\" re.global=true a=str OutTable=re.replace(a,"") End Function ... [阅读全文]
