<%Dim writeDim fileSysObj, tf, readread = "intels.txt"' 讀取intels.txt. read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read' 檢索要讀的檔案的完整路徑.Set fileSysObj =
dim input(30) ' 定義一個數組,大小可隨時更改.這裡為了顯示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObject")Set file_open=fs.OpenTextFile(file_path)n=0Do While Not
Dim strCookie, strTrystrCookie = Request.Cookies("MyCookie") strTry = Request.QueryString("Try") If strCookie = "" Then ' 檢測否是設定了Cookie. If strTry = "" Then Response.Cookies("MyCookie") = "Set"' 重新導向到這一頁面再試.
folder.htm<html><head><title>閃亮日子之線上建立檔案夾</title></head><body>春風精彩<br>線上建立檔案夾</td> <tr> <td height="28"><form name="form1" method="post" action="creatfolder.asp"><div
1．撼雪噴雲之顯示Cookie<TABLE BORDER="2"> <Thead> <TH>Cookie名</TH> <TH>Cookie值</TH> <TH>刪除Cookie</TH> </Thead><%Dim Item %> <tr>
<%Dim NumVisit' 聲明變數.NumVisit = Request.Cookies("chunfeng")("totalvisit")' 檢查使用者來訪問過多少次.If NumVisit = "" ThenNumVisit = 0End If' 如果是第一次來訪,NumVisit 應為空白,所以我們將NumVisit設為0.'*** Display how many times they have'*** visited your web
<%@ transaction = required %><%response.buffer = true' 緩衝輸出,以顯示不同的頁面.%><html><body>歡迎使用千花飛舞之線上銀行服務.<%set bankaction =
testCookies.asp' 檢查瀏覽器是否接受Cookies.<%strTest = Request.QueryString("CookieTest")If UCase(strTest) <> Ucase("true") ThenSession("__FlashCookieTest") = True' 第一次呼叫.設定session變數.' 用QueryString重新導向. strURL = Request.ServerVariables("script_NAME")
default.asp＜html＞＜head＞＜title＞星河影動之磁碟序號加密代碼存取管理＜/title＞＜/head＞＜% dim conn,fs,fSet conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=3302;dbq="&server.mappath("id.mdb")set
<%userid = Request("userid")userpass = Request("userpass")Set conn = Server.CreateObject("ADODB.Connection")DBPath = Server.MapPath("userinfo.mdb")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &
login.htm<% @ Language=avascript %><%if (Request.Cookies("SavedLogin").HasKeys) { Response.Redirect("checklogin.asp?Cookie=1")}%><html><head><title>精彩春風之登入頁面</title></head><body>我要登入隨風起舞<FORM
<%FUNCTION TestString(SomeString)TempString = trIM(SomeString)TempString_Length = Len(TempString)TempString_OK = trueFOR TempString_Pos = 1 TO TempString_Length TempString_Char = Mid(TempString,TempString_Pos) TempString_Char_Ansi =
creatdoc.asp<!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"><head><title>星河影動之建立Word檔案</title><META HTTP-EQUIV="Refresh" CONTENT="30;URL='orderForm.asp'"></head><% dotLocation="'servernamedirectory
<%@ Language = VBScript%><%Response.Expires = 0p = "abcdefg"Set TestPWD = New CPassWordTestPWD.EnPWD pTestPWD.UnPWD TestPWD.ShowPWD(True)k = TestPWD.ShowPWD(True)l = TestPWD.ShowPWD(False)Set TestPWD = NothingWith Response.Write "原文:" &
login.htm請註冊登入隨風起舞<FORM ACTION="checklogin.asp" METHOD="POST">電子郵件: <input TYPE="Text" NAME="email" SIZE="40">密碼: <input TYPE="Password" NAME="Password" SIZE="40"> <input TYPE="Checkbox" NAME="SaveLogin"
<%function WriteToFile(FileName, Contents, Append)on error resume nextif Append = true then iMode = 8else iMode = 2end ifset oFs = server.createobject("Scripting.FileSystemObject")set oTextFile = oFs.OpenTextFile(FileName, iMode,
< %@ LANGUAGE="VBscript" % >< % Chunfeng=Request.Cookies("Chunfeng")' 初始設定頁面,讀取名字為Chunfeng的Cookie值.If Chunfeng ="" then' 判斷是否已經存在Cookie值. Response.Cookies("Chunfeng")="x" Response.Cookies("Chunfeng").Expires=#January 01, 2010#
Write（StrING） WriteLine（StrING） WriteBlankLines（LINES） 〈html〉 〈head〉 〈http-equiv="Content-Type" content="text/html; charset=gb2312"〉 〈title〉春風精彩之文字檔顯示〈/title〉 〈/head〉 〈body〉 <% LANGUAGE = VBScript %>
<%Function Comma(str)If Not(IsNumeric(str)) Or str = 0 Then Result = 0ElseIf Len(Fix(str)) < 4 Then Result = strElse Pos = Instr(1,str,".") If Pos > 0 Then Dec = Mid(str,Pos) End if Res = StrReverse(Fix(str)) LoopCount = 1 While
Public Function XtoF(str As Currency, Optional fenm As Integer = 32) As String ' 只限於整除分數. Dim Cfm As Currency Dim cfmmod As Integer On Error GoTo Erroreof Cfm = 1 / fenm XtoF = "" If str = 0 Then XtoF = "": Exit Function Dim point As Integer
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
