莫相离 发表于 2015-2-3 23:31:22

ASP网页设计站长保举：ASP初学者经常使用源代码总结篇

我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。初学|源代码|站长   　　1.取得体系工夫:
<P>　　<%=now()%>
　　2.获得来访用的IP:
<P>　　<%=request.serverVariables("remote_host")%>
　　3.取得体系,阅读器版本: 　
<P>　　<script>
　　window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")
　　</script>
　　4.去除IE混动条: 　　
<P>　　<body scroll="no">
　　或
　　<body style="overflow-y:hidden">
　　5.进入网站,跳出告白: 　　
<P>　　<script language="javascript">
　　<!--
　　<!-- 注重更改文件地点途径-->
　　window.open('http://www.XXXXXX.com','','height=200,width=300,top=0,left=30');
　　// -->
　　</script>
　　6.随机数: 　
<P>　　<%randomize%>
　　<%=(int(rnd()*n)+1)%>
　　N为可改动数
　　7.向上混动代码: 　
<P><marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000; line-height: 150%; font-style:italic; font-weight:bold" scrollamount="2" width="206" height="207" bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh</marquee>
　　8.主动封闭网页:
<P>　　<script LANGUAGE="javascript">
　　<!--
　　setTimeout('window.close();', 10000); //60秒后封闭
　　// -->
　　</script>
　　<p align="center">本页10秒后主动封闭,请注重刷新页面</p>
　　9.随机后台音乐:
<P>　　<%randomize%>
　　<bgsound src="mids/<%=(int(rnd()*60)+1)%>.mid" loop="-1">
　　可以修正数字，限制挪用个数，我这里是60个．
　　10.主动刷新本页面:
<P>　　<script>
　　<!--
　　
　　var limit="0:10"
　　
　　if (document.images){
　　var parselimit=limit.split(":")
　　parselimit=parselimit*60+parselimit*1
　　}
　　function beginrefresh(){
　　if (!document.images)
　　return
　　if (parselimit==1)
　　window.location.reload()
　　else{
　　parselimit-=1
　　curmin=Math.floor(parselimit/60)
　　cursec=parselimit%60
　　if (curmin!=0)
　　curtime=curmin+"分"+cursec+"秒后重刷本页！"
　　else
　　curtime=cursec+"秒后重刷本页！"
　　window.status=curtime
　　setTimeout("beginrefresh()",1000)
　　}
　　}
　　
　　window.onload=beginrefresh
　　file://-->
　　</script>
　　
　　11.ACCESS数据库毗连:
<P>　　<%
　　option explicit
　　dim startime,endtime,conn,connstr,db
　　startime=timer()
　　'更改数据库名字
　　db="data/dvBBS5.mdb"
　　Set conn = Server.CreateObject("ADODB.Connection")
　　connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
　　'假如你的办事器采取较老版本Access驱动，请用上面毗连办法
　　'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
　　conn.Open connstr
　　function CloseDatabase
　　Conn.close
　　Set conn = Nothing
　　End Function
　　%>
　　12.SQL数据库毗连:
<P>　　<%
　　option explicit
　　dim startime,endtime,conn,connstr,db
　　startime=timer()
　　connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open connstr
　　function CloseDatabase
　　Conn.close
　　Set conn = Nothing
　　End Function
　　%>
　　13.用键盘翻开网页代码: 　　
<P>　　<script language="javascript">
　　function ctlent(eventobject)
　　{
　　if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83))
　　{
　　window.open('网址','','')
　　}
　　}
　　</script>
　　
　　这里是Ctrl+Enter和Alt+S的代码 本人查下键盘的ASCII码再换就行
　　
　　14.让层不被控件复盖代码:
<P>　　<div z-Index:2><object xxx></object></div> ＃ 后面
　　<div z-Index:1><object xxx></object></div> ＃ 前面
　　<div id="Layer2" style="position:absolute; top:40;width:400px; height:95px;z-index:2"><table height=100% width=100% bgcolor="#ff0000"><tr><td height=100% width=100%></td></tr></table><iframe width=0 height=0></iframe></div>
　　<div id="Layer1" style="position:absolute; top:50;width:200px; height:115px;z-index:1"><iframe height=100% width=100%></iframe></div>
　　15.动网FLASH告白代码:
<P><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="468" height="60"><param name=movie value="images/yj16d.swf"><param name=quality value=high><embed src="http://www.webjx.com/htmldata/2006-10-24/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修正文件特定内容的函数
<P>　　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=WordStr(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读取文件内容的函数
<P>　　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读取文件某一行的函数
<P>　　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
　　19.利用FSO写文件某一行的函数
<P>　　function FSOlinewrite(filename,lineNum,Linecontent)
　　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
　　temparray = split(tempcnt,chr(13)&chr(10))
　　if lineNum>ubound(temparray)+1 then
　　exit function
　　else
　　temparray(lineNum-1) = lineContent
　　end if
　　tempcnt = join(temparray,chr(13)&chr(10))
　　set f = fso.createtextfile(server.mappath(filename),true)
　　f.write tempcnt
　　end if
　　f.close
　　set f = nothing
　　end function
　　20.利用FSO添加文件新行的函数
<P>　　function FSOappline(filename,Linecontent)
　　dim fso,f
　　set fso = server.CreateObject("scripting.filesystemobject")
　　if not fso.fileExists(server.mappath(filename)) then exit function
　　set f = fso.opentextfile(server.mappath(filename),8,1)
　　f.write chr(13)&chr(10)&Linecontent
　　f.close
　　set f = nothing
　　end function
　　21.读文件最初一行的函数
<P>　　function FSOlastline(filename)
　　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))
　　FSOlastline = temparray(ubound(temparray))
　　end if
　　end function
ASP脚本是采用明文（plain text）方式来编写的。

莫相离 发表于 2015-2-4 00:47:14

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

乐观 发表于 2015-2-5 12:35:21

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

活着的死人 发表于 2015-2-6 00:31:49

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

透明 发表于 2015-2-7 08:54:57

掌握asp的特性而且一定要知道为什么。

兰色精灵 发表于 2015-2-21 08:41:00

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

柔情似水 发表于 2015-2-25 08:49:29

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

灵魂腐蚀 发表于 2015-2-27 04:20:16

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

admin 发表于 2015-3-1 20:58:26

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

若相依 发表于 2015-3-10 23:40:50

那么，ASP.Net有哪些改进呢？

再现理想 发表于 2015-3-17 16:08:08

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

海妖 发表于 2015-3-24 10:26:13

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

简单生活 发表于 2015-3-24 23:33:40

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

不帅 发表于 2015-3-25 05:41:52

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

蒙在股里 发表于 2015-4-11 03:07:55

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

深爱那片海 发表于 2015-4-14 16:28:32

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

精灵巫婆 发表于 2015-4-21 19:10:39

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

飘飘悠悠 发表于 2015-4-24 12:28:31

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

愤怒的大鸟 发表于 2015-4-26 08:12:25

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

分手快乐 发表于 2015-5-4 17:41:18

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。
页: [1] 2
查看完整版本: ASP网页设计站长保举：ASP初学者经常使用源代码总结篇