[点晴永久免费OA]ASP常用源代码的总结

admin

2022年6月21日 15:8 本文热度 845

ASP是Active Server Page的缩写，意为“动态服务器页面”。ASP是微软公司开发的代替CGI脚本程序的一种应用，它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。下面介绍的是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.gxlsystem.com','','height=200,width=300,top=0,left=30');
// -->
</script>

6.随机数：　

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

N为可改变数

7.向上滚动代码：　

<marquee direction="up" scrolldelay="200"
style=" 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>
<p align="center">本页10秒后自动关闭,请注意刷新页面</p>

9.随机背景音乐：

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

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

10.自动刷新本页面：

<script>
<!--
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+"秒后重刷本页！"
else
curtime=cursec+"秒后重刷本页！"
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)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'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.用键盘打开网页代码：　

<script language="javascript">
function ctlent(eventobject)
{
if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83))
{
window.open('网址','','')
}
}
</script>

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

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

<div z-Index:2><object xxx></object></div> ＃ 前面
<div z-Index:1><object xxx></object></div> ＃ 后面
<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>
<div id="Layer1" style="position:absolute; top:50;width:200px; height:115px;z-index:1">
<iframe height=100% width=100%></iframe></div>

15.动网FLASH广告代码：

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.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.gxlsystem.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>

17.使用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

18.使用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

19.使用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 if
end function

20.使用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

21.使用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

22.使用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 if
end function

到此，关于ASP常用代码的总结篇，就为大家介绍完了，希望对大家有帮助。

该文章在 2022/6/21 15:13:12 编辑过

关键字查询

源代码

常用

代码

正在查询...

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。