订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

推荐:ASP初学者常用源代码总结篇

网络 2008/5/23 21:13:21 深山行者 字体: 浏览 6864

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)%> Www@Chinaz@com

N为可改变数

7.向上混动代码: 

<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.自动关闭网页:

<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 

//--> 
</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广告代码:


16.VBS弹出窗口小代码: 
<script language=vbscript> 
msgbox"你还没有注册或登陆论坛","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 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 Www.Chinaz.com

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

相关阅读
uni-app基础知识事件传参(动态参数演示)
深山行者留言系统V3.2
聚散客旅游网
深圳市假日通国际旅行社有限公司
asp简繁体转换函数(含3500汉字对照表)
uni-app基础知识使用hidden条件显示
asp中最难发现的错误由最简单的程序引起
javascript编写的网页版的打字测试程序
共有0条关于《推荐:ASP初学者常用源代码总结篇》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
aliyun阿里云续费域名优惠口令(注册、续费都可以使用)
windows7环境下安装配置jdk
python对微信操作要用到这两个库wxpy与itchat
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
DW设置之后更好用 DreamweaverCS编辑GB2312与UTF-8文件在代码视图中点击鼠标错位问题的解决办法
解决国内 github.com 打不开的准确方法
更多>>随机抽取信息
网站建设:ASP网站防范黑客技巧
ASP网站打开特别卡 提示:msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法
做好的网站把http改成https申请SSL域名证书
js中innerHTML,innerText,outerHTML的用法与区别
div+css布局中的精粹技巧
JS自动格式化输入的数字/千位分隔符