Welcome

首页 / 网页编程 / ASP

ASP去掉字符串头尾连续回车和空格的Function

2017-02-06 32
复制代码 代码如下:"去掉字符串头尾的连续的回车和空格 function trimVBcrlf（str） trimVBcrlf=rtrimVBcrlf（ltrimVBcrlf（str）） end function "去掉字符串开头的连续的回车和空格 function ltrimVBcrlf（str） dim pos,isBlankChar pos=1 isBlankChar=true while isBlankChar if mid（str,pos,1）=...

ASP IE地址栏参数的判断

2017-02-06 31
当地址栏没有参数＂id＂时：复制代码 代码如下:Request.QueryString["ID"] == null Convert.ToString（Request.QueryString["ID"]） == null 注意这样会出错： Request.QueryString["ID"].ToString（）; 当地址栏有参数＂id＂，但没有赋值的时候：复制代码 代码如下:Request.QueryString["ID"] == "" Requ...

SQL 注入式攻击的终极防范

2017-02-06 33
在讲这个问题之前让我们来先看一段代码： 复制代码 代码如下:dim sql_injdata,SQL_inj,SQL_Get,SQL_Data,Sql_Post SQL_injdata = ""|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" SQL_inj = split（SQL_Injdata,"|"） If Request.Quer...

ASP也使用ORM,给ASP上所有的SQL注入画上句号

2017-02-06 31
一般写ASP PHP代码的朋友都估计是采用直接操作SQL的吧~ 看以下的代码 <% dim conn,rs set conn=CreateObject（"Adodb.Connection"） conn.open .... set rs=conn.execute（"select * from news"）; ... 遍历 rs.... %> 这样实现速度快是肯定的了,但是在结构逻辑上面1条半条语句当然不觉得怎样！语句多了问题也就来了！ 参数没过滤...

asp select下拉菜单选择图标并实时显示

2017-02-06 33
静态方法：将下面的代码复制到<body>~</body>内 程序代码 <table cellpadding="2" width="226" cellspacing="2" border="0" > <tr> <td width="32" align="right"><img id=idface src="..../../../bbs/images/icon/1.gif" alt=个人形象代表...

判断Session的过期时间 采用JavaScript实时显示剩余多少秒

2017-02-06 30
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%session.timeout=1440 "单位（分钟）1440=24小时 参数不能大于24小时 也就是不能大于1440分钟%> <% if session（"login"）<>"888888" then"判断Session是否有效 Response.Write（"Session过期了"） end if %> <！DOC...

asp 动态生成rss（不成生xml文件）代码

2017-02-06 31
rss的优点 1.您可以有选择地浏览您感兴趣的以及与您的工作相关的新闻。 2.您可以把需要的信息从不需要的信息（兜售信息，垃圾邮件等）中分离出来。 3.您可以创建自己的新闻频道，并将之发布到因特网。 什么是 RSS？ RSS 指 Really Simple Syndication（真正简易联合） RSS 使您有能力聚合（syndicate）网站的内容 RSS 定义了非常简单的方法来共享和查看标题和内容 RSS 文件可被自动更新 RSS 允许为不同的网站进行...

ASP XML制作菜单管理程序

2017-02-06 30
以下是menu.asp代码 程序代码 <% "--------------------------------------- "作者:野 草 "日期:2006年4月24日 "Q Q:94440079 "--------------------------------------- "读取XML文件函数 Function YCMS_menu（） dim menu_temp,m Set goxml=Server.CreateObject（"Microso...

aspjpeg组件通用加水印函数代码

2017-02-06 30
aspjpeg组件实现加水印函数的调用方法： <%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg"） %> 复制代码 代码如下:function printwater（waterpath,upfilepath） Dim Logobox,LogoPath,ogvbox LogoPath = Server.MapPath（waterpath） Set Logobox = Server.Crea...

aspjpeg 添加水印教程及生成缩略图教程

2017-02-06 29
1、为图片加入水印功能 Dim Jpeg Set Jpeg = Server.CreateObject（"Persits.Jpeg"） " 建立对象 Jpeg.Open BlogPath & "/upload/" & FileName " 图片所在位置 Jpeg.Canvas.Font.Color = &H000000 " 颜色,这里是设置成:黑 Jpeg.Canvas.Font.Family = "方正隶变简体" " 设置字体 Jpeg.Canvas.F...

asp之自动闭合HTML/ubb标签函数附简单注释

2017-02-06 25
Function closeUBB（strContent） "************************************* "自动闭合UBB "************************************* Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match Set re = New RegExp "申明re对象 re.IgnoreCase = True "设置是否...

asp 读取文件和保存文件函数代码

2017-02-06 28
"************************************* "读取文件 "************************************* Function LoadFromFile（ByVal File） Dim objStream Dim RText RText = Array（0, ""） Set objStream = Server.CreateObject（"ADODB.Stream"） With objStream ...

asp 随机字符串函数

2017-02-06 34
"************************************* "asp计算随机数 "************************************* Function randomStr（intLength） Dim strSeed, seedLength, pos, Str, i strSeed = "abcdefghijklmnopqrstuvwxyz1234567890" seedLength = Len（strSeed） ...

asp form 表单验证函数

2017-02-06 30
"************************************* "检测是否只包含英文和数字 "************************************* Function IsvalidValue（ArrayN, Str） IsvalidValue = False Dim GName For Each GName in ArrayN If Str = GName Then IsvalidValue = True Exit Fo...

ASP 循环导入导出数据处理 不使用缓存

2017-02-06 30
<% "//数据处理部分 dim Content,Num,I,strCodea I=request（"I"） If len（I）=0 then I=0 Response.write "<br><div align=center>该程序目前已经循环处理了"&I&"次数据</div><br>" strCodea="UploadFiles/News" "//需要查询是否包含的字符串 strCodeb=""""...

asp 数据库连接函数代码

2017-02-06 47
以下是SQL连接代码： 复制代码 代码如下:Function Open_conn（） dim Conn,Strconn set Conn=server.createobject（"adodb.connection"） Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = （local）;" C...

asp查询xml的代码 不刷新页面查询的方法

2017-02-06 31
以下为引用的内容： <html> <head> <title>不刷新页面查询的方法</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <script language="javascript"> <！--初始化，将数据岛中数据装入列表框中-->...

ASP 快速执行动态网页

2017-02-06 32
这是一篇关于怎样精简代码和Asp 特征以获得最快执行速度的详细文章。对于一个急燥的用户来说，任何在按下用户按钮到结果出现在它们的屏幕之间的延迟可能意味着它们会转到浏览其它的站点？假如你的是商业站点，这有可能意味着失去潜在的销售。 我们没有任何办法控制用户的带宽，但我们的确能通过优化Asp 站点来获得最佳的*能。大部分潜在*能的提升是通过系统改变而不是紧缩代码，一个不合适的想法是，一旦遇到系统效率问题，就向系统**者提意见要其升级系统。 首先，哪个因素可能影...

asp实现本周的一周时间列表的代码

2017-02-06 43
复制代码 代码如下:td=date（） "此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期.. str="一二三四五六日" "生成具体是周几的串,根据位置来取就可以了.. for x=1 to 7 "这个循环主要是判断是最近的周一是哪天就可以了... if td-weekday（td）+1+x=td then "这个判断是要让当前日期显示红色,没什么特别的价值.. response.write "<font color=red>...

asp get和post数据接收过滤

2017-02-06 32
复制代码 代码如下:<% "--------定义部份------------------ 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|truncate|char|declare|drop...
<< 71 72 73 74 75 76 77 78 79 80 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图