如何讓一個方框欄內的文字滾動顯示？<!-- #include file="news.inc" --><%dim NewsStr(1,5)NewsStr(0,0)="下載本欄連結"NewsStr(1,0)="http://www.intels.net/"NewsStr(0,1)="中國水利水電出版社"NewsStr(1,1)="http://www.waterpub.com.cn/"NewsStr(0,2)=
<form name=f1 METHOD="POST"><%OpenDB objConn, "xxxx"Set RSClass = objConn.Execute("select * from class Order by fldClass")If RSClass.EOF ThenResponse.Write "噢,沒有記錄!<BR>"ElseResponse.Write "<select NAME=""class"" style=""FONT-SIZE: 9
如何做一個檢索結果帶連結的檢索？<% data=request.form("search_data")' 從FORM變數集得到要查詢的檔案名稱所要包含的字串 p=search_folder(data,"http://jack/cgi-bin","c:\intels\wwwroot\cgi-bin")' 調用函數查詢目標查詢目錄下的所有子目錄(所有子樹),方法:search_folder(要查詢的字串,查詢目標的虛擬絕對路徑,查詢目標的真實絕對路徑)%><script
如何終止瀏覽器的Cahce頁面？Function Redirect( NewURL ) If Not IsEmpty( NewURL & "" ) ThenDim QuestionMark QuestionMark = Instr( NewURL, "?" )If QuestionMark = 0 ThenResponse.Redirect NewURL & "?" & NoCacheURL()Response.End ElseResponse.Redirect
<%Dim objDC, objRSSet objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30' 建立資料庫連接objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;
如何?非大小寫替換？Function ReplaceNoIgnoreCase(str,replStr) If len(replStr)<1 or str="" Then ReplaceTest=str Exit function End If Dim LoopN LoopN=1 Dim TmpStr,inStrN,LenreplStr,Ustr,UreplStr LenreplStr =
<html><head><title> 千花飛舞之HTTP headERS偵測< /title></head><body><TABLE BORDER=1><tr><td VALIGN=TOP><B>變數</B></td><td VALIGN=TOP><B>值</B></td></tr><%
Sub DoDropDown(Arr(), strSelName, onchange, strSelected, strexclude)Dim i if strSelected <> "" then swap arr, strSelected end if response.write "<select NAME='" & strSelName & "' SIZE=1 ONCHANGE='" &
如何編寫一個加法器？<form action="./calculation.asp"><input type="text" size="1" name="op1 value=<%Response.Write Request("op1")%>><input type="submit" name="operation value="plus"><input type="text" size="1" name="op2
struserlist = struserlist & "<a href='#' nclick=\" & chr(34) &_"sendmsg('" & usernick & "');return false;\" & chr(34) &_" class='l_line'><span class=lineinfo>" & usernick & "</span></a>"'
如何?在下拉式功能表裡輸入文字？<script>function pp(){se.options[2]=new Option(ok=(se.options[2])?se.options[2].innerText+String.fromCharCode(event.keyCode):String.fromCharCode(event.keyCode),"client")se.selectedIndex=2;}function
如何編寫一個建立FTP網站的函數？Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum, Computer, Start,LogFileDirectory) Dim MSFTPSVC, FtpServer, NewFtpServer, NewDir Dim Bindings, BindingString, NewBindings, Index, SiteObj,
如何利用資料庫內容建立一個下拉式列表？<% myDSN="DSN=xur;uid=xur;pwd=xur"mySQL="select * from authors where AU_ID<100"set conntemp=server.createobject("adodb.connection")conntemp.open myDSNset rstemp=conntemp.execute(mySQL)if rstemp.eof thenresponse.write
如何處理逾時事件？1、IIS為一個死循的執行過程設定執行時間（預設為90秒）逾時事件：<%response.buffer=true%><body><html><%DO counter=counter+1 response.write counter & "<br>"
<% Dim bSurvey ' 是否顯示調查表 const bID="1"' 調查表的id bSurvey=false ' 檢查調查表是否已經顯示過. if instr(request.Cookies("s"),":" & bID & ":")=0 then ' 如果調查表沒有顯示,更新Cookie response.Cookies("s").expires = DateAdd("d",60,now()) '
如何將訪問者數目周期性地儲存？<script LANGUAGE="VBScript" RUNAT="Server">SUB Session-OnStart...Application.LockApplication("visitors")=Application("visitors") + 1' 增加訪問計數t-visitors = Application("visitors")Application.UnLockSession("VisitorID")=t-visitorsIf
VBScript 資料類型VBScript 只有一種資料類型，稱為 Variant。Variant 是一種特殊的資料類型，根據使用的方式，它可以包含不同類別的資訊。因為 Variant 是 VBScript 中唯一的資料類型，所以它也是 VBScript 中所有函數的傳回值的資料類型。最簡單的 Variant 可以包含數字或字串資訊。Variant 用於數字上下文中時作為數文書處理，用於字串上下文中時作為字串處理。這就是說，如果使用看起來象是數位資料，則 VBScript
如何在ADSI中查詢使用者屬性？<%Dim x On error resume next'Set x = GetObject("WinNT://kenfilszwin2k/allen")strLDAP="LDAP://kenfilszwin2k/CN=Allen He,OU=kenfilsz,dc=kenfilsz,dc=com"set x=getobject(strLDAP)Response.Write "Object Name: " & x.Name &
VBScript 變數變數是一種使用方便的預留位置，用於引用電腦記憶體位址，該地址可以儲存指令碼運行時可更改的程式資訊。例如，可以建立一個名為 ClickCount 的變數來儲存使用者單擊 Web 頁面上某個對象的次數。使用變數並不需要瞭解變數在電腦記憶體中的地址，只要通過變數名引用變數就可以查看或更改變數的值。在 VBScript 中只有一個基礎資料型別 (Elementary Data Type)，即 Variant，因此所有變數的資料類型都是
VBScript 常數常數是具有一定含義的名稱，用於代替數字或字串，其值從不改變。VBScript 定義了許多內部常數。詳細資料，請參閱 VBScript 語言參考。建立常數您可以使用 Const 語句在 VBScript 中建立使用者自訂常數。使用 Const 語句可以建立名稱具有一定含義的字串型或數值型常數，並給它們賦原義值。例如： Const MyString = "這是一個字串。"Const MyAge = 49請注意字串文字包含在兩個引號 (" ")
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
