一些ASP初学者常用的代码

1.获得系统时间:
<%=now()%>
2.取得来访用的IP:
<%=request.serverVariables(“remote_host”)%>
3.获得系统,浏览器版本:
<script >
window.document.write(“版本:”+navigator.appName+navigator.appVersion+”browser.”)
</script>
4.去除IE混动条:
<body scroll=”no”>
<body style=”overflow-y:hidden”>
5.进入网站,跳出广告:
<script language=”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.自动关闭网页:
<script LANGUAGE=”javascript”>
<!–
setTimeout(“”window.close();””,10000);//60秒后关闭
//–>
</script>
<palign=”center”>本页10秒后自动关闭,请注意刷新页面</p>
9.随机背景音乐:
<%randomize%>
<bgsoundsrc=”mids/<%=(int(rnd()*60)+1)%>.mid”loop=”-1″>

可以修改数字,限制调用个数,我这里是60个.
10.自动刷新本页面:
<script >
<!–

varlimit=”0:10″

if(document.images){
varparselimit=limit.split(“:”)
parselimit=parselimit[0]*60+parselimit[1]*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=”&amp;Server.MapPath(db)
“如果你的服务器采用较老版本Access驱动,请用下面连接方法
“connstr=”driver={MicrosoftAccessDriver(*.mdb)};dbq=”&amp;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.用键盘打开网页代码:
<script language=”javascript”>
functionctlent(eventobject)
{
if((event.ctrlKey&amp;&amp;window.event.keyCode==13)││(event.altKey&amp;&amp;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=0height=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=movievalue=”http://www.23717.com/images/yj16d.swf”><paramname=qualityvalue=high><embedsrc=”http://www.23717.com/images/dvbanner.swf”quality=highpluginspage=”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修改文件特定内容的函数
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)&amp;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.A
tEndofStreamthen
tempcnt=f.readall
f.close
temparray=split(tempcnt,chr(13)&amp;chr(10))
iflineNum>ubound(temparray)+1then
exitfunction
else
temparray(lineNum-1)=lineContent
endif
tempcnt=join(temparray,chr(13)&amp;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)&amp;chr(10)&amp;Linecontent
f.close
setf=nothing
endfunction

来源:恋雾迷尘

暂无评论

发送评论 编辑评论


				
|´・ω・)ノ
ヾ(≧∇≦*)ゝ
(☆ω☆)
(╯‵□′)╯︵┴─┴
 ̄﹃ ̄
(/ω\)
∠( ᐛ 」∠)_
(๑•̀ㅁ•́ฅ)
→_→
୧(๑•̀⌄•́๑)૭
٩(ˊᗜˋ*)و
(ノ°ο°)ノ
(´இ皿இ`)
⌇●﹏●⌇
(ฅ´ω`ฅ)
(╯°A°)╯︵○○○
φ( ̄∇ ̄o)
ヾ(´・ ・`。)ノ"
( ง ᵒ̌皿ᵒ̌)ง⁼³₌₃
(ó﹏ò。)
Σ(っ °Д °;)っ
( ,,´・ω・)ノ"(´っω・`。)
╮(╯▽╰)╭
o(*////▽////*)q
>﹏<
( ๑´•ω•) "(ㆆᴗㆆ)
😂
😀
😅
😊
🙂
🙃
😌
😍
😘
😜
😝
😏
😒
🙄
😳
😡
😔
😫
😱
😭
💩
👻
🙌
🖕
👍
👫
👬
👭
🌚
🌝
🙈
💊
😶
🙏
🍦
🍉
😣
Source: github.com/k4yt3x/flowerhd
颜文字
Emoji
小恐龙
花!
上一篇
下一篇