FDS’s Blog

2009年3月5日

用ASP实现简单的防盗链

Filed under: ASP — FDS @ 10:22

是不是老有人盗用你的资源,自己辛苦搞的东西就被被人白白的盗用了。给你支个简单的防盗链方法,也许非常有用哦。主要实现方式是:判断来源地址是不是你的地址,如果是的话,给下载,如果不是,给出禁止提示!以下是简单代码部分,参考下吧。

<%
http=Request.ServerVariables(“HTTP_REFERER”)
http2=Cstr(Request.ServerVariables(“SERVER_NAME”))
if mid(http,8,len(http2))<>http2 then
response.write “本站禁止从外部站点下载!”
else
response.redirect “download.doc” ‘download.doc为下载文件名
end if
%>

用ASP把汉字转换成拼音的函数

Filed under: ASP — 标签:, — FDS @ 10:06

中国人都习惯于用拼音,常常把在SEO的时候,把URL的行字转化成拼音,有利于搜索引擎的识别,获的好的排名。这里分享一个用ASP把汉字转换成拼音的函数。希望各位看客喜欢!

<%
Set d = CreateObject(“Scripting.Dictionary”)
d.add ”a”,-20319
d.add ”ai”,-20317
d.add ”an”,-20304
d.add ”ang”,-20295
d.add ”ao”,-20292
d.add ”ba”,-20283
d.add ”bai”,-20265
d.add ”ban”,-20257
d.add ”bang”,-20242
d.add ”bao”,-20230
d.add ”bei”,-20051
d.add ”ben”,-20036
d.add ”beng”,-20032
d.add ”bi”,-20026
d.add ”bian”,-20002
d.add ”biao”,-19990
d.add ”bie”,-19986
d.add ”bin”,-19982
d.add ”bing”,-19976
d.add ”bo”,-19805
d.add ”bu”,-19784
d.add ”ca”,-19775
d.add ”cai”,-19774
d.add ”can”,-19763
d.add ”cang”,-19756
d.add ”cao”,-19751
d.add ”ce”,-19746
d.add ”ceng”,-19741
d.add ”cha”,-19739
d.add ”chai”,-19728
d.add ”chan”,-19725
d.add ”chang”,-19715
d.add ”chao”,-19540
d.add ”che”,-19531
d.add ”chen”,-19525
d.add ”cheng”,-19515
d.add ”chi”,-19500
d.add ”chong”,-19484
d.add ”chou”,-19479
d.add ”chu”,-19467
d.add ”chuai”,-19289
d.add ”chuan”,-19288
d.add ”chuang”,-19281
d.add ”chui”,-19275
d.add ”chun”,-19270
d.add ”chuo”,-19263
d.add ”ci”,-19261
d.add ”cong”,-19249
d.add ”cou”,-19243
d.add ”cu”,-19242
d.add ”cuan”,-19238
d.add ”cui”,-19235
d.add ”cun”,-19227
d.add ”cuo”,-19224
d.add ”da”,-19218
d.add ”dai”,-19212
d.add ”dan”,-19038
d.add ”dang”,-19023
d.add ”dao”,-19018
d.add ”de”,-19006
d.add ”deng”,-19003
d.add ”di”,-18996
d.add ”dian”,-18977
d.add ”diao”,-18961
d.add ”die”,-18952
d.add ”ding”,-18783
d.add ”diu”,-18774
d.add ”dong”,-18773
d.add ”dou”,-18763
d.add ”du”,-18756
d.add ”duan”,-18741
d.add ”dui”,-18735
d.add ”dun”,-18731
d.add ”duo”,-18722
d.add ”e”,-18710
d.add ”en”,-18697
d.add ”er”,-18696
d.add ”fa”,-18526
d.add ”fan”,-18518
d.add ”fang”,-18501
d.add ”fei”,-18490
d.add ”fen”,-18478
d.add ”feng”,-18463
d.add ”fo”,-18448
d.add ”fou”,-18447
d.add ”fu”,-18446
d.add ”ga”,-18239
d.add ”gai”,-18237
d.add ”gan”,-18231
d.add ”gang”,-18220
d.add ”gao”,-18211
d.add ”ge”,-18201
d.add ”gei”,-18184
d.add ”gen”,-18183
d.add ”geng”,-18181
d.add ”gong”,-18012
d.add ”gou”,-17997
d.add ”gu”,-17988
d.add ”gua”,-17970
d.add ”guai”,-17964
d.add ”guan”,-17961
d.add ”guang”,-17950
d.add ”gui”,-17947
d.add ”gun”,-17931
d.add ”guo”,-17928
d.add ”ha”,-17922
d.add ”hai”,-17759
d.add ”han”,-17752
d.add ”hang”,-17733
d.add ”hao”,-17730
d.add ”he”,-17721
d.add ”hei”,-17703
d.add ”hen”,-17701
d.add ”heng”,-17697
d.add ”hong”,-17692
d.add ”hou”,-17683
d.add ”hu”,-17676
d.add ”hua”,-17496
d.add ”huai”,-17487
d.add ”huan”,-17482
d.add ”huang”,-17468
d.add ”hui”,-17454
d.add ”hun”,-17433
d.add ”huo”,-17427
d.add ”ji”,-17417
d.add ”jia”,-17202
d.add ”jian”,-17185
d.add ”jiang”,-16983
d.add ”jiao”,-16970
d.add ”jie”,-16942
d.add ”jin”,-16915
d.add ”jing”,-16733
d.add ”jiong”,-16708
d.add ”jiu”,-16706
d.add ”ju”,-16689
d.add ”juan”,-16664
d.add ”jue”,-16657
d.add ”jun”,-16647
d.add ”ka”,-16474
d.add ”kai”,-16470
d.add ”kan”,-16465
d.add ”kang”,-16459
d.add ”kao”,-16452
d.add ”ke”,-16448
d.add ”ken”,-16433
d.add ”keng”,-16429
d.add ”kong”,-16427
d.add ”kou”,-16423
d.add ”ku”,-16419
d.add ”kua”,-16412
d.add ”kuai”,-16407
d.add ”kuan”,-16403
d.add ”kuang”,-16401
d.add ”kui”,-16393
d.add ”kun”,-16220
d.add ”kuo”,-16216
d.add ”la”,-16212
d.add ”lai”,-16205
d.add ”lan”,-16202
d.add ”lang”,-16187
d.add ”lao”,-16180
d.add ”le”,-16171
d.add ”lei”,-16169
d.add ”leng”,-16158
d.add ”li”,-16155
d.add ”lia”,-15959
d.add ”lian”,-15958
d.add ”liang”,-15944
d.add ”liao”,-15933
d.add ”lie”,-15920
d.add ”lin”,-15915
d.add ”ling”,-15903
d.add ”liu”,-15889
d.add ”long”,-15878
d.add ”lou”,-15707
d.add ”lu”,-15701
d.add ”lv”,-15681
d.add ”luan”,-15667
d.add ”lue”,-15661
d.add ”lun”,-15659
d.add ”luo”,-15652
d.add ”ma”,-15640
d.add ”mai”,-15631
d.add ”man”,-15625
d.add ”mang”,-15454
d.add ”mao”,-15448
d.add ”me”,-15436
d.add ”mei”,-15435
d.add ”men”,-15419
d.add ”meng”,-15416
d.add ”mi”,-15408
d.add ”mian”,-15394
d.add ”miao”,-15385
d.add ”mie”,-15377
d.add ”min”,-15375
d.add ”ming”,-15369
d.add ”miu”,-15363
d.add ”mo”,-15362
d.add ”mou”,-15183
d.add ”mu”,-15180
d.add ”na”,-15165
d.add ”nai”,-15158
d.add ”nan”,-15153
d.add ”nang”,-15150
d.add ”nao”,-15149
d.add ”ne”,-15144
d.add ”nei”,-15143
d.add ”nen”,-15141
d.add ”neng”,-15140
d.add ”ni”,-15139
d.add ”nian”,-15128
d.add ”niang”,-15121
d.add ”niao”,-15119
d.add ”nie”,-15117
d.add ”nin”,-15110
d.add ”ning”,-15109
d.add ”niu”,-14941
d.add ”nong”,-14937
d.add ”nu”,-14933
d.add ”nv”,-14930
d.add ”nuan”,-14929
d.add ”nue”,-14928
d.add ”nuo”,-14926
d.add ”o”,-14922
d.add ”ou”,-14921
d.add ”pa”,-14914
d.add ”pai”,-14908
d.add ”pan”,-14902
d.add ”pang”,-14894
d.add ”pao”,-14889
d.add ”pei”,-14882
d.add ”pen”,-14873
d.add ”peng”,-14871
d.add ”pi”,-14857
d.add ”pian”,-14678
d.add ”piao”,-14674
d.add ”pie”,-14670
d.add ”pin”,-14668
d.add ”ping”,-14663
d.add ”po”,-14654
d.add ”pu”,-14645
d.add ”qi”,-14630
d.add ”qia”,-14594
d.add ”qian”,-14429
d.add ”qiang”,-14407
d.add ”qiao”,-14399
d.add ”qie”,-14384
d.add ”qin”,-14379
d.add ”qing”,-14368
d.add ”qiong”,-14355
d.add ”qiu”,-14353
d.add ”qu”,-14345
d.add ”quan”,-14170
d.add ”que”,-14159
d.add ”qun”,-14151
d.add ”ran”,-14149
d.add ”rang”,-14145
d.add ”rao”,-14140
d.add ”re”,-14137
d.add ”ren”,-14135
d.add ”reng”,-14125
d.add ”ri”,-14123
d.add ”rong”,-14122
d.add ”rou”,-14112
d.add ”ru”,-14109
d.add ”ruan”,-14099
d.add ”rui”,-14097
d.add ”run”,-14094
d.add ”ruo”,-14092
d.add ”sa”,-14090
d.add ”sai”,-14087
d.add ”san”,-14083
d.add ”sang”,-13917
d.add ”sao”,-13914
d.add ”se”,-13910
d.add ”sen”,-13907
d.add ”seng”,-13906
d.add ”sha”,-13905
d.add ”shai”,-13896
d.add ”shan”,-13894
d.add ”shang”,-13878
d.add ”shao”,-13870
d.add ”she”,-13859
d.add ”shen”,-13847
d.add ”sheng”,-13831
d.add ”shi”,-13658
d.add ”shou”,-13611
d.add ”shu”,-13601
d.add ”shua”,-13406
d.add ”shuai”,-13404
d.add ”shuan”,-13400
d.add ”shuang”,-13398
d.add ”shui”,-13395
d.add ”shun”,-13391
d.add ”shuo”,-13387
d.add ”si”,-13383
d.add ”song”,-13367
d.add ”sou”,-13359
d.add ”su”,-13356
d.add ”suan”,-13343
d.add ”sui”,-13340
d.add ”sun”,-13329
d.add ”suo”,-13326
d.add ”ta”,-13318
d.add ”tai”,-13147
d.add ”tan”,-13138
d.add ”tang”,-13120
d.add ”tao”,-13107
d.add ”te”,-13096
d.add ”teng”,-13095
d.add ”ti”,-13091
d.add ”tian”,-13076
d.add ”tiao”,-13068
d.add ”tie”,-13063
d.add ”ting”,-13060
d.add ”tong”,-12888
d.add ”tou”,-12875
d.add ”tu”,-12871
d.add ”tuan”,-12860
d.add ”tui”,-12858
d.add ”tun”,-12852
d.add ”tuo”,-12849
d.add ”wa”,-12838
d.add ”wai”,-12831
d.add ”wan”,-12829
d.add ”wang”,-12812
d.add ”wei”,-12802
d.add ”wen”,-12607
d.add ”weng”,-12597
d.add ”wo”,-12594
d.add ”wu”,-12585
d.add ”xi”,-12556
d.add ”xia”,-12359
d.add ”xian”,-12346
d.add ”xiang”,-12320
d.add ”xiao”,-12300
d.add ”xie”,-12120
d.add ”xin”,-12099
d.add ”xing”,-12089
d.add ”xiong”,-12074
d.add ”xiu”,-12067
d.add ”xu”,-12058
d.add ”xuan”,-12039
d.add ”xue”,-11867
d.add ”xun”,-11861
d.add ”ya”,-11847
d.add ”yan”,-11831
d.add ”yang”,-11798
d.add ”yao”,-11781
d.add ”ye”,-11604
d.add ”yi”,-11589
d.add ”yin”,-11536
d.add ”ying”,-11358
d.add ”yo”,-11340
d.add ”yong”,-11339
d.add ”you”,-11324
d.add ”yu”,-11303
d.add ”yuan”,-11097
d.add ”yue”,-11077
d.add ”yun”,-11067
d.add ”za”,-11055
d.add ”zai”,-11052
d.add ”zan”,-11045
d.add ”zang”,-11041
d.add ”zao”,-11038
d.add ”ze”,-11024
d.add ”zei”,-11020
d.add ”zen”,-11019
d.add ”zeng”,-11018
d.add ”zha”,-11014
d.add ”zhai”,-10838
d.add ”zhan”,-10832
d.add ”zhang”,-10815
d.add ”zhao”,-10800
d.add ”zhe”,-10790
d.add ”zhen”,-10780
d.add ”zheng”,-10764
d.add ”zhi”,-10587
d.add ”zhong”,-10544
d.add ”zhou”,-10533
d.add ”zhu”,-10519
d.add ”zhua”,-10331
d.add ”zhuai”,-10329
d.add ”zhuan”,-10328
d.add ”zhuang”,-10322
d.add ”zhui”,-10315
d.add ”zhun”,-10309
d.add ”zhuo”,-10307
d.add ”zi”,-10296
d.add ”zong”,-10281
d.add ”zou”,-10274
d.add ”zu”,-10270
d.add ”zuan”,-10262
d.add ”zui”,-10260
d.add ”zun”,-10256
d.add ”zuo”,-10254

