'------------------------- '--檢查目錄是否存在 '---------------------- Function CheckDir(byval FolderPath) dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject")
'================================================== '函數名：ScriptHtml '作 用：過濾html標記 '參 數：ConStr ------ 要過濾的字串 '================================================== Function ScriptHtml(Byval ConStr,TagName,FType)
'================================================== '函數名：GetPaing '作 用：擷取分頁 '================================================== Function GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR) If ConStr="$False$" or
'================================================== '過程名：SaveRemoteFile '作 用：儲存遠端檔案到本地 '參 數：LocalFileName ------ 本地檔案名稱 '參 數：RemoteFileUrl ------ 遠程檔案URL '==========================================
'================================================== '函數名: CheckFile '作 用：檢查某一檔案是否存在 '參 數：FileName ------ 檔案地址 如:/swf/1.swf '傳回值：False ---- True '=========================================
'================================================ '函數名：ReplaceTrim '作 用：過濾掉字元中所有的tab和斷行符號和換行 '================================================ Public Function ReplaceTrim(ByVal strContent)
'================================================ '函數名：FormatRemoteUrl '作 用：格式化成當前網站完整的URL-將相對位址轉換為絕對位址 '參 數： url ----Url字串 '參 數： CurrentUrl ----當然網站URL '傳回值：格式化取後的Url '============================
'================================================ '函數名：ReSaveRemoteFile '作 用：尋找檔案儲存替換 '參 數：Str ----原字串
'================================================== '函數名：DefiniteUrl '作 用：將相對位址轉換為絕對位址 '參 數：PrimitiveUrl ------要轉換的相對位址 '參 數：ConsultUrl ------當前網頁地址 '==================================================
'================================================== '函數名：GetArray '作 用：提取連結地址，以$Array$分隔 '參 數：ConStr ------提取地址的原字元 '參 數：StartStr ------開始字串 '參 數：OverStr ------結束字串
'================================================== '函數名：GetBody '作 用：截取字串 '參 數：ConStr ------將要截取的字串 '參 數：StartStr ------開始字串 '參 數：OverStr ------結束字串
'================================================== '函數名：UrlEncoding '作 用：轉換編碼 '================================================== Function UrlEncoding(DataStr)
'================================================== '函數名：PostHttpPage '作 用：登入 '================================================== Function PostHttpPage(RefererUrl,PostUrl,PostData) Dim xmlHttp
使用ASP實現網站的分類樹資料庫結構（共使用了兩個表）1。tblCategory欄位名 類型 Root binary 說明樹關或開（目錄的根）ID 自動編號 關鍵字Sort integer 識別該欄位內容的整數（如果root是開狀態sort為0）表示顯示的目錄的順序Name
複製代碼 代碼如下:' ******************************************** ' 以下為資料庫相關函數 ' ******************************************** ' ============================================ ' 初始化資料庫連接對象 ' 使用原則：最遲調用，最早釋放 ' ===================
sub SaveConfig() dim fso,hf set fso=Server.CreateObject("Scripting.FileSystemObject") set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="common/conn.asp"--> <!--#include file="common/sub.asp"--> <% server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) Response.Write(server_v1)
注意是用到了，下列的示範<script language="JavaScript" type="text/javascript"> adTime=8; chanceAd=1; var ns=(document.layers); var ie=(document.all); var w3=(document.getElementById && !ie); adCount=0;
'************************************************** '函數名：CreateKeyWord '作 用：由給定的字串產生關鍵字 '參 數：Constr---要產生關鍵字的原字串 '傳回值：產生的關鍵字 '************************************************** Function CreateKeyWord(byval Constr,Num)
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
