原创 url網頁自動轉發代碼 自動轉向網址

一個簡單實用的代碼<META HTTP-EQUIV="Refresh" CONTENT="5;URL=http://www.itblo.com/">把上面的語句放到<head>----</head>的之間!其中的"5"爲轉發時間,爲5秒後

原创 通過服務器的404文件沒有找到的錯誤處理,實現url rewrite的功能

本站提供的功能如下 http://www.java2000.net/f29 會被自動轉發到 http://www.java2000.net/forumdisplay.jsp?fid=29 因爲系統並不存在f29,所以使用了404的錯誤處理

原创 如何 在SQL中刪除重複的數據行

有兩個意義上的重複記錄,一是完全重複的記錄,也即所有字段均重複的記錄, 二是部分關鍵字段重複的記錄,比如Name字段重複,而其他字段不一定重複或都重複可以忽略。 1、對於第一種重複 使用select distinct * from tab

原创 破解MD5的網站

http://www.md5.com.cn (一億以上數據)http://www.cmd5.comhttp://www.xmd5.com這三個網站都是國人做的。http://md5.mmkey.comhttp://www.md5looku

原创 從 "or"="or" 漏洞安全檢測到修復手法

實施修復,方法有很多在這裏介紹兩種,咱們使用第2種 方法1: Replace過濾字符    解決方法:查找login.asp下的<from找到下邊的類似    username=request.Form("name")    pass=

原创 用ASP發送EMAIL

<%function SendMail(ToAddress,subject,msg)Dim Jmailsender="[email protected]" '發送郵箱,需要根據實際修改Set Jmail=server.createobject

原创 TXT生成MDB文件轉ACCESS

<%on error resume nextset conn=server.createobject("adodb.connection")connstr="Provider=Microsoft.jet.oledb.4.0;data so

原创 隱藏滾動條的控制

1)隱藏滾動條<body style="overflow-x:hidden;overflow-y:hidden">(2)如何在單元格或圖層中出現滾動條<div style="width:200px;height:200px;overflo

原创 ASP 只截取字符串的數字

<%function RegExpTestsp(str,pat)      Dim r, Match, Matches      Set r = New RegExp      r.Pattern = pat      r.IgnoreC

原创 用asp把一個單詞分割成一個個字母

<% Dim StrStr="mynameis"For I = 1 To Len(Str)Response.Write Mid(Str,I,1) &"<br>"Next %> 點贊 收藏 分享 文

原创 用ASP實現上下線

用ASP實現上下線,方法是用來在線刷新的時間來做到。 一: dd=rs("time")     if dd=0 then   dd="0:0:0"   end if 當ACC裏TIME爲空是自己定。    if DateDiff("s",

原创 URL重寫最簡單的例子(服務器)

下載ISAPI_Rewrite.ISAPI_Rewrite分精簡(Lite)和完全(Full)版.精簡版不支持對每個虛擬主機站點進行重寫,只能進行全局處理.不過對於有服務器的朋友,精簡版也就夠啦.精簡版下載地址:http://www.he

原创 27個不錯的ASP代碼

1. οncοntextmenu="window.event.returnvalue=false" 將徹底屏蔽鼠標右鍵 <table border οncοntextmenu=return(false)><td>no</table> 可用

原创 用戶ASP中讀出數據庫名,表名,和字段名SQL的也行

<%'---------------讀access庫中的表名-------------------------                                             set conn=server.cre

原创 asp 字符串包含函數

asp 字符串包含函數 <%ab="abcdefg"你可以用Instr()或者InstrRev()來判斷 if Instr(ab, "a")>0 then或if InstrRev(ab, "a")>0 then qq:9231333 ht