Asp技术 - 九核技术交流网，专注互联网！

2008-09-12asp获取数据库中所有表名和字段名
今天冒出来一个想法，在仅知道数据库名的情况下，用asp得到数据库中的所有表名、所有表的字段名、以及所有字段中的内容。经过一段时间查询资料和修改，终于做出来了，现在与大家分享。AfqohOTDPpbgkVsiqzT1T3Ppu7ZdDJYjc9iSjQmX < %'功能：显示数据库中表名、字段名、字段内容'原创：wangsdong'来源：aspprogram.cn'原创文章，转载请保留此信息，谢谢set rs=server.CreateObject("adodb.recordset")db="db1.mdb"set conn=server.CreateObject("adodb.connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)conn.open connstrSet rs=Conn.OpenSchema(20) Do Unt .... [阅读全文]
来源：互联网作者：

2008-09-12ASP + Serv-u 实现FTP的代码
<% '************************************************** '* 作者：awaysrain(绝对零度) * '* 完成时间：2003-10-10 * '* 测试环境：WIN2000SERVER，SERV-U 4.2-beta版 * '************************************************** Dim iniPath,iniFileName,iniStr,tmpStr,n Dim userName,passWor .... [阅读全文]
来源：互联网作者：

2008-09-12asp利用dictionary创建二维数组
这是asp利用dictionary创建二维数组的例子，这样做的优点是：S6uIkyqMzXhsVqCwXcFhSx54AqETqZq3U8LFuUk31、数组下标可以是字符串S6uIkyqMzXhsVqCwXcFhSx54AqETqZq3U8LFuUk32、长度不是固定的S6uIkyqMzXhsVqCwXcFhSx54AqETqZq3U8LFuUk3 <%’=========================================== ’ 功能：创建动态二维数组且数组下标可以是字符串 ’ 作者：wangsdong ’ 网站: http://www.aspprogram.cn ’ 文章为作者原创，转载请注明文章出处、保留作者信息，谢谢支持！ ’===========================================Set& .... [阅读全文]
来源：互联网作者：

2008-09-12适合所有表的添加、删除、修改的函数
由于数据库中的每张表中的字段名不一样，所以在写后台程序的时候，通常会写多个页面，对应不同的表。这里介绍一个函数，适合所有的表，不需要再为每一个表写添加，删除，修改页面了，这样会省下许多时间去做别的事。qXf9QHKxTHOQi1lq7T3Vc1aJ9cfmWb3bGnD6HEnR <%'===========================================' 函数功能：实现向数据库中任何表中添加、删除、修改内容' 作者：wangsdong' 网站: http://www.aspprogram.cn' 文章为作者原创，转载请注明文章出处、保留作者信息，谢谢支持！' 参数意义：tablename为表名,str的值是insert,delete,update 表示' 要执行的语句是添加、删除、修改。id为自动编号类型字段，使用方' 法见举例&n .... [阅读全文]
来源：互联网作者：

2008-09-12fso实现整个文件夹内容的复制到另一个文件夹中
这里是一个实现将一个文件夹中的内容，包括子文件夹中的内容，复制到另一个文件夹中的asp代码。在使用的过程中要将文件夹的相对路径转换成绝对路径。vkoL3LLLrqV9ABVvvvtV0IeX7HZCqgJj9ZMURRe5转换的方法是使用server.mappath。vkoL3LLLrqV9ABVvvvtV0IeX7HZCqgJj9ZMURRe5 <%startfile_1="d:\aaa" '原始文件夹tofile_1="c:\bbb" '目标文件夹Call copyfile(startfile_1,tofile_1)response.write "完成"function copyfile(startfile,tofile) 'startfile为原始文件夹路径,tofile为目标文件夹路径Set MyFileObject=Server.CreateObject("Scripting.FileS .... [阅读全文]
来源：互联网作者：

2008-09-12用ASP取出HTML里面的图片地址的函数
用ASP取出HTML里面的图片地址的函数主要原理就是用正则判断的属性。这在采集程序中将非常有用。bRGpD2zM0DFY6S8pCsRv45HXIa2QNmzP6mlSuk7d函数如下：bRGpD2zM0DFY6S8pCsRv45HXIa2QNmzP6mlSuk7d以下是引用片段：bRGpD2zM0DFY6S8pCsRv45HXIa2QNmzP6mlSuk7d Function ShowPic(str) Set objRegExp = New Regexp'设置配置对象 objRegExp.IgnoreCase = True'忽略大小写 objRegExp.Global = True'设置为全文搜索 objRegExp.Pattern = "<img.+?>&quo .... [阅读全文]
来源：互联网作者：

2008-09-12使用模板实现ASP代码与页面分离
每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历：ASP代码与页面HTML混淆难分，业务逻辑与显示方式绞合，使得代码难以理解、难以修改；程序编写必须在美工之后，成为项目瓶颈；整合的程序代码和HTML静态页面时，花费大量的时间才能得到理想的效果，兼作了美工。的确，用脚本语言开发Web应用不容易将数据的处理和数据的显示分开，但在多人合作的情况下，如果无法将数据和显示分开，将大大影响开发的效率，专业分工的发挥。zywpXjym2KVKivK5jrcwBKB1HB1qKWfnwoUi91dn其它的脚本语言，如JSP、PHP都有自己的解决方案，ASP的后一代产品ASP.NET也实现了代码与页面，似乎直接过渡到ASP是不错的选择。但是总有这样或那样的原因让我们不能或暂时不能放弃ASP直奔.NET大营。从公司角度来看，转换语言是一笔不少的投资，包括雇佣熟手.NET程序员、培训原有程序员、开发工具的转型、开发风格的转型、界面风格转变、接口风格、软件架构、文档、开发流程等等；这还意味着原有的代码必须在新语言环境里重写以实现最佳的效果和稳定性；同时将直接影响这段时间内项目的进度，更 .... [阅读全文]
来源：互联网作者：

2008-09-12asp利用正则去掉字符串中所有html内容
利用正则表达式去掉字符串中所有html内容,得到所有文本内容，去掉的内容有：div,img,超连接，script脚本等html内容。将以下例子保存为asp文件，运行一下就知道效果了。Ji4B3wZcFmuaDNURGNDot62dh0oRcFPQvz7lo5Ov <%Function RemoveHTML( strText )Dim RegExSet RegEx = New RegExpRegEx.Pattern = "<[^>]*>"RegEx.Global = TrueRemoveHTML = RegEx.Replace(strText, "")End Functionstr="<html><body><a href=""a.asp"&q .... [阅读全文]
来源：互联网作者：

2008-09-12asp网站通过限制请求防止被采集的函数
今天在网上看到防采集代码,我把它放到这里与大家共享。此代码的缺点是：也防了蜘蛛。3RRWbLEml1ePYRE1MAobf2I3Z0ut92T688OfqP3P <% Dim AppealNum,AppealCount AppealNum=10 '同一IP60秒内请求限制10次 AppealCount=Request.Cookies("AppealCount") If AppealCount="" Then response.Cookies("AppealCount")=1 AppealCount=1 response.cookies("AppealCount").expires=dateadd("s",60,now()) Else response.Cookies("App .... [阅读全文]
来源：互联网作者：

2008-09-12如何使用asp去字符串中的超链接
下面是一个去掉超链接的例子,改变一下,可以去掉其他的,如script、div、span等html代码C7aKlLhsZKl3hGdz9bM0RClKvaEfvwd1hMTME2eL <a href='1.html'>11111</a>2222 <a href='2.html'>3333</a>44444 想得到的结果是: 11111222233334444 <%Function regExReplace(sSource,pat .... [阅读全文]
来源：互联网作者：

2008-09-12asp图片采集并且本地重命名保存的函数
图片采集程序，将一个图片保存到本机上，并重新命名。ik7my7J5sxezOywyjPyj9WaVdSO365kfpshYjp4E ik7my7J5sxezOywyjPyj9WaVdSO365kfpshYjp4E <%'================================================'作用：保存远程的文件到本地'参数：LocalFileName ------ 本地文件名' RemoteFileUrl ------ 远程文件URL'返回值：True ----成功' False ----失败'================================================Sub SaveRemoteFile(s_LocalFileName,s_Remo .... [阅读全文]
来源：互联网作者：

2008-09-12如何有效提高asp页面的访问速度
打开asp页面的时候,页面需要访问数据库,然后将要符合要求的内容,显示到页面上来。若数据库中的记录很多，那么、页面的访问速度也就相对变慢，通过以下方法，可以提高页面的访问速度。EqKVrkD8XjMIsHDCatdpnWjMJL49wbiZTjdueOb4技巧之一：提高使用Request集合的效率 EqKVrkD8XjMIsHDCatdpnWjMJL49wbiZTjdueOb4访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的搜索，这比访问一个局部变量要慢得多。因此，如果打算在页面中多次使用Request集合中的一个值，应该考虑将其存贮为一个局部变量。EqKVrkD8XjMIsHDCatdpnWjMJL49wbiZTjdueOb4例如将代码写成下面的形式以加快脚本引擎处理速度： strTitle=Request.Form("Title") strFirstName=Request.Form("FirstName") strLa .... [阅读全文]
来源：互联网作者：

2008-09-12asp操作excel文件的函数
一、配置方法Y1HJDDED5iK803SMJp2L2Er9tEA4n1WpwAIbCahg1、开始---运行---dcomcnfgY1HJDDED5iK803SMJp2L2Er9tEA4n1WpwAIbCahg2、组件服务---计算机---我的电脑---dcom配置---Microsoft Excel应用程序(右键)---属性---安全Y1HJDDED5iK803SMJp2L2Er9tEA4n1WpwAIbCahg3、启动和激活权限选择自定义，点击编辑，添加用户everyone并给予所有权限Y1HJDDED5iK803SMJp2L2Er9tEA4n1WpwAIbCahg4、访问权限、配置权限同上Y1HJDDED5iK803SMJp2L2Er9tEA4n1WpwAIbCahg二、ASP对Excel的基本操作Y1HJDDED5iK803SMJp2L2Er9tEA4n1WpwAIbCahg1、建立Excel对象Y1HJDDED5iK803SMJp2L2Er9tEA4n1WpwAIbCahg set objExcelApp .... [阅读全文]
来源：互联网作者：

2008-09-12ASP采集中获取网页内所需的html代码
有时候,需要获取网页的html代码,如新闻采集。采集之前，首页要得到被采集的页面的html代码，然后根据代码，分析出你想要得到的内容，最后将得到的内容保存到自己的数据库中RWT4UqzpY5dZEWSqMZ60BVS4uigV5jXqlwCo47osfunction.asp <%Function getHTTPPage(url) On Error Resume Nextdim http set http=Server.createobject("Microsoft.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 thenexit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")set http=nothingIf Err.number<>0 then Response.Writ .... [阅读全文]
来源：互联网作者：

2008-09-12自动获取当前页面URL的ASP函数
自动获取当前页面URL的ASP函数：Vw7lmEo448wHGVl2UocDxl8Z9tQHmJEnyKTAUUap <%Function GetLocationURL() Dim Url Dim ServerPort,ServerName,ScriptName,QueryString ServerName = Request.ServerVariables("SERVER_NAME") ServerPort = Request.ServerVariables("SERVER_PORT") ScriptName = Request.ServerVariables("SCRIPT_NAME") QueryString = Request.ServerVariables("QUERY_STRING") Url="http://"&ServerName If ServerPort <> "80" The .... [阅读全文]
来源：互联网作者：

2008-09-12asp检测conn.execute是否执行成功的函数
asp检测conn.execute是否执行成功的函数：L286fHwezPpiFyYRn6GU7AFkXkV9jYLpK50PHN1X sql="update ……"conn.execute(sql)如何检测conn.execute更新成功?dim asql="update ……"conn.execute sql,aif a=1 then response.write "更新成功"else response.write "更新失败"end if L286fHwezPpiFyYRn6GU7AFkXkV9jYLpK50PHN1X .... [阅读全文]
来源：互联网作者：

2008-09-12用ASP自动清空IE缓存里的内容
有时候缓存会给程序带来很大的麻烦，这段代码是用来清空IE缓存里的内容uhbFJ96s1QJa1ieLUCAGbqwpCL7adoGoLVtNbzOO1.禁止客户端缓存要在<head>中加入类似如下内)：uhbFJ96s1QJa1ieLUCAGbqwpCL7adoGoLVtNbzOO <META HTTP-EQUIV="pragma" CONTENT="no-cache"> <META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate"> <META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT"> uhbFJ96s1QJa1ieLUCAGbqwpCL7adoGoLVtNbzOO2.在服务器的动态网页中禁止缓存 .... [阅读全文]
来源：互联网作者：

2008-09-12asp中将内容生成word文档的函数
日常工作中经常需要把很多内容直接转换成word文档，于是写了个生成word文档的asp函数，代码如下：hRbrZTacJpY8A3Qj7t2DB0sPUxoov8gzAP4r9jgi <html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 5.0"><meta name="ProgId" content="FrontPage.Editor.Document"><title>生成word文档</title></head><script language="vbscript"&g .... [阅读全文]
来源：互联网作者：

2008-09-12ASP按照字数限制自动截取标题内容
通常在显示新闻标题的时候，有时候标题中会出现汉字和英文共存，直接用left截字符串会出现两条新闻标题长度不一，使用这个函数可以解决这个问题。nLtB7SsHogBaoNSFshl0kRHzN96KrB59Ns5VxJi1 <%'**************************************************'函数名：gotTopic'作用：截字符串，汉字一个算两个字符，英文算一个字符'参数：str ----原字符串' strlen ----截取长度'返回值：截取后的字符串'**************************************************Function gotTopic(ByVal str, ByVal strlen) If str = "" Then &n .... [阅读全文]
来源：互联网作者：

2008-09-12asp中获取字符串中的时间字符串
由于时间在字符串中的值不一致性，会出现以下几中格式的字符串，没有办法用left,right,mid直接来获取，所以想到用正则表达式来实现这个功能（只要将这个功能改一下，就可以获取其他格式的字符串。TRtlZIctpIycR8YRMMxxddsZXsWQZKz2fje83KFw <%'str = "2007-01-01 12:12:12 问题 1234"'str="sdfd 01-01 12:12:12 问题" 'str="2007-01-01 12:12sdfdf" 'str="qqwq 01-01 13:14dddd"str="a2007-01-01sdddd"patrn="(\d+[-\:\s])+\d+"Response.Write(RegExpTest(patrn,str))Function RegExpTest(patrn, strng)Dim regEx, Match, Matches &nbs .... [阅读全文]
来源：互联网作者：

共有383条记录,20页,当前第 1 页 1 2 3 4 5 6 7 8 9 10 >>

9core.com - 九核技术交流网