Time of Update: 2017-01-13
抓取網頁。偶要實現實實更新天氣預報。利用了XMLHTTP組件,抓取網頁的指定部分。需要分件html原始碼此例中的被抓取的html原始碼如下<p align=left>2004年8月24日星期二;白天:晴有時多雲南風3—4級;夜間:晴南風3—4級;氣溫:最高29℃最低19℃ </p>而程式中是從以2004年8月24日為關鍵字搜尋,直到</p>結速而抓取的內容就變成了"2004年8月24日星期二;白天:晴有時多雲南風3—4級;夜間:晴南風3—4級;氣溫:
Time of Update: 2017-01-13
坦白地說,對於ASP我一直都不怎麼感興趣。如果要我寫這種伺服器端程式的話,我會選擇JSP。所以,本人一直都想在網上弄個便宜點的JSP空間;可是正如miles前輩所說,連貴一點的都沒有,更不用說便宜的了。沒辦法,只好用ASP了,對於用ASP寫留言板的主要途徑,只要是地球人就都知道,用得最多的無外乎就是檔案組件與資料庫組件;而大多提供ASP的服務商基於安全都禁用了檔案組件,也有的禁用了資料庫組件。當然,就算用不了這兩個組件,也並不代表我們就不能用指令碼來建立檔案和修改檔案了,我們還有第三種途徑:MS
Time of Update: 2017-01-13
1。整個頁面沒有提交按鈕,也沒有相關指令碼,只有<input type="image">??第一個問題是HTML的基本常識呀,image元素的預設動作就是submit嘛2。加入附件之後頁面上能顯示出該檔案的大小,可是頁面並沒有重新整理,要是asp的話,要用RS吧,就算其他東東用戶端也要有相應指令碼吧。可是View
Time of Update: 2017-01-13
default.asp------------------------------------------------------------------------<%@ Language=VBScript %><%Option Explicit%><!-- #include file="i_soapcall.asp" --><HTML><HEAD><META
Time of Update: 2017-01-13
在Internet上我們每天都會遇到數不清的表單,也看到其中大部分並沒有限制使用者多次提交同一個表單。缺乏這種限制有時候會產生某些預料不到的結果,如重複訂閱郵件服務或重複投票等。 本文介紹在ASP應用中防止使用者在當前會話期間多次提交同一表單的一個簡單方法。它主要由四個子程式組成,在較為簡單的應用場合,你只要將這些代碼放在包含檔案中直接引用即可;對於那些較為複雜的環境,我們在文章的最後給出一些改進建議。 一、基本工作過程 下面我們依次討論這四個子程式。 (一)初始化
Time of Update: 2017-01-13
#############續send.asp#################var oRDom=new ActiveXObject("Microsoft.XMLDOM");oRDom.async=false;var Path="reload.asp";var tCok;function Clock(){cRld++;if
Time of Update: 2017-01-13
本程式屬於一種特別的方法。使用範圍比較有限,而且有一定的危險性。借鑒了asp後門裡的一些方法。下面是程式碼。<%dim remoteaddrif Request.ServerVariables("HTTP_X_FORWARDED_FOR")=empty
Time of Update: 2017-01-13
<%dim total(7,1) total(1,0)="中國經營報" total(2,0)="招聘網" total(3,0)="51Job" total(4,0)="新民晚報" total(5,0)="新聞晚報" total(6,0)="南方周末" total(7,0)="羊城晚報" total(1,1)=200 total(2,1)=1200
Time of Update: 2017-01-13
<%'---------------------------------------------------------------------------' 程式作用:列印request.form輸入的所有值'---------------------------------------------------------------------------Response.Write FormData() function FormData()
Time of Update: 2017-01-13
在我們許多網站中存在這樣一個問題,就是連結的維護更新,這是一項工作量很大的工作,若不是的專門工作人員進行維護的大型網站,普通網站的網站更新維護工作基本上都成了一個很令人頭疼的問題,特別是在沒有很多人手的情況下,要經常維護更新連結更是討厭,因為這項工作沒有多少創意,卻很耗時,而JACK顯然不是那種喜歡花費大量時間在一件沒創意的事情上的那種人,與是,JACK想出了一個ASP的程式原型,讓它來完成我們所討厭的工作吧!
Time of Update: 2017-01-13
我們知道,一般的關聯式資料庫(如SQL Server、Oracle、Access等)中的查詢操作是支援集合操作的,例如可以用“Update ATable Set Field1 = AValue where Field2 in
Time of Update: 2017-01-13
An ASP-based application consists of a virtual directory on a Web server and all the folders and files within that virtual directory. For more information about virtual directories, refer to your Microsoft Web server online documentation.An
Time of Update: 2017-01-13
<% Response.Status = ("401 Unauthorized") bstrServer = "SERVER2" Dim objSession,objMessage Dim bstrProfileInfo Set objSession=Server.CreateObject("MAPI.Session") bstrProfileInfo="SERVER2" &
Time of Update: 2017-01-13
自己平時做的網站大多使用的是SQL資料庫,所以對使用ACCESS資料庫的網站沒有太多的接觸。昨日在幫朋友做一個使用ACCESS資料庫的網站後台管理程式時,遇到了一些麻煩。 該網站的目錄設定如下(只列出了相關部分) F1目錄是後台管理程式所在,F2目錄下的MYDATA.MDB是資料庫檔案,CNN.ASP中寫明了資料庫的串連方式,在其他檔案中以包含檔案的方式來使用。 因為MYDATA.MDB和CNN.ASP在同一目錄下,因此CNN.ASP中的串連語句是這麼寫的:
Time of Update: 2017-01-13
如果你使用過目前眾多網站上的電子公告板程式的話,那你應該會知道電子公告板程式為了提高頁面的讀取速度, 一般不會將所有的文章全部在一頁中羅列出來,而是將其分成多頁顯示,每頁 顯示一定數目的貼文數,譬如 20 條。想不想瞭解如何?分頁顯示?請看 本文! 那麼究竟如何才能做到將資料庫的查詢結果分頁顯示呢?其實方法有很多, 但主要有兩種: 一、將資料庫中所有符合查詢條件的記錄一次性的都讀入 recordset 中, 存放在記憶體中,然後通過 ADO Recordset
Time of Update: 2017-01-13
二、串連資料庫和開啟資料表 不同的資料庫連接方法不一樣(即建立Connection的執行個體方法不一樣),一旦建立Connection執行個體完畢,利用Recordset對象進行存取數取資料的方法大同小異,下面對於不同的資料類型,編寫了相對應的串連函數,其原型如下: 1)Function CreatMdbRecordset( 資料庫檔案名, 資料表檔案名稱或Select語句 );建立Mdb類型的資料庫物件 2)Function CreateSecuredMdbRecordset(
Time of Update: 2017-01-13
asp檔案目錄與檔案拷貝,這是我在寫一個系統升級時用到了,就是把當前檔案夾中的檔案自製到系統目錄下,替換以前的舊檔案sub fs()set fsobject=server.CreateObject("scripting.filesystemobject")end subsub install() call fs() set
Time of Update: 2017-01-13
<%Sub UploadFile() Dim Upload,FilePath,sFilePath,FormName,File,F_FileName Dim PreviewSetting,DrawInfo,Previewpath,strPreviewPath Dim PreviewName,F_Viewname,MakePreview '-- 是否產生縮圖片 MakePreview = True Previewpath =
Time of Update: 2017-01-13
<%Function DisplayRecords() Dim sql, conn, rs sql = "select [id],[st],[nd] from [table]" Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft
Time of Update: 2017-01-13
<%@language="javascript"%><%/* * Copyright (c) 2006 Hardway Hou * Distributed under the BSD License * Inspired from PNGlet http://www.elf.org/pnglets/ */var ASCII=new Array(36);ASCII[0] = "11100001111101111