您現在的位置是:電腦技術吧?>? 故障問題 ??>??asp 代碼,asp開源代碼??>??正文詳情

asp 代碼,asp開源代碼

練紫雪2019-12-04 08:36:21 人圍觀
簡介怎樣將asp源代碼%調暗CC?信息(4)、strinfo、strtemp if會話(CC?信息)=然后CC?信息(0)=CC log.txt'日志文件名CC?信息(1)=請求服務什么是asp

% Dim CC_Info(4),strInfo,strTemp If Session(CC_Info) = Then CC_Info(0) = cclog.txt '日志文件名 CC_Info(1) = Request.ServerVariables(HTTP_X_FORWARDED_FOR) CC_Info(2) = Request.ServerVariables(REMOTE_ADDR) CC_Info(3) = 10 'N秒內禁止刷新當前頁面 CC_Info(4) = badip.txt 'IP黑名單文件名 Session(CC_Info) = CC_Info(0) | CC_Info(1) | CC_Info(2) | CC_Info(3) | CC_Info(4) Else strInfo = Split(Session(CC_Info),|) CC_Info(0) = strInfo(0) CC_Info(1) = strInfo(1) CC_Info(2) = strInfo(2) CC_Info(3) = strInfo(3) CC_Info(4) = strInfo(4) End If Const chkRefresh = 1 '0關閉防刷新 Const chkProxy = 1 '0關閉代理驗證 Const chkBadIP = 1 '0關閉IP黑名單 If Session(BadIP) = Then strInfo = ReadFile(CC_Info(4)) If strInfo = Then strInfo = chinavb.net Session(BadIP) = strInfo Else strInfo = Session(BadIP) End If '/*第一層判斷,N秒內禁止刷新*/ If chkRefresh = 1 Then If Session(RefreshTime)= Then Session(RefreshTime)=Now() Else If DateDiff(s, Session(RefreshTime), Now()) CInt(CC_Info(3)) Then Response.Write(系統繁忙,請稍候再試!錯誤代碼001) Response.End() Else Session(RefreshTime)=Now() End If End If End If '/*第二層判斷,代理禁止查看*/ If chkProxy = 1 Then If CC_Info(1) Then If InStr(strInfo,CC_Info(1)) = 0 Then strTemp = CC_Info(1) vbCrLf If InStr(strInfo,CC_Info(2)) = 0 Then strTemp = strTemp [ CC_Info(2) ] vbCrLf End If SaveLog CC_Info(4),strTemp strInfo = strInfo strTemp Session(BadIP) = strInfo End If '記錄CC攻擊日志 SaveLog CC_Info(0),CC_Info(1) [ CC_Info(2) ] Now() vbCrLf Response.Write(系統繁忙,請稍候再試!錯誤代碼002) Response.End() End If End If '/*第三層判斷,IP黑名單禁止查看*/ If chkBadIP = 1 Then If InStr(strInfo,CC_Info(2))0 Then Response.Write(系統繁忙,請稍候再試!錯誤代碼003) Response.End() End If End If 'ForReading=1,ForWriting=2,ForAppending=8 Function SaveLog(filename, filecontent) On Error Resume Next Dim fso, thisfile filename = Server.MapPath(filename) Set fso = CreateObject(Scripting.FileSystemObject) If Err 0 Then Response.Write(寫入文件filename失敗,可能您的系統不支持FSO!) Response.End() End If Set thisfile = fso.OpenTextFile(filename, 8, True) thisfile.write (filecontent) thisfile.Close Set fso = Nothing End Function Function ReadFile(filename) On Error Resume Next Dim fso, thisfile Set fso = CreateObject(Scripting.FileSystemObject) If Err 0 Then Response.Write(讀取文件filename失敗,可能您的系統不支持FSO!) Response.End() End If Set thisfile = fso.OpenTextFile(Server.MapPath(filename), 1, True) ReadFile = thisfile.ReadAll thisfile.Close Set thisfile = Nothing Set fso = Nothing End Function %

版權聲明:本文由 練紫雪 整理編輯。

原標題:html代碼,asp連接數據庫代碼

轉載注明出處:http://www.dn9ww09s.icu/fault/15079.html

文章評論

    共有條評論來說兩句吧...

    用戶名:

    驗證碼:

