ASP, XML 참고

http://imjohnny.cn/?p=69
http://www.xml.com/
http://search.oreilly.com/?q=cs4
http://search.oreilly.com/?q=asp
http://www.taeyo.pe.kr/Columns/List.aspx?SEQ=12&IDX=3

신고

댓글을 달아 주세요

asp 파일 다운로드 페이지

Posted by 비회원 프로그래밍/ASP : 2010.05.06 17:51

filename에는 실제 파일명,
filepath에는 서버상 절대경로를 입력 해줘야 한다.

<%
filename=request("filename")
filepath="D:\www\홈페이지경로\file\"&filename

Response.ContentType = "application/unknown"
Response.AddHeader "Content-Disposition","attachment; filename=" & filename
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile filepath
download = objStream.Read
Response.BinaryWrite download
Set objstream = nothing
%>

신고

댓글을 달아 주세요


정규식을 이용한 펑션임.

<%
 function StripTags( htmlDoc )
 
   set rex = new Regexp
 
   rex.Pattern= "<[^>]+>"
 
   rex.Global=true
 
   StripTags =rex.Replace(htmlDoc,"")
'   set rex = nothing
 end function
%>
신고

댓글을 달아 주세요

PHP & ASP 간단하게 스팸글 막기.

Posted by 비회원 프로그래밍/PHP : 2010.04.15 13:45


클릭하지 않고 폼값으로만 넘기는 로봇이 쓰는글의 경우에만 해당하는 스팸글 차단 방법입니다.

모든것에 다 통용되진 않으니 지속적인 비아그라.. 씨알리스.. sexxdsfa 이런것들 들어올때 사용하시면 좋습니다.



입력받는 페이지 --- write

1.<input type=hidden name=spam_chk_val value=''> 를 폼 바로밑에 넣어준다

2. input text나 radio 등에다가 onclick="document.폼이름.spam_chk_val.value='yes'" 를 적어준다.

3. 실제 저장하는 페이지에다가 아래처럼 상단에 필터링 해 준다.


DB저장 페이지 --- write_ok

ASP
If spam_chk_val<>"yes" Then%>
 <script language="javascript">
    alert("스팸글로 분류되었습니다..");
    history.back();
 </script><%
 response.end
End if

PHP
If($spam_chk_val<>"yes"){?>
 <script language="javascript">
    alert("스팸글로 분류되었습니다..");
    history.back();
 </script>
<?}else{?>

<?}?>

신고

댓글을 달아 주세요

Request.ServerVariables("LOCAL_ADDR") : 로컬 IP 주소
Request.ServerVariables("PATH_INFO") : PARAMETER를 제외한 현재 페이지 경로 (/MAIN/MAIN.ASP)
Request.ServerVariables("QUERY_STRING") : 현재 페이지의 PARAMETER
Request.ServerVariables("PATH_TRANSLATED") : 현재 페이지의 서버 저장경로
Request.ServerVariables("REMOTE_HOST") : 서버와 로컬의 연결주소 (프록시)
Request.ServerVariables("HTTP_REFFERER") : 이전 페이지의 전체 URL (리퍼러, 파라미터 포함)

사용법
<%
req_info=Request.ServerVariables("PATH_INFO")
if req_info="/main/main_real.asp" then 
response.write "test";
end if
%>

신고

댓글을 달아 주세요


<%
Set objImg = LoadPicture(IMG_file)
orgWidth = cint(objImg.Width * 24 / 635)
orgHeight = cint(objImg.Height * 24 / 635)
%>
신고

댓글을 달아 주세요

 «이전 1  다음»

티스토리 툴바