分类: 网络预览模式: 普通 | 列表

网络推广与百度关键词搜索

这段时间又开始去接触一些推广平台,比如小米公司的MIUI。其实我对小米的了解还真是不多,所以对这个据说是手机的操作系统(OS)也不熟,所以说对基于小米手机的所谓“平台”也没有什么概念了。

大概是上个月中吧,小米在深圳召开了几场“大数据智能营销构建小米移动生态系统——小米服务号全国招商发布会”的会议营销。

会议着重讲了MIUI的历史,听意思好像是MIUI是手机操作系统,与Androd和iOS是一样的性质?不是,只是一个外壳,可能是程序专业术语里讲的所谓“Shell”吧。据说这个的市场占有率相当高。

基本MIUI会打造一个叫MIUI生态系统的平台,这个平台有开放、不排他、非独家的特性。

这个平台对于商家来说有什么意义呢?是小米黄页,这个与小米服务号是什么关系我没大听懂。小米服务号是一个商业入口,具体的有通话、主页、推送、标签等。

小米服务号类似微信公众号,用户可关注。

查看更多...

Tags: 百度 平台 推广

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1006

引:这几天比较郁闷,网站一直有问题,代码也有很多错误,所以访问不顺。下面的方法不一定能解决问题,但也可以尝试一下,或者有助于问题解决。备忘、备查。

点击“开始”-“控制面板”-“管理工具”-“组件服务”-“计算机”-“我的电脑”-“DCOM”选项,

选择其下的“IIS ADMIN SERVICE”,右健选择“属性”,找到“安全”,在“启动和激活权限”中编辑“自定义”,添加帐号“NETWORK SERVICE ”,

给该帐号赋予“本地启动”和“本地激活”的权限,重新启动IIS(点“开始”-“运行”-“CMD”,点确定,然后运行IISRESET),

之后再访问同一站点,则一切正常。 

原因:独立进程的 内存堆戋消耗完了,IIS不能创建更多的进程工作空间来处理

查看更多...

Tags: IIS 应用程序池

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1068

 今天在给一台新的电脑安装IIS,Windows XP 系统,安装成功,建立虚目录后,运行一个已经在别的机器上的正确的asp文件,就是不成功,提示:Microsoft JET Database Engine (0x80004005)

未指定的错误,于是我又将这个文件放到另一台机器上运行,正常,一点问题没有,但在这台机器上就出问题。这样就排除了asp文件问题了。于是就想到,重装IIS。重装后,还是一样。最后发现是硬盘的分区有问题,那些安装好IIS后就能asp程序的电脑是fat32分区,这台是ntfs分区。需要给c:\windows\temp给予everyone所有权限。这样再运行就正常了。

下面是Microsoft JET Database Engine (0x80004005)未指定的错误的所有解决方法,转自网络,放在这里希望能帮上大家解决问题。

1.查看数据库连接语句没有发现错误;

2.查看文件夹的权限已经全部给了everyone;

3.打开数据库的同时,系统会在临时文件夹 %SystemRoot%/temp/ 下创建临时文件,而 %SystemRoot%/temp/ 的权限不够

查看更多...

Tags: IIS 0x80004005 WWW

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 837

本文是网络上找的,或许有用,摘录于此备忘。

通过下面的方法解决了,希望碰到这个问题的朋友可以参考下。如果不行看脚本之家以前发布的文章。

0. 测试环境

Windows Server 2003,IIS 6.0,Visual Studio 2005,.NET Framework 2.0,ASP.NET 2.0,MS SQL 2005

1. 现象描述

1)访问网站出现“Service Unavailable”错误

查看更多...

Tags: IIS Service Unavailable

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1185

[转]微信快速加好友的21个方法

玩微信这么久,特别像我做微信营销的,都想快速加满5000个好友,摸索了这么长的时间在这里给大家做一个小结,希望对大家有帮助!

 

 

1. 最怕一星期两星期不做了,人家就觉得你不做了,肯定销量不好。人家看你一直做,就会耐不住问你。人都是都惰性的,成功者保持持续的基情,失败者都是三分钟热度。

2. 零售价不得低,低价放货的代理提高拿货价。

3. 多和代理沟通,多关心她们,把她们当做你的合伙人,同伴,而不是打工者,让你的经销商对你死心塌地,不只是靠感情 还要靠你的情商,你的能力,尤其是你能帮助人家,真正的帮助人家。

