Some small programs in the ASP collection

xiaoxiao2021-03-06  61

========== The execution time of the calculation page =========== <% DIM STARTIME, EndTimeStartime = Timer ()%> <% DIM STARTIME, EndTimeStartime = TIMER ()%> Finally, the following code is added at the end of the page code: <% endtime = timer () response.write page execution time: "& formatNumber * 1000, 3) &" milliseconds "response.end%> < % endTime = Timer () response.write page execution time: "& formatNumber * 1000, 3) &" millisecond "response.end%> ======== Take the full URL function = ======== <% DIM TEMP, ServerURLTEMP = Split (Request.SerVariables ("Server_Protocol"), "Server_Protocol"), "/") ServerURL = Temp (0) & ": //" & Request.SerVariables ("Server_name" ) & Request.ServerVariables ( "Script_name") if request.ServerVariables ( "QUERY_STRING") <> "" then ServerUrl = ServerUrl & "?" ServerUrl = ServerUrl & request.ServerVariables ( "QUERY_STRING") response.write ServerUrl & "
" %> <% DIM TEMP, ServerURLTemp = Split ("Server_Protocol"), "Server_Protocol"), "Server_Protocol"), "/") ServerURL = Temp (0) & "Server_name" & Request.ServerVariables "Script_name") if Request.servervariables ("query_string") <> "" "" "" "" "ServerURL = Serveru RL & Request.ServerVariables ("Query_String") response.write serverurl & "%> ============ Displays the file in the current directory ========== <% @ Language =

"Vbscript" codepage = "936"%> <% = server.mappath ("/")%> <% 'set fso = createObject ("scripting.filesystemobject")' fso.createfolder ("e: / fd") ' Fso.files ("e: /") Dirtowalk = "Web" set fs = server.createObject ("scripting.filesystemObject") set f = fs.getfolder (server.mappath (dirtowalk)) SET FC = Filesfor Each Whatver In fcResponse.write "
"Next%> <% = server.mappath ("/")%> <% 'set fso = createObject ("scripting.filesystemObject")' fso.createfolder ("e: / fd") 'fso.files ("e: /") Dirtowalk = "web" set fs = server.CreateObject ( "Scripting.FileSystemObject") set f = fs.GetFolder (server.MapPath (dirtowalk)) set fc = f.filesfor each whatever in fcresponse.Write "" response.Write whatever.name & "??" & whatever.datecreatedResponse.write "" Next%> ======= Calculate the total length of the Chinese English string ========== <% function checkstringLENGTH (TXT) txt = trim (txt) ) X = len (txt) y = 0 for ii = 1 to x if ASC (MID (TXT, II, 1)) <0 OR ASC (MID (TXT, II, 1))> 255 Then 'If it is Chinese y = y 2 else y = y 1 end if next checkstringLength = y end functionResponse.write (CheckstringLength ("FSDFS in DFSDF") )%> <% Function checkstringLength (txt) ???? txt = trim (txt) ???? x = len (txt) ???? y =


New Post(0)