中文版免费在线观看_ 整理了一些初學(xué)者常用的ASP代碼

1.獲得系統時(shí)間:

<%=now()%>

2.取得來(lái)訪(fǎng)用的IP:

<%=request.servervariables("remote_host")%>

3.獲得系統,瀏覽器版本:

window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")

</script>

4.去除IE混動(dòng)條:

5.進(jìn)入網(wǎng)站,跳出廣告:

<!--

***********(http://www.******.com,,height=200,width=300,top=0,left=30);

// -->

</script>

6.隨機數:

<%randomize%>

<%=(int(rnd()*n)+1)%>

N為可改變數

7.向上混動(dòng)代碼:

<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.自動(dòng)關(guān)閉網(wǎng)頁(yè):

<!--

setTimeout(window.close();, 10000); //60秒后關(guān)閉

// -->

</script>

本頁(yè)10秒后自動(dòng)關(guān)閉,請注意刷新頁(yè)面

9.隨機背景音樂(lè ):

<%randomize%>

可以修改數字，限制調用個(gè)數，我這里是６０個(gè)．

10.自動(dòng)刷新本頁(yè)面:

<!--

var limit="0:10"

if (document.images){

var parselimit=limit.split(":")

parselimit=parselimit[0]*60+parselimit[1]*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+"秒后重刷本頁(yè)！"

else

curtime=cursec+"秒后重刷本頁(yè)！"

window.status=curtime

setTimeout("beginrefresh()",1000)

}

window.onload=beginrefresh

file://-->

</script>

11.ACCESS數據庫連接:

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)

如果你的服務(wù)器采用較老版本Access驅動(dòng)，請用下面連接方法

connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)

conn.Open connstr

function CloseDatabase

Conn.close

Set conn = Nothing

End function

12.SQL數據庫連接:

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án)打開(kāi)網(wǎng)頁(yè)代碼:

function ctlent(eventobject)

{

if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83))

{

***********(網(wǎng)址,,)

}

</script>

這里是Ctrl+Enter和Alt+S的代碼自己查下鍵盤(pán)的ASCII碼再換就行

14.讓層不被控件復蓋代碼:

<div z-Index:2><object ***></object></div> ＃前面

<div z-Index:1><object ***></object></div> ＃后面

15.動(dòng)網(wǎng)FLASH廣告代碼:

16.VBS彈出窗口小代碼:

msgbox"你還沒(méi)有注冊或登陸論壇","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 function

19.使用FSO寫(xiě)文件某一行的函數

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添加文件新行的函數

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.讀文件最后一行的函數

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

22.點(diǎn)擊返回上頁(yè)代碼:

<form>

</form>

23.點(diǎn)擊刷新代碼:

<form>

</form>

function ReloadButton(){location.href="allbutton.htm";}

// --></script>

24.點(diǎn)擊刷新代碼2:

<form>

</form>

<form>

</form>

function HomeButton(){location.;;}

// --></script>

25.彈出警告框代碼:

<form>

</form>

function AlertButton(){window.alert("要多多光臨呀！");}

// --></script>

26.狀態(tài)欄信息

<form>

</form>

function StatusButton(){window.status="要多多光臨呀！";}

// --></script>

27.背景色變換

<form>

</form>

