| 网络日志 |
javascript代码，uniocode与中文的转化
function runicode(s){var k=s.split(";"); var rs=""; for(i=0;i<k.length;i++){var m=k[i].replace(/&#/,""); rs+=String.fromCharCode(m);}return rs;}alert(runicode('%E6%82%A6%E8%BE%BE%E6%8A%95%E8%B5%84%E4%BC%A0%E9%97%BB'));
阅读全文
|
编辑
|
删除
| 2011-03-23 06:43:48 by 海蓝港湾 |
腾讯微博一键转
<img src="http://v.t.qq.com/share/images/s/weiboicon16.png" align="absmiddle"/> <a href="javascript:void(0)" onclick="postToWb('yuyuzi');" style="height:16px;font-size:12px;">转播到腾讯微博</a><script type="text/javascript"> function postToWb(myid){ var neiRong='【'+document.title.replace(/ -重症肌无力病友之家/,'】#重症肌无力病友之家#')+':'+document.getElementById(myid).innerText var _url = encodeURIComponent(document.location); neiRong=neiRong.substring(0,150-document.lo...
阅读全文
|
编辑
|
删除
| 2011-02-11 13:07:33 by 海蓝港湾 |
用于网页内容修改的一段js代码
javascript:var a=document.body.innerHTML;a=a.replace(/[）)]/ig,'#）');a=a.replace(/[（(]/ig,'传闻#（#');var b=document.getElementsByTagName('p');document.body.innerHTML=a;for(var i=0;i<b.length;i++)b[i].innerText='#'+b[i].innerText;void(0);
阅读全文
|
编辑
|
删除
| 2011-02-11 08:35:05 by 海蓝港湾 |
玩转腾讯微博一键转
使用以下代码：<img src="http://v.t.qq.com/share/images/s/weiboicon16.png" align="absmiddle"/> <a href="javascript:void(0)" onclick="postToWb('yuyuzi');" style="height:16px;font-size:12px;">转播到腾讯微博</a><script type="text/javascript"> function postToWb(myid){ var neiRong=document.title.replace(/重症肌无力病友之家/,'#重症肌无力病友之家#')+':'+document.getElementById(myid).innerText var _t = encodeURIComponent(neiRong); var _url = encodeURIComponent(document.location); va...
阅读全文
|
编辑
|
删除
| 2011-02-07 08:11:27 by 海蓝港湾 |
11月9日研究的一段Javascript代码
javascript:function dianji(){document.frames[1].frmtimer.update.onclick();return true;}settInterval(dianji,120000); void(0);
阅读全文
|
编辑
|
删除
| 2010-11-09 08:47:08 by 海蓝港湾 |
继续教育网站验证码识别
验证码地址： http://www.teacher.com.cn/ImageCode.aspx调用方式： DownNetFile "http://www.teacher.com.cn/ImageCode.aspx", "h:\123.jpeg"Private Sub DownNetFile(ByVal nUrl As String, ByVal nFile As String) Dim XmlHttp, B() As Byte Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", nUrl, False XmlHttp.Send If XmlHttp.ReadyState = 4 Then B() = XmlHttp.ResponseBody &nbs...
阅读全文
|
编辑
|
删除
| 2010-10-17 21:03:45 by 海蓝港湾 |
vb6.0，killCookie
Private Sub killCookie() Dim i As Long Dim strCookies() As String, strCookie() As String strCookies = Split(Me.WebBrowser1.Document.cookie, ";") For i = 0 To UBound(strCookies) strCookie = Split(strCookies(i), "=") If UBound(strCookie) = 1 Then InternetSetCookie Me.WebBrowser1.LocationURL, strCookie(0), "" End If&nb...
阅读全文
|
编辑
|
删除
| 2010-10-14 22:22:42 by 海蓝港湾 |
硬盘坏了
前几天硬盘坏了，所有数据都丢失了。 凌晨2点，干到4点，把网站下载下来了。今天计划把网站拷贝下来后，刻录到光盘备份。下午五点，花费了一个小时后刻录完成。
阅读全文
|
编辑
|
删除
| 2010-09-27 16:34:56 by 海蓝港湾 |
充电站概念股
充电站概念股 “充电站”热度尚不高过去的约3周时间，大盘经历了一波惨痛下跌。然而看着西藏矿业逆市上扬，中信国安获巨额融资买入，亿纬锂能8日填满权，多氟多每日都获机构资金买进……那一片抗跌普涨的锂电池股，大市的走弱对它们似乎没有丝毫影响。然而资金在同一个概念上的亢奋并不会持久。补贴细则出台后部分锂电池股出现“见光死”，杉杉股份、江苏国泰等“老资格”，其二级市场股价在本周都步入调整阶段。新能源汽车后市...
阅读全文
|
编辑
|
删除
| 2010-08-26 13:21:24 by 海蓝港湾 |
000616亿城股份投资分析
事件：亿城股份(000616,股吧)公布 2010 年半年报，公司实现营业收入 10.28 亿元，归属于母公司净利润 6442.4 亿元，实现基本每股收益 0.06 元。正文：1、 归属于母公司利润同比下滑 30.46%，主要原因是结算项目毛利率的下滑。公司上半年销售收入同比增长 21.47%，毛利率 27.72%，毛利率下滑了 7.87%。2、 现金充裕、负债合理。目前公司账面资金 25.10 亿元，资产负债率 65.94%，扣除预收占款资产负债率 40.40%，资金链较为安全。3、 预售资金充裕，10 年业绩基本锁...
阅读全文
|
编辑
|
删除
| 2010-08-26 10:37:24 by 海蓝港湾 |
|
[ 1 2 3 4 5 6 ]
|
| 档案文件 |
| 姓名： |
海蓝港湾 |
| 年龄： |
55 |
| 性别： |
男 |
| 职业： |
教师 |
| 位置： |
中国
山西
|
|
|
|
查看档案文件详细信息 |
|
