如何把一個Excel檔案放到ASP頁面中去?

<%set xlApp = Server.CreateObject("Excel.Application")xlApp.Visible = false' 使服務端不出現Excel視窗.set myWorkbook = xlApp.Workbooks.Add' 建立一個worksheet.set myWorksheet = myWorkbook.Worksheets(1)myWorksheet.Range("A1").Value =

如何動態添加Form項?

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

如何編寫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

可以讓程式告訴我詳細的分頁錯誤和資料庫連接錯誤嗎?

<%  If Err.Number <> 0 Then ' 錯誤處理.       Response.Clear       ' 清除緩衝區.      Select Case Err.Number            ' 根據不同錯誤分處理.   

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

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

如何把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"'

如何計算下載一個檔案需要多長時間?

<%Function DownloadTime(intFileSize, strModemType)Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendStringDim intYears, intWeeks, intDaysDim intHours, intMinutes, intSecondsintYears = 0intWeeks = 0intDays = 0intHours = 0intMinutes =

如何顯示隨機資訊?

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

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

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>

如何驗證IP地址?

 sub chkIP(boardid)    dim rsIP    dim ipArr    dim ignored    dim i    dim ip    dim sql    ip=Request.ServerVariables("REMOTE_ADDR")       ignored=false    if not isempty(boardid) then         sql="select ignoreip from board where

如何自動更新導覽列?

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

禁止站外提交表單(author:killer)

使用asp盡量減少伺服器端的工作量,這樣就應該多使用javascript,把所有提交欄位使用javascript或vbscript檢測後提交給伺服器,這樣伺服器就不必再作檢測,而在提交時可能會有人修改script從本地提交,這樣存在安全提交的問題,所以應該要求從伺服器斷路徑提交,其他地址提交提交無無效:<%server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))server_v2=Cstr(Request.ServerV

比較弱智的驗證碼

Sub 驗證碼識別() ActiveSheet.Shapes.SelectAll Selection.Delete Cells.Clear Columns("b").NumberFormatLocal = "@" For i = 1 To 10 yzm = Format(Int(Rnd() * 10000), "0000") yzm1 = ""

EXCEL VBA  WinHttp擷取驗證碼圖片

EXCEL VBA  WinHttp擷取驗證碼圖片 Private Sub CommandButton1_Click() Dim arr() As Byte On Error Resume Next With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "GET",

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

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

如何阻止別人非法連結你網站的圖片?

getimage.asp<% Option ExplicitDim strBuffer, FilePathstrBuffer = Request.ServerVariables("HTTP_REFERER")strBuffer = mid(strBuffer, InStr(strBuffer,".") + 1)strBuffer = left(strBuffer, InStr(strBuffer, "/") - 1)FilePath = "/HIDDENIMAGES/"If

總頁數: 6861 1 .... 6857 6858 6859 6860 6861 Go to: 前往
Tags Index:

聯繫我們

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

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