웹개발자의 기지개

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273 Colored by Color Scriptercs

실무 코딩작업하다가 임의로 3초정도 지연시키는 delay 코드를 만들어야 하는 상황이 생겼다. 1 2 3 4 5 6 7 8 function sleep(scs) Dim lo_wsh, ls_cmd Set lo_wsh = CreateObject( "WScript.Shell" ) ls_cmd = "%COMSPEC% /c ping -n " & 1 + scs & " 127.0.0.1>nul" lo_wsh.Run ls_cmd, 0, True End Function sleep(3) Colored by Color Scripter cs 참고 : https://stackoverflow.com/questions/2237393/how-to-delay-a-response-in-classic-asp

asp 소스 상으로 pc 와 모바일을 체킹하는 소스이다. 1 2 3 4 5 6 7 8 9 10 11 12 13 0 Then Response.Redirect("/모바일.asp") else Response.Redirect("/웹.asp") Exit for End If Next %> Colored by Color Scripter cs 참고 : https://m.blog.naver.com/hosicee22/220237901793

classic ASP 코딩시 자주 사용되는 connection.asp 파일 소스를 정리해보았다. 물론 아주 먼 옛날에는 EUC-KR 이었지만 현재는 모든게 UTF-8 이다. 1 2 3 4 5 6 7 8 9 10 11 12 Colored by Color Scripter cs

tmpStr = "Hello World" response.write tmpStr & " " response.write "instr(msg,""o""): " & instr(msg,"o") & " " '앞에서 1부터 시작해서 o를 찾은 결과 : 5 response.write "instr(msg,""o""): " & instrrev(msg,"o") & " " '뒤에서 1부터 시작해서 o를 찾은 결과 : 8 참고 : https://h5bak.tistory.com/28 ASP 특정문자가 포함된 문자열 찾기(instr, instrrev) tmpStr = "Hello World"response.write tmpStr & " "response.write "instr(msg,""o""):" & instr(msg,"o")..

script_name = Request.ServerVariables("SCRIPT_NAME") script_nameArr = Split(script_name,"/") thisPageStr = script_nameArr(3) ' /front/products/o_lcd_main2.asp thisPageStr 은 o_lcd_main2.asp 값이다. thisFileStr = request.servervariables("PATH_INFO") thisFileArr = Split(thisFileStr,"/") /html/product/galileo.asp 현재파일명은 thisFileArr(3)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 Colored by Color Scripter cs 참고 : https://umtaengnote.tistory.com/5

Dextupload 기준 ' a_filepath = uploadform.DefaultPath & "\rental_apply\" & attach_file ' a_uploadedfile = uploadform(name).SaveAs(a_filepath, False) ' filename = uploadform(name).LastSavedFileName sDate=hour(now())&minute(now())&second(now()) ' fileName = Mid(attach_file, InStrRev(attach_file, "\")+1) ' 파일명 + 확장자 onlyFileName = Mid(attach_file, 1, InStrRev(attach_file, ".")-1) ' 파일명 onlyDotExtensi..