ASP初学者常用的代码

aram name=quality value=high><embed src="images/dvbanner.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash";;; type="application/x-shockwave-flash" width="468" height="60"></embed></object>
16.VBS弹出窗口小代码:
 <script language=vbscript>
 msgbox"你还没有注册或登陆论坛","0","精品论坛"
 location.href = "login.ASP"
 </script>
 
16.使用FSO修改文件特定内容的函数
 function FSOchange(filename,Target,String)
 Dim objFSO,objCountFile,FiletempData
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
 FiletempData = objCountFile.ReadAll
 objCountFile.Close
 FiletempData=Replace(FiletempData,Target,String)
 Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
 objCountFile.Write FiletempData
 objCountFile.Close
 Set objCountFile=Nothing
 Set objFSO = Nothing
 End Function
 
17.使用FSO读取文件内容的函数
 function FSOFileRead(filename)
 Dim objFSO,objCountFile,FiletempData
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
 FSOFileRead = objCountFile.ReadAll
 objCountFile.Close
 Set objCountFile=Nothing
 Set objFSO = Nothing
 End Function
 
18.使用FSO读取文件某一行的函数
 function FSOlinedit(filename,lineNum)
 if linenum < 1 then exit function
 dim fso,f,temparray,tempcnt
 set fso = server.CreateObject("scripting.filesystemobject")
 if not fso.fileExists(server.mappath(filename)) then exit function
 set f = fso.opentextfile(server.mappath(filename),1)
 if not f.AtEndofStream then
 tempcnt = f.readall
 f.close
 set f = nothing
 temparray = split(tempcnt,chr(13)&chr(10))
 if lineNum>ubound(temparray)+1 then
 exit function
 else
 FSOlinedit = temparray(lineNum-1)
 end if
 end if
 end function

零度电脑知识网www.needc.com电脑知识学习网站。电脑知识学习QQ群：81158926 欢迎电脑爱好者加入。