上页　　 下页

分类 | 标题 | 主题词 | 发布人 | 发布时间
<% if isempty(msgArr) then response.write "
暂时没有内容。
" else for i = 0 to UBound(msgArr,2) if i mod 2 =0 then strColor="#FFFFFF" else strColor="#E6F2FF" end if %> <% next end if %>

<% Function GetTableValue(TableName,Field,ValueField,Value) if TableName<>"" and Value<>"" then Set RsTmp = Server.Createobject("Adodb.recordset") strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'" Rstmp.open strSql,oConn,1,1 If not Rstmp.eof then GetTableValue=trim(Rstmp(Field)) else GetTableValue="" end if Rstmp.close 'set RsTmp = Nothing else GetTableValue="" end if End Function %>