複製代碼 代碼如下:url="http://www.csdn.net/" wstr=getHTTPPage(url) start=Newstring(wstr,"資源精選<!-- 下載 -->") over=Newstring(wstr,"<div class=""friendlink"">") body=mid(wstr,200,500) response.write body Function getHTTPPage(url) dim objXML set
複製代碼 代碼如下:using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls;
using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls; using
複製代碼 代碼如下:using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls;
複製代碼 代碼如下:using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls;
複製代碼 代碼如下:using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls;
'定義變數 Dim cn,rs,Sql Sql = "select CustomerID from Orders" '記錄總數 Dim TotalNumbe Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;" Set rs = Server.CreateObject("
複製代碼 代碼如下:<% str = request("str") reg = request("reg") set regex = new RegExp With regex .Pattern = reg .IgnoreCase = False .Global = True End With Set match = regex.Execute(str) If match.Count > 0 Then For Each matched in match Response.Write
1。建立資料庫表 表名為online 設如下欄位 id '用來記錄每一個訪問都的session.sessionid name '如果是訪客,則記錄為訪客。 online '如果是訪各為0 如果是會員1 datetime '最近啟用時間 username '會員的登入使用者名稱,訪客為空白。 ip '記錄訪問都的登入IP head.asp '向資料庫表寫入線上人數,該頁面必須搜入到每一個用於瀏覽ASP頁面中。 <% set