★→ASP程序学习群:62655404 微信公众号开发
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

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

网络 2008/5/23 21:13:21 深山行者 字体:  浏览 5356 我要评论
当前标签
aspaccessfso

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

相关阅读
( 2020/5/4 15:19:18 )css背景使用base64编码或者将base64编码放在img图片标签中
( 2019/11/10 20:46:11 )asp用BcO将二进制转八进制然后再OcB将八进制转二进制
( 2019/11/10 20:44:21 )asp用BcH将二进制转十六进制然后再HcB将十六进制转二进制
( 2019/11/10 20:41:11 )asp用cDec将二进制转十进制然后再用cBit将十进制转二进制
( 2019/9/18 22:40:15 )纯asp根据当前日期计算出相应的星座
( 2019/9/18 22:33:05 )纯asp根据当前日期计算出当前年份的属相
( 2019/5/6 17:22:07 )网站从http改成https(ssl证书)后设置301跳转将http跳转到https的方法
( 2019/4/16 14:29:04 )asp导出内容到excel表并自定义命名后下载(非打开)
共有0条关于《推荐:ASP初学者常用源代码总结篇》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

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

更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
做好的网站把http改成https申请SSL域名证书
纯asp根据当前日期计算出当前年份的属相
ASP利用fso读取文件夹里所有文件的名字
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
更多>>最新添加文章
css背景使用base64编码或者将base64编码放在img图片标签中
asp利用hasOwnProperty验证某个json中的某个标签是否存在
利用css3中的-webkit-font-smoothing把网页文字的毛边去掉
兼容pc、移动端用js实现复制内容到剪切板(支持苹果safari浏览器)
fiddler抓包在内容的SyntaxView窗口里面是乱码
服务器iis配置.mp4视频格式文件播放(网页播放mp4有声音但没有图像画面)
好用的免费桌面gif录制作屏幕软件
jquery实现单选按钮radio选中和取消 使用prop()代替attr()
更多>>随机抽取信息
记录滚动条位置
防止 IE 浏览器被黑的技巧十则
万家乐
利用ASP正则查找文章里面的图片,然后在新窗口打开
CSS教程:CSS伪类属性
asp防止多个后台用户同时登陆
FLASH中加入LOADING的最简便方法
实现windows关机效果代码