authenticate.asp<%Dim URLURL = Request.QueryString' 獲得URL. %> <html><body><FORM METHOD=POST ACTION="/validate.asp"> <INPUT TYPE=HIDDEN NAME="URL" VALUE="<%=URL%>"> ' 將URL儲存到一個隱藏變數中.使用者名稱: <INPUT TYPE=TEXT
<%Dim objCMFUDim strModifiedSet objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")' 建立對象並賦給變數，並且GetProperty類是當前唯一可用的.strModified = objCMFU.LastModified' 檢索並返回包含最後修改日期和時間（LastModified function ）值.當然了,還要考慮到出錯的可能. Set objCMFU = Nothing'
Function File_GetLastModified( sFile )Dim objFileObj, objFile Set objFileObj = CreateObject("Scripting.FileSystemObject") If sFile = "" Then sFile = Server.MapPath( Request.ServerVariables("script_NAME") ) End If Set objFile =
<%@ LANGUAGE="VBscript" %> <html><head> <title>撼雪噴雲之限傳檔案</title> </head> <body> <% Set upl = Server.CreateObject("SoftArtisans.FileUp") %> <% upl.MaxBytes = 1000 '
第一個辦法：用兩個檔案來解決這個問題：userandpwd.asp和secretarticle.asp。前者只負責提供輸入使用者名稱和密碼，由後者來完成驗證工作。這樣即使知道了asppwdrst.asp 所在的 URL，也決不會看到什麼內容的。userandpwd.asp< html >< body >< form name="form1"action="secretarticle.asp" method_="POST" >< input
<html><head><title>星河影動</title></head><body><tr><td height="69"><p align="center">撼雪噴雲之無組件上傳圖片</font></td></tr><tr><td height="9"><form
<％ ' 讀取使用者輸入的帳號和密碼. UserID = Request("UserID") Password = Request("Password") ' 檢查UserID及Password是否正確.If UserID <>"hrmis" Or Password <> "password" Then Response.Write "噢,您的口令錯誤!請重新輸入." Response.End End If ' 將Session 對象設定為通過驗證狀態
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"--><% Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") ' 建立一個Stream 對象. objStream.Type = adTypeBinary
manage.asp' 登入頁面.<%@ Language=VBScript %><html><body><form name="Login" method="Post" action="login.asp"><input type="text" name="username" size="20">使用者名稱<br><input type="password" name="password" size="20">
如何對一個檔案夾進行建立和刪除？<% set fs=createobject("scripting.filesystemobject") %><% MyFolder=server.mappath("/chunfeng/happy/") %><%If NOT fs.folderexists(MyFolder) then fs.createfolder(MyFolder)End If%> <%If fs.folderexists(MyFolder)
upload.asp <form action=http://<％= Request. ServerVariables(SERVER_NAME)>/wdread.asp method=post> <p>主題: <input type=text name=subject><br> 作者:<input name=author type=text><br> 發布時間: <input
docform.htm<form action="doccreate.asp">姓名: <input type="text" name="Name" size="50" maxlength="100">電子郵件: <input type="text" name="Email" size="50" maxlength="100"><p>內容:<textarea cols="50" rows="10"
security.asp<%bLoggedIn = (len(session("UserName")) > 0) if bRequireLogin then' 要求登入. if Not bLoggedIn then response.redirect "login.asp?comebackto=" & _ request.servervariables("script_name") & "?" & _ ' 如果沒註冊,
fileup.htm < html > < head >< title >千花飛舞之上傳單個檔案< /title >< /head ><body> < form enctype="multipart/form-data" method="post" action="fileup.asp" > 輸入想要上傳的檔案: < input type="file" name="f1"
<%Option ExplicitSub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:" ' 串連NUL. Set oConn = CreateObject("ADODB.Connection")
protect.asp<html><head><title>千花飛舞之春風精彩</title></head><body bgcolor="#00FFFF"><form action="Protect.asp" method="post">' 精彩的要限制的頁面.<input type="text" name="text">' 此處可註明該頁面的其它內容.姓名:<input
<html><script language="VB" runat="server"> Sub UploadBtn_Click(Sender as Object, E as EventArgs) UploadFile.PostedFile.SaveAs(Server.MapPath("chunfeng.jpg")) MyImage.ImageUrl = "chunfeng.jpg" MyImage.Visible =
main.htm<html><body><form action="login.asp" method="Post"><input type="text" name="username" size="20"> 帳號<br><input type="password" name="password" size="20"> 密碼<br><input type="submit"
newdoc.asp<%@ Language=VBScript %><script id=DebugDirectives runat=server language=avascript>//Set these to true to enable debugging or tracing@set @debug=false@set @trace=false</script><html><head><META
<html><head><title>隨風起舞之檔案查詢</title></head><body><p align="center" > <b><font face="宋體" color="red" size="5">星河影動之檔案查詢系統</font></b></p><hr><form method="POST"
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
