'-------------------去掉html js css
Function delHtml(strHtml)
Dim objRegExp, strOutput
Set objRegExp = New Regexp '' 建立正则表达式
objRegExp.IgnoreCase = True '' 设置是否区分大小写
objRegExp.Global = True ''是匹配所有字符串还是只是第一个
objRegExp.Pattern = "(<[a-zA-Z!*].*?>)|(<[\/][a-zA-Z!*].*?>)" '' 设置模式引号中的是正则表达式，用来找出html标签
解决生成html文件时 服务器端缓存的问题
思路一：清空服务器缓存
在Asp页面首部加入
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Function RemoveHTML(Textstr)
Dim sStr, regEx
sStr = Textstr
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
有时候缓存会给程序带来很大的麻烦，这段代码是用来清空IE缓存里的内容 .
1.禁止客户端缓存要在<head>中加入类似如下内)：
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
代码如下：
<html>
<body>
<%
dim x,y
for each x in Request.Cookies
response.write("<p>")
if Request.Cookies(x).HasKeys then
<%
'********站内链接开始***********
Rem 站内链接
function SiteLink(content)
Dim rsKey, sqlKey, i, Keyrow, Keycol, LinkUrl,link_Url
if isnull(content) then
'StationLinks() = ""
Asp程序批量导入excel数据时，提示：数值字段溢出
当excel里的数据类型不统一时，就会出现：“数值字段溢出”的提示，解决方法是：
把原来的sql语句换成 Set Rs=conn.Execute(Sql)
缺点是：不支持分页
以下代码在asp中运行，必须装aspjpge组件才能运行参考了aspjpge的说明文件和网上的一些资料，总结出aspjpge组件 给文字和图片加水印的方法，2段代码分开写，方便搬用
asp去掉Adodb.Stream输出UTF-8的BOM
在进行w3c认证的时候，发现通过asp程序生成的html文件在验证时遇到下面问题:
Byte-Order Mark found in UTF-8 File
最近做一个asp项目时碰到一个问题，在客户提交表格后有可能需要网页打印，可是网页中的表格在打印后会变的面目全非，很难控制，需要设置浏览器打印的一系列问题，于是就寻找一种可打印而不需要设置浏览器的办法
1、首先想到的就是写一个activeX控件，经过了解后发现此方法不通，由于许多用户都装有杀毒软件，在加载时就被禁止了。
2、既然改设置不行，就换个思路，发现pdf在网页中是不会变形的，那问题就是，网页能否直接生成为pdf文件呢？
经过调查发现有此组件可以解决，选择asppdf，在网上下载了一个试用版之后就动手开始了。
关于Jmail的配置和相关的存储过程的内容,这里有参考资料,我就不详细描述了.
配置好一切后,试图通过调用该存储过程发送一封邮件给管理员.但是查询分析器返回的结果是
错误源: jmail.Message
错误描述: The message was undeliverable. All servers failed to receive the message
首先怀疑是安全性问题引起的，对JMAIL.DLL文件的权限进行了设置
分析:从提示的错误中可以知道是由于 Request 引起的 说明发送的数据对错了突然想到 win2003 iis6 默认接收的数据是200KB 可能是POST数据超过了200KB解决办法:一、打开IIS在 本地计算机上查看属性如下图:
选中 允许直接编辑配置数据库二、用计事本打开 C:\Windows\System32\Inetsrv 中的 metabase.XML找到 As
最新评论