function g(num)
if num>0 and num<160 then
g=chr(num)
else
if num<-20319 or num>-10247 then
g=”"
else
a=d.Items
b=d.keys
for i=d.count-1 to 0 step -1
if a(i)<=num then exit for
next
g=b(i)
end if
end if
end function
function c(str)
c=”"
for i=1 to len(str)
c=c&g(asc(mid(str,i,1)))
next
end function
response.write c(request(“hz”))
%>
<form method=post>
请在此处输入中文:<input name=hz>
</form>

2009年2月20日

用FSO组件对文件操作(三)

Filed under: ASP — 标签:, — FDS @ 10:14

一,fso.GetFile
提取文件相应的 File 对象

1,getfile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)
 
s = ”文件名称:” & f2.name & ”<br>”
s = s & ”文件短路径名:” & f2.shortPath & ”<br>”
s = s & ”文件物理地址:” & f2.Path & ”<br>”
s = s & ”文件属性:” & f2.Attributes & ”<br>”
s = s & ”文件大小: ” & f2.size & ”<br>”
s = s & ”文件类型: ” & f2.type & ”<br>”
s = s & ”文件创建时间: ” & f2.DateCreated & ”<br>”
s = s & ”最近访问时间: ” & f2.DateLastAccessed & ”<br>”
s = s & ”最近修改时间: ” & f2.DateLastModified
response.write(s)
%>

