묻고답하기
asp소스인데 이걸 php로 좀 해석하는 방법 없나요?
2002.05.28 19:27
asp소스인데 asp는 전혀 몰라서 같은 기능을 하는 php로 변환할수 있는 방법이 없을까요?
<!--METADATA TYPE="typelib" NAME="ADODB Type Library"
FILE="C:Program FilesCommon FilesSYSTEMADOmsado15.dll" -->
<% Option Explicit %>
<!--#include file="config.asp"-->
<%
Dim board_idx, GotoPage, name, content
board_idx = Request.form("board_idx")
GotoPage = Request.form("GotoPage")
name = Request.form("name")
content = Request.form("content")
Dim adoRs
Set adoRs = Server.CreateObject("ADODB.RecordSet")
adoRs.Open "Comment", strConnect, adOpenStatic, adLockPessimistic, adCmdTable
with adoRs
.AddNew
.Fields("Co_name") = name
.Fields("board_idx") = board_idx
.Fields("Co_content") = content
.Update
.Close
end with
Set adoRs = nothing
Response.Redirect "content.asp?GotoPage=" & GotoPage & "&board_idx=" & board_idx
%>
<!--METADATA TYPE="typelib" NAME="ADODB Type Library"
FILE="C:Program FilesCommon FilesSYSTEMADOmsado15.dll" -->
<% Option Explicit %>
<!--#include file="config.asp"-->
<%
Dim board_idx, GotoPage, name, content
board_idx = Request.form("board_idx")
GotoPage = Request.form("GotoPage")
name = Request.form("name")
content = Request.form("content")
Dim adoRs
Set adoRs = Server.CreateObject("ADODB.RecordSet")
adoRs.Open "Comment", strConnect, adOpenStatic, adLockPessimistic, adCmdTable
with adoRs
.AddNew
.Fields("Co_name") = name
.Fields("board_idx") = board_idx
.Fields("Co_content") = content
.Update
.Close
end with
Set adoRs = nothing
Response.Redirect "content.asp?GotoPage=" & GotoPage & "&board_idx=" & board_idx
%>