18
2016
10

【好站推荐】七公三七网

网站名称:文山七公三七网

网站地址:http://www.zhen37.cn/

创建时间:2016年10月18日

27
2016
03

ASP读取、解析JSON数据

第一种Jscript方式:

<script language="jscript" runat="server">  
    Array.prototype.get = function(x) { return this[x]; };  
    function parseJSON(strJSON) { return eval("(" + strJSON + ")"); }  
    </script>  
    <%  
    Dim json, obj  
    json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}"  
    Set obj = parseJSON(json)  
      
    Response.Write obj.a & "<br />"  
    Response.Write obj.b.name & "<br />"  
    Response.Write obj.c.length & "<br />"  
    Response.Write obj.c.get(0) & "<br />"  
      
    Set obj = Nothing  
    %>


12
2014
11

如何设置SPF来防止自建邮件服务器的邮件被拒收

什么是SPF?
 
(Sender Policy Framework) 的缩写,一种以IP地址认证电子邮件发件人身份的技术,是非常高效的垃圾邮件解决方案。
接收邮件方会首先检查域名的SPF记录,来确定发件人的IP地址是否被包含在SPF记录里面,如果在,就认为是一封正确的邮件,否则会认为是一封伪造的邮件进行退回。
 
如何设置外域邮箱的SPF记录呢?
 
为了提升外域邮箱(如Gmail)发送至邮箱邮件的成功率,建议您给自己的域名设置一条TXT记录来避免这种情况。
 
TXT记录值为:v=spf1 ip4:发信ip ~all


03
2014
11

adodb.stream的文件操作类


class files
    private adSaveCreateOverWrite    '创建文件的时候可以覆盖已经存在的文件.
    private    adCharset
    private adSaveCreateNotExist    '保存文件的时候如果文件不存在,可以创建文件.
    '*************************************************************
    '        事件名称:        Class_Initialize()
    '        事件发生条件:    类创建时候产生该事件
    '        事件内容:        给私有变量赋值
    '        事件传入参数:    无
    '*************************************************************
    sub Class_Initialize()
        adSaveCreateOverWrite =2
        adSaveCreateNotExist = 1
        adCharset="utf-8"
    end sub
    '*************************************************************
    '        函数名称:        function readfile(filepath)
    '        函数内容:        读出文件
    '        传入参数:        filepath:要读的文件的绝对路径
    '        返回参数:        要读的文件的内容.
    '*************************************************************
    function readfile(filepath)
        on error resume next
        dim stm2
        set stm2 =server.createobject("ADODB.Stream")
        stm2.Charset = adCharset
        stm2.Open
        stm2.LoadFromFile filepath
        readfile = stm2.ReadText
    end function
    '*************************************************************
    '        函数名称:        function writefile(filepath,str)
    '        函数内容:        写入文件
    '        传入参数:        filepath:要读的文件的绝对路径
    '                        str:    要写入的内容
    '        返回参数:        无返回
    '*************************************************************
    function writefile(filepath,str)
        on error resume next
        Set stm = server.createobject("ADODB.Stream")
        stm.Charset = adCharset
        stm.Open
        stm.WriteText str
        stm.SaveToFile filepath, adSaveCreateOverWrite
    end function
    '*************************************************************
    '        函数名称:        function copy(filepath_s,filepath_d)
    '        函数内容:        读出文件
    '        传入参数:        filepath_d:目的文件的绝对路径
    '                        filepath_s:源文件路径
    '*************************************************************
    function copy(filepath_s,filepath_d)
        on error resume next
        dim stm2
        set stm2 =server.createobject("ADODB.Stream")
        stm2.Charset = adCharset
        stm2.Open
        stm2.LoadFromFile filepath_s
        stm2.SaveToFile filepath_d, adSaveCreateOverWrite
    end function
end class

31
2014
10

IIS开启WOFF/SVG文件支持

IIS在默认设置下是不支持WOFF/SVG的,会显示404错误。需要添加MIME信息:

.woff  application/x-font-woff
.woff2  application/x-font-woff
.svg   image/svg+xml

如下图所示:

IIS6设置:

13
2014
10

metronic3.3.0-一款漂亮的后台管理模板

Metronic 是一套精美的响应式后台管理模板,基于强大的 Twitter Bootstrap 框架实现。Metronic 拥有简洁优雅的 Metro UI 风格界面,6 种颜色可选,76 个模板页面,包括图表、表格、地图、消息中心、监控面板等后台管理项目所需的各种组件。

在线演示地址:http://metronic.kp7.cn/

09
2014
07

ASP运行时错误

<%
option explicit
'例一---------------------------
'必须和on error resume next一起使用,但在网页没有正式发布之前最好将其注释掉,以免在调试时看不到出错详细信息
on error resume next
'i没有定义,会出错,使用catch清除错误并保存到记事本
i
call catch("页面无法访问")
'-------------------------------
'例二---------------------------
function conn()
    '必须和on error resume next一起使用
    on error resume next
    '...........你的连接数据库代码
    call catch("数据库打开错误")
