网站初学者必备代码-优快云博客

网站初学者必看代码

<img height=190 src="javascript:playHelp()" width=240 border=0></span>
    </div>

在整个页面随机飘动的FLASH广告代码

<DIV id=img style="Z-INDEX: 1; POSITION: absolute">
<OBJECT
codeBase= http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0
height=92 width=129 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
  <PARAM NAME="movie" VALUE="flash/adver.swf"><PARAM NAME="quality" VALUE="high">
  <embed src="flash/adver.swf" quality="high"
pluginspage=" http://www.macromedia.com/go/getflashplayer"
type="application/x-shockwave-flash" width="129"
height="92"></embed></OBJECT></DIV>

<SCRIPT language=JavaScript>

</SCRIPT>

友情连接
<form name="form1" method="post" action="">
          <select name="select" onChange="if(this.selectedIndex && this.selectedIndex!=0){window.open(this.value);}this.selectedIndex=0;">
            <option>友情链接 </option>
            <option value=" http://www.imeetyou" selected>我遇见你</option>
          </select>
        </form>
-----------------------------------------------------------------------------------------------------------------
弹出窗口

<SCRIPT language=JavaScript>
        
</SCRIPT>
---------------------------------------------------------------------------------------------------------------------

页内框架

<IFRAME  frameBorder=0 name="jianjie" scrolling=auto width=408 height=100% src="ylyb/write.asp"></IFRAME>

图片登陆按钮  代码
<input type="image" src="image/LOGIN.jpg" name="Submit" value="登录">

热区的
设为首页
<map name="Map">
  <area shape="rect" coords="661,55,709,74" href=# onClick="this.style.behavior='url(#default#homepage)';this.setHomePage
(' http://www.100home.com/jhs/');">

加入收藏
<area shape="rect" coords="715,54,767,74" href="#" onClick=bookmarkit()>

作者： 124.116.44.*

2007-4-13 19:15 　回复此发言

网站初学者必看代码

  </map>
<script language="JavaScript">
function bookmarkit(){window.external.addFavorite(' http://www.imeetyou.net,'我遇见你')}
</script>

居中文本框输入

<input type="text" style="text-align:center;">

固定浏览窗口大小

<script language="Javascript">
resizeTo(400,300);
</script>

用背景图片修饰文字
<p style="black-ground  -image:url  ( http://www.zyj/images/logogif)">
这里输入文字</p>

设置字体总行排列
<pstyle="layout-flow:vertical-ideographic;writ-ing-mode : tb-rl">
要总排的文字</p>

无法拦截的对话框
<SCRIPT〉 show-ModelessDialog ('news.htm','win-name','dialogWidth:500px;dialogHeight:500px;
dialogLeft:400px;dialogTop:250px;center:yes;help:yes;resizable:no;statue:no')   </script>

换行程序
<%=Replace(rs("content"),Chr(13) & Chr(10),"<Br>    ")%>

控制窗口大小
<a href="#" onClick="window.open('shownews2.asp?newsid=<%=rs("newsid")%>','', 'height=400 width=800,toolbar=no,location=no,status=no,menubar=no');return false">

ASP编程常用的代码

----------------------------------------------------------------------------------------------------------------------------------------------
1. ASP与Access数据库连接：
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>

2. ASP与SQL数据库连接：

<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>

建立记录集对象：

set rs=server.createobject("adodb.recordset")
rs.open SQL语句,conn,3,2

3. SQL常用命令使用方法：

(1) 数据记录筛选：

sql="select * from 数据表 where 字段名=字段值 order by 字段名 "
sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 "
sql="select top 10 * from 数据表 where 字段名 order by 字段名 "
sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)"
sql="select * from 数据表 where 字段名 between 值1 and 值2"

(2) 更新数据记录：

sql="update 数据表 set 字段名=字段值 where 条件表达式"
sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"

(3) 删除数据记录：

sql="delete from 数据表 where 条件表达式"
sql="delete from 数据表" (将数据表所有记录删除)

(4) 添加数据记录：

sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)"
sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)

(5) 数据记录统计函数：

