% Dim title,content,objRs title="联系我们"&" - "&WebName Set objRs=Execute("SELECT * FROM Article WHERE id=1") If Not objRs.Eof Then content=objRs("content") End If objRs.Close %>