개발人

Scripting 객체 서버상에서 실행 가능하지만 ASP에서 기본적으로 제공되는 객체가 아니라 마이크로소프트 Scripting Runtime 이란 라이브러리 파일에 의해 제공되는 객체이다. 스크립팅 객체는 VB 스크립트 환경에 포함되어 제공된다. VB 스크립트는 DLL 파일로 구현되어 있으며 기능이 추가될 때마다 라이브러리 파일(DLL)이 포함된다. 스크립팅 객체를 구현하고 있는 라이브러리 파일은 SCRRUN.DLL이다. 스크립트 언어에서 이용할 수 있는 객체 세트를 가지고 있다. Dictionnary 객체 프로퍼티 compareMode : 문자열 키를 비교하는 모드를 설정하여 반환한다. Count : Dictionary 객체의 항목 수를 반환. 읽기 전용 Item : 지정한 키의 항목 값을 설정하거나 ..

보통 ASP 로 스킨이나 템플릿을 만들때 ssi 나 server.execute 를 많이 사용합니다. 그러나 ssi 는 asp 의 영역에서 벗어나 있고,server.execute 는 스킨파일과 변수 호환에 어려움이 많습니다. 다음은 .. 알고리즘이랄것도 없지만 .. 제가 일반적으로 사용하는 FSO를 이용한 스킨 및 템플릿 방식을 클래스로 만들어본것입니다. 그리고 현재 제 사이트에서도 유사하게 사용되고 있습니다. class xe_skin dim mem_skin_url '스킨 경로를 가지는 멤버변수 dim mem_now_skin_str '스킨 내용을 가지는 멤버변수 function xe_skin (skin_url,now_skin_str) '생성자,멤버변수 초기화 mem_skin_url = skin_url me..

table명 = table --------------------------------------------- idx | name | subject | content --------------------------------------------- 3 | aaa | 1111 | a1a1a1 --------------------------------------------- 2 | bbb | 2222 | b2b2b2 --------------------------------------------- 1 | ccc | 3333 | c3c3c3 --------------------------------------------- 위와 같을 경우................ sql = "select * from tabl..

1 2 3

1.Post 작성시 DB insert 처리부분에 Form에서 track_back(트랙백)이 있다면 아래 스크립트를 실행하도록 처리한다. 물론 이전단계에서 해당 URL의 무결성 검사를 해주는것이 좋겠다. 존재하는주소인지, 죽은 서버 주소는 아닌지 등등 2.tb_post.asp tb_post.asp에서 위의 값들을 받아서 해당 URL로 트랙백을 날리고, 리턴 에러값에 따라서 에러 처리를 한다. http://"&B_URL&"/B_Archive.asp?b_idx="&b_idx) title = Server.URLEncode(request.form("title")) excerpt = Server.URLEncode(request.form("content")) blog_name = Server.URLEncode(req..

테스트 해봤는데 모든 rss에 대해서 적용이 되지는 않는거 같군요. rss형식이 틀은 비슷하지만 약간씩 차이가 있어서..

select case val case "1" server.execute("a.asp") case "2" server.execute("b.asp") end select

Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function

url = "http://"a = Request.ServerVariables ("HTTP_HOST")b = Request.ServerVariables("script_name")response.write url&a&b%>

위의꺼는 익스플로러의 상태창에 시간을 표시하는 거니깐,달리 응용하실수 있을꺼예요..