ASP网站制作之复杂有用的ASP编程代码对比表
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码编程1.取得体系工夫:<%=now()%>
2.获得来访用的IP:
<%=request.serverVariables("remote_host")%>
3.取得体系,扫瞄器版本:
<script>
window.document.write("版本："+navigator.appName+navigator.appVersion+"browser.")
</script>
4.往除IE混动条:
<bodyscroll="no">
<bodystyle="overflow-y:hidden">
5.进进网站,跳出告白:
<scriptlanguage="javascript">
<!--
<!--注重变动文件地点路径-->
window.open(http://www.XXXXXX.com,,height=200,width=300,top=0,left=30);
//-->
</script>
6.随机数:
<%randomize%>
<%=(int(rnd()*n)+1)%>
N为可改动数
7.向上混动代码:
<marqueedirection="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.主动封闭网页:
<scriptLANGUAGE="javascript">
<!--
setTimeout(window.close();,10000);//60秒后封闭
//-->
</script>
<palign="center">本页10秒后主动封闭,请注重革新页面</p>
9.随机背景音乐:
<%randomize%>
<bgsoundsrc="mids/<%=(int(rnd()*60)+1)%>.mid"loop="-1">
能够修正数字，限定挪用个数，我这里是６０个．
10.主动革新本页面:
<script>
<!--
varlimit="0:10"
if(document.images){
varparselimit=limit.split(":")
parselimit=parselimit*60+parselimit*1
}
functionbeginrefresh(){
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数据库毗连:
<%
optionexplicit
dimstartime,endtime,conn,connstr,db
startime=timer()
变动数据库名字
db="data/dvBBS5.mdb"
Setconn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)
假如你的服务器接纳较老版本Access驱动，请用上面毗连办法
connstr="driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath(db)
conn.Openconnstr
functionCloseDatabase
Conn.close
Setconn=Nothing
EndFunction
%>
12.SQL数据库毗连:
<%
optionexplicit
dimstartime,endtime,conn,connstr,db
startime=timer()
connstr="driver={SQLServer};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
Setconn=Server.CreateObject("ADODB.Connection")
conn.Openconnstr
functionCloseDatabase
Conn.close
Setconn=Nothing
EndFunction
%>
13.用键盘翻开网页代码:
<scriptlanguage="javascript">
functionctlent(eventobject)
{
if((event.ctrlKey&&window.event.keyCode==13)||(event.altKey&&window.event.keyCode==83))
{
window.open(网址,,)
}
}
</script>
这里是Ctrl+Enter和Alt+S的代码本人查下键盘的ASCII码再换就行
14.让层不被控件复盖代码:
<divz-Index:2><object***></object></div>＃后面
<divz-Index:1><object***></object></div>＃前面
<divid="Layer2"style="position:absolute;top:40;width:400px;
height:95px;z-index:2"><tableheight=100%width=100%
bgcolor="#ff0000"><tr><tdheight=100%
width=100%></td></tr></table><iframewidth=0
height=0></iframe></div>
<divid="Layer1"style="position:absolute;top:50;width:200px;
height:115px;z-index:1"><iframeheight=100%
width=100%></iframe></div>
15.动网FLASH告白代码:
<objectclassid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"
width="468"height="60"><paramname=movie
value="images/yj16d.swf"><paramname=quality
value=high><embedsrc="http://www.webjx.com/htmldata/2005-06-13/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弹出窗口小代码:
<scriptlanguage=vbscript>
msgbox"你还没有注册或上岸论坛","0","佳构论坛"
location.href="login.asp"
</script>
16.利用FSO修正文件特定内容的函数
functionFSOchange(filename,Target,String)
DimobjFSO,objCountFile,FiletempData
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData=objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.WriteFiletempData
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
EndFunction
17.利用FSO读取文件内容的函数
functionFSOFileRead(filename)
DimobjFSO,objCountFile,FiletempData
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead=objCountFile.ReadAll
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
EndFunction
18.利用FSO读取文件某一行的函数
functionFSOlinedit(filename,lineNum)
iflinenum<1thenexitfunction
dimfso,f,temparray,tempcnt
setfso=server.CreateObject("scripting.filesystemobject")
ifnotfso.fileExists(server.mappath(filename))thenexitfunction
setf=fso.opentextfile(server.mappath(filename),1)
ifnotf.AtEndofStreamthen
tempcnt=f.readall
f.close
setf=nothing
temparray=split(tempcnt,chr(13)&chr(10))
iflineNum>ubound(temparray)+1then
exitfunction
else
FSOlinedit=temparray(lineNum-1)
endif
endif
endfunction
19.利用FSO写文件某一行的函数
functionFSOlinewrite(filename,lineNum,Linecontent)
iflinenum<1thenexitfunction
dimfso,f,temparray,tempCnt
setfso=server.CreateObject("scripting.filesystemobject")
ifnotfso.fileExists(server.mappath(filename))thenexitfunction
setf=fso.opentextfile(server.mappath(filename),1)
ifnotf.AtEndofStreamthen
tempcnt=f.readall
f.close
temparray=split(tempcnt,chr(13)&chr(10))
iflineNum>ubound(temparray)+1then
exitfunction
else
temparray(lineNum-1)=lineContent
endif
tempcnt=join(temparray,chr(13)&chr(10))
setf=fso.createtextfile(server.mappath(filename),true)
f.writetempcnt
endif
f.close
setf=nothing
endfunction
20.利用FSO增加文件新行的函数
functionFSOappline(filename,Linecontent)
dimfso,f
setfso=server.CreateObject("scripting.filesystemobject")
ifnotfso.fileExists(server.mappath(filename))thenexitfunction
setf=fso.opentextfile(server.mappath(filename),8,1)
f.writechr(13)&chr(10)&Linecontent
f.close
setf=nothing
endfunctionasp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... Session:这个存储跟客户端会话过程的数据，默认20分钟失效 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。
页:
[1]