【ASP】ASP初学者可方便查询相关的代码

最新推荐文章于 2021-12-27 12:58:32 发布

weixin_30642305

最新推荐文章于 2021-12-27 12:58:32 发布

阅读量147

点赞数

CC 4.0 BY-SA版权

文章标签：数据库 javascript ViewUI

原文链接：http://www.cnblogs.com/fantboy/archive/2005/09/07/231681.html

1.获得系统时间:

<%=now()%>

2.取得来访用的IP:

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

3.获得系统,浏览器版本:

<script>
2

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

</script>

4.去除IE混动条:

<body scroll="no">
2

5.进入网站,跳出广告:

<!--
3

4

window.open(''http://www.XXXXXX.com'','''',''height=200,width=300,top=0,left=30'');
5

// -->
6

</script>
7

6.随机数:

<%randomize%>
2

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

N为可改变数

7.向上混动代码:

<marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000;
2

line-height: 150%; font-style:italic; font-weight:bold" scrollamount="2" width="206"
3

height="207" bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh</marquee>
4

8.自动关闭网页:

<!--
3

setTimeout(''window.close();'', 10000); //60秒后关闭
4

// -->
5

</script>
6

<p align="center">本页10秒后自动关闭,请注意刷新页面</p>
7

9.随机背景音乐:

<%randomize%>
2

<bgsound src="mids/<%=(int(rnd()*60)+1)%>.mid" loop="-1">　
3

可以修改数字，限制调用个数，我这里是６０个．

10.自动刷新本页面:

<script>
2

<!-- 　
3

var limit="0:10" 　
5

if (document.images){
7

var parselimit=limit.split(":")
8

parselimit=parselimit[0]*60+parselimit[1]*1
9

}
10

function beginrefresh(){
11

if (!document.images)
12

return
13

if (parselimit==1)
14

window.location.reload()
15

else{
16

parselimit-=1
17

curmin=Math.floor(parselimit/60)
18

cursec=parselimit%60
19

if (curmin!=0)
20

curtime=curmin+"分"+cursec+"秒后重刷本页！"
21

else
22

curtime=cursec+"秒后重刷本页！"
23

window.status=curtime
24

setTimeout("beginrefresh()",1000)
25

}
26

} 　
27

window.onload=beginrefresh
29

file://-->
30

</script>

11.ACCESS数据库连接:

<%
2

option explicit
3

dim startime,endtime,conn,connstr,db
4

startime=timer()
5

'更改数据库名字
6

db="data/dvBBS5.mdb"
7

Set conn = Server.createObject("ADODB.Connection")
8

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
9

'如果你的服务器采用较老版本Access驱动，请用下面连接方*
10

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

conn.Open connstr
12

function CloseDatabase
13

Conn.close
14

Set conn = Nothing
15

End Function
16

%>
17

12.SQL数据库连接:

<%
2

option explicit
3

dim startime,endtime,conn,connstr,db
4

startime=timer()
5

connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
6

Set conn = Server.createObject("ADODB.Connection")
7

conn.Open connstr
8

function CloseDatabase
9

Conn.close
10

Set conn = Nothing
11

End Function
12

%>
13

13.用键盘打开网页代码:

function ctlent(eventobject)
3

{
4

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

{
6

window.open('网址','','')
7

}
8

}
9

</script>　
10

这里是Ctrl+Enter和Alt+S的代码自己查下键盘的ASCII码再换就行

14.让层不被控件复盖代码:

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

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

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

<div id="Layer1" style="position:absolute; top:50;width:200px; height:115px;z-index:1"><iframe height=100% width=100%></iframe></div>
5

15.动网FLASH广告代码:

;flash.cab#version=5,0,0,0" width="468" height="60"><param name=movie value="images/yj16d.swf"><param name=quality value=high><embed src="images/dvbanner.swf" quality=high pluginspage="http://www.macromedia.com/shockw

kwaveFlash";;; type="application/x-shockwave-f

height="60"></embed></object>

16.VBS弹出窗口小代码:

msgbox"你还没有注册或登陆论坛","0","精品论坛"
3

location.href = "login.asp"
4

</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写文件某一行的函数

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

转载于:https://www.cnblogs.com/fantboy/archive/2005/09/07/231681.html