AVG(字段名) 得出一个表格栏平均值
COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计
MAX(字段名) 取得一个表格栏最大的值
MIN(字段名) 取得一个表格栏最小的值
SUM(字段名) 把数据栏的值相加

引用以上函数的方法：

sql="select sum(字段名) as 别名 from 数据表 where 条件表达式"
set rs=conn.excute(sql)

用 rs("别名") 获取统的计值，其它函数运用同上。

(5) 数据表的建立和删除：

Create TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )

例：Create TABLE tab01(name varchar(50),datetime default now())

作者： 124.116.44.*

2007-4-13 19:15 　回复此发言

网站初学者必看代码

Drop TABLE 数据表名称 (永久性删除一个数据表)

(6) 记录集对象的方法：
rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.pagesize=N 设置每页为N条记录
rs.pagecount 根据 pagesize 的设置返回总页数
rs.recordcount 返回记录总数
rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否
rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否
rs.delete 删除当前记录，但记录指针不会向下移动
rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录

判断所填数据是数字型

if not isNumeric(request("字段名称")) then
response.write "不是数字"
else
response.write "数字"
end if
--------------------------------------------------------------------------------------------------------------------------------------------
最常用的ASP脚本大集合

1、数据库连接。

ASP与Access数据库连接：

<%@ language=VBs cript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile

%>

ASP与SQL数据库连接：

<%@ language=VBs cript%>
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>

DW中用字符串连接代码：

"Driver={Microsoft Access Driver (*.mdb)};DBQ=数据库的绝对路径"

等做完后再打开数据库服务器，把

"Driver={Microsoft Access Driver (*.mdb)};DBQ=数据库的绝对路径"

换成

"Provider=Microsoft.Jet.OLEDB.4.0;data source="& server.mappath("服务器根目录下所在数据库路径")

并把本地服务器修改成测试服务器

2、加载别的页面。



3、显示数据库中的数据。

<%=rs("字段")%>

4、输出。

Response.Write("文字或者字符串");

5、打开数据库并建立数据集对象。

set conn=server.CreateObject("ADODB.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("***/photodata.mdb") '更改您的数据库文件存放路径
set rs=server.createobject("ADODB.recordset") '建立数据集
sql="SELECT * FROM data" '更改您的数据库表名
rs.Open sql,conn,1,1

6、获得系统的时间。

<%=now()%>

7、取得来访问的IP。

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

8、随机数。

<%randomize%>
<%=(int(rnd()*n)+1)%>
N为可改变数

9、跳转页面。

Response.Redirect("页面")

10、弹出消息框。

Response.Write("<script>alert('消息框！')</script>")

11、用hidden类型来传递变量。

< % form method="post" action="mynextpage.asp" >
< % for each item in request.form % >
< input namee="< %=item% >" type="HIDDEN"
value="< %=server.HTMLEncode(Request.form(item)) % >" >
< % next % >
< /form >

12、常用SQL语句整理。

(1) 数据记录筛选：

sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]"

sql="select * from 数据表 where 字段名 like ''%字段值%'' order by 字段名 [desc]"

作者： 124.116.44.*

2007-4-13 19:15 　回复此发言

网站初学者必看代码

sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]"

sql="select * from 数据表 where 字段名 in (''值1'',''值2'',''值3'')"

sql="select * from 数据表 where 字段名 between 值1 and 值2"

(2) 更新数据记录：

sql="update 数据表 set 字段名=字段值 where 条件表达式"

sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"

(3) 删除数据记录：

sql="delete from 数据表 where 条件表达式"

sql="delete from 数据表" (将数据表所有记录删除)

(4) 添加数据记录：

sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)"

sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)

(5) 数据记录统计函数：

AVG(字段名) 得出一个表格栏平均值
COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计
MAX(字段名) 取得一个表格栏最大的值
MIN(字段名) 取得一个表格栏最小的值
SUM(字段名) 把数据栏的值相加

引用以上函数的方法：

sql="select sum(字段名) as 别名 from 数据表 where 条件表达式"
set rs=conn.excute(sql)

用 rs("别名") 获取统的计值，其它函数运用同上。

(5) 数据表的建立和删除：

CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )

例：CREATE TABLE tab01(name varchar(50),datetime default now())

