首頁

其他

怎樣獲知資料庫的串連屬性？

<%@ Language=VBScript %><% Option Explicit dim objCNN dim intCTProps dim item dim vbCRLF vbCRLF = chr(10) Response.Write "<html><head></head><body>" & vbCRLF Response.Write

如何向前端推送使用者請求的資訊？

postinfo.htm<head><title>星河影動之回應使用者請求資訊</title></head><body><form action="postdata.asp" method="post">' 使用Post方法 <p>請輸入您的姓名:<input name="name" size="20"><br>電子信箱:<input name="e_mail" size="40"

如何自動更新導覽列？

< html> < head> < meta http-equiv="Content-Type" content="text/html; charset=gb2312"> < title>山水盈盈之Content Linking組件應用< /title> < /head> < body> < center>< font

如何顯示隨機資訊？

<html><head><title>千花飛舞之資訊隨機顯示</title></head><body><% randomizerandomnum=int(rnd*6)+1' 隨機發生次數.select CASE randomnumCASE 1%>我最喜愛的出版社——中國水利水電出版社<br><%CASE 2%>我最常去的網站——隨風起舞<br><%CASE

如何動態添加Form項？

<%@ language = vbscript%><% Response.Expires = 0 %><html><head><title>星河影動之動態添加Form項</title></head><body><%If Request("Action") = "提交列表" ThenResponse.Write "<B>提交的項:</B><BR>"'

如何顯示最後十名來訪者？

<%Application.LockIF NOT isArray( Application( "lastTen" ) ) THEN DIM dummy( 10, 3 ) Application( "lastTen" ) = dummy' 建立或者取得最近10個Application數組.END IF lastTen = Application( "lastTen" )Application.UnLockIF lastTen( 9, 0 ) <> "" THENFOR i

如何編寫TOP 10之類的熱門排行榜？

<% @ LANGUAGE="VBscript" %><% OPTION EXPLICIT %><!--#include file="DataConn.asp"--><!--#include file="FuncSet.asp"--><% dim rs,sql,IDa,IDb,s,RegUser,a,b,c Set rs=Server.CreateObject("ADODB.recordset") sql="Select *

如何用FileSystemObject組件來做一個站內搜尋？

searchpage.htm' 搜尋網頁面.<html><head> <title>千花飛舞之站內搜尋引擎</title> </head> <body> <CENTER> <FORM METHOD=POST ACTION="searchresult.asp"> <TABLE BGCOLOR="#BLUE" BORDER="0"&

如何顯示資料庫的結構？

<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#CCCCCC" text="#000000"><h2 align="center">星河影動之查看資料庫結構</h2><p> <%on error resume

如何把中文轉換為UNICODE？

<%function unicode(str)dim i,j,c,i1,i2,u,fs,f,punicode=""p=""for i=1 to len(str)c=mid(str,i,1)j=ascw(c)if j<0 thenj=j+65536end ifif j>=0 and j<=128 thenif p="c" thenunicode=" "&unicodep="e"end ifunicode=unicode&celseif p="e"

如何?全文檢索索引？

<%@ LANGUAGE="VBscript" %>　　<html>　　<head>　　<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">　　<meta HTTP-EQUIV="Content-Type" content="text/html;

如何用表單的方式推送請求的資訊？

<html><head><title>撼雪噴雲之回覆使用者資訊</title></head><body><form action="getdada.asp" method="get"><p>姓名:<input name="name" size="20"><br>電子郵件:<input name="e_mail"

如何取得伺服器上的使用者組列表？

domainname.asp<form method="POST">請輸入欄位名:<input type="text" name="DomainName" size="20"> <input type="submit" value="提交" name="B1"> <input type="reset" value="重寫" name="B2"></form><%if

如何分頁顯示資料庫查詢結果？

<% if Request.QueryString("PageNumber").count > 0 then ' 指定頁號的參數PageNumber.如果指定頁號,則以指定頁號為依據.PageNumber = Request.QueryString("PageNumber")(1)elsePageNumber = 1' 如沒指定頁號,預設為1.end ifRecordNumberPerPage = 10' 每頁顯示10條記錄. set ARecordSet =

如何判斷URL格式是否符合規範？

<% function checkisUrl(tmpString) dim c,i checkisUrl = true tmpString=Lcase(trim(tmpString)) if left(tmpString,7)<>"http://" then tmpString="http://"&tmpString for i = 8 to Len(checkisUrl) c =

如何把URL和郵件地址轉換為超級連結？

Function InsertHyperlinks(inText)Dim objRegExp, strBufDim objMatches, objMatchDim Value, ReplaceValue, iStart, iEnd strBuf = "" iStart = 1 iEnd = 1 Set objRegExp = New RegExp objRegExp.Pattern = "\b(www|http|\S+@)\S+\b" ' 判斷URLs和emails.

如何編寫翻頁函數？

page.inc<% Sub ShowPageBar(TotalPage,CurPage,strUrl) ' 參數TotalPage:全部頁數;CurPage:當前頁數;strUrl:翻頁使用的串連地址. DIM strPage CurPage=GetValidPageNO(TotalPage,CurPage) Response.Write "<TABLE WIDTH=''100%''>" Response.Write "<tr><td width=''100

如何檢測使用者第一次訪問我的網站並顯示友好資訊？

< %@ LANGUAGE="VBscript" % >< % RequestName = Request.Form("Name")RequestLeaveMeAlone = Request.Form("LeaveMeAlone")If RequestName < >"" or RequestLeaveMeAlone < >"" then' 在同一個頁面中檢查表單變數. Response.Cookies("MySiteVisitorName") =

如何用組件實現自動寄送電子郵件？

如何用組件實現自動寄送電子郵件？JMailUploadAutoForm.asp<html><body><font face="verdana, arial" size="2"><b><form method="post" action="JmailUploadAutoFormProcess.asp"

如何把Recordset轉換成彩色的XML檔案

<%@ codepage="65001" %><!-- #INCLUDE FILE="ADOVBS.INC" --><%Response.ContentType = "text/xml"' 如果不在 adovbs.inc 裡,則設定一個常量. Set Con = Server.CreateObject( "ADODB.Connection" )Con.Open "Provider=sqloledb;UID=sa;DATABASE=Pubs"'

總頁數： 61357 1 .... 2691 2692 2693 2694 2695 .... 61357 Go to: 前往

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More