if (document.bgColor==#00ffff)

{document.bgColor=#ffffff;}

else{document.bgColor=#00ffff;}

}

</script>

28.點(diǎn)擊打開(kāi)新窗口

<form>

</form>

function NewWindow(){***********("http://www.mcmx.com";,"","height=240,width=340,status=no,location=no,toolbar=no,directories=no,menubar=no");}

// --></script></body>

29.分頁(yè)代碼:

<%本程序文件名為：Pages.asp%>

<%包含ADO常量表文件adovbs.inc，可從"\Program Files\Common Files\System\ADO"目錄下拷貝%>

<%＊建立數據庫連接，這里是Oracle8.05數據庫

Set conn=Server.CreateObject("ADODB.Connection")

conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"

Set rs=Server.CreateObject("ADODB.Recordset") 創(chuàng )建Recordset對象

rs.CursorLocation=adUseClient 設定記錄集指針屬性

＊設定一頁(yè)內的記錄總數，可根據需要進(jìn)行調整

rs.PageSize=10

＊設置查詢(xún)語(yǔ)句

StrSQL="Select ID,姓名,住址,電話(huà) from 通訊錄 Order By ID"

rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText

<HTML>

<HEAD>

//點(diǎn)擊"[第一頁(yè)]"時(shí)響應：

function PageFirst()

{

document.MyForm.CurrentPage.selectedIndex=0;

document.MyForm.CurrentPage.onchange();

}

//點(diǎn)擊"[上一頁(yè)]"時(shí)響應：

function PagePrior()

{

document.MyForm.CurrentPage.selectedIndex--;

document.MyForm.CurrentPage.onchange();

}

//點(diǎn)擊"[下一頁(yè)]"時(shí)響應：

function PageNext()

{

document.MyForm.CurrentPage.selectedIndex++;

document.MyForm.CurrentPage.onchange();

}

//點(diǎn)擊"[最后一頁(yè)]"時(shí)響應：

function PageLast()

{

document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;

document.MyForm.CurrentPage.onchange();

}

//選擇"第？頁(yè)"時(shí)響應：

function PageCurrent()

{ //Pages.asp是本程序的文件名

document.MyForm.action=Pages.asp?Page=+(document.MyForm.CurrentPage.selectedIndex+1)

document.MyForm.submit();

}

</script>

</HEAD>

<%IF rs.Eof THEN

Response.Write("[數據庫中沒(méi)有記錄！]")

ELSE

指定當前頁(yè)碼

If Request("CurrentPage")="" Then

rs.AbsolutePage=1

Else

rs.AbsolutePage=CLng(Request("CurrentPage"))

End If

創(chuàng )建表單MyForm,方法為Get

Response.Write("<form method=Get name=MyForm>")

Response.Write("")

設置翻頁(yè)超鏈接

if rs.PageCount=1 then

Response.Write("[第一頁(yè)] [上一頁(yè)] [下一頁(yè)] [最后一頁(yè)] ")

else

if rs.AbsolutePage=1 then

Response.Write("[第一頁(yè)] [上一頁(yè)] ")

Response.Write("[<a href=javascript:PageNext()>下一頁(yè)</a>] ")

Response.Write("[<a href=javascript:PageLast()>最后一頁(yè)</a>] ")

else

if rs.AbsolutePage=rs.PageCount then

Response.Write("[<a href=javascript:PageFirst()>第一頁(yè)</a>] ")

Response.Write("[<a href=javascript:PagePrior()>上一頁(yè)</a>] ")

Response.Write("[下一頁(yè)] [最后一頁(yè)] ")

else

Response.Write("[<a href=javascript:PageFirst()>第一頁(yè)</a>] ")

Response.Write("[<a href=javascript:PagePrior()>上一頁(yè)</a>] ")

Response.Write("[<a href=javascript:PageNext()>下一頁(yè)</a>] ")

Response.Write("[<a href=javascript:PageLast()>最后一頁(yè)</a>] ")

end if

創(chuàng )建下拉列表框，用于選擇瀏覽頁(yè)碼

Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>")

For i=1 to rs.PageCount

if rs.AbsolutePage=i then

Response.Write("<option selected>"&i&"</option>") 當前頁(yè)碼

else

Response.Write("<option>"&i&"</option>")

end if

Response.Write("</select>頁(yè)/共"&rs.PageCount&"頁(yè) 共"&rs.RecordCount&"條記錄")

Response.Write("</form>")

創(chuàng )建表格，用于顯示

Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")

Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")

Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>")

Set Columns=rs.Fields

顯示表頭

For i=0 to Columns.Count-1

Response.Write("<td align=center width=200 height=13>")

Response.Write(""&Columns(i).name&"</td>")

Response.Write("</tr>")

顯示內容

For i=1 to rs.PageSize

Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>")

For j=0 to Columns.Count-1

Response.Write("<td>"&Columns(j)&"</td>")

Response.Write("</tr>")

rs.movenext

if rs.EOF then exit for

Response.Write("</table>")

END IF

</BODY>

</HTML>

完結,希望對于初學(xué)者有所幫助,謝謝大家支持,有空我再將其他的一些代碼,編譯為電子書(shū),給大家

本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請點(diǎn)擊舉報。

欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久