其他

如何拒絕同一張表單被多次提交？formtest.asp' 表單檔案.<%Randomize ' 初始化隨機數種子.num1=rnd()' 產生隨機數.num1=int(26*num1)+65 ' 修改num1的範圍,使其是A-Z範圍的Ascii碼,防止表單名出錯.session("antry")="test"&chr(num1) ' 產生隨機字串.%><form name="test" action="testact.asp"

<%genPassword = ""RandomizeFor i = 1 to 8intNum = Int(10 * Rnd + 48)intUpper = Int(26 * Rnd + 65)intLower = Int(26 * Rnd + 97)intRand = Int(3 * Rnd + 1)Select Case intRandCase 1strPartPass = Chr(intNum)Case 2strPartPass = Chr(intUpper)Case

如何在網站中插播廣告？首先，我們要寫一個adrot.txt以調用：adrot.txtredirect width 550height 60border 0*images/chunfengad.gifhttp://www.shenzhaoyang.com歡迎訪問閃亮日子之精彩春風！50' 顯示百分比images/intelsad.gifhttp://www.intels.net歡迎訪問隨風起舞！50 然後，在要顯示廣告條的頁面裡添加下列原始碼，調用adrot.txt：<%Set

randompassword.asp<% Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword genPassword = \"\" Randomize ' 用Randomize產生隨機種子.For i = 1 to 7 ' 迴圈7次，即建立7位隨機密碼.intNum = Int(10 * Rnd + 48) ' 0-9的ASCII碼範圍是48-57.intUpper = Int(26 * Rnd + 65

quote.asp<%Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")Set MyTextFile = MyFileObj.OpenTextFile("c:\quote.txt")' 設定好路徑.IF NOT MyTextFile.AtEndOfStream THENheader = CInt(MyTextFile.ReadLine)' 讀表頭.END IFRANDOMIZE' 產生基於表頭的隨機數,

<%CountdownDate = #1/1/2008 00:00:00AM#If Date >= CountdownDate Then Response.Write "2008 北京" Response.EndEnd IftheDate = NowDaysLeft = DateDiff("d",theDate,CountdownDate) - 1theDate = DateAdd("d",DaysLeft,theDate)HoursLeft =

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

folder.htm<html><head><title>閃亮日子之線上建立檔案夾</title></head><body>春風精彩<br>線上建立檔案夾</td> <tr> <td height="28"><form name="form1" method="post" action="creatfolder.asp"><div

<％ ' 讀取使用者輸入的帳號和密碼. UserID = Request("UserID") Password = Request("Password") ' 檢查UserID及Password是否正確.If UserID <>"hrmis" Or Password <> "password" Then Response.Write "噢,您的口令錯誤!請重新輸入." Response.End End If ' 將Session 對象設定為通過驗證狀態

如何對一個檔案夾進行建立和刪除？<% 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

testCookies.asp' 檢查瀏覽器是否接受Cookies.<%strTest = Request.QueryString("CookieTest")If UCase(strTest) <> Ucase("true") ThenSession("__FlashCookieTest") = True' 第一次呼叫.設定session變數.' 用QueryString重新導向. strURL = Request.ServerVariables("script_NAME")

<%id = Request("id")newpassword = Request("password")newpasswordtemp = Request("passwordtemp")If newpassword <> newpasswordtemp ThenResponse.Write "<center>對不起,密碼未能確認,請重新輸入!</center>"Response.EndEnd If Set conn =

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")

<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 =

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

<%@ 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 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