asp로 된 사이트를 php로 일부분만 수정할려고하는데 가능?

asp로 된 사이트를 php로 일부분만 수정할려고하는데 가능?

QA

asp로 된 사이트를 php로 일부분만 수정할려고하는데 가능?

답변 2

본문

질문 그대로 입니다.

asp로 되어져 있는 사이트를 php로 일부분만 고치고 나머지는 php형식으로 바꿀려고 합니다.

예를 들어 게시판 부분 / 겔러리 부분등

이런 형식으로 일부분수정 하려고 하는데 가능한가요?

php의 경우 mysql형식으로 되어져 잇는데 asp의 경우 mssql로 되어져 있는데 그게 가능한건가요?

셋팅 자체가 asp인데 php의 경우 그냥 명령어나 형식을 쓴다고 안되지 않나요?

한다면 어떻게 셋팅해야되고

필요없다면 어떤형식으로 써야할지......

 

우선 수정할려는 부분 소스가

<!-- #include virtual="/inc/dbcon.asp" -->
%>
<!-- #include virtual="/inc/adovbs.inc" -->
<%
 Dim objDb, strSQL, CDOMail, iConf, strHtml, objFso, objTs, strFileName, strReciveEmail
 Dim intEstiType, strName, strCoName, strEmail, strTel, strHp, strFax, strAddr, strCont

 With Request

  intEstiType = .Form("intEstiType")
  strName = GetReplaceInput(.Form("strName"), "")
  strCoName = GetReplaceInput(.Form("strConame"), "")
  strEmail = GetReplaceInput(.Form("strEmail"), "")
  strTel = GetReplaceInput(.Form("strTel"), "")
  strHp = GetReplaceInput(.Form("strHp"), "")
  strFax = GetReplaceInput(.Form("strFax"), "")
  strAddr = GetReplaceInput(.Form("strAddr"), "")
  strCont = GetReplaceInput(.Form("strCont"), "")
 
 End With

 Set objDb = Server.CreateObject("Adodb.Connection")
  objDb.Open Conn

  strSQL = "Insert Into [ADMIN_ESTI_LIST] ( intEstiType, strName, strCoName, strEmail, strTel, strHp, strFax, strAddr, strCont ) Values ( "& intEstiType &", '"& strName &"', '"& strCoName &"', '"& strEmail &"', '"& strTel &"', '"& strHp &"', '"& strFax &"', '"& strAddr &"', '"& strCont &"' )"
  objDb.Execute strSQL ,, adExecuteNoRecords

  objDb.Close
 Set objDb = Nothing

 strReciveEmail = "" '받는사람이메일

 If strReciveEmail <> "" Then
 
  Set CDOMail = server.CreateObject("CDO.Message")
  Set iConf = CDOMail.Configuration

   With iConf.Fields
   .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
   .item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 27
   .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "222.236.44.94"
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\Inetpub\mailroot\Pickup"
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
   .Update
   End With

   Set objFso = CreateObject("Scripting.FileSystemObject")

    strFileName =  Server.MapPath("\") & "/inc/mailform/Esti_FormMail.html"

    Set objTs = objFso.OpenTextFile(strFileName)

    Do While Not objTs.AtEndOfStream
   
     strHtml = strHtml & objTs.ReadLine & chr(13)&chr(10)
    
    Loop

    Set objTs = Nothing

   Set objFso = Nothing

   strHtml = Replace(strHtml,"@req_name","문의")
   strHtml = Replace(strHtml,"@es_name",strName)
   strHtml = Replace(strHtml,"@es_date",Now())
   strHtml = Replace(strHtml,"@es_tel",strTel)
   strHtml = Replace(strHtml,"@es_hp",strHp)
   strHtml = Replace(strHtml,"@es_fax",strFax)
   strHtml = Replace(strHtml,"@es_addr",strAddr)
   strHtml = Replace(strHtml,"@es_cont",strCont)
   strHtml = Replace(strHtml,"@es_email",strEmail)


   CDOMail.From = strName & "<"& strEmail &">"
   CDOMail.To = strReciveEmail
   CDOMail.Subject = "[문의] " & strName & "님의 문의메일입니다."
   CDOMail.HTMLBody = strHtml

   CDOMail.Send

  Set CDOMail = Nothing
  Set iConf = Nothing

 End If

 Response.Write "<script>alert('고객님의 문의가 정상적으로 접수되었습니다.'); top.document.location.reload(); </script>"
 Response.End()
%>​

 

자세한 답변 부탁드리겠습니다...

asp에 대해서 하나도 몰라서...

 

이 질문에 댓글 쓰기 :

답변 2

질문이 asp로 된 사이트에서 php코드를 약간이라도 적용가능하냐??

이거를 물으시는건가여? 일단은 한가지 환경자체로만 된 호스팅 환경에서는 적용안댑니다.

php환경에서 asp코드넣으면 페이지 백지뜨고 안먹히고 그럽니다.

 

다만, 윈도우 환경에서는 asp랑 php둘다 사용할수있는데

같이 사용가능한지는 몰르겠습니다. 따로 호스팅잡고는 가능할거같은데

어느 정해진 한가지 환경을 사용하는 곳에서 php랑 asp둘다 사용하는건 안되는걸로 알고있습니다.

답변을 작성하시기 전에 로그인 해주세요.
QA 내용 검색
질문등록
filter #asp ×
전체 58
© SIRSOFT
현재 페이지 제일 처음으로