haimav
- 浏览: 57131 次
- 性别:
- 来自: 北京
-
最新评论
文章列表
<body >www.xinwanglu.cn 新网路<!-----插入的版权信息广告内容(当别人复制的时候显示------->
<script type="text/javascript">document.body.oncopy = function () { setTimeout( function () { var text = clipboardData.getData("text"); if (text) { text = text + "\r\n本篇文章来源于心奇网 (www.yy66.net) ...
- 2009-09-28 18:08
- 浏览 718
- 评论(0)
已经有很多生成html的新闻系统，但是都是用的模板，本函数实现把asp页面产生的html代码保存成为一个html文件，这样就没有必要改动原来的页面就可以轻松完成一个生成html的新闻系统了。^_^ 由于代码比较短，这里就不进行注释了
以下为引用的内容：
<% '当目标页面的包含文件即#include的页面里边存在response.End()的时候本程序有问题 '注意：本文件一定要放在20041227111723.htm指向的文件的同一目录下 dim hughchiu_rtcode Function get_exe_code(20041227111723.htm) ...
- 2009-09-28 18:06
- 浏览 996
- 评论(0)
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 ...
- 2009-09-28 18:02
- 浏览 829
- 评论(0)
用ASP实现上下线，方法是用来在线刷新的时间来做到。
一：
dd=rs("time") if dd=0 then dd="0:0:0" end if
当ACC里TIME为空是自己定。 if DateDiff("s",dd,time())=<60 then errmsg= "用户在线了" exit sub else
如果少60S 那就知道它是在线的
二：
<meta http-equiv=refresh content="55"> ...
- 2009-09-28 18:00
- 浏览 768
- 评论(0)
有两个意义上的重复记录，一是完全重复的记录，也即所有字段均重复的记录，
二是部分关键字段重复的记录，比如Name字段重复，而其他字段不一定重复或都重复可以忽略。
1、对于第一种重复
使用select distinct * from tableName
就可以得到无重复记录的结果集。
如果该表需要删除重复的记录（重复记录保留1条），可以按以下方法删除
select distinct * into #Tmp from tableName
drop table tableName
select * into tableName from #Tmp
drop table #Tmp
发 ...
- 2009-09-28 18:00
- 浏览 1809
- 评论(0)
<%function SendMail(ToAddress,subject,msg)Dim Jmailsender="cyc0005@163.com" '发送邮箱,需要根据实际修改Set Jmail=server.createobject("Jmail.Message")Jmail.Charset = "GB2312" '发送编码jmail.ContentType = "text/html" jmail.ISOEncodeHeaders ="False"Jmail.Silent = true ...
- 2009-09-28 17:59
- 浏览 788
- 评论(0)
<%'---------------读access库中的表名------------------------- set conn=server.createobject("adodb.connection") connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("www.yy66.net.mdb") ...
- 2009-09-28 14:23
- 浏览 909
- 评论(0)
<%
Dim StrStr="mynameis"For I = 1 To Len(Str)Response.Write Mid(Str,I,1) &"<br>"Next
%>
- 2009-09-28 14:17
- 浏览 781
- 评论(0)
<%function RegExpTestsp(str,pat) Dim r, Match, Matches Set r = New RegExp r.Pattern = pat r.IgnoreCase = false r.Global = True Set Matches = r.Execute(str) For Each Match in Matches RetStr = RetStr & Match.Value Next RegExpTestsp = RetStr End f ...
- 2009-09-28 14:15
- 浏览 1203
- 评论(0)
http://www.md5.com.cn (一亿以上数据)http://www.cmd5.comhttp://www.xmd5.com这三个网站都是国人做的。http://md5.mmkey.comhttp://www.md5lookup.com/ (对数字破解比较好)http://md5.rednoize.com (对字母破解比较好)http://nz.md5.crysm.net (从1到4位数字)- 好像关了http://us.md5.crysm.net (美英字典的破解收集和IP地址)http://www.xmd5.org (对数字破解比较好)http://gdataonline.com ...
- 2009-09-28 13:43
- 浏览 969
- 评论(0)
本站提供的功能如下 http://www.java2000.net/f29 会被自动转发到 http://www.java2000.net/forumdisplay.jsp?fid=29 因为系统并不存在f29,所以使用了404的错误处理页面来实现这个功能 页面代码如下
<%@ page language="java" contentType="text/html; charset=GBK" isErrorPage="true" pageEncoding="GBK"%>
<%
...
- 2009-09-25 19:04
- 浏览 731
- 评论(0)
下载ISAPI_Rewrite.ISAPI_Rewrite分精简(Lite)和完全(Full)版.精简版不支持对每个虚拟主机站点进行重写,只能进行全局处理.不过对于有服务器的朋友,精简版也就够啦.精简版下载地址:http://www.helicontech.com/download/,就是那Lite Version (free).
2.安装.msi的文件,和装一般程序一样装就可以了,俺就装在D:\ISAPI_Rewrite.
3.接下来一步比较重要哦,看仔细喽.打开Internet 信息服务,右键,web站点属性,电ISAPI筛选器选项卡.添加筛选器,名称自己填,路径自己指定ISAPI_Re ...
- 2009-09-25 18:55
- 浏览 891
- 评论(0)
一个简单实用的代码<META HTTP-EQUIV="Refresh" CONTENT="5;URL=http://www.itblo.com/">把上面的语句放到<head>----</head>的之间!其中的"5"为转发时间,为5秒后转发,后面的地址为转发到的地址!
其他
<html> <head> <meta http-equiv="Content-Language" content="zh-CN"> < ...
- 2009-09-25 17:42
- 浏览 1736
- 评论(0)
Connection对象Ole db 连接数据库连接sql数据库<%Dim ConnStr,myConn,mySQLConnStr="Provider=SQLOLEDB;data source=(local);initial catalog=pubs;user id=sa;password=;" Set myConn=Server.CreateObject ("ADODB.Connection")Myconn. ConnectionString=ConnStrmyConn ...
- 2009-09-23 12:23
- 浏览 810
- 评论(0)