-
一段采集程序代碼
<%@LANGUAGE="JScript" CODEPAGE="936"%> <script language=VBScript runat="Server"> Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(...
作者：asdasdasd03-30 -
ASP 寫的自動生成SELECT 表單的函數
對于ASP高手當然沒什么用了，但是對于剛入門的初學者和美工就有些用處了。Function selectdo(a,d,b,c) Response.write"<select name='"&a&"'><option>"&d&"</option>" for i=b to c if i<1...
作者：asdasdasd03-30 -
ASP中Cache技術的應用
ASP從發布至今已經7年了，使用ASP技術已經相當成熟，自從微軟推出了ASP.NET之后就逐漸停止了對ASP版本的更新。但是由于有很多人仍然習慣使用ASP來開發網站，所以，再次我將以一個簡單的例子來說...
作者：asdasdasd03-30 -
使用xmlHttp結合ASP實現網頁的異步調用
作者：asdasdasd03-30
通過xmlHttp和ASP的結合，我們可以輕松完成網頁的異步調用。代碼如下：1.新建Display.asp(這是前臺顯示頁面)注意xmlhttp.readyState的4個屬性1:LOADING;2:LOADED;3:INTERACTIVE;4:COMPLETED
<... -
動態CSS，換膚技術
見的例子就是：一個站點上有多個頁面樣式提供瀏覽者選擇。 同時，在選擇了某樣式后，再次打開該頁面時，將仍然保持該樣式。 自然會想到了Cookie技術 以下是程序代碼： <HTML> <HEAD> <link ID=...
作者：asdasdasd03-30 -
淺談自動采集程序及入庫
<%'聲明取得目標信息的函數,通過XML組件進行實現。Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False.Send GetURL = bytes2bst...
作者：asdasdasd03-30 -
百度小偷
<%Function bytes2BSTR(vIn)strReturn = ""For i = 1 To LenB(vIn)ThisCharCode = AscB(MidB(vIn,i,1))If ThisCharCode < &H80 ThenstrReturn = strReturn & Chr(ThisCharCode)ElseNextCharCode...
作者：asdasdasd03-30 -
自己做采集程序
現在網上的采集程序很多，但是有時候你發現一個好的網站，想自己做個采集工具采集一些信息，就需要自己去寫程序了，其實這樣的采集程序并不難寫，主要是去分析源網站的網頁結構。首先去下載個XM...
作者：asdasdasd03-30 -
無組件生成縮略圖
網上有不少生成縮略圖的ASP組件。若你的虛擬空間不支持注冊新組件，可能會感覺自己的網站失色不少。心晴不才，結合網上資源寫了個無組件生成縮略圖程序，僅供參考。 還是先看看基礎部分吧。首先...
作者：asdasdasd03-30 -
UBB編輯器
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "' target=_blank rel=nofollow>http://www.w3.org/TR/html4/loose.dtd"><html><head><title>UBB編輯器</title><meta http-eq...
作者：asdasdasd03-30 -
在ASP中調用存儲過程的幾種方法
1 這也是最簡單的方法,兩個輸入參數，無返回值： set connection = server.createobject("adodb.connection") connection.open someDSN Connection.Execute "procname varvalue1, varvalue2" ...
作者：asdasdasd03-30 -
巧用緩存提高asp程序的性能
<!--為了提高Asp程序的性能,人們常常將經常使用的數據緩存在 Application, 但是你修改了數據庫后怎么讓application更新呢,本文給你提供了一個合理的解決辦法,如果誰有更好的算法,請跟帖討論一下...
作者：asdasdasd03-30 -
另類的文件上傳解決方案
編寫思路:把本地文件在客戶端通過base64編碼以后發送目的地.測試過程中,上傳文件過大,導致超時不成功.后來經過改善.把編碼分段發送.測試20M成功編寫目的:在傳統的解決方案里面,一次一次選取上傳...
作者：asdasdasd03-30 -
如何遠程調用ACCESS數據庫[要求加精！！]
使用了TCP/IP，ADO及XML（需要安裝Microsoft XML 4.0。）。分服務器和客戶端兩部分，服務器可以多用戶同時連接。遠程連接Access數據庫有很多方法，我以前已經比較詳細的回答過（見下面所列的5種...
作者：asdasdasd03-30 -
一段幾乎可以讓你死機的JS代碼
謹慎運行啊，死機了別怪我！這個用來對付那些動不動就喜歡來測測你的程序有沒有什么SQL注入洞洞的那種人感覺比較爽哈哈！！以為會了那么一點小本事就不得了！我的IIS日志里成天都能看見這種小朋...
作者：asdasdasd03-30 -
使用類，實現模塊化
寫在前面的話： 所有寫程序的人都知道，當你逐漸對您要實現的功能展開的時候，很大的時候，第一天寫的東西第二天就忘了寫到那里了，很多的時候，不得不寫上詳細的程序開發筆記，這在ASP的系...
作者：asdasdasd03-30 -
多字段模糊搜索的函數
前段時間寫了一個多字段模糊搜索的函數（類似baidui）。函數代碼如下 '================================================== '函數名：keyword_sousuo '作 用：生成sql查詢條件 '參 數：table_f...
作者：asdasdasd03-30 -
替換數據庫內容
<%'####################################'替換數據庫內容 lamking 2005-8-22'更新修正：2006-6-28'http://www.imbbs.cn QQ:628557'出售空間域名。網頁制作。'################################...
作者：asdasdasd03-30 -
簡單過濾一下廣告的代碼
好些人跟我要這段東西，其實是個很簡單的代碼，下邊就是，自己拿去改成函數調用就可dim strA,strB,isOKstrA = "test,you,fuck,money" '需要過濾的關鍵字內容strB = "fasfaefwTestfajkewhfwiT...
作者：asdasdasd03-30 -
很不錯的一個UBB代碼
<%Function HTMLEncode(ByVal strValue) '忽略錯誤 On Error Resume Next '定義變量 Dim strNewValue If strValue <> "" Then strNewValue = Replace(strValue,"<","<") strNewValue = Replac...
作者：asdasdasd03-30 -
獲取圖片寬度和高度的類，支持JPG，GIF，PNG，BMP
<% Class ImgWHInfo ''獲取圖片寬度和高度的類，支持JPG，GIF，PNG，BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject("ADODB.Stream") ASO.Mode=3 ASO.Type=1 ASO.Open ...
作者：asdasdasd03-30 -
打包上傳asp網站
你有沒有為上傳一個幾百張頁面的網站而感到煩惱呢.速度太慢了.通常上傳的總大小一樣,文件越多,速度會越慢.如果可以把整個網站打包成一個文件上傳.然后解壓,這樣就快多了.本人經過幾天研究,終于弄...
作者：asdasdasd03-30 -
E-mail表單遞交
<HTML><HEAD><META http-equiv='Content-Type' content='text/html; charset=gb2312'><TITLE>E-mail表單遞交</TITLE></HEAD><BODY >
作者：asdasdasd03-30
<script language="JavaScript"><!--function validate_form... -
ASP充分利用Err.Description
我們一般在調試程序的時候，有些操作會莫名地失敗，又沒有錯誤消息提示，特別是在執行數據庫操作的時候，明明執行過去了，可就是數據庫里沒有記錄變動，很是郁悶！今天剛才在搞FSO刪除操作時就出...
作者：asdasdasd03-30 -
水印測試(重新測試)
注：如果你是用Fireworks來處理LOGO圖片，在導出圖片的時候用Alpha透明而不要用索引透明！
作者：asdasdasd03-30
Dim Jpeg,LogoSet Jpeg = Server.CreateObject("Persits.Jpeg")Jpeg.Open Server.MapPath(UploadDir&R...