博文
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=no......
网站推广(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排名来盈利的……
最后提示：G......
网页中幻灯片效果代码(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-a......
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