4. 多交朋友,比如洗头聊天,最好一天换一个洗头,聊天可以问家哪的,你洗个头赚多少钱,底薪多少,提成多少,在她面前聊微信,人家问你干嘛的,就说我卖面膜的,人家问你工作呢,答我工作没有卖面膜赚钱,人家问我能不能做,先别急着答应,吊她一两天,说得和公司申请下。过两天再来时,说行吧,我先把你教起来怎么做微信,多个人知道我的价还不好,不是你来就给你拿货,我得先把你教会。然后安排她听课。

查看更多...

Tags: 微信 朋友圈 好友 微营销

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 739

ASP不能正确获得JPG图片的尺寸

 一般情况下,用下面的函数是可以正确获得JPG(不能是JPEG)图片的像素大小的,比如1024*768PIX这样的。

ASP/Visual Basic代码
  1. '获取图片的像素大小  
  2. Class imgInfo  
  3.     dim aso  
  4.     Private Sub Class_Initialize  
  5.         set aso=CreateObject("Adodb.Stream")  
  6.         aso.Mode=3  
  7.         aso.Type=1  
  8.         aso.Open  
  9.     End Sub  
  10.     Private Sub Class_Terminate  
  11.         err.clear  
  12.         set aso=nothing  
  13.     End Sub  
  14.   
  15.     Private Function Bin2Str(Bin)  
  16.         Dim I, Str  
  17.         For I=1 to LenB(Bin)  
  18.         clow=MidB(Bin,I,1)  
  19.         If ASCB(clow)<128 Then  
  20.         Str = Str & Chr(ASCB(clow))  
  21.         else  
  22.         I=I+1  
  23.         If I <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))  
  24.         End If  
  25.         Next  
  26.         Bin2Str = Str  
  27.     End Function  
  28.   
  29.     Private Function Num2Str(num,base,lens)  
  30.     dim ret  
  31.     ret = ""  
  32.     while(num>=base)  
  33.     ret = (num mod base) & ret  
  34.     num = (num - num mod base)/base  
  35.     wend  
  36.     Num2Str = right(string(lens,"0") & num & ret,lens)  
  37.     End Function  
  38.   
  39.     Private Function Str2Num(str,base)  
  40.         dim ret  
  41.         ret = 0  
  42.         for i=1 to len(str)  
  43.         ret = ret *base + cint(mid(str,i,1))  
  44.         next  
  45.         Str2Num=ret  
  46.     End Function  
  47.   
  48.     Private Function BinVal(bin)  
  49.     dim ret  
  50.     ret = 0  
  51.     for i = lenb(bin) to 1 step -1  
  52.     ret = ret *256 + ascb(midb(bin,i,1))  
  53.     next  
  54.     BinVal=ret  
  55.     End Function  
  56.   
  57.     Private Function BinVal2(bin)  
  58.     dim ret  
  59.     ret = 0  
  60.     for i = 1 to lenb(bin)  
  61.     ret = ret *256 + ascb(midb(bin,i,1))  
  62.     next  
  63.     BinVal2=ret  
  64.     End Function  
  65.   
  66.     Private Function getImageSize(filespec,filefrom)  
  67.     dim ret(3)  
  68.     select case filefrom  
  69.         case 1  
  70.             '1为同域文件,否则为异域文件  
  71.             aso.LoadFromFile(filespec)  
  72.         case 2  
  73.             ASO.Write filespec  
  74.             ASO.Position = 0  
  75.     end select  
  76.     bFlag=ASO.Read(3)  
  77.     select case hex(binVal(bFlag))  
  78.     case "4E5089":  
  79.     aso.read(15)  
  80.     ret(0)="PNG"  
  81.     ret(1)=BinVal2(aso.read(2))  
  82.     aso.read(2)  
  83.     ret(2)=BinVal2(aso.read(2))  
  84.     case "464947":  
  85.     aso.read(3)  
  86.     ret(0)="GIF"  
  87.     ret(1)=BinVal(aso.read(2))  
  88.     ret(2)=BinVal(aso.read(2))  
  89.     case "535746":  
  90.     aso.read(5)  
  91.     binData=aso.Read(1)  
  92.     sConv=Num2Str(ascb(binData),2 ,8)  
  93.     nBits=Str2Num(left(sConv,5),2)  
  94.     sConv=mid(sConv,6)  
  95.     while(len(sConv)<nBits*4)  
  96.     binData=aso.Read(1)  
  97.     sConv=sConv&Num2Str(ascb(binData),2 ,8)  
  98.     wend  
  99.     ret(0)="SWF"  
  100.     ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)  
  101.     ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)  
  102.     case "FFD8FF":  
  103.     do  
  104.     do: p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS  
  105.     If p1>191 and p1<196 Then exit do else aso.read(binval2(aso.Read(2))-2)  
  106.     do:p1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS  
  107.     loop while true  
  108.     aso.Read(3)  
  109.     ret(0)="JPG"  
  110.     ret(2)=binval2(aso.Read(2))  
  111.     ret(1)=binval2(aso.Read(2))  
  112.     case else:  
  113.     If left(Bin2Str(bFlag),2)="BM" Then  
  114.     aso.Read(15)  
  115.     ret(0)="BMP"  
  116.     ret(1)=binval(aso.Read(4))  
  117.     ret(2)=binval(aso.Read(4))  
  118.     else  
  119.     ret(0)=""  
  120.     End If  
  121.     end select  
  122.     ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &""""  
  123.     getimagesize=ret  
  124.     End Function  
  125.   
  126.     Public Function imgW(pic_path,filefrom)  
  127.         '参数filefrom是判断文件是远程http开头的还是本地的  
  128.         '1为本地,2为远程  
  129.         select case filefrom  
  130.             case 1  
  131.                 Set fso1 = server.CreateObject("Scripting.FileSystemObject")  
  132.                 If (fso1.FileExists(pic_path)) Then  
  133.                     Set f1 = fso1.GetFile(pic_path)  
  134.                     ext=fso1.GetExtensionName(pic_path)  
  135.                     select case ext  
  136.                     case "gif","bmp","jpg","png":  
  137.                     arr=getImageSize(f1.path,1)  
  138.                     imgW = arr(1)  
  139.                     end select  
  140.                     Set f1=nothing  
  141.                 else  
  142.                     imgW = 0  
  143.                 End If  
  144.                 Set fso1=nothing  
  145.             case 2  
  146.                 Arr=GetImageSize(pic_path,2)  
  147.                 imgW = Arr(1)  
  148.         end select  
  149.     End Function  
  150.   
  151.     Public Function imgH(pic_path,filefrom)  
  152.         select  case filefrom  
  153.             case 1  
  154.                 Set fso1 = server.CreateObject("Scripting.FileSystemObject")  
  155.                 If (fso1.FileExists(pic_path)) Then  
  156.                 Set f1 = fso1.GetFile(pic_path)  
  157.                 ext=fso1.GetExtensionName(pic_path)  
  158.                 select case ext  
  159.                 case "gif","bmp","jpg","png":  
  160.                 arr=getImageSize(f1.path,1)  
  161.                 imgH = arr(2)  
  162.                 end select  
  163.                 Set f1=nothing  
  164.                 else  
  165.                 imgH = 0  
  166.                 End If  
  167.                 Set fso1=nothing  
  168.             case 2  
  169.                 Arr=getImageSize(pic_path,2)  
  170.                 imgH = Arr(2)  
  171.         end select  
  172.     End Function  
  173. End Class  

但下面这两个图片却不行,没办法获得。

图片是用iPhone 5S手机拍摄的,并在电脑上简单编辑过的。

解决的方法比较简单直接,把图片转换成PNG的,就可以了。

查看更多...

Tags: 图片尺寸 图片大小 ASP

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 734

表头固定及滚动到窗口顶部悬浮的效果

表头固定

表头固定的效果有点类似于EXCEL里表格“冻结窗格”的效果。

 

JS的代码

JavaScript代码
  1. $(window).scroll(function(){  
  2. var h_num=$(window).scrollTop();  
  3.     if(h_num>125){  
  4.         $('.tag').addClass('fixer');  
  5.     }else{  
  6.         $('.tag').removeClass('fixer');  
  7.     }  
  8. });  

CSS的代码

CSS代码
  1. .tag{width:100%;margin:0px auto;margin-bottom:10px;background:#fff;}  
  2. .fixer{ width:100%;margin:0px auto;position:fixedtop:0px;background:#fff;box-shadow:0px 0px 5px #dddddd;z-index:290000;_position:absolute;_top:e­xpression(documentElement.scrollTop+10 + "px");}  

HTML的代码

XML/HTML代码
  1. <div class="tag">这里的内容当滚动到页面窗口顶部时将会悬停</div>  

查看更多...

Tags: 固定表头 窗口顶部悬浮 浮动

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1148

CSS在IE与FireFox不同效果点滴

表格(Table)居中的问题

关于Table(表格)在不同浏览器里居中效果不一样的发现:

<table align=center></table>

这样的代码在IE内核浏览器里,是可以居中显示的,但在FireFox里是不会的。

<table style="margin:0px auto;"></table>

这样的代码在FireFox里才会居中显示。

查看更多...

Tags: Table 居中 button CSS 浏览器

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 882