% '--------------------------------------------------------------------------------------------' //城市名,由于大于号的问题这个过程放最后 //过程名DomainName //参数1:Ctn 城市流水号CityNo Sub DomainName(Ctn) Set Rs_Citydoor=Server.CreateObject("Adodb.Recordset") Sql_Citydoor="Select top 1 domain From Citydoor where CityNo='"&Trim(Ctn)&"'" Rs_Citydoor.Open Sql_Citydoor,conn,1,1 If Rs_Citydoor("domain")<>"" Then Response.Write Trim(Rs_Citydoor("domain")) End If Rs_Citydoor.Close:Set Rs_Citydoor=Nothing End Sub '--------------------------------------------------------------------------------------------' %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||
| 租房推荐 |
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|