DROP TABLE 数据表名称 (永久性删除一个数据表)

asp分页。

page = request.querystring("page")

if page = empty then page = 1

rs.open "select .......",conn,1,1

rs.pagesize = 每页记录数

if not rs.eof then rs.absolutepage = page

for i=1 to rs.pagecount

if i=cint(page) then

response.write "<b>"& i &"</b> "

else

response.write "<a href=本页.asp?page="& i &">"& i &"</a> "

end if

next

for i=1 to rs.pagesize

if not rs.eof then

response.write rs(0)&rs(1)&.......

rs.movenext

end if

next

response.write "<a href=本页.asp?page=1>首页</a>"

response.write "<a href=本页.asp?page="&page-1&">上一页</a>"

response.write "<a href=本页.asp?page="&page+1&">下一页</a>"

response.write "<a href=本页.asp?page="&rs.pagecount&">尾页</a>"

------------------------------------------------------------------------------------------------------
收集的一些建站必需源码

1.内嵌框架网页：
<IFRAME marginWidth=0 marginHeight=0 src=" http://www.skycx.com";; frameBorder=0 width=230 scrolling=no height=130 topmargin="0" leftmargin="0">这里是内框架网页，如果看不到请升级你的IE</IFRAME>

2.页面过渡效果：
<meta http-equiv="Page-Enter" content="RevealTrans (Duration=3, Transition=23)">
<meta http-equiv="Page-Exit" content="RevealTrans (Duration=3, Transition=23)">Duration的值为网页动态过渡的时间，单位为秒。
Transition是过渡方式，它的值为0到23，分别对应24种过渡方式。如下表：
0 盒状收缩 1 盒状放射
2 圆形收缩 3 圆形放射
4 由下往上 5 由上往下
6 从左至右 7 从右至左
8 垂直百叶窗 9 水平百叶窗
10 水平格状百叶窗 11垂直格状百叶窗
12 随意溶解 13从左右两端向中间展开
14从中间向左右两端展开 15从上下两端向中间展开
16从中间向上下两端展开 17 从右上角向左下角展开
18 从右下角向左上角展开 19 从左上角向右下角展开
20 从左下角向右上角展开 21 水平线状展开
22 垂直线状展开 23 随机产生一种过渡方式

作者： 124.116.44.*

2007-4-13 19:15 　回复此发言

网站初学者必看代码

3.显示年月日星期：
<SCRIPT language=JavaScript>
today=new Date();
function initArray(){
this.length=initArray.arguments.length
for(var i=0;i<this.length;i++)
this[i+1]=initArray.arguments }
var d=new initArray(
"星期日",
"星期一",
"星期二",
"星期三",
"星期四",
"星期五",
"星期六");
document.write(
"<font color=##6666CC style='font-size:9pt;font-family: 宋体'> ",
today.getYear(),"年",
today.getMonth()+1,"月",
today.getDate(),"日",
d[today.getDay()+1],
"</font>" );
</SCRIPT>

4.添加到收藏夹：
〈a href="javascript :window.external.addFavorite(' http://链接','说明');"〉添加到收藏夹〈/a〉

5.设为首页：
〈a href=# onclick=this.style.behavior='url(#default#homepage)';this.setHomePage(' http://链接');〉设为首页〈/a〉

6.定制浏览器地址栏前的小图标：
〈head〉〈/head〉间加入以下语句：
〈link rel="shortcuticon" href=" http://…/icon.ico"〉
可以在收藏夹中显示出你的图标：
<link rel="Bookmark" href="favicon.ico">
其中 icon.ico 为 16x16 的图标文件，颜色不要超过 16 色。

7.控制横向和纵向滚动条的显隐:
<body style="overflow-y:hidden"> 去掉x轴
<body style="overflow-x:hidden"> 去掉y轴
<body scroll="no">不显

8.打开窗口即最大化:
<script language="javascript">

</script>

9. 网页不会被缓存
HTM网页：
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
或者<META HTTP-EQUIV="expires" CONTENT="0">
ASP网页：
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
PHP网页：
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");

10. 检查一段字符串是否全由数字组成
<script language="javascript"></script>

11. 防止被人frame
<SCRIPT LANGUAGE=javascript></SCRIPT>

