博文
一行两列的CSS设置代码(2007-04-20 14:44:00)
摘要：<style type="text/css">body{font-size:12px;}
.main{width:800px;/* 总的宽度 */background:yellow;}.main .col-1{float:left;/* 这个是关键的地方 让col1往左浮动，这样它的后面（右边）就可以放置别的元素（别的元素：可以是div，图片，文字等） */width:300px;height:300px;background:#eee;border:1px solid #ccc;}.main .col-2{float:left;/* 这个是关键的地方 让col2也往左浮动，紧跟在col1的后面 */margin-left:5px;/* 让col2和col1之间有些间隔 */width:490px;height:300px;/* 给一个尺寸 可以随意*/background:#ddd;border:1px solid #ccc;}.clear-float{clear:both}/* 清除col1和col2的float,否则main的高度会出错 没有包住它里面的有float的元素。 */</style>
<div class="main">main 我是包在外面的div <div class="col-1">col1 我是第一列</div> <div class="col-2">col2 我是第二列</div> <div class="clear-float">clear-float;我用来清除浮动（清除float）</div></div>
......
屏蔽javacript错误(2007-04-19 10:50:00)
摘要：最近在做一个网页，上面老是提示javascript有错误，但是找了很长时间都没有找出来，但是这个错误不影响页面其他程序。加上客户急着要，我就用以下代码来屏蔽javacript错误，现在放在这里供大家学习
<SCRIPT LANGUAGE="JavaScript"> <!-- Hide function killErrors() { return true; } window.onerror = killErrors; // --> </SCRIPT>......
asp生成word文件(2007-04-17 12:43:00)
摘要：<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 5.0"><meta name="ProgId" content="FrontPage.Editor.Document"><title>生成word文档</title></head><script language="vbscript">sub builddoc() On Error Resume Next
Dim wApp Set wApp = CreateObject("Word.Application") If Err.number > 0 Then Alert "没法保存为Word文件,请正确安装Word97" else wApp.visible = True wApp.Documents.add wApp.Selection.TypeParagraph wApp.Selection.Font.Bold......
清空IE缓存(2007-04-11 09:44:00)
摘要：有时候缓存会给程序带来很大的麻烦，这段代码是用来清空IE缓存里的内容1.禁止客户端缓存要在<head>中加入类似如下内)：
<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">
2.在服务器的动态网页中禁止缓存，要加入类似如下脚本
(1)asp:
<% Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.cachecontrol = "no-cache" %>
或者<%pStr = "private, no-cache, must-revalidate" Response.ExpiresAbsolute = date() Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", pStr %>
(2)jsp:
response.setHeader("Pragma","No-cache"); response.setHeader("Cache-Control","no-cache"); response.setDateHeader("Expires", 0); ......
一些常用的javascript效果(2007-04-09 09:04:00)
摘要：
-- 作者：苦凡-- 发布时间：2005-6-10 15:17:00-- 禁止保存网页的方法1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键<table border oncontextmenu=return(false)><td>no</table> 可用于Table
2. <body onselectstart="return false"> 取消选取、防止复制
3. onpaste="return false" 不准粘贴
4. oncopy="return false;" oncut="return false;" 防止复制
5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标
6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标
7. <input style="ime-mode:disabled"> 关闭输入法
8. 永远都会带着框架<script language="javascript"><!--if (window == top)top.location.href = "frames.htm"; //frames.htm为框架网页// --></script>
9. 防止被人frame<SCRIPT LANGUAGE=javascript><!-- if (top.location != self.location)top.location=self.location;// --></SCRIPT>
10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为
11. <input type=button value=查看网页源代码 onclick="window.location......
图片向上滚动(2007-04-06 22:00:00)
摘要：<DIV id=demo onmouseover=ii=1 style="OVERFLOW: hidden; HEIGHT: 500px" onmouseout=ii=0><DIV id=demo1><div align="center"><a href='#' target='_blank'><img src='images/k.jpg' width='125' height='125' vspace='5' border='0' class='tu'></a><br><a href='#' target='_blank'>图片1</a><br><a href='#' target='_blank'><img src='images/j.jpg' width='125' height='125' vspace='5' border='0' class='tu'></a><br><a href='#' target='_blank'>图片2</a><br><a href='#' target='_blank'><img src='images/I.jpg' width='125' height='125' vspace='5' border='0' class='tu'></a><br><a href='#' target='_blank'>图片3</a><br><a href='#' target='_blank'><img src='images/h.jpg' width='125' height='125' vspace='5' border='0' class='tu'></a><br><a href='#' target='_blank'>图片4</a><br><a href='#' target='_blank'><img src='images/g.jpg' width......
ajax学习资料(2007-03-28 13:32:00)
摘要：多数 Web 应用程序都使用请求/响应模型从服务器上获得完整的 HTML 页面。常常是点击一个按钮，等待服务器响应，再点击另一个按钮，然后再等待，这样一个反复的过程。有了 Ajax 和 XMLHttpRequest 对象，就可以使用不必让用户等待服务器响应的请求/响应模型了。本文中，Brett McLaughlin 介绍了如何创建能够适应不同浏览器的 XMLHttpRequest 实例，建立和发送请求，并响应服务器。
本系列的上一期文章（请参阅 参考资料 中的链接），我们介绍了 Ajax 应用程序，考察了推动 Ajax 应用程序的基本概念。其中的核心是很多您可能已经了解的技术：JavaScript、HTML 和 XHTML、一点动态 HTML 以及 DOM（文档对象模型）。本文将放大其中的一点，把目光放到具体的 Ajax 细节上。
本文中，您将开始接触最基本和基础性的有关 Ajax 的全部对象和编程方法：XMLHttpRequest 对象。该对象实际上仅仅是一个跨越所有 Ajax 应用程序的公共线程，您可能已经预料到，只有彻底理解该对象才能充分发挥编程的潜力。事实上，有时您会发现，要正确地使用 XMLHttpRequest，显然不能 使用 XMLHttpRequest。这到底是怎么回事呢？
Web 2.0 一瞥
在深入研究代码之前首先看看最近的观点 —— 一定要十分清楚 Web 2.0 这个概念。听到 Web 2.0 这个词的时候，应该首先问一问 “Web 1.0 是什么？” 虽然很少听人提到 Web 1.0，实际上它指的就是具有完全不同的请求和响应模型的传统 Web。比如，到 Amazon.com 网站上点击一个按钮或者输入搜索项。就会对服务器发送一个请求，然后响应再返回到浏览器。该请求不仅仅是图书和书目列表，而是另一个完整的 HTML 页面。因此当 Web 浏览器用新的 HTML 页面重绘时，可能会看到闪烁或抖动。事实上，通过看到的每个新页面可以清晰地看到请求和响应。
Web 2.0（在很大程度上）消除了这种看得见的往复交互。比如访问 Google Maps 或 Flickr 这样的站点（到这些支持 Web 2.0 和 Ajax 站点的链接请参阅 参考资料）。比如在 Google Maps 上，您可以拖动地图，放大和缩小，只有很少的重绘操作。当然这里仍......
常用的javascript小技巧(2007-03-22 17:09:00)
摘要：1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键<table border oncontextmenu=return(false)><td>no</table> 可用于Table
2. <body onselectstart="return false"> 取消选取、防止复制
3. onpaste="return false" 不准粘贴
4. oncopy="return false;" oncut="return false;" 防止复制
5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标
6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标
7. <input style="ime-mode:disabled"> 关闭输入法
8. 永远都会带着框架<script language="JavaScript"><!--if (window == top)top.location.href = "frames.htm"; //frames.htm为框架网页// --></script>
9. 防止被人frame<SCRIPT LANGUAGE=JAVASCRIPT><!-- if (top.location != self.location)top.location=self.location;// --></SCRIPT>
10. 网页将不能被另存为<noscript><iframe src=*.html></iframe></noscript>
11. <input type=button value=查看网页源代码 onclick="window.location = "view-source:"+ "http://www.pconline.com.cn"">
12.删除时确认<a href="javascript......
查看被禁止“另存为”网站的html(2007-03-18 18:29:00)
摘要：先用IE打开他的网站，然后在同一IE的地址栏中粘贴以下代码
javascript:{clipboardData.setData("text",frames[0].document.documentElement.outerHTML);alert("请查看您的剪贴板")}
然后打开记事本，选择“编辑”--“粘贴”，看到了吗？......
文章分页代码(2007-03-15 16:08:00)
摘要：<%Function c2u(myText) Dim i c2u = "" For i = 1 to Len(myText) c2u = c2u & "&#x" & Hex(AscW(Mid(myText, i, 1))) & ";" Next End Function
Function cutStr(str,strlen) '去掉所有HTML标记 Dim re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<(.[^>]*)>" str=re.Replace(str,"") set re=Nothing Dim l,t,c,i l=Len(str) t=0 For i=1 to l c=Abs(Asc(Mid(str,i,1))) If c>255 Then t=t+2 Else t=t+1 End If If t>=strlen Then cutStr=left(str,i)&"..." Exit For Else cutStr=str End If Next cutStr=Replace(cutStr,chr(10),"") cutStr=Replace(cutStr,chr(13),"") End Function
Function converttowide(str) Dim strlen Dim position Dim convertstr if isnull(str) then converttowide=str else position=1 strlen=Len(str) For i=1 To strlen convertstr=convertstr+"&#x"+Hex(AscW(Mid(str,position,1)))+";" position=position+1 Next converttowide=convertstr end if End Function
dim topicx,usernamex,addtimex,logtextx,ispassword '获取ID号 articleid=request("articleid") '写执行语句 strSQL ......