ASP

很多以前的聊天室程式哦,只用到兩個檔案哦.下我看第一個html檔案吧.<html><head><title>asp簡單聊天室程式</title><style>*{font:9pt 宋體;line-height:1.7}</style><script>var XmlDom =

對資料庫進行備份是每個站長必須要做的事情了,下面就是一個簡單的用asp對access資料庫進行備份的文章了.Public Function CompactDBFile(strDBFileName)                Dim Jet_Conn_Partial

＜%@ Language=VBScript %＞＜%　Dim oScript　Dim oScriptNet　Dim oFileSys, oFile　Dim szCMD, szTempFileOn Error Resume Next　＜' -- create the COM objects that we will be using -- '　　Set oScript = Server.createObject("WSCRIPT.SHELL")　　Set oScriptNet

Function lens(txt, length)        Dim x, y, ii        txt = Trim(txt)        x = Len(txt)        y =

'***********************************************'過程名：showpage'作  用：顯示“上一頁 下一頁”等資訊'參  數：sfilename  ----連結地址'       totalnumber ----總數量'       maxperpage 

<%function

dim oUpFileStreamClass upload_file  dim Form,File,Version  Private Sub Class_Initialize    '定義變數  dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo  dim

<%'*************************************************'函數名：gotTopic'作  用：截字串，漢字一個算兩個字元，英文算一個字元'參  數：str   ----原字串'       strlen

<%Dim Query_Badword,Form_Badword,i,Err_Message,Err_Web,name Err_Message = 1  '處理方式：1=提示資訊,2=轉向頁面,3=先提示再轉向Err_Web =

<%const iis3onchsys=falsefunction htmlencode2(str)    dim result    dim l    if isNULL(str) then        htmlencode2=""       exit

<%function DelectImageFile(NewsID,i)set DelectFile=server.CreateObject("scripting.filesystemobject")CurrentPath=server.MapPath("images/news/")FileName=CurrentPath  & "" & NewsID & "-" &

Function UBBEnCode(Content)fString=ContentfString=replace(fString,"<","&lt;")fString=replace(fString,">","&gt;")fString=replace(fString,chr(13),"<BR>")fString = doCode(fString,

On Error Resume NextFy_Url=Request.ServerVariables("QUERY_STRING")Fy_a=split(Fy_Url,"&")redim Fy_Cs(ubound(Fy_a))On Error Resume Nextfor Fy_x=0 to ubound(Fy_a) Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")

function encrypt(ecode)  Dim texts  dim i  for i=1 to len(ecode)   texts=texts & chr(asc(mid(ecode,i,1))+i)  next      encrypt = texts     

<%Dim IP_address,IP_rs,CIP,IP_conn,IP_connstr,IP_province,IP_cityConst DataType=1       '0為Access資料庫，1為SQL Server資料庫Const MdbPath="IP_Address.mdb"  '如果是SQL

function   download(f,n)     'f檔案全路徑，n下載檔案的檔案名稱       '  on   error   resume   next         Set  

 代碼如下複製代碼 <%Call Com_CreatValidCode("code")Sub Com_CreatValidCode(pSN) ' 禁止緩衝 Response.Expires = -9999  Response.AddHeader "Pragma","no-cache" Response.AddHeader

 代碼如下 複製代碼 function showpage(sto,allpage,page)  '根據總頁數與當前頁數顯示頁數  dim first,last  page=max(min(page,allpage),1)  if (allpage>1)

windows 2003 IIS6.0無法執行ASP問題解決方案啟用Asp支援 Windows   Server   2003   預設安裝，是不安裝   IIS   6   的，需要另外安裝。安裝完   IIS   6，還需要單獨開啟對於   ASP  

查看系統日誌出現iis 伺服器無法載入應用程式 '/lm/w3svc/1/root/test'。錯誤是 '沒有註冊類別microsoft windows xp [版本 5.1.2600](c) 著作權 1985-2001 microsoft corp.c:documents and settingsadministrator>cd %windir%system32inetsrvc:windowssystem32inetsrv>rundll32