28,391
社区成员
发帖
与我相关
我的任务
分享
sql = "Select * From [info] order by [name],id asc"
set rs = conn.execute(sql)
If not rs.eof Then
str1 = ""
str2 = ""
i = 0
While Not Rs.Eof
If cstr(str2)<>cstr(rs("name")) Then
Response.Write str1
Response.Write "单位名称:" & rs("name") & "<br>需求信息:<br>"
str2 = rs("name")
str1 = "联系人:" & rs("lxr") & " 电话:" & rs("dh") &" 邮箱:" & rs("yx") & "<br><br>"
i = 1
End If
Response.Write i & "、" & rs("gw") & " " & rs("zy") & " " & rs("xl") & " " & rs("rs") & "名 " & rs("dy") & "元/月<br>"
i = i + 1
Rs.MoveNext
Wend
Response.Write Replace(str1,"<br>","")
End If