Question

我正在尝试将这些函数从.asp文件转换或转换为.php函数，因为我还不熟悉.asp。其中一些我认识并且可以理解，例如SQL命令和来自远程表的数据的占位符，其余的让我感到困惑。我已经转换了一些像我认为相当于PHP包含的包含'';功能和其他几个。有这两种语言工作知识的人能告诉我哪些功能在哪里？

<!--#include virtual="/includes/functions.asp" -->
<%
intBusiness_Catagory = Request("select_catagory")

Set thisConn    = Server.CreateObject("ADODB.Connection")
thisConn.Open CreateAfccDSN()


SelectSQL   = "SELECT * FROM BusinessInfo WHERE ((CatID = " & intBusiness_Catagory & ") or (CatID2 = " & intBusiness_Catagory & ") or (CatID3 = " & intBusiness_Catagory & ")) and (intStatusCodeID = 1) and (intOnWeb = 1) Order By vcBusinessName"
Set SelectRs = thisConn.Execute(SelectSQL)

If SelectRs.EOF Then
    Response.Write("No members found for selected category.<br> Please search <a href='javascript:history.back()'>again</a>.")
Else
%>
<b>Member Search Results:</b>
<p>

<%
End If

    If Not SelectRs.BOF AND Not SelectRs.EOF then
        SelectRs.MoveFirst
        Do Until SelectRs.EOF
%>
            <b><%=SelectRs("vcBusinessName") %></b><br>
            <%=SelectRs("vcPhone") %><br>
            <%=SelectRs("vcPAddress") %><br>
            <%=SelectRs("vcPCity") %>, <%=SelectRs("vcPState") %>&nbsp;&nbsp;<%=SelectRs("vcPZipCode") %><br>
            <%
            If isNull(SelectRs("vcURL")) then

            Else
            %>
                <b>Website: </b><a href="http://<%=SelectRs("vcURL") %>" target="_blank"><%=SelectRs("vcURL") %></a>
            <%
            End If
            %>
            <p>
            <hr>
<%
            SelectRs.MoveNext
        Loop
%>

<%
    End If

SelectRs.Close
Set SelectRs = Nothing
%>

Answer 1

此脚本打开数据库，进行查询并从结果记录中吐出值。并非此处的所有内容都具有1：1 PHP等价物。

Set thisConn = Server.CreateObject - 这会创建一个数据库连接对象

thisConn.Open CreateAfccDSN() - 这将打开数据库连接，使用从名为CreateAfccDSN（）的函数传回的值，此处未显示。

intBusiness_Catagory = Request("select_catagory") - 这会使用名为select_catagory的表单/ url参数，并将其分配给局部变量intBusiness_Catagory

将asp函数转换为php

1 个答案: