推荐下天枫常用ASP函数封装，推荐大家使用(8)

        If url="" Then url="javascript:history.go(-1)"
        str2=str2&"  <a href="""&url&""" >返回继续管理</a>"
        Response.Write"<div style=""margin-left:5px;border:1px solid #0066cc;width:98%""><div style=""height:22px;font-weight:bold;color : white;font-size:14px;background:#799AE1;background:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;"">"&Str1&" </div><div style=""line-height:50px;background:#F7F7F7;vertical-align:middle;font-size:14px;width:100%""><div  style=""color:red;font:50px/50px 宋体;float:left;width:5%"">√</div><div  style=""margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;"">"&str2&"</div></div></div>"
    End Function

'－－－－－－－－－－－－－－安全处理－－－－－－－－－－－－－－－－－－－－－－－－－－－－    

    '****************************************************
    '函数名：ChkPost
    '作  用：禁止站外提交表单
    '返回值：true站内提交，flase站外提交
    '****************************************************
    Public Function ChkPost()
        Dim url1,url2
        chkpost=true
        url1=Cstr(Request.ServerVariables("HTTP_REFERER"))
        url2=Cstr(Request.ServerVariables("SERVER_NAME"))
        If Mid(url1,8,Len(url2))<>url2 Then
             chkpost=false
             exit function
        End If
    End function

    '****************************************************
    '函数名：PSql
    '作  用：防止SQL注入
    '返回值：为空则无注入，不为空则注入并返回注入的字符
    '****************************************************
    public Function PSql()
        Psql=""
        badwords= "'防''防;防and防exec防insert防select防update防delete防count防*防%防chr防mid防master防truncate防char防declare防|"