2012-02-02 158 views
0

我试图将这些函数从.asp文件转换或转换成.php函数,因为我还不熟悉.asp。 其中一些我认识并可以理解,如SQL命令和远程表中的数据将去的占位符,其余的都让我感到困惑。 我已经转换了一些如我认为相当于PHP的include的include,';功能和其他几个。有两种语言的工作知识的人能告诉我哪些功能在哪里?将asp函数转换为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 
%> 
+2

没有人会重新写你对你的代码。你不了解ASP代码的哪些部分? – 2012-02-02 19:55:36

+0

主要是if语句,Rewrite语句,Set thisConn = Server.CreateObject,thisConn.Open,CreateAfccDSN()和intBusiness_Catagory。 – Tower 2012-02-02 20:05:42

回答

0

该脚本打开数据库,进行查询并从结果记录中提取值。并非所有的东西都有1:1的PHP等价物。

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

thisConn.Open CreateAfccDSN() - 这将打开数据库连接,利用一种称为CreateAfccDSN()函数,这里没有显示传回值。

intBusiness_Catagory = Request("select_catagory") - 这需要所谓select_catagory表单/ URL参数,并将其分配给本地变量intBusiness_Catagory

+0

好的谢谢!这应该帮助我。那么重写命令呢? – Tower 2012-02-02 20:20:39

+0

Response.Write = echo – 2012-02-02 20:24:04

+0

好吧,我明白了。尽管在代码中没有数据库用户和密码的标志,甚至没有登录过程。不确定这会对PHP有多好。 – Tower 2012-02-02 20:33:29