PHP 判断/移除 BOM(UTF-8)

Response.ContentType = "application/octet-stream"
response.AddHeader "Content-Disposition","attachment;filename=" & objRs("Attach_Name")& filetype
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.type=1

Tags: asp

分类:程序 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 954

session 丢失?没有了?

作者:Huison 日期:2008-10-07

(session 和application分不清的去去百度一下……)

1. 检查是否超时,默认是20分钟,设置的方法是Session.TimeOut=30;

2. 检查代码有无Session.Abandon()之类的。

Tags: session

分类:程序 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1013

ASP常用函数:HTMLFilter()

作者:Huison 日期:2008-09-03

<%
'过滤HTML各种标签样式脚本
'来源:http://jorkin.reallydo.com/article.asp?id=521
'需要RegReplace函数: http://jorkin.reallydo.com/article.asp?id=345

Function HTMLFilter(sHTML, sFilters)
    If sHTML & "" = "" Then Exit Function
    If sFilters & "" = "" Then sFilters = "SCRIPT,OBJECT"
    Dim aFilters
     aFilters = Split(UCase(sFilters), ",")
    For i = 0 To UBound(aFilters)
        Select Case UCase(Trim(aFilters(i)))
            Case "JORKIN"
                Do While InStr(sHTML, "     ") >0
                    sHTML = Replace(sHTML, "     ", "    ")
                Loop
            Case "SCRIPT"
                '// 去除脚本<scr ipt></scr ipt>及 onload 等
                sHTML = RegReplace(sHTML, "<SCRIPT[\s\S]*?</SCRIPT>", "")
                sHTML = RegReplace(sHTML, "\s[on].+?=\s+?([\""|\'])(.*?)\1", "")
                sHTML = RegReplace(sHTML, "(JAVASCRIPT|JSCRIPT|VBSCRIPT|VBS):", "$1：")
            Case "FIXIMG"
                sHTML = RegReplace(sHTML, "<IMG.*?\sSRC=([^\""\'\s][^\""\'\s>]*).*?>", "<img src=$2 border=0>")
                sHTML = RegReplace(sHTML, "<IMG.*SRC=([\""\']?)(.\1\S+).*?>", "<img src=$2 border=0>")
            Case "TABLE"
                '// 去除表格<table><tr><td><th>
                sHTML = RegReplace(sHTML, "</?TABLE[^>]*>", "")
                sHTML = RegReplace(sHTML, "</?TBODY[^>]*>", "")
                sHTML = RegReplace(sHTML, "<(/?)TR[^>]*>", "<$1p>")
                sHTML = RegReplace(sHTML, "</?TH[^>]*>", " ")
                sHTML = RegReplace(sHTML, "</?TD[^>]*>", " ")
            Case "CLASS"
                '// 去除样式类class=""
                sHTML = RegReplace(sHTML, "(<[^>]+) CLASS=[^ |^>]+([^>]*>)", "$1 $2")
                sHTML = RegReplace(sHTML, "\sCLASS\s*?=\s*?([\""|\'])(.*?)\1", "")
            Case "STYLE"
                '// 去除样式style=""
                sHTML = RegReplace(sHTML, "(<[^>]+) STYLE=[^ |^>]+([^>]*>)", "$1 $2")
                sHTML = RegReplace(sHTML, "\sSTYLE\s*?=\s*?([\""|\'])(.*?)\1", "")
            Case "XML"
                '// 去除XML<?xml>
                sHTML = RegReplace(sHTML, "<?XML[^>]*>", "")
            Case "NAMESPACE"
                '// 去除命名空间<o:p></o:p>
                sHTML = RegReplace(sHTML, "<\/?[a-z]+:[^>]*>", "")
            Case "FONT"
                '// 去除字体<font></font>
                sHTML = RegReplace(sHTML, "</?FONT[^>]*>", "")
            Case "MARQUEE"
                '// 去除字幕<marquee></marquee>
                sHTML = RegReplace(sHTML, "</?MARQUEE[^>]*>", "")
            Case "OBJECT"
                '// 去除对象<object><param><embed></object>
                sHTML = RegReplace(sHTML, "</?OBJECT[^>]*>", "")
                sHTML = RegReplace(sHTML, "</?PARAM[^>]*>", "")
                sHTML = RegReplace(sHTML, "</?EMBED[^>]*>", "")
            Case "COMMENT"
                '// 去除HTML注释, 会处理<script>和<style>内注释, 慎用
                sHTML = RegReplace(sHTML, "", "")
            Case Else
                '// 去除其它标签
                sHTML = RegReplace(sHTML, "</?" & aFilters(i) & "[^>]*?>", "")
        End Select
    Next
    HTMLFilter = sHTML
End Function

'功能:使用正则表示式对字符串进行替换
'来源:http://jorkin.reallydo.com/article.asp?id=345

Function RegReplace(Str, PatternStr, RepStr)
    Dim NewStr, regEx
    NewStr = Str
    If IsNull(NewStr) Then
        RegReplace = ""
        Exit Function
    End If
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = PatternStr
    NewStr = regEx.Replace(NewStr, RepStr)
    RegReplace = NewStr
End Function
%>

Tags: HTMLFilter()

分类:程序 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 869

生活名片2.1版发布

作者:Huison 日期:2008-07-21

这两天比较闲,就生活名片网友反馈比较多的问题进行了一些修正:

新增config.asp配置页面;
可管理城市分类;
可管理项目类别;
设置信息是否需要审核;
*设置默认城市和类别;
管理用户名和密码;
*前台标识语字数增最多至100字,可滚动显示;
*联系方式的更正;
*后台新增批量删除功能;
*增加分页功能;
*数据库升级请在服务器端运行db_update.asp文件;
*整站文件结构调整;

带*号均为此次升级的内容,其实是2.0基础上升级的.

即将更新的内容有:
后台推荐功能;
前台信息搜索功能;

本人美工不是很好,如有朋友肯帮助美化,将感激不尽:)
做精简的程序,做简单的生活名片!

Tags: 生活名片

分类:程序 | 固定链接 | 评论: 9 | 引用: 0 | 查看次数: 1614