分开写不能运行
Dim dr As DataRow = DataTables("WEB_函数").SQLFind("网页= '" & e.Path & "' ")
If dr IsNot Nothing Then
If dr("是否启用") = True Then
Functions.Execute(dr("函数名称"),e)
Else
e.WriteString("即刻WEB,即刻杯具!页面丢失了!!")
End If
End If
Dim apidr As DataRow = DataTables("API_函数").SQLFind("API_htm ='" & e.Path & "' ")
If apidr IsNot Nothing Then
If dr("是否启用") = True Then
Functions.Execute(apidr("API_name"),e)
Else
e.WriteString("即刻API,即刻杯具!页面丢失了!!")
End If
End If
建议合并到一个表，添加一列区分是web还是api函数