qhdzj87的专栏

在ASP中，可以将Excel作为一种轻量级数据库，用于存取数据。下面是一个使用ASP连接Excel的代码实例。首先创建excel数据链接，然后打开连接，在excel中名为“招聘”的表格中查询id=1的一条数据，并打印StuName列的数据，最后关闭数据连接。Dim connstrconnstr="DBQ="&Server.MapPath("/shixizhaopin/gangwei.xls")&";DefaultDir=;DRIVER={Microsoft Excel D...

大部分人用的是虚拟空间,这篇文章讲解如何用支持ASP的虚拟空间来设置301重定向，但是你的程序必须是全站ASP,如果是生成静态的程序,是不行的,话不多说,我们继续:比如你现在的域名：www.a.com由于某种原因要换www.b.com域名了，但是又怕流量丢失，怎么办呢，别怕，可以用301重定向完全可以把www.a.com 或 www.a.com/*全部导到www.b.com或 www.b.com/*域名下面来。 用你的虚拟空间同时绑定www.a.com和www.b.com在你的a...

Response.Cookies("字段名").expires=时间函数+NResponse.Cookies("字段名").expires=date+1 '表示Cookies保存1天，Response.Cookies("字段名").expires=Hour+6 '表示Cookies保存6小时Response.Cookies("字段名").expires=Minute+20 '表示Cookies保存20分钟设置cookies过期时间的几种方法 Response.Cookies("user_name".

一、我们可以用 Request.ServerVariables("ALL_HTTP") 来取得所有参数即查看相应的结果值其中ServerVariables就是服务器的环境变量了，该变量包含的内容比较多，我们可以采用for循环进行遍历查看下。<%for each i in request.servervariables%><%=i%>:<%=request.servervariables(i)%><hr><%Next%>这样我们就...

ASP过滤html函数只保留纯文字。很好用呢，已经测试过了，没有什么问题。<%Function RemoveHTML(strHTML) '过滤HTML代码的函数包括过滤CSS和JSStrHtml = Replace(StrHtml,vbCrLf,"")StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"")StrHtml = Replace(StrHtml,Chr(13),"")StrHtml = Replace(St...

　　在ASP输出页面只是调出数据库里内容展现给用户看没有使用SESSION等动态属性，是可以CACHE的，以加快访问速度，具体操作方法如下：　　在asp程序页面顶上端加上： <% @Language="VBScript" %> <% Response.CacheControl = "max-age=300" %> 　　说明：　　max-age　CACHE时间参数　　300 缓存300秒...

　　asp、php与javascript根据时段切换CSS皮肤的代码　　一个网站能切换不同的CSS风格大家应该都了解，像众所周知的腾讯在今年改版时也增加了切换皮肤的功能。根据时间自动调整站点风格是不错的想法，这种根据时间自动调整站点风格也不是什么新鲜事，记得好久以前也见过类似的文章或方法，只不过当时没有特别注意。下面说一下它们的实现方法，目前网上有这样两种实现方法：　　一、采用服务端的代码　　ASP版本：　　<link rel="stylesheet" type="text/css"

　　用asp实现搜索引擎的功能是一件很方便的事，可是，如何实现类似3721的智能搜索呢？比如，当在搜索条件框内输入“中国人民”时，自动从中提取“中国”、“人民”等关键字并在数据库内进行搜索。看完本文后，你就可以发现，这个功能实现起来竟然是如此的简单。　　第一步，我们要建立一个名为db_sample.mdb的数据库（本文以access2000数据库为例），并在其中建立表T_Sample。表T_Sample包括如下字段：　　ID 自动编号　　U_Name 文本　　U_Info 备注　　第二步

isurl(url1,url2)通过xmlhttp验证网址的有效性，其中url1为要验证的网址，url2为如果出错，希望替换的网址。代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%function isurl(url1,url2) Set xmlHttp = CreateObject("Msxml2.XMLHTTP") '创建对象 On Error Resume Next '错误处理...

　　发现好多asp的系统在调用文章的时候如果不生成静态,输出的都是类似　　http://www.xxx.com/show.asp?id=26 这种格式的.　　如果可以换成 http://www.xxx.com/show/?26 这种格式,感觉清减了不少,当然对于支持伪静态的空间　　还可以设置成 http://www.xxx.com/show/26 据说着杨可以增加搜索引擎收录的几率.　　代码如下:　　首先建立一个show目录,建立一个index.asp文件,就是系统默认的那个文件　　

<% dim aurl if request.ServerVariables("HTTP_HOST")="net0510.com"then if Request.ServerVariables("QUERY_STRING") ="" then ifRequest.ServerVariables("url")="" then ...

在网站开发过程中，很多情况下，需要对网页上显示的文字长度进行限制，以便获得最佳的显示效果，例如：在首页中调取新闻标题时，标题的长度参差不齐，长短不一，若不加以限制和截取，必然导致太长的标题会撑爆页面，很不美观。既然如此，直接使用ASP中的left(Str,N)函数来截取指定长度的字符不就行了吗？但是，实际上这样做是有问题的，因为很多情况下一段文字中不仅包含汉字，而且包含数字和英文字符，而单个汉字和数字、英文字符所占的长度并不一样，left(Str,N)函数又仅仅是截取字符的个数而不是字节数。当一段文...

VBScript 是 ASP 服务端程序的常用语言，VBScript 解析 JSON是个问题.，自己写解析程序不太容易，碰到这问题, 第一个想到的就是 JScript 了。可以在ASP中使用 MS 的 脚本控件，调用JScript，对JSON数据进行解析。<% Dim scriptCtrl Function parseJSON(str) If Not IsObject(scriptCtrl) Then Set scrip...

VBScript中的函数可以是Sub，也可以是Function，但Sub是没有返回值的，而Function只能有一个返回值。这一讲主要介绍如何借助其他手段使Function也能有多个返回值。 方法1：借助Class' 定义一个有多个变量成员的类 Class MultiValue Dim a, b, c End Class Function ClassMulti(param1, param2, param3) Dim oClass ...

以下代码为转载，未经验证，仅供参考：<% Response.CodePage=65001%><% Response.Charset="UTF-8" %><%wenjian = request.Form("select") '获取文件扩展名ext = FileExec(wenjian)'判断文件扩展名if ext <> "xls" then response.Write("<script>alert('文件类型不对，请核实！')

ASP实现 将Excel表格数据批量导入到SQLServer数据库说明:1. 被导入的工作表格, 默认以Sheet1命名, 当然也可以指定为其他的, 但必须与程序中的相符.2. 被导入的工作表中,第一列第一行必须有数据.3. 被导入的工作表中的列数要与程序中相符.以下代码为转载，未经验证，仅供参考。'定义打开Excel表格的函数Function OpenExcel(path) dim excel,rs,strsql On Error Resume Next Set rs =

示例代码如下：<%dim FileNameFileName="Excel.xls" '取得文件名，来自项目经理的指定，路径固定在某个虚拟路径中Dim conn, rsset conn=CreateObject("ADODB.connection")conn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _"DriverId=790;" & _"Dbq=" & Server.mappath(""&F

isnull说明指针为空，指针指到一个无效的位置，即对象不存在，isempty说明指针指向一个有效位置，但是值为空1、空字符串例:a）Dim strTmpresponse.write(strTmp="") ' 返回trueb）response.write(str="") ' 返回 truec）Dim strTmpstrTmp=""response.write(strTmp="") ' 返回 true没有赋值的变量ASP可以认为是空字符串或叫做零长度字符串。2、IsEmpty（）如果..

今天接一小任务，要求随机排序显示数据库中的图片，在SQL Server随机排序（随机取N条记录）只需要简单地加个“Order By Rnd()"或”Order By NewID()"就搞定了，但是在access中貌似却很不好用，access中用以上排出来的结果每次都是一样的，百度，google了很久也没有找到比较方便快捷的办法，大多数都是建议用SQL语句查询出全部记录，然后再在进行随机排序...

ASP页面延时第一种方法：&lt;% Response.Buffer = True %&gt;&lt;%' Setup the variables necessary to accomplish the taskDim TimerStart, TimerEnd, TimerNow, TimerWait' How many seconds do you want them to wait.....

在使用ASP语言连接ACCESS数据库进行数据查询时，会用到相应的SQL语句，比如： select * from 表名 where 字段名 比较符(=、&lt;、&gt;、like等) 变量(或常量) 我们来进行实例分析，比如要求在table中查询title字段中包含“city”的条目，我们可以写成： select * from ta...

首先介绍一下本实例用到的核心函数: Rnd Rnd函数的作用就是返回一个随机数,这里有一个注意点: 因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子，所以对于任何最初给定的种子都会生成相同的数列。 所以在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有基于系统计时器的种子。 这里教大家一个产生指定范围的随机数的一个公式: Int((upperbound - lowerbound + 1) * R...

方法一：用excel组件 这种方法利用Excel组件直接导出excel文件，要求服务器端安装有微软office（Excel）程序，否则无法运行。 Set conn=server.CreateObject("adodb.connection") connstr="provider=microsoft.jet.oledb.4.0;data source="& Server.MapPath("/db.mdb") conn.open connstr set rs=server.cr..

实际上，在web开发中，cookie仅仅是一个文本文件，当用户访问站点时，它就被存储在用户使用的计算机上，其中，保存了一些信息，当用户日后再次访问这个站点时，web可以将这些信息提取出来。尽管现在听起来cookie没有什么激动人心的，但实际上利用它，你能实现许多有意义的功能！比如说：你可以在站点上放置一个调查问答表，询问访问者最喜欢的颜色和字体，然后根据这些定制用户的web界面。并且，你还可以保存访问者的登录密码，这样，当访问者再次访问这个站点时，不用再输入密码进行登录。当然，cookie也有一些不

例子：代码如下:Response.Cookies("letwego")("visiter")="84ww" '赋值Response.Cookies("letwego").Expires= (now() 7) '设置过期时间(7天)userName=Request.Cookies("letwego")("visiter") '取CookiesResponse.Cookies("letwego").Expires= (now()...

XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API。XmlHttp的三种版本方式：Microsoft.XMLHTTPMsxml2.XMLHTTPMsxml2.ServerXMLHTTP当采集程序报错时，可以通过替换进行尝试。...

今天给学校编写一个新生注册程序，在录入新生信息时发现执行到rs.update语句时，出现以下错误提示：Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'[Microsoft][ODBC Excel 驱动程序] 操作必须使用一个可更新的查询检查了excel文件属性及其所在目录属性，发现都已经给了iuser以写入权限，应该权限没有问题的。在baidu上也搜了很多，类似的问题都说是权限问题，后来最终在微软的官网上找到了下面的一段话.

自己的一个网站，之前一直使用ASP+ACCESS的组合。但access数据库的不足和弊端是显而易见的。近期，随着网站规模的扩大，对数据库的要求提高了，打算用MS SQL替换ACCESS数据库，上网查了一下，虽然有点小繁琐，但总体不是很难。于是决定实施，大致经历了本地个人电脑安装SQL Server 2008、用第三方工具转换ACCESS为MSSQL、ASP网站程序代码修改和本地调试、本地MSSQL...

最近在网站程序编写过程中遇到了需要获取网站目录实际路径的功能，如下图所示：上述代码是为了实现：从数据库中挑选符合条件的记录进行循环，先判断这条记录是否存在对应的图片（png）文件，是的话在site_image字段中写入图片的路径。其中，“判断是否存在对应的图片”，这个功能需要获取到网站在服务器中的真实路径值，就需要用到Server.MapPath这个方法进行提取。如上图所示，本例中，用...

最近在网站SEO优化中接触到了百度站长平台中的向百度主动推送网址的功能。百度开放了API接口给站长，以便广大站长进行调用，主动推送网址。可是百度给出的API调用示例没有ASP语言的，经过搜索相关文章，找到了前人探索出的用ASP调用API主动推送网址的方法：https://zhidao.baidu.com/question/268235943076276805.html不过在按照网友分享的方...

　　我们这里试输出一段字符：&lt;%response.write Server.UrlEncode("织梦幻影")%&gt;，页面显示结果为：%D6%AF%C3%CE%BB%C3%D3%B0，已成功编译。　　如果再对其进行反编译处理呢？ '该函数转自互联网function urldecode(encodestr) newstr="" havechar=false la...

最近做网站运营用到了邮件营销，使用了搜狐的sendcloud邮件代发平台。要想使用sendcloud平台发送邮件给客户，就必须调用他们的API接口进行批量发送，那么问题来了。sendcloud提供了好几种编程语言可以调用API进行发送，有PHP、python、C#等几种，但上述语言我都不太懂，虽然代码不复杂，但由于语法基础需要从头学，加上平台提供了纯HTML的API发送方法，就打算放弃用那些编程语...

虽然使用ASP有几年的时间了，但对ASP网络编程的了解和掌握还停留在初中阶段，一些不太常用的操作没有接触过，自然也没有学会。就拿ASP处理数据而言，用ASP连接数据库是网站开发的必备，这个当然是已经掌握的了。但使用ASP操作文件，恐怕使用频率就没那么高了。今年早些时候，学会了利用ASP的XMLHTTP和FSO组件进行网页内容获取和静态网页的生成，以及一般文件的移动、复制和删除等操作。但对于如何...

最近网站需要新增某项操作触发自动发送邮件功能，上网查了一些资料，需要ASP网站的服务器包含相应功能的组件，一般Jmail组件使用的比较普遍。找到了以下两组使用Jmail发送邮件的代码。使用方法：替换相应的内容，直接放到ASP网页中即可。代码一：&lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%&gt;&lt;%Set msg=Server.Creat...