end function
'-------------------------------
sub catch(str)
    if err.number <> 0 then
        dim tmp,path
        '错误日志绝对路径,如"/error_log.txt"
        path = "/table/error_log.txt"
        tmp = tmp & "出错页面:" & geturl & vbcrlf
        tmp = tmp & "错误时间:" & now() & vbcrlf
        tmp = tmp & "来访IP:" & ip & vbcrlf
        tmp = tmp & "提示信息:" & str & vbcrlf
        tmp = tmp & "错误代号:" & err.number & vbcrlf
        tmp = tmp & "错误信息:" & err.description & vbcrlf
        tmp = tmp & "应用程序:" & err.source & vbcrlf & vbcrlf & vbcrlf
        tmp = tmp & file_read(path)
        call file_save(tmp,path,1)
        err.clear()
        die(str)
    end if
end sub
'以下为catch所用到的函数--------------------
sub echo(str)
    response.write(str)
end sub
sub die(str)
    echo(str) : response.end()
end sub
function ip()
    ip = request.servervariables("remote_addr")
end function
'获取当前URL
function geturl()
    dim tmp
    if lcase(request.servervariables("https")) = "off" then
        tmp = "http://"
    else
        tmp = "https://"
    end if
    tmp = tmp & request.servervariables("server_name")
    if request.servervariables("server_port") <> 80 then
        tmp = tmp & ":" & request.servervariables("server_port")
    end if
    tmp = tmp & request.servervariables("url")
    if trim(request.querystring) <> "" then
        tmp = tmp & "?" & trim(request.queryString)
    end if
    geturl = tmp
end function
'函数:读取文件内容到字符串
function file_read(path)
    dim tmp : tmp = "false"
    if not file_exists(path) then file_read = tmp : exit function
    dim stream : set stream = server.CreateObject("ADODB.Stream")
    with stream
        .type = 2 '文本类型
        .mode = 3 '读写模式
        .charset = "gb2312"
        .open
        .loadfromfile(server.MapPath(path))
        tmp = .readtext()
    end with
    stream.close : set stream = nothing
    file_read = tmp
end function
'函数:保存字符串到文件
function file_save(str,path,model)
    if model<>0 and model<>1 then model=1
    if model=0 and file_exists(path) then file_save=true : exit function
    dim stream : set stream = server.CreateObject("ADODB.Stream")
    with stream
        .type = 2 '文本类型
        .charset = "gb2312"
        .open
        .writetext str
        .savetofile(server.MapPath(path)),model+1
    end with
    stream.close : set stream = nothing
    file_save = file_exists(path)
end function
'函数:检测文件/文件夹是否存在
function file_exists(path)
    dim tmp : tmp = false
    dim fso : set fso = server.CreateObject("Scripting.FilesyStemObject")
    if fso.fileexists(server.MapPath(path)) then tmp = true
    if fso.folderexists(server.MapPath(path)) then tmp = true
    set fso = nothing
    file_exists = tmp
end function
%>

07
2013
08

实用js选项卡代码

function Johnnytab(sT,sC){
   $(sT+":first").addClass("hover");
   $(sC).each(function(){$(this).hide()});
   $(sC+":first").show();
   $(sT).each(function(i){
                   $(this).click(function(){
                       $(sT).each(function(){$(this).removeClass("hover");})
                       $(this).addClass("hover");
                       $(sC).each(function(){$(this).hide();});
                       $(sC+":eq("+i+")").show();
                       })
                   });
   
}

17
2013
04

浅谈搜搜问问与百度知道推广的区别

搜搜问问,也是一个比较不错的问答网站,但是与百度知道推广相比,无疑的使搜搜问问黯然失色,不再使人那么受到大家的关注,但是,作为一个不错的问答网站,它在网站推广方面的价值也是不小,与百度知道可以说是可有千秋,今天,就让彭晋杰和大家一起来看看搜搜问问和百度知道做推广有什么样的区别。

百度知道:

优势:作为百度本身的产品,排名高,权重好,能够使你做出的推广内容得到更好的排名,有益于推广。

劣势:由于百度知道推广的优势,不需要花费多少精力就能够得到不错的推广效果,导致参与的人员越来越多,各种推广教程、研究教程也是层出不穷,所以导致百度推广的竞争性越来越大,因此,百度知道的审核机制也是越来越严格,网址链接不能放;QQ号码、电话号码不能放等等,规则是越来越多,令人如履薄冰;而且另一方面百度知道的排名虽然容易做,但因为排名大,竞争也大,也许你今天的排名不错,但是可能第二天就被他人超越,所以后期需要维护,这也是要花费不少精力的。

«1»