一些ASP初學者常用的代碼

來源:互聯網
上載者:User
初學

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"> 

可以修改數字,限制調用個數,我這裡是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="&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=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=""width="468"height="60"><paramname=movievalue="images/yj16d.swf"><paramname=qualityvalue=high><embedsrc="images/dvbanner.swf"quality=highpluginspage="";;;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

相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。