作者推薦

  • asp增加數據,asp顯示數據

    asp增加數據,asp顯示數據 相關圖片asp連接數據表格ASP data cast CBool(expression)cbyte(expression)ccur(expression)CDate(expressionasp最大生成數據...

  • php字符串,php字符串替換

    php字符串,php字符串替換 相關圖片php 字符串長度具體如下:123456789101213141516171819201222324252627282933132334353738394041424344454php字符串反轉...

  • php轉換html,php格式怎么轉換

    php轉換html,php格式怎么轉換 相關圖片php轉換文本編碼具體如下:PHP圖片轉換成ASCII碼,轉換后圖片1234567891013141516171819201222324252627282933132333435php轉換字符編碼...

  • mongodb和php,php框架對mongodb

    mongodb和php,php框架對mongodb 相關圖片mongodb教程本文的例子描述了用PHP實現的mongodb操作類。與您分享以供參考。具體如下:1234567891012131415161718192021222324252mongodb集群...

  • code函數,code函數的使用方法

    code函數,code函數的使用方法 相關圖片vscode查看函數調用者authcode函數被許多人使用。它來自discuz程序。它用于加密和解密字符串。您可以設置密鑰和過期時間,這在很多情況下都會用到。原始函數代碼可能會生成諸如“ma...

  • 格式化php,php時間格式化

    格式化php,php時間格式化 相關圖片js格式化在JS中保存和編寫模板有很多場景,比如彈出類型的HTML代碼模板。JS不支持換行的長文本編寫方法,必須加一行。例如,代碼如下:VAR content='divrjson格式化...

  • 刪除目錄,linux刪除指定目錄

    刪除目錄,linux刪除指定目錄 相關圖片Linux如何刪除目錄本文的示例描述如何在PHP中刪除指定的目錄。與您分享以供參考。具體分析如下:該代碼可以實現遞歸刪除子目錄1234567891013141516171819201Linux 刪除所有目錄...

  • 日期格式怎么轉換,表格怎么轉換日期格式

    日期格式怎么轉換,表格怎么轉換日期格式 相關圖片excel日期格式轉換為數字格式此代碼可以將時間格式設置為3天前、5秒前和2年前1234567891013141516171819201222324252627282930131233//excel日期格式轉換不了...

  • 單撇號,上撇號怎么打

    單撇號,上撇號怎么打 相關圖片撇號例如:echo'whoamI';//要導出數據庫,要導入的文件夾必須具有可寫權限。在-U-P之后的內容必須寫在以下代碼的旁邊:echo`mysqldump-H 前面有撇號...

  • 遞歸生成樹形結構,遞歸生成html

    遞歸生成樹形結構,遞歸生成html 相關圖片java遞歸生成樹形菜單要編寫遞歸函數,可以考慮緩存并定義一些靜態變量來存儲上次運行的結果。多道程序設計的效率是非常有幫助的。具體步驟如下:首先從數據庫中獲取數據,放入...

熱評文章

  • php獲取網頁內容,php獲取網頁源碼

    php獲取網頁內容,php獲取網頁源碼 相關圖片php訪問網頁本文的示例描述了PHP如何獲取web頁面上的所有鏈接。與您分享以供參考。具體實現方法如下:代碼如下:?Phpfunction get all URL($code獲取網頁html...

  • 設置服務器時間,怎么設置時間服務器

    設置服務器時間,怎么設置時間服務器 相關圖片如何防止服務器更改時間具體如下:這里,strftime函數主要用來實現這個函數,代碼非常簡單,如下:12$today=date('y-m-d-g');$today=strftime(gdc服務器調整時間密碼...

  • 數據庫和程序如何連接,數據庫的連接

    數據庫和程序如何連接,數據庫的連接 相關圖片數據庫連接失敗在網上搜索大量的信息,經過他們不懈的努力,終于測試成功。最初,您需要在服務器上安裝MySQL ODBC 3.51以及數據庫用戶名和密碼。使用以下密碼。以下是引用web怎么連...

  • 當前訪問頁面升級中,python訪問集合

    當前訪問頁面升級中,python訪問集合 相關圖片python集合元素訪問cookies的值比其他ASP集合(如form和ServerVariables)的值復雜得多。cookie是瀏覽器存儲在客戶機系統上的一小段文本,與每個請求一起緊急頁面升級 每天正常訪問...

  • 字符在字符串出現的次數,字符串出現最多的字符

    字符在字符串出現的次數,字符串出現最多的字符 相關圖片統計字符串中每個字符出現的次數使用此函數返回字符串中字符或字符串的出現次數,其中Mainstr是要搜索的字符串,substr是要檢查的字符串。函數countinstances(Mainstr輸入一個字符串...

  • 存儲過程調用,如何調用存儲過程

    存儲過程調用,如何調用存儲過程 相關圖片sql存儲過程調用使用SQL server存儲過程可以大大提高程序的運行速度,簡化程序維護的難度,得到了廣泛的應用。存儲過程是可以接受和返回用戶提供的參數的transact-SQsql怎么調用存儲過...

  • word生成多級目錄,目錄頁碼怎么生成

    word生成多級目錄,目錄頁碼怎么生成 相關圖片怎樣自動生成目錄ASP目錄生成功能有兩種:一種是只創建一級目錄,另一種是支持同時生成多個目錄。子文件夾(foldername)dim fsoset fso=server.cre目錄生成方式...

  • 關鍵詞代碼,如何知道代碼關鍵詞

    關鍵詞代碼,如何知道代碼關鍵詞 相關圖片球球關鍵詞代碼在web開發中,我經常遇到多個關鍵字對來查詢單個字段,這通常是通過動態數組來實現的。當然,多個關鍵字通常用空格或分隔。我假設多個關鍵字由空格分隔。關鍵字...

  • asp是數據庫連接嗎,access數據庫連接asp

    asp是數據庫連接嗎,access數據庫連接asp 相關圖片asp數據庫連接出錯訪問數據庫教程連接代碼dim Conn,connstr,timesdb,RS timesdb=。。/www.111cn。網絡asp連接sqlserver實例...

  • 編程數據庫,數據庫開發用什么編程

    編程數據庫,數據庫開發用什么編程 相關圖片數據庫的編寫我相信很多人都見過數據庫。在這里,我來談談我的方法。步驟1:備份現有數據庫。第2步:執行以下ASP文件,以便刪除數據庫中的JS特洛伊木馬程序:注意:CONN.A數據編程...

關注微信

变脸官网查询