网页中最简单的虚线分隔线
把如下代码加入<body>区域中
<hr noshade style="border:1 dotted red(颜色) " width="500(长度) " size="1(粗细) ">
比如鼠标移动到文字上面把AAA改为BBB
<span onmouseover=this.innerText="bbb">aaa</span>
按下按钮就刷新的语句是.......
<input type=button onclick="location.reload" value="刷新">
文本输入框什么属性能实现不可输入呀！！
<input type="text" name="textfield" disabled>
设置下拉按钮的颜色
css 在form的 select的每一个option里都能用吗？<option.... style="color:red">
IE支持select中的css ：<select name="" class="……">
代码片段如下:
<select style="width:100px">
<option style="background:red">
<option style="background:green">
<option style="background:blue">
<option style="background:yellow">
<option style="background:black">
<option style="background:white">
</select>
如何用html实现浏览器上后退按钮的功能？
<script>
history.back()
</script>
<a href="javascript :history.back(1)">点击后退</a>
<a href="javascript :history.go(-1)">点击后退</a>
<a href="javascript :history.go(-1)">点击后退</a>
表单中如何用图片按钮实现 reset?
代码片段如下:
<html>
<head>
<script>
function aaa(){
document.forms[0].reset()
}
</script>
</head>
<body>
<form>
<input type="submit" value="提交" name="B1">
<image src="logo.gif" onclick=aaa()>
</form>
</body>
</html>
请问如何去掉主页右面的滚动条？
<body scroll="no">
如何让页面固定长度和宽度?
代码片段如下:
<html>
<script>
window.moveTo(0, 0);
window.resizeTo(708, 555);
window.onresize=new Function("window.resizeTo(708, 555);")
</script>
<body></body></html>
如何使提交按钮带颜色？（不用图片）
用css控制提交按钮的background-color属性。
如：
代码片段如下:
<input type=submit value="提交"
style="background-color:blue;color:white;text-align:center;">
把网站加入到用户的收藏夹
语法:external.AddFavorite(网址，标题);
function j_af(){
window.external.AddFavorite(location.href, document.title);
}
两种屏蔽鼠标右键的方法
禁止点击鼠标右键
.将下面的代码复制到 <body> 或者 <head> 内
<script language="javascript">
function click() {
if (event.button==2) {
alert('对不起，本页的内容不经允许不得拷备。')
}}
document.onmousedown=click
</script>
简单一点的: //IE5适用，取消菜单显示
<script language="javascript">
document.oncontextmenu =new function(){return false}
</script>
或者在<body>标签中加入 <body oncontextmenu="return false">
设置右滚动条颜色
<style type="text/css">
BODY {
SCROLLBAR-FACE-COLOR:#8AB1E6;
SCROLLBAR-HIGHLIGHT-COLOR:#FFFFFF;
SCROLLBAR-SHADOW-COLOR:#FFFFFF;
SCROLLBAR-3DLIGHT-COLOR:#8DB5E0;
SCROLLBAR-ARROW-COLOR:#FDFDFD;
SCROLLBAR-TRACK-COLOR:#E1EFFB;
SCROLLBAR-DARKSHADOW-COLOR:#4A65B5;
}
</style>
数据库
连接数据库：
Access
<% set conn=server.CreateObject("Adodb.Connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("cmf.mdb")
set rs=server.createobject("adodb.recordset") %>
SQL Server
<%
Set conn=server.createobject("Adodb.Connection")
Conn.open "Driver={SQL Server};Server=serverName; "&
"uid=userid;pwd=X;database=Databasename"
%>
打开表：
1、 rs.open "tab",conn (直接打开表)
2、sql="select * from tab order by id desc"
sql="select * from tab where 条件"
rs.open sql,conn (用SQL语句打开表)
替换；
<% texts=replace(rs("texts"),chr(13)&chr(10),"<br>")
texts=replace(texts," "," ")%>
增加记录：
sql="insert into tab(name,emails,xb,ly,yx,zy)
values('"&name&"','"&emails&"','"&xb&"','"&ly&"','"&yx&"','"&zy&"')"
rs.open sql,conn
修改记录：
sql="update tab set name='"&name&"' where 条件"
rs.open sql,conn
放弃修改：
rs.cancelupdate
删除
sql="delete * from 表名 where name='"&name&"'"
rs.open sql,conn,3
循环控制：
for aa=1 to 10 step 2
语句组1
[exit for]
语句组2
next
控制语句：
select case 判别式
case 限制式1
语句组1
case 限制式2
语句组2
case else
语句组3
end select
while语句
while not rs.eof
语句组
rs.movenext
wend
判断表格是否打开：
if rs.state<>0 then rs.close
关闭本窗口
<a href="javascript :window.close();">关闭本窗口</a>
<a href="javascript :self.close()">关闭本窗口</a>
<a href="javascript :window.close">关闭</a>
添加书签
<a href="javascript :addmyFavorite()">添加书签</a>
特效按钮
<input class="lll" onFocus=this.select() onMouseOver=this.focus() value=这是神仙
的窝 type="text" name="l" size="20">
用ASP取得浏览器信息
<%
set a=server.creatobject("MSWC.BROWSERTYPE")
msg="您使用的浏览器是:"+a.browser+"version"+a.version
%>
<%=msg%>
记录访问者的IP
使用request.servervariables("remote_addr")可获得浏览你网页的人的IP
跳到某一页
<% Response.Redirect "yourhtml.asp"%>
必须加在前面.
如果开头加上<%Response.Buffer=True %>则上一句可加在任意一个地方.
在结尾写: Response.Flush
强制页面过期
<%Response.Expires=0%>
判断是否提交表单
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
判断数据库是否关闭
If RecordSet.State=0 Then Response.Write "RecordSet已经关闭" <无内容> -
判断是否为数组
If IsArray(Session(strName)) then
空格为" " 回车为 vbcrlf
换行 replace(stringtooutput,chr(13)&chr(10),"<br>")
replace( ," "," ")
选择前3条记录
select top 3 * from table where ...
按钮关闭本窗口
<input type="button" name="Submit" value="关 闭" onclick="window.close();">
设为主页:
<A href=http://www.yzyouth.com/#
onclick="this.style.behavior='url(#default#homepage)';
this.sethomepage('http://www.yzyouth.com')">设为主页</A>
添至收藏:
<A href="http://www.yzyouth.com/#"
onclick="window.external.addfavorite('http://www.yzyouth.com','扬州青年网')" target=_top title=扬州青年网>添至收藏</A>
(DVOL本文转自：中国DV传媒 http://www.dvol.cn)
