在很多情况下都需要防止相同的表单被多次提交，很多人的实现方法都比较复杂(代码数量超过几十行！！)下面提供一种只需使用几行代码的方法，轻松地实现了防止用户刷新多次提交表单和使用后退钮重复多次提交表单。 

表单文件formtest.asp
　　
<%

阅读全文……

Function changechr(fString)   
If Not IsNull(fString) Then  
fString = trim(fString)   
fString = replace(fString, ";", "；")    '分号过滤   
fString = replace(fString, "--", "——") '--过滤   

阅读全文……

<%   
Function Cheack_Sqljs()'防止数据库外链JS注入:true为发现外链JS注入。   
    Dim F_Post,F_Get   
    Cheack_Sqljs=False  
    If Request.Form<>"" Then'表单提交时的检测   

阅读全文……

怎样通过ASP创建简易的OFFICE文档呢？快捷的生成word或excel文档进行办公应用处理！下面我们来详细讲解。
ASP具备动态输出任一Office应用程序文件格式的功能。在开始编写代码之前，我们首先需要做的就是设置正确的文件类型，因为浏览器需要知道如何处理文件。第二步是编辑文件名称，我们可以使用HTML和CSS来创建Word文档或Excel文档的样式。
下面这段例子代码可用于在线创建Word文档。

<%    

阅读全文……

' ============================================ 
' 格式化时间(显示) 
' 参数：n_Flag 
' 1:"yyyy-mm-dd hh:mm:ss" 
' 2:"yyyy-mm-dd" 

阅读全文……

以下的代码主要是用来加密数字型的，加密字符串型是不行的。
<%
'ASP加密程序
Function Encrypt(theNumber)
On Error Resume Next

阅读全文……Tag : ASP加密 | ASP解密

下面是一个搜索并分页的例子，在写分页的时候一定要把搜索的关键字放到分页的代码中进行传递，否则，翻页的时候就会出现错误了。
<!--#include file="conn.asp"-->
<%
'过滤搜索内容中的特殊字符
FUNCTION txtToURL(tekst)

阅读全文……Tag : ASP搜索 | 分页函数

这里为大家提供两种代码，一种是直接输出的方式，一种是调用代码的方式：
<%   
Dim MyDate,MyWeekDay   
MyDate=date()   
n = Weekday(MyDate)           

阅读全文……Tag : 获取星期

VBScript有两个用于格式化数字的负数。用函数Formatnumber()，你可以指定小数点后的显示位数，是否显示前导的零，显示负数时是否使用空格，和是否使用分隔符等。下面是一些例子及其返回值：
<%=Formatnumber(6665.8999)%>
6,665.90
<%=Formatnumber(“6665.8999”)%>
6,665.90

阅读全文……

作用：用ASP程序将页面中的电话号码生成图片格式。 
以下是引用片段：
<% 
Call Com_CreatValidCode(Request.QueryString("tel"))  
Public Sub Com_CreatValidCode(pTel)  

阅读全文……