博文
Cookies常用命令简介(2007-01-30 15:30:00)
摘要：什么是Cookies？Cookies是数据包，可以让网页具有记忆功能，在某台电脑上记忆一定的信息。Cookies的工作原理是，第一次由服务器端写入到客户端的系统中。以后每次访问这个网页，都是先由客户端将Cookies发送到服务器端，再由服务器端进行判断，然后再产生HTML代码返回给客户端，这是一个很重要的原理。关于服务器端和客户端的概念，请点击我写的这篇：什么是服务器端和客户端，举了2个实例。
Cookies在ASP中的最常用的方法，请做好笔记：
1.如何写入Cookies？Response.Cookies("字段名")=变量或字符串，例如：Response.Cookies("str")="username"
2.如何设置Cookies时间？Response.Cookies("字段名").expires=时间函数+N，例如：Response.Cookies("str").expires=date+1，表示Cookies保存1天，再比如：Response.Cookies("str").expires=Hour+8，表示Cookies保存8小时。
3.在以往的ASP教程中，很少有介绍Cookies退出的方法。在“退出”这个ASP页中可以这样写：Response.Cookies("字段名")=""之后，在客户端的浏览器就清除了Cookies，并且Cookies文件会消失。注意有多少个字段，就要写多少句来清除。
4.如何读取Cookies？变量名=Request.Cookies("字段名")，例如：str=Request.Cookies("str")如果网页中写入<%=str%>这句，则会显示“username”。也可以这样直接读取Cookies，<%=Request.Cookies("str")%>
Cookies是属于Session对象的一种。但有不同，Cookies不会占服务器资源；而“Session”则会占用服务器资源。所以，尽量不要使用Session，而使用Cookies。......
动态生成文本框(2007-01-29 10:01:00)
摘要：<script language="javascript"> function setid() { str='<br>'; if(!window.form1.upcount.value) window.form1.upcount.value=1; for(i=1;i<=window.form1.upcount.value;i++) str+='文本框'+i+':<input name="MusicName'+i+'" size=20><br>'; window.upid.innerHTML=str+'<br>'; } </script> <form name="form1" method="POST" action="addsong.asp"> <li>需要添加 <input type="text" name="upcount" class="tx" value="1"> 个文本框<input type="button" name="Button" class="bt" onClick="setid();" value="· 确定 ·"> </li> <div id=upid></div>......
特殊的下拉列表(2007-01-22 21:29:00)
摘要：下拉列表中有选项,但是又不允许选择,详细代码:<select name="dest"> <optgroup label="==请选择文件夹=="> <option value="6993628">选项1</option><option value="6993629">选项2</option><option value="6993630" selected>选项3</option><option value="6993631">选项4</option><option value="6993632">选项5</option><option value="6993633">选项6</option><option value="6993634">选项7</option> </optgroup> </select>......
只去掉html中的链接(2007-01-09 14:31:00)
摘要：<p><a href='1.html'>11111</a></p><p>2222</p> <p><a href='2.html'>3333</a></p><p>44444</p> 想得到的结果是: <p>11111</p><p>2222</p><p>3333</p><p>4444</p>
<%Function regExReplace(sSource,patrn, replStr) Dim regEx, str1 str1 = sSource Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True regExReplace = regEx.Replace(str1, replStr) End Function
dim c1,c2 c1="<p><a href='1.html'>11111</a></p><p>2222</p> <p><a href='2.html'>3333</a></p><p>44444</p> " c2=regExReplace(c1,"<a.*?>|</a>","")response.Write(c2) %>......
保存一个指定url的文件到本机上(2007-01-09 12:22:00)
摘要：<%'================================================'作 用：保存远程的文件到本地'参 数：LocalFileName ------ 本地文件名' RemoteFileUrl ------ 远程文件URL'返回值：True ----成功' False ----失败'================================================Sub SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData On Error Resume Next Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", s_RemoteFileUrl, False, "", "" .Send GetRemoteData = .ResponseBody End With Set Retrieval = Nothing Set Ads = Server.CreateObject("Adodb.Stream") With Ads .Type = 1 .Open .Write GetRemoteData .SaveToFile Server.MapPath(s_LocalFileName), 2 .Cancel() .Close() End With Set Ads=nothingEnd Sub%>
<%path="./pic/1.gif"Call SaveRemoteFile(path,"http://image2.sina.com.cn/ent/v/m/2006-0......
网站推广(2007-01-02 19:54:00)
摘要：
网站推广
将您的网站登记到各大搜索引擎中，将非常有利于您网店的推广。以下是常见搜索引擎的登记入口，打开后填写您的网站资料即可能被这些搜索引擎收录。
·免费登陆Google搜索引擎
推荐程度：★★★★★
·免费登陆BaiDu搜索引擎
推荐程度：★★★★★
·免费登陆雅虎中国
推荐程度：★★★★★
·免费登陆YiSou搜索引擎
推荐程度：★★★★★
·免费登陆SoGou搜索引擎
推荐程度：★★★★★
·免费登陆8848购物引擎
推荐程度：★★★★★
·免费登陆“中国搜索”
推荐程度：★★★★★
·免费登陆中华网搜索引擎
推荐程度：★★★★★
·免费登陆千度搜索引擎
推荐程度：★★★★★
·免费登陆孙悟空搜索引擎
推荐程度：★★★★★
......
迅速提高个人网站的点击量 (2006-12-31 17:07:00)
摘要：1、如何让用户知道并访问你的网站，主要方法如下： a. 口碑：这是最好的方法，用户告诉另一个用户你的网站好。我记得我是从朋友的嘴里知道Google和百度网站的 b. 搜索引擎：通过我们对多个网站的综合统计，搜索引擎是通常网站来源的重要部分，大约占到70-80%，所以对搜索引擎的关键字研究是必要的。 c. 友情链接：与同类型网站进行相互的链接交换，会互相提高各自的访问量，也会给用户带来方便 d. 传统的方式：您的名片、产品说明、包装、传统媒体等都是传播您的网址的有效途径 e. 其他：比如Email、QQ、论坛、功能代码外嵌等方式都可以达到推广的目的 2、那么如何让用户回访并依赖你的网站，主要方法如下： a. 内容吸引：网站的关键在于内容，只有用户对您的内容感兴趣才能不断的回访您的网站。 b. 功能吸引：如果您的网站中有一些功能会是对方实用的，感兴趣的也会留住用户 c. 利益：你的网站能带给用户利益，比如，非常便宜的产品、免费的服务等 d. 会员服务：通过会员服务带给用户更多的信息和功能 至于Google的PR值以及Alexa的排名做一些简单的说明： 1、PR值：通常是一种评定某一个页面的重要程度的衡量指标，是Google网站建立的一种评定机制，从0/10到10/10根据级别不同显示不同的层级，采用Google工具条的条形图形表示，其影响在Google查询关键字后的显示位置……。影响因素大概如下：从其他页面点击到您的网页，相当于投票给您的网页，通常对方PR值级别越高，所投的票的积分就越多。当然也有你的搜索引擎登陆、网页内容设计等也会影响PR值。更多可参考网上的相关文章……。 2、Alexa全球网站排名：其排名系统的计数方式是由浏览器上装有Alexa工具条的用户浏览网站所累积的，它是以网站为基本单位，所以只要你自己装有次工具条，浏览自己的网站，通常排名也会迅速提高，但这只是一个相对的“笨”方法，有些业内人士已经研究出入和破解Alexa排名系统的方法，并可以将您的网站排名提升到任何位置，更有这样网站就是通过帮助提高Alexa排名来盈利的…… 最后提示：Google和Alexa排名就如同人的文凭一样，您的网站真实能为用户带来的服务和利益才是最重要的根本，如同人的实力，互联网是一个非常有效的传播工具，所以不必担忧没有人知道你，更应该下功夫的是你能为他人带来什么……......
网页中幻灯片效果代码(2006-12-22 14:35:00)
摘要：<a target=_self href="javascript:goUrl()"> <script type="text/javascript">var pics=""var links=""var texts=""pics=pics+"images/05.jpg"+"|"links=links+escape("http://www.baidu.com")+"|"texts=texts+"百度"+"|"
pics=pics+"images/04.jpg"+"|"links=links+escape("http://www.sohu.com")+"|"texts=texts+"搜狐"+"|"
pics=pics+"images/03.jpg"+"|"links=links+escape("http://www.yahoo.com.cn")+"|"texts=texts+"雅虎"+"|"
pics=pics+"images/02.jpg"+"|"links=links+escape("http://www.163.com")+"|"texts=texts+"网易"+"|"
pics=pics+"images/01.jpg"links=links+escape("http://www.sina.com.cn")texts=texts+"新浪"
var focus_width=220 var focus_height=180 var text_height=20 var swf_height = focus_height+text_height
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave......
iframe自适应大小(2006-12-21 18:19:00)
摘要：<iframe name=ifm2 width="100%" onload="style.pixelWidth=ifm2.document.body.scrollWidth;this.style.pixelHeight=ifm2.document.body.scrollHeight" src="./news2.asp?id=1" frameBorder=0 scrolling=no></iframe>......
asp实现繁简转换(2006-12-20 23:21:00)
摘要：国际化似乎是一个非常流行的口号了，一个网站没有英文版至少也要弄个繁体版，毕竟都是汉字，翻译起来不会那么麻烦:P
一般的繁简转换是使用字典，通过GB的内码算出BIG5字符在字典中的位置，读取显示之，用fso应该可以实现。这里介绍的方法思路更简单一些，用Dictionary对象，就是字典，呵呵，dicGb2Big5(gb)就是对应的BIG5。比起计算内码再按照位置读取字符简单的多吧:)
为了减少开销，把字典放在Application中，即在global.asa中建立两个application的字典对象
<OBJECT id=objGb2Big5 progid="s cripting.Dictionrary" runat="server" scope="application"></OBJECT><OBJECT id=objBig52Gb progid="s cripting.Dictionrary" runat="server" scope="application"></OBJECT>
在application_onstart中给字典添加项目
……objGb2Big5.Add "啊", "摆" objGb2Big5.Add "阿", "" objGb2Big5.Add "埃", "甁" ……
……objBig52Gb.Add "摆", "啊" objBig52Gb.Add "", "阿" objBig52Gb.Add "甁", "埃" ……
字典项很多，就不都写了
做好了字典，使用的时候只要查一下就行了:)
function gb2big5(str) dim i, l, k, t, rtn l = len(str) rtn="" for i=1 to l k = mid(str, i, 1) if ascw(k)>=0 and ascw(k)<128 then t = k else if objGb2Big5.Exists(k) then t = objGb2Big5.Ite......