12.网页将不能被另存为：
<noscript><iframe src=*.html></iframe></noscript>

13.将彻底屏蔽鼠标右键：
oncontextmenu="window.event.returnvalue=false"
可用于Table：<table border oncontextmenu=return(false)><td>no</table>

14.   取消选取、防止复制<body onselectstart="return false">
不准粘贴 onpaste="return false"
防止复制 oncopy="return false;" oncut="return false;"

15 全屏
<script language=javas cript>
window.open('front.htm','','fullscreen=1');
</script>
16　永远都会带着框架
1>、<s cript language="javas cript"></s cript>

2>、<HTML>
<HEAD>
<TITLE> ken.skycx.com </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<base onmouseover="window.status='';return true">
</HEAD>

  <frameset cols="0,*" frameborder="NO" border="0" framespacing="0">

作者： 124.116.44.*

2007-4-13 19:15 　回复此发言

网站初学者必看代码

    <frame scrolling="NO" noresize src="" name="">
    <frame src=" http://kending.51.net";;>
  </frameset>

</HTML>

-----------------------------------------------------------------------------------------------

调试ASP脚本

无论您的计划多么精密、经验多么丰富，脚本错误(bug)可能在最初就使您的 ASP 服务器端的脚本无法正确运行。也就是说调试，即查找和纠正脚本错误，对开发一个成功的和强健的 ASP 程序是非常重要的。
Microsoft 脚本调试工具
Microsoft? Script Debugger 是一个功能强大的调试工具，它能帮助您迅速查找错误并对服务器端的脚本进行交互测试。Script Debugger 与 Windows Internet Explorer 3.0 版本或更新的版本一起工作。通过它，您可以：
逐行运行服务器端脚本。
在服务器端脚本执行时，打开命令窗口监视变量、属性或数组元素的值。
在特定行设置暂停标记，挂起服务器端脚本（使用调试工具或脚本命令）。
在运行服务器端脚本时跟踪过程。
注意您可以使用调试工具查看脚本并找到错误所在，但是不能直接编辑脚本。要想改正错误，必须用编辑器编辑脚本然后保存，再运行脚本。
详细信息，请参阅 Microsoft 脚本调试程序.
（该功能不能用于 Windows 95 或更高的版本。）

启用调试
在开始调试服务器端脚本之前，您必须首先配置 Web 服务器，使其支持 ASP 调试。有关配置命令及信息，请参阅启用 ASP 调试。
在启用 Web 服务器调试之后，就可以使用下面的任一方法调试脚本：
手工打开 Microsoft 脚本调试器，调试 ASP 服务器端脚本。
使用 Internet Explorer 请求 .asp 文件。如果该文件包含错误或人为添加的停止执行语句，那么 Microsoft 脚本调试程序将自动启动，显示该脚本，并且指出错误来源。

脚本错误
调试服务器端脚本时，您可能会碰到各种类型的错误。其中的某些错误使脚本无法正确执行、程序停止执行或返回错误结果。

语法错误
语法错误是经常碰到的错误，它是由不正确的脚本语法导致的。例如，命令拼写错误或传递给函数的参数不正确都将产生错误。语法错误可能导致您的脚本不能运行。

运行时错误
运行时错误是脚本在执行过程中脚本指令试图执行不可能的动作而导致的。例如，下面的脚本中包含一个被零除（一种非法的数学运算）的函数，将

产生运行时错误：
<script language = "VBScript" runat = server>
Result = Findanswer(15)
document.write ("The answer is " &Result)
Function Findanswer(x)
This statement generates a run-time error.
Findanswer = x/0
End Function
</script>
必须纠正导致运行时错误的错误，这样才能使脚本在运行时不被中断。

逻辑错误
逻辑错误通常可能是潜在和难以检测的。如果有因键入错误或程序逻辑流程错误引起的逻辑错误，脚本可能会成功运行，但产生的结果却是错的。例如，一服务器端脚本计划对一个值列表排序，如果本应使用 "<" 符号比较数值，但却使用了" >" 符号，那么将返回不正确的排序结果。

