19
2014
11

关于竞价订单系统最近快递单号查询不稳定的问题

由于本竞价订单系统查询快递信息是采用快递100的数据接口,近期由于双十一查询量巨大,导致部分时段查询快递出现错误信息,我们已经将相关问题反馈给快递100,相信很快就会解决相关问题。给大家造成的不便,敬请谅解!

yokoer_kuaidi.png

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/

27
2014
08

如何将订购代码嵌入到网站

一、首先要准备好产品的基本信息,包括产品名称和产品的套组,以一款比较流行的竞价产品:P57为例。以下是改产品的基本信息:

产品名称:P57

产品组合:a.体验组合装2盒¥399 b.享瘦组合装4盒¥699  c.惊喜组合装6盒¥899 d.终极组合装12盒¥1698

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
%>

20
2013
11

邮件接收订单的安全性设置

邮件接收订单的安全性主要是针对发件箱的安全设置,无论使用哪种语言系统发送订单到邮箱,都需要将发件箱的账号、密码以明文的方式存储在服务器上,一旦服务器被入侵,黑客可以直接盗取发件箱中的历史订单信息,所以对发件箱的安全设置尤为重要。以下以126邮箱为例,向大家讲解下如何最大程度的保证发件箱安全。


1、关闭不必要的服务

07
2013
11

如何有效的防止被刷单

曾几何时,笔者也经历过被人用软件刷单刷到爆的痛苦经历。为了真正意义上解决这个问题,在优客竞价订单系统中特意加入了多重防刷的机制。

1、开启下单验证码

此方法最便捷,效果也是最明显的,唯一的缺点是增加了用户输入的工作量。开启方式:进入后台-产品频道-渠道列表-点击需要编辑的渠道。

在弹出的编辑框中勾选“开启验证码”。

01
2013
11

优客竞价订单系统安装指导(图)

1.准备工作

有条件的情况下,我建议各位把订单系统和推广网站分开放置,推荐使用万网、新网等一些安全性较好的虚拟主机放置订单系统。