WEB开发网
开发学院WEB开发ASP ASP常用的代码(不断更新) 阅读

ASP常用的代码(不断更新)

 2007-12-09 12:50:04 来源:WEB开发网   
核心提示:<script language="javascript"><!--function AlertButton(){window.alert("要多多光临呀!");}// --></script>26.状态栏信息<for

<script language="javascript"><!--
function AlertButton(){window.alert("要多多光临呀!");}
// --></script> 

26.状态栏信息
<form>
<p><input TYPE="button" value="状态栏信息" ></p>
</form>
<script language="javascript"><!--
function StatusButton(){window.status="要多多光临呀!";}
// --></script> 

27.背景色变换
<form>
<p><input TYPE="button" value="背景色变换" ></p>
</form>
<script>function BgButton(){
if (document.bgColor=='#00ffff')
{document.bgColor='#ffffff';}
else{document.bgColor='#00ffff';}
}
</script> 

28.点击打开新窗口
<form>
<p><input TYPE="button" value="打开新窗口" ></p>
</form>
<script language="javascript"><!--
function NewWindow(){window.open("http://www.mcmx.com";;;,"","height=240,width=340,status=no,location=no,toolbar=no,directories=no,menubar=no");} 
// --></script></body>
29.分页代码:
<%''本程序文件名为:Pages.asp%>
<%''包含ADO常量表文件adovbs.inc,可从"\Program Files\Common Files\System\ADO"目录下拷贝%>
<!--#Include File="adovbs.inc"-->
<%''*建立数据库连接,这里是Oracle(大型网站数据库平台)8.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") ''创建Recordset对象
rs.CursorLocation=adUseClient ''设定记录集指针属性
''*设定一页内的记录总数,可根据需要进行调整 
rs.PageSize=10  

''*设置查询语句 
StrSQL="select ID,姓名,住址,电话 from 通讯录 Order By ID" 
rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText
%>
<HTML>
<HEAD>
<title>分页示例</title>
<script language=javascript>
//点击"[第一页]"时响应:
function PageFirst()

document.MyForm.CurrentPage.selectedIndex=0;
document.MyForm.CurrentPage.onchange();
}
//点击"[上一页]"时响应:
function PagePrior()

document.MyForm.CurrentPage.selectedIndex--;
document.MyForm.CurrentPage.onchange();
}
//点击"[下一页]"时响应:
function PageNext()

document.MyForm.CurrentPage.selectedIndex++;
document.MyForm.CurrentPage.onchange(); 
}
//点击"[最后一页]"时响应:
function PageLast()

document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
document.MyForm.CurrentPage.onchange();
}
//选择"第?页"时响应:
function PageCurrent()
{ //Pages.asp是本程序的文件名
document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)
document.MyForm.submit();

</Script>
</HEAD>
<BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000""> 

<%IF rs.Eof THEN
Response.Write("<font size=2 color=#000080>[数据库中没有记录!]</font>")

上一页  1 2 3 4  下一页

Tags:ASP 常用 代码

编辑录入:coldstar [复制链接] [打 印]
赞助商链接