错误调试技术
可以使用多种不同的调试技术来查找错误的根源并测试应用程序。
实时 (Just-In-Time, JIT) 调试
当一个运行时错误中断了 ASP 脚本的执行时，Microsoft 脚本调试程序自动启动，显示 .asp 文件，将语句指针指向导致错误的行，并产生错误消息。这种调试方式称为实时 (JIT) 调试，计算机将暂停程序的执行。必须用编辑程序纠正这些错误，保存所做的修正，然后再运行脚本。

断点调试
当一个错误发生并且很难找到错误的根源时，可使用预设断点的调试方法。断点将脚本暂停在特定一行。可以在脚本中有疑问处设置一个或多个不同的断点，然后使用调试器去改正脚本中设置的变量或属性的值。当您纠正这些错误之后，可以清除断点以便您的脚本能不间断地运行。

作者： 124.116.44.*

2007-4-13 19:15 　回复此发言

网站初学者必看代码

请用 Microsoft 脚本调试程序打开脚本，设置断点。然后用 Web 浏览器请求此脚本。当执行到脚本中含有断点的行时，计算机启动脚本调试程序，并且语句指针会指在设置了断点的行上。
VBScript Stop 语句调试器
通过在服务器端脚本中有问题的部分前面插入 Stop 语句，您也可以将断点添加到用 VBScript 编写的服务器端脚本中。例如，下面的 ASP 脚本包含一个 Stop 语句，用来在显示结果之前暂停执行：
<%
dayvalue = 3
TheDay = WeekDayName(dayvalue)
Stop set breakpoint here.
Response.Write("Today is " + TheDay)
%>
当您在请求 Web 浏览器使用的先前的脚本时，调试程序启动并自动显示 .asp 文件，而且语句指针会指示 stop 语句的位置。一定要记住从交付使用的 .asp 文件中删除 Stop 语句。
用 JScript Debugger 语句调试
要将断点加到用 Microsoft? JScript 编写的服务器端脚本中，可在有疑问的行前插入 debugger 语句。例如，下面的脚本包含了 debugger 语句，每次脚本循环到一个新值时，就会中断执行并自动启动 Microsoft 脚本调试程序。
<%@ Language="JScript" %>
<%
for (var count = 1; count <= 10; count++) {
var eventest = count%2;
debugger //Sets breakpoint
if (eventest == 0) {
response.write("Even value is " + count + "<br>")
}
}
%>
请记住从交付使用的 .asp 文件中删除 debugger 语句。
注意不要混淆 debugger 语句和 JScript break 语句。在程序执行期间，break 语句仅退出当前循环，并不激活 Microsoft 脚本调试器，也不暂停程序的执行。
脚本调试技巧
除脚本调试程序外，一套好的调试技巧也能减少花费在分析脚本错误根源上的大量时间。尽管大部分错误是由显而易见的根源导致的，但命令拼写错误或丢失变量、某种类型的逻辑和执行错误也可能因不太明显的根源所致。详细信息，请参阅 Microsoft 脚本调试程序文档的"调试技巧"部分。

-------------------------------------------------------------------------------------------------

javascript,ASP页面跳转处理总结

＝＝＝＝＝javascript中弹出选择框跳转到其他页面＝＝＝＝＝
<script language="javascript">

</script>

＝＝＝＝＝javascript中弹出提示框跳转到其他页面＝＝＝＝＝
<script language="javascript">

</script>

＝＝＝＝＝ASP中直接跳转到其他页面＝＝＝＝＝＝＝＝＝＝＝

<%
response.redirect "logont.asp"
%>

＝＝＝＝＝Html中确认后弹出新页面＝＝＝＝＝＝＝＝＝＝＝
function Del(id)
  {
if (confirm("你确定要删除吗？"))
  {
  window.open("otherfile.asp?ID="+id+"&act=del","top","width=640,height=400")
  }
  }

＝＝＝＝＝Html中确认后跳转到其他页面＝＝＝＝＝＝＝＝＝
function Del(URL)
  {
if (confirm("你确定要删除吗？"))
  {
  //URL="otherfile.htm"
  window.location.href=URL
  }
  }

----------------------------------------------------------------------------------------------------

滚动条换色

<script language="JavaScript1.2">

</script>