Others

Fileup.htm Upload a single file Enter the file to be uploaded: Start upload"> Fileup. asp Congratulations , File Uploaded ! Number of uploaded file

Function teststring (somestring)Tempstring = trim (somestring)Tempstring_length = Len (tempstring)Tempstring_ OK = trueFor tempstring_pos = 1 to tempstring_lengthTempstring_char = mid (tempstring, tempstring_pos)Tempstring_char_ansi = ASC

How to input text in the drop-down menu? Function pp (){Se. Options [2] = New Option (OK = (SE. Options [2])? Se. Options [2]. innertext + String. fromcharcode(Event. keycode): String. fromcharcode (event. keycode), "client ")Se.

How can I create a drop-down list using the database content? MySQL = "select * from authors where au_id Set conntemp = server. Createobject ("ADODB. Connection ")Conntemp. Open mydsnSet rstemp1_conntemp.exe cute (MySQL)If rstemp. EOF

Counter.htm http: // 127.0.0.1 Total clicks: Counter. aspPath = "d: data"File = request ("save ") Url = request ("url ")Set fs = CreateObject ("Scripting. FileSystemObject ")If fs. FileExists (path & file & ". txt") thenSet thisfile = fs.

How do I insert an advertisement into a website? First, we need to write an adrot.txt file to call: Adrot.txt Redirect Width 550 Height 60 Border 0 * Images/chunfengad.gif Http://www.shenzhaoyang.com Welcome to the wonderful spring breeze on

Randompassword. asp Dim I, intNum, intUpper, intLower, intRand, strPartPass, genPassword GenPassword = \"\" Randomize 'Use Randomize to generate random seeds. For I = 1 to 7 'Cycle 7 times, that is, create a 7-bit random password. IntNum = Int (

Manage. asp'Logon page. User name password Login. asp'Verify the username and password entered in the form. UserName = Request. Form ("username ")Password = Request. Form ("password ")'Capture the form content. Set MyConn = Server.

Upload. asp/wdread. asp method = post> topic: Author: Release date: Upload file: Sent to URL: /users/ size = 20> Wdread. asp /scripts/cpshost. dll? PUBLISH? Wdwriter. asp method = post name = form1>Upload file: /users/wdls> 'During the

galaxy movie's simplest File Upload select the uploaded file: [1]

Newdoc. asp Alibaba Cloud text file Editor If Request ("type") = "save" thenX = 1End if%> documentation: documentation: untitled End if %> Simhei shoushu Chinese New Wei special advertisement Times New Roman System 8pt 9pt 10pt

Authenticate. aspDim URLURL = Request. QueryString 'Get URL.%> ">'Save the URL to a hidden variable.User name:Password: Use the validate. asp file to obtain the information passed to it, read the username and password from the database, and

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 =

Search for dancing files Galaxy movie file query system enter the directory text to query: Query Result: Data = request. form ("search_data ") 'Get the string to be included in the name of the file to be queried.P = search_folder (data,

How to create and delete a folder? If NOT fs. folderexists (MyFolder) then Fs. createfolder (MyFolder) End If %> If fs. folderexists (MyFolder) then Response. write "congratulations, folder created successfully! " Else Response. write

Login.htm If (Request. Cookies ("SavedLogin"). HasKeys ){Response. Redirect ("checklogin. asp? Cookie = 1 ")}%> wonderful Spring Breeze logon page I want to log on and dance with the windEmail: Password: do you want to save the logon

Function WriteToFile (FileName, Contents, Append)On error resume next If Append = true thenIMode = 8ElseIMode = 2End ifSet oFs = server. createobject ("Scripting. FileSystemObject ")Set oTextFile = oFs. OpenTextFile (FileName, iMode, True)OTextFile.

Login.htmPlease register and log on Dancing with the windEmail: Password: do you want to save the registration content as a Cookie? Checklogin. aspDim bLoginSavedIf Request ("SaveLogin") = "on" thenResponse. Cookies ("SavedLogin") ("EMail") =

Dim strCookie, strTry StrCookie = Request. Cookies ("MyCookie ") StrTry = Request. QueryString ("Try ") If strCookie = "" Then 'Check whether the Cookie is set. If strTry = "" Then Response. Cookies ("MyCookie") = "Set" 'Redirect to this page

Public Function XtoF (str As Currency, Optional fenm As Integer = 32) As String 'Only the divisible score is allowed.Dim Cfm As CurrencyDim cfmmod As IntegerOn Error GoTo Erroreof Cfm = 1/fenmXtoF = ""If str = 0 Then XtoF = "": Exit Function Dim