主页

过滤html JS Style标签

Monday, 2012/4/9 21:56 - quany


Function RemoveHTML(Textstr)
    Dim sStr, regEx
    sStr = Textstr
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True

More...

  • asp
  • 0 条评论

ASP/jsp自动清空IE缓存里的内容

Tuesday, 2012/3/20 09:21 - quany

有时候缓存会给程序带来很大的麻烦，这段代码是用来清空IE缓存里的内容 .

1.禁止客户端缓存要在<head>中加入类似如下内)：

<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">

More...

  • asp
  • 0 条评论

asp 输出所有的Cookies

Saturday, 2011/12/24 10:30 - quany

代码如下：

 

<html>
<body>

<%
dim x,y

for each x in Request.Cookies
  response.write("<p>")
  if Request.Cookies(x).HasKeys then

More...

  • asp
  • 0 条评论

比较好用的站内链接的asp代码，不替换html标签内的字符

Wednesday, 2011/10/12 21:40 - quany

<%
'********站内链接开始***********
Rem 站内链接
function SiteLink(content)
    Dim  rsKey, sqlKey, i, Keyrow, Keycol, LinkUrl,link_Url
 if isnull(content) then
  'StationLinks() = ""  

More...

  • asp
  • 0 条评论

批量导入excel数据时，提示：数值字段溢出

Friday, 2011/10/7 18:02 - quany

Asp程序批量导入excel数据时，提示：数值字段溢出

当excel里的数据类型不统一时，就会出现：“数值字段溢出”的提示，解决方法是：


把原来的sql语句换成 Set Rs=conn.Execute(Sql)

缺点是：不支持分页

  • asp
  • 0 条评论

aspjpge组件 给文字和图片加水印

Friday, 2011/9/16 16:48 - quany

以下代码在asp中运行，必须装aspjpge组件才能运行参考了aspjpge的说明文件和网上的一些资料，总结出aspjpge组件 给文字和图片加水印的方法，2段代码分开写，方便搬用

More...

  • asp
  • 0 条评论

asp去掉Adodb.Stream输出UTF-8的BOM（w3c认证时用）

Sunday, 2011/9/4 18:30 - quany

asp去掉Adodb.Stream输出UTF-8的BOM

在进行w3c认证的时候，发现通过asp程序生成的html文件在验证时遇到下面问题:

Byte-Order Mark found in UTF-8 File

More...

  • asp
  • 0 条评论

解决网页打印变形问题

Tuesday, 2011/8/23 14:26 - quany

最近做一个asp项目时碰到一个问题，在客户提交表格后有可能需要网页打印，可是网页中的表格在打印后会变的面目全非，很难控制，需要设置浏览器打印的一系列问题，于是就寻找一种可打印而不需要设置浏览器的办法

1、首先想到的就是写一个activeX控件，经过了解后发现此方法不通，由于许多用户都装有杀毒软件，在加载时就被禁止了。

2、既然改设置不行，就换个思路，发现pdf在网页中是不会变形的，那问题就是，网页能否直接生成为pdf文件呢？
经过调查发现有此组件可以解决，选择asppdf，在网上下载了一个试用版之后就动手开始了。

More...

  • asp
  • 0 条评论

VB控件:mscomm32.ocx下载(带注册程序)

Thursday, 2011/6/30 20:05 - quany

VB控件:mscomm32.ocx，带bat注册程序

作用：VB的一个串口控件。如果你的系统没有它，基于它的小程序将不能用。

文件列表：

 

点击下载：

 

 

More...

  • asp
  • 0 条评论

The message was undeliverable. All servers failed to receive the message

Wednesday, 2011/6/29 09:44 - quany

 关于Jmail的配置和相关的存储过程的内容,这里有参考资料,我就不详细描述了.

配置好一切后,试图通过调用该存储过程发送一封邮件给管理员.但是查询分析器返回的结果是

错误源: jmail.Message
错误描述: The message was undeliverable. All servers failed to receive the message

首先怀疑是安全性问题引起的，对JMAIL.DLL文件的权限进行了设置

More...

  • asp
  • 0 条评论

ASP 0104:80004005 问题解决方法

Friday, 2011/6/24 15:57 - quany

 分析:从提示的错误中可以知道是由于 Request 引起的 说明发送的数据对错了突然想到 win2003 iis6 默认接收的数据是200KB 可能是POST数据超过了200KB解决办法:一、打开IIS在 本地计算机上查看属性如下图:

 

 

 

 

 选中　允许直接编辑配置数据库二、用计事本打开 C:\Windows\System32\Inetsrv 中的 metabase.XML找到 As

More...

  • asp
  • 0 条评论

vbs 中如何取小数的余数?

Wednesday, 2011/6/22 16:00 - quany

VBS 中如何取小数的余数?

ys=a-(Fix(a/b)*b)
原理:a为被除数,如你题为1.5,b为除数,如你题为1,由a除以b之后的商的整数部分再乘以除数,再用被除数去减,就得到余数部分

例:a=4   b=3
余数应当为1
ys=4-(Fix(4/3)*3)=1

正数负数都可以显示出来

效果要比mod 好用

VB中通用

  • asp
  • 0 条评论

asp 常用自定义函数大全

Monday, 2011/5/23 13:47 - quany

==================================================
'函数名：GetHttpPage
'作 用：获取网页源码
'参 数：HttpUrl ------网页地址
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl="$False$" Then

More...

  • asp
  • 0 条评论
«123456»