其效果正如右键某文件,看到的具体属性信息。
其中Attributes返回的数值“32”表示:(Archive)上次备份后已更改的文件。可读写。

其它值附录如下:

 
Normal        0      普通文件。               没有设置任何属性。 
ReadOnly      1      只读文件。               可读写。 
Hidden        2      隐藏文件。               可读写。 
System        4      系统文件。               可读写。 
Directory     16     文件夹或目录。           只读。 
Archive       32     上次备份后已更改的文件。 可读写。 
Alias         1024   链接或快捷方式。         只读。 
Compressed    2048   压缩文件。               只读。 

二,file.move
作用将指定的文件或文件夹从某位置移动到另一位置。其实该方法仍然属于fso.GetFile后的一个应用。

2,movefile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.Move ”C:\”
%>
<a href=”C:\”>查看下有没有</a>

简单的剪切粘贴的功能实现。

三,File.Copy
同样属于fso.GetFile后的一个应用。就只是单纯地拷贝文件到某位置。

3,copyfile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.Copy ”D:\”
%>
<a href=”D:\”>查看下有没有</a>

和本ASP页面同在目录下的cnbruce.txt文件依然存在。

四,file.Delete
很显然,就是直接删除文件了。

4,delfile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.move ”d:\”
Set f3 = fso.GetFile(“d:\cnbruce.txt”)
f3.delete 
%>
<a href=”d:\”>查看下是没有该文件的</a>

用FSO组件对文件操作(二)

Filed under: ASP — 标签:, — FDS @ 10:13

学会了FSO提取文件值,也学会了将信息输入到文件中,那下面就再来应用应用下。

不知道你有没有这样的习惯:看到一个文件,不自觉的右键选择用记事本打开。呵呵,几乎没有哪个文件是不可以的。所以现在,可以默认所有文件都是文本,只是后缀名不同而已;那么也就是说,现在可以提取任一文件的内容信息。OK,就来想象一下:

1,提取一个文件的路径(采用file按钮进行查找定位)
2,将该路径文件打开,并读取所有行
3,显示读取的信息

一、viewcode.asp

<%
Function ShowCode(filename) 
    Set fso = Server.CreateObject(“Scripting.FileSystemObject”)
    Set cnrs = fso.OpenTextFile(filename, 1)
    While Not cnrs.AtEndOfStream
        rsline = cnrs.ReadLine
        rsline = server.HTMLEncode(rsline)
        Response.Write(rsline & ”<br>”)
    Wend
end Function
%>

<form action=”viewcode.asp” method=”post”>
输入文件名<input type=”file” name=”filename”>
<input type=”submit” value=”查看源程序”>
</form>

<%
file=request.form(“filename”)
response.write (file & ”源程序如下<hr>”)
If trim(file)<> ”" then
  Call ShowCode(file)
End If
%>

以上程序调试时,可以选择html,asp页面,也可以打开任一应用程序等。

定义的ShowCode函数,主要作用是打开、读取并显示文件中所有信息内容。注意添加了server.HTMLEncode(rsline),针对含有标准HTML代码的文件。

显示文件中所有行即用一条件循环进行遍历显示了。
While Not cnrs.AtEndOfStream

Wend

接着,下面的这个例题具体就涉及open方法的问题了,还记得?正常情况之下打开文件是采用fso.OpenTextFile(“c:\testfile.txt”,1),参数1的作用是:以只读模式打开文件。不能对此文件进行写操作。如果现在已经存在一文件,需要进行追加写入,则该怎么办呢?简单,参数为8即可。

PS:这里还有一种读取的方法。

<%
whichfile=server.mappath(“test.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txt = fso.OpenTextFile(whichfile,1)
rline = txt.ReadAll
rline=replace(Server.HtmlEncode(rline),Chr(13),”<br>”)
Response.Write rline
txt.Close
%>

这有什么用呢?呵呵,亚玛逊的网络故事接龙就是如此:能接龙就需要首先要显示原有故事,然后自己添加故事写入文件。这其中的写入文件最讲究的就是追加写入了。所以下面就可以实现。

二、story.asp

<%
If not request.Form(“NextLine”)=”" then
  Set fso=Server.CreateObject(“Scripting.FileSystemobject”)
  textfile1=Server.MapPath(“story.txt”)
  set cnrs=fso.OpenTextFile(textfile1,8)
  cnrs.WriteLine(Request.Form(“NextLine”))
  cnrs.Close
end if
%>
故事如下:
<%
Set fso=Server.CreateObject(“Scripting.FileSystemObject”)
textfile1=Server.MapPath(“story.txt”)
set cnrs=fso.OpenTextFile(textfile1,1)
while not cnrs.AtEndOfStream
  Response.Write ”&nbsp;” & cnrs.ReadLine
wend
cnrs.close
%>
<hr>
<form method=”post” action=”story.asp”>
请输入这个故事的新行:<input name=”NextLine” type=”text” size=”70″>
<input type=”submit” value=”提交”>
</form>

整个就是一很简单的读取信息和加入信息的混合利用,相信有了前面的基础看懂应该不成问题。当然还缺少个story.txt文件,里面写好故事开头就可以了。


再下面,继续来,该侧重点主要就是练习一些函数的使用技巧了。

1,instr函数:返回某字符串在另一字符串中第一次出现的位置。
比如现在查找字母“A”在字符串“A110B121C119D1861”中第一次出现的位置,则可以

[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]

同样字母“B”的位置也就能确定。现在就来最关键的:提前字母“A”和“B”中间的值“110”。
还记得mid函数吗?mid函数的主要作用是:从字符串中返回指定数目的字符。
比如现在的“110”则应该是从字符串的第2位取得3个单位的值。

[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]

但设想一下:如果不是“110”,而是“1100”,那是不是要提取4位……这样就显出程序的不够完美。
所以继续思考:所提取的值,永远是在字母“A”后面的,且值也永远是在字母“A”和“B”之间的,那么只要分别提取出“A”、“B”的位置,则中间数值的起始位应是字母“A”位+1,中间数值的长度应是字母“B”位-字母“A”位-1
那么现在就可以让程序完美起来:


[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]

OK,那么现在你也就完全可以把字母“B”、“C”、“D”后面的值一一提取了。
当然需要注意的就是“D”后面有几位怎么取呢?采用字符串总长度-字母D所在位置数就可以了。


[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]

用到现在,你也许确实学到了不少,但也许会提出疑问:这个放在FSO文件操作里有什么作用呢?
那下面才是我们的正题:用FSO进行简单的文本投票。

投票页面首要的就是显示各类项目的投票数,并相应赋于某个变量。然后判断本次投票的选相,相对应地将投票数值加1,完毕后再将所有值继续写入文本。

1,一个HTML表单页website.html
以做投票点击的平台。

[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]

2,接受表单页值的result.asp

<%
whichfile=server.mappath(“site.txt”)
set fso=createobject(“Scripting.FileSystemObject”)
set thisfile=fso.opentextfile(whichfile)
my_string=thisfile.readline

a_num = instr(my_string,”A”)
b_num = instr(my_string,”B”)
c_num = instr(my_string,”C”)
d_num = instr(my_string,”D”)
total_num = len(my_string)

a_value = mid(my_string,a_num+1,b_num-a_num-1)
b_value = mid(my_string,b_num+1,c_num-b_num-1)
c_value = mid(my_string,c_num+1,d_num-c_num-1)
d_value = mid(my_string,d_num+1,total_num-d_num)

select case request.form(“website”)
    case ”A”: avalue=a_value+1
    case ”B”: bvalue=b_value+1
    case ”C”: cvalue=c_value+1
    case ”D”: dvalue=d_value+1
end select

mynew_string=”A” & cstr(a_value) & ”B” & cstr(b_value) & ”C” & cstr(c_value) & ”D” & cstr(d_value)
set newfile=fso.createtextfile(whichfile)
newfile.writeLine(mynew_string)
newfile.close
set fso=nothing
%>
当前投票:<br>
cnbruce.com:<%=a_value%><br>
blueidea.com:<%=b_value%><br>
it356cn.com:<%=c_value%><br>
5d.cn:<%=d_value%><br>
<a href=”website.html”>返回继续</a>

有了上面函数的基础,看这个应该不是很难的

3,最后不要忘了的记数文件site.txt

用FSO组件对文件操作(一)

Filed under: ASP — 标签:, — FDS @ 10:10
FSO中除了可以对驱动器、文件夹的操作以外,功能最强大的就是对文件的操作了。它可以用来记数、内容管理、搜索还可生成动态HTML页面等等。

一、fso.OpenTextFile
无需多说,fso.OpenTextFile就是打开某个文件了,一般情况之下是打开的txt文本文件。所以首先我们先建立一个txt文件,然后通过FSO来读取其中的内容。

1,info.txt

 

name:cnbruce
sex:male
建立了该文件,下面再做个ASP页面,当然最好两个文件是在同一目录下。

2,opentxt.asp

 

<%
whichfile=server.mappath(“info.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txt = fso.OpenTextFile(whichfile,1)
rline = txt.ReadLine
rline = rline & ”<br>” & txt.ReadLine
Response.Write rline
txt.Close
%> 

需要注意:无论是通过FSO打开驱动器、打开文件夹、打开文件,以及以后要接触到的打开数据库,都只能是打开绝对物理路径地址。但一般情况是上传到空间服务商那,不能很直接地了解到自己文件的所在位置,所以强烈推荐使用server.mappath方法:平台移植性强,适用性强。

CreateObject(“Scripting.FileSystemObject”)建立了FSO组件的连接,fso.OpenTextFile(whichfile,1)打开了info.txt该文件。参数“1”表示“ForReading:以只读方式打开文件。不能写这个文件。”,其他还有参数“2”表示“ForWriting:以写方式打开文件”,参数“8”表示“ForAppending:打开文件并从文件末尾开始写”。

打开了该文件,接下来是不是要显示文件中的内容?那就通过txt.ReadLine方法读取文本中的一整行,如果需要继续读取下一行,则继续使用txt.ReadLine方法。当然初此还有其它的读取方法,比如txt.Read(7)读取指定数量的字符,txt.ReadAll返回文本中的全部内容。

二、fso.CreateTextFile
如fso.CreateFolder建立文件夹般,fso.CreateTextFile则是建立文件了。

3,creattxt.asp

 

<%
whichfile=server.mappath(“info.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set MyFile = fso.CreateTextFile(whichfile,True)
MyFile.WriteLine(“My Name Is CN-Bruce”)
MyFile.WriteLine(“My Sex Is Male”)
MyFile.Close
%>
<a href=”opentxt.asp”>查看内容</a> 

本次建立的文件是上一info.txt文件,fso.CreateTextFile(whichfile,True)其中的参数true即表示能覆盖已有文件。建立后需要向里面添加数据就采用“MyFile.WriteLine”了。

那现在就可以建立一个简单的文本记数器了,还记得以前的记数?:1,通过application、session、global.asa进行记数;2,通过Counter组件进行记数。但两者都有通病,就是不能保存,如果服务器重新启动后,是不是所有记数全部清空了呢:)那现在就可以使用文本来记录数据了,即使重启,下次提取的也还是该文件。

试验:文本计数器

首先建立一记数的文本文件counter.txt,设定初始值为“1”

4,counter.txt

 

1
接着是记数的ASP文件,功能是显示文本的记数,本做加1的记数,然后还要将新的记数写入文本文件。

5,txtcount.asp

 

<%
whichfile=server.mappath(“counter.txt”)
‘打开文件并将其值读取,最后关闭连接释放资源
set fso=createobject(“Scripting.FileSystemObject”)
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
‘页面显示记数内容并做加1运算
response.write ”您是本页的第”&visitors&”位访客”
visitors=visitors+1
‘将新的数值添加写入到文本,最后关闭所有连接释放资源
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing
%> 

那根据这个可以继续地扩展内容:比如让记数用数字图片显示。当然前提就是你需要0-9的10张记数图片,并将此图片放于img文件夹中。
下为一增强的txtcount.asp内容代码

 

<%
whichfile=server.mappath(“counter.txt”)set fso=createobject(“Scripting.FileSystemObject”)
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
CountLen=len(visitors)
response.write ”您是本页的第”

for i=1 to 6-countLen        ’表示最大值999999
 response.write ”<img src=img/0.gif></img>”
next 
for i=1 to countlen
 response.write ”<img src=img/” & mid(visitors,i,1) & ”.gif></img>”
next
response.write ”位访客”

visitors=visitors+1
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing
%>

 

本程序中采用的是mid函数,该函数的作用是返回某字符串中从第几位字符开始的几个字符。格式即为:Mid(string,start,length)

[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]

2009年2月19日

基带信号和宽带信号的区别

Filed under: 计算机网络 — FDS @ 09:54

 基带信号就是将数字信号 1 或 0 直接用两种不同的电压来表示,然后送到线路上去传输。

 宽带信号则是将基带信号进行调制后形成的频分复用模拟信号。

  多路复用技术的基本原理是:各路信号在进入同一个有线的或无线的传输媒质之前,先采用调制技术把它们调制为互相不会混淆的已调制信号,然后进入传输媒质传送到对方,在对方再用解调(反调制)技术对这些信号加以区分,并使它们恢复成原来的信号,从而达到多路复用的目的。

  常用的多路复用技术有频分多路复用技术和时分多路复用技术。频分多路复用是将各路信号分别调制到不同的频段进行传输,多用于模拟通信。时分多路复用技术是利用时间上离散的脉冲组成相互不重叠的多路信号,广泛应用于数字通信。频分多路复用和时分多路复用的基本原理如图所示。除了频分和时分多路复用技术外,还有一种波分复用技术。这是在光波频率范围内,把不同波长的光波,按一定间隔排列在一根光纤中传送。这种用于光纤通信的“波分复用”技术,现在正在迅速发展之中。
 
 常用的多路复用技术有频分多路复用技术和时分多路复用技术。
1.频分多路复用是将各路信号分别调制到不同的频段进行传输,多用于模拟通信。
2.时分多路复用技术是利用时间上离散的脉冲组成相互不重叠的多路信号,广泛应用于数字通信。
3.除了频分和时分多路复用技术外,还有一种波分复用技术。这是在光波频率范围内,把不同波长的光波,按一定间隔排列在一根光纤中传送。这种用于光纤通信的“波分复用”技术,现在正在迅速发展之中。

频分多路复用与时分多路复用的区别如下:
  (1)微观上,频分多路复用的各路信号是并行的,而时分多路复用是串行的。

  (2)频分多路复用较适合于模拟信号,而时分多路复用较适用于数字信号。

频分多路复用是将传输介质的可用带宽分割成一个个“频段”,以便每个输入装置都分配到一个“频段”。传输介质容许传输的最大带宽构成一个信道,因此每个“频段”就是一个子信道。
频分多路复用的特点是:每个用户终端的数据通过专门分配给它的予信道传输,在用户没有数据传输时,别的用户也不能使用。频分多路复用适合于模拟信号的频分传输,主要用于电话和电缆电视(CATV)系统,在数据通信系统中应和调制解调技术结合使用。

目前的防火墙类型

Filed under: 计算机网络 — 标签: — FDS @ 09:52

防火墙产品非常之多,划分的标准也比较杂。 主要分类如下:

1. 从软、硬件形式上分为

软件防火墙和硬件防火墙以及芯片级防火墙。

2. 从防火墙技术分为

“包过滤型”和“应用代理型”两大类。

3. 从防火墙结构分为

单一主机防火墙、路由器集成式防火墙和分布式防火墙三种。

4. 按防火墙的应用部署位置分为

边界防火墙、个人防火墙和混合防火墙三大类。

5. 按防火墙性能分为

百兆级防火墙和千兆级防火墙两类。

全国计算机等级考试二级公共基础知识

Filed under: 计算机考试 — FDS @ 09:37

全国计算机等级考试二级公共基础知识,大家参考下吧。

基本要求
1. 掌握算法的基本概念。
2. 掌握基本数据结构及其操作。
3. 掌握基本排序和查找算法。
4. 掌握逐步求精的结构化程序设计方法。
5. 掌握软件工程的基本方法,具有初步应用相关技术进行软件开发的能力。
6. 掌握数据的基本知识,了解关系数据库的设计。


考试内容
一、 基本数据结构与算法
1. 算法的基本概念;算法复杂度的概念和意义(时间复杂度与空间复杂度)。
2. 数据结构的定义;数据的逻辑结构与存储结构;数据结构的图形表示;线性结构与非线性结构的概念。
3. 线性表的定义;线性表的顺序存储结构及其插入与删除运算。
4. 栈和队列的定义;栈和队列的顺序存储结构及其基本运算。
5. 线性单链表、双向链表与循环链表的结构及其基本运算。
6. 树的基本概念;二叉树的定义及其存储结构;二叉树的前序、中序和后序遍历。
7. 顺序查找与二分法查找算法;基本排序算法(交换类排序,选择类排序,插入类排序)。
二、 程序设计基础
1. 程序设计方法与风格。
2. 结构化程序设计。
3. 面向对象的程序设计方法,对象,方法,属性及继承与多态性。
三、 软件工程基础
1. 软件工程基本概念,软件生命周戎概念,软件工具与软件开发环境。
2. 结构化分析方法,数据流图,数据字典,软件需求规格说明书。
3. 结构化设计方法,总体设计与详细设计。
4. 软件测试的方法,白盒测试与黑盒测试,测试用例设计,软件测试的实施,单元测试、集成测试和系统测试。
5. 程序的调试,静态调试与动态调试。
四、 数据库设计基础
1. 数据库的基本概念:数据库,数据库管理系统,数据库系统。
2. 数据模型,实体联系模型及E-R图,从E-R图导出关系数据模型。
3. 关系代数运算,包括集合运算及选择、投影、连接运算,数据库规范化理论。
4. 数据库设计方法和步骤:需求分析、概念设计、逻辑设计和物理设计的相关策略。


考试方式
1、 公共基础的考试方式为笔试,与C语言(VisualBASIC、Visual FoxPro、Java、Access、Visual C++)的笔试部分合为一张试卷。公共基础部分占全卷的30分。
2、 公共基础知识有10道选择题和5道填空题。

2009年1月21日

利用PHP生成图像

Filed under: PHP — FDS @ 13:58

 生成图像,PHP可以操作处理图像。如果你已经安装了GD库,你甚至可以利用PHP生成图像。
<?
Header(“Content-type: image/gif”);
$string=implode($argv,” “);
$im = imagecreatefromgif(“images/button1.gif”);
$orange = ImageColorAllocate($im, 220, 210, 60);
$px = (imagesx($im)-7.5*strlen($string))/2;
ImageString($im,3,$px,9,$string,$orange);
ImageGif($im);
ImageDestroy($im);
?>

(译者注:以上代码段缺少注释,请读者参考PHP Manual的图像处理函数部分)

  这段代码在其他页面中通过以下标记<img src=http://www.okzz.cn/button.php3?text”>调用,然后以上的那段button.php3代码取得text值并在另外取得的图像文件中加上该值–在以上的代码中该图像文件是images/button1.gif–最后输出到浏览器。假如你想在表单域中使用图像按钮,但是又不希望在每次按钮上的文字改变后不得不重新生成新的图像,就可以利用这样简单的方法动态生成图像文件。

SQL SERVER技巧三

Filed under: 数据库 — 标签:, — FDS @ 13:56

维护Sql Server中表的索引

  在使用和创建数据库索引中经常会碰到一些问题,在这里可以采用一些另类的方法解决… 

  –第一步:查看是否需要维护,查看扫描密度/Scan Density是否为100%

  declare @table_id int
  set @table_id=object_id(‘表名’)
  dbcc showcontig(@table_id)

 

  –第二步:重构表索引
  dbcc dbreindex(‘表名’,pk_索引名,100)

  –重做第一步,如发现扫描密度/Scan Density还是小于100%则重构表的所有索引
  –杨铮:并不一定能达100%。
  dbcc dbreindex(‘表名’,”,100)

  SQL Server补丁安装常见问题
  谁碰到问题就看看咯:)

  一、补丁安装过程中常见问题

  如果在安装补丁的时候遇到如下类似错误:

  1、安装过程中出现“以前进行的程序创建了挂起的文件操作,运行安装程序前,必须重新启动”,请按照下面步骤解决:

  a、重启机器,再进行安装,如果发现还有该错误,请按下面步骤
  b、在开始->运行中输入regedit
  c、到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager 位置
  d、选择文件->倒出,保存
  e、在右边窗口右击PendingFileRenameOperations,选择删除,然后确认
  f、重启安装,问题解决

  如果还有同样问题,请检查其它注册表中是否有该值存在,如有请删掉。

  2、在安装SQL Server SP3,有时候会出现:无论用windows认证还是混和认证,都出现密码错误的情况,这时查看临时目录下的sqlsp.out,会发现以下描述:
  [TCP/IP Sockets]Specified SQL server not found.
  [TCP/IP Sockets]ConnectionOpen (Connect()).
  其实这是SQL Server SP3的一个小bug,在安装sp3的时候,没有监听tcp/ip端口,可以按照以下步骤进行:

  1、打开SQL server客户器网络实用工具和服务器网络工具,确保启用的协议中包含name pipe,并且位置在第一位.

  2、确保[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo]
  ”DSQUERY”=”DBNETLIB”.
  如果没有,请自己建立
  3、停止mssql.
  4、进行安装.

  这样就可以进行正确安装了。

  二、SQL Server补丁版本的检查

  SQL Server的补丁版本检查不如Windows 补丁版本检查直接,一个系统管理员,如果不了解SQL Server版本对应的补丁号,可能也会遇到一点麻烦,因此在这说明一下,通过这样的办法判别机器是安全的办法,不会对系统产生任何影响。

  1、用Isql或者SQL查询分析器登录到SQL Server,如果是用Isql,请在cmd窗口输入isql -U sa,然后输入密码,进入;如果是用SQL查询分析器,请从程序中启动,输入sa和密码(也可以用windows验证)。

  2、在ISQL中输入:
  Select @@Version;
  go

  或者SQL查询分析器中输入(其实如果不想输入,只要打开帮助的关于就可以了:))
  Select @@Version;
  然后按执行;
  这时会返回SQL的版本信息,如下:
  Microsoft SQL Server 2000 – 8.00.760 (Intel X86) Dec 17 2002 14:22:05 Copyright (c) 1988-2003 Microsoft Corporation Enterprise Edition on Windows NT 5.0 (Build 2195: Service Pack 3)

  其中的8.00.760就是SQL Server的版本和补丁号。对应关系如下:

  8.00.194 -——————SQL Server 2000 RTM
  8.00.384 -——————(SP1)
  8.00.534 -——————(SP2)
  8.00.760 -——————(SP3)

  这样我们就能看到SQL Server的正确版本和补丁号了。

  我们也可以用xp_msver看到更详细的信息

  Sql Server数据库的备份和恢复措施
  最常用的操作,新手们看看……

  一、备份数据库

  1、打开SQL企业管理器,在控制台根目录中依次点开Microsoft SQL Server
  2、SQL Server组–>双击打开你的服务器–>双击打开数据库目录
  3、选择你的数据库名称(如论坛数据库Forum)–>然后点上面菜单中的工具–>选择备份数据库
  4、备份选项选择完全备份,目的中的备份到如果原来有路径和名称则选中名称点删除,然后点添加,如果原来没有路径和名称则直接选择添加,接着指定路径和文件名,指定后点确定返回备份窗口,接着点确定进行备份

  二、还原数据库

  1、打开SQL企业管理器,在控制台根目录中依次点开Microsoft SQL Server

  2、SQL Server组–>双击打开你的服务器–>点图标栏的新建数据库图标,新建数据库的名字自行取

  3、点击新建好的数据库名称(如论坛数据库Forum)–>然后点上面菜单中的工具–>选择恢复数据库

  4、在弹出来的窗口中的还原选项中选择从设备–>点选择设备–>点添加–>然后选择你的备份文件名–>添加后点确定返回,这时候设备栏应该出现您刚才选择的数据库备份文件名,备份号默认为1(如果您对同一个文件做过多次备份,可以点击备份号旁边的查看内容,在复选框中选择最新的一次备份后点确定)–>然后点击上方常规旁边的选项按钮

  5、在出现的窗口中选择在现有数据库上强制还原,以及在恢复完成状态中选择使数据库可以继续运行但无法还原其它事务日志的选项。在窗口的中间部位的将数据库文件还原为这里要按照你SQL的安装进行设置(也可以指定自己的目录),逻辑文件名不需要改动,移至物理文件名要根据你所恢复的机器情况做改动,如您的SQL数据库装在D:\Program Files\Microsoft SQL Server\MSSQL\Data,那么就按照您恢复机器的目录进行相关改动改动,并且最后的文件名最好改成您当前的数据库名(如原来是bbs_data.mdf,现在的数据库是forum,就改成forum_data.mdf),日志和数据文件都要按照这样的方式做相关的改动(日志的文件名是*_log.ldf结尾的),这里的恢复目录您可以自由设置,前提是该目录必须存在(如您可以指定d:\sqldata\bbs_data.mdf或者d:\sqldata\bbs_log.ldf),否则恢复将报错

  6、修改完成后,点击下面的确定进行恢复,这时会出现一个进度条,提示恢复的进度,恢复完成后系统会自动提示成功,如中间提示报错,请记录下相关的错误内容并询问对SQL操作比较熟悉的人员,一般的错误无非是目录错误或者文件名重复或者文件名错误或者空间不够或者数据库正在使用中的错误,数据库正在使用的错误您可以尝试关闭所有关于SQL窗口然后重新打开进行恢复操作,如果还提示正在使用的错误可以将SQL服务停止然后重起看看,至于上述其它的错误一般都能按照错误内容做相应改动后即可恢复

  三、收缩数据库

  一般情况下,SQL数据库的收缩并不能很大程度上减小数据库大小,其主要作用是收缩日志大小,应当定期进行此操作以免数据库日志过大。

  1、设置数据库模式为简单模式:打开SQL企业管理器,在控制台根目录中依次点开Microsoft SQL Server–>SQL Server组–>双击打开你的服务器–>双击打开数据库目录–>选择你的数据库名称(如论坛数据库Forum)–>然后点击右键选择属性–>选择选项–>在故障还原的模式中选择“简单”,然后按确定保存
  2、在当前数据库上点右键,看所有任务中的收缩数据库,一般里面的默认设置不用调整,直接点确定
  3、收缩数据库完成后,建议将您的数据库属性重新设置为标准模式,操作方法同第一点,因为日志在一些异常情况下往往是恢复数据库的重要依据。

  四、设定每日自动备份数据库

  强烈建议有条件的用户进行此操作!

  1、打开企业管理器,在控制台根目录中依次点开Microsoft SQL Server–>SQL Server组–>双击打开你的服务器

  2、然后点上面菜单中的工具–>选择数据库维护计划器

  3、下一步选择要进行自动备份的数据–>下一步更新数据优化信息,这里一般不用做选择–>下一步检查数据完整性,也一般不选择

  4、下一步指定数据库维护计划,默认的是1周备份一次,点击更改选择每天备份后点确定

  5、下一步指定备份的磁盘目录,选择指定目录,如您可以在D盘新建一个目录如:d:\databak,然后在这里选择使用此目录,如果您的数据库比较多最好选择为每个数据库建立子目录,然后选择删除早于多少天前的备份,一般设定4-7天,这看您的具体备份要求,备份文件扩展名一般都是bak就用默认的
  6、下一步指定事务日志备份计划,看您的需要做选择–>下一步要生成的报表,一般不做选择–>下一步维护计划历史记录,最好用默认的选项–>下一步完成

  7、完成后系统很可能会提示Sql Server Agent服务未启动,先点确定完成计划设定,然后找到桌面最右边状态栏中的SQL绿色图标,双击点开,在服务中选择Sql Server Agent,然后点击运行箭头,选上下方的当启动OS时自动启动服务

  8、这个时候数据库计划已经成功的运行了,他将按照您上面的设置进行自动备份

  修改计划:

  1、打开企业管理器,在控制台根目录中依次点开Microsoft SQL Server–>SQL Server组–>双击打开你的服务器–>管理–>数据库维护计划–>打开后可看到你设定的计划,可以进行修改或者删除操作

  五、数据的转移(新建数据库或转移服务器)

  一般情况下,最好使用备份和还原操作来进行转移数据,在特殊情况下,可以用导入导出的方式进行转移,这里介绍的就是导入导出方式,导入导出方式转移数据一个作用就是可以在收缩数据库无效的情况下用来减小(收缩)数据库的大小,本操作默认为您对SQL的操作有一定的了解,如果对其中的部分操作不理解,可以咨询动网相关人员或者查询网上资料

  1、将原数据库的所有表、存储过程导出成一个SQL文件,导出的时候注意在选项中选择编写索引脚本和编写主键、外键、默认值和检查约束脚本选项

  2、新建数据库,对新建数据库执行第一步中所建立的SQL文件

  3、用SQL的导入导出方式,对新数据库导入原数据库中的所有表内容

Powered by WordPress