<% Randomize r = Rnd Sql="Select top 1 * From HX33_LoveWallPosts where len(HX33_WishContent)>30 order by rnd( "&r&"-HX33_WishID)" Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.open Sql,conn,1,1 if rs.eof and rs.bof then response.write "没有许愿内容" else str="" & rs("HX33_Sender")& ":"&rs("HX33_WishContent")&"" Response.write ReplaceTrim(str)&vbcrlf end if Rs.close Set rs=Nothing %> <% Public Function ReplaceTrim(ByVal strContent) On Error Resume Next Dim re Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = "(" & Chr(8) & "|" & Chr(9) & "|" & Chr(10) & "|" & Chr(13) & ")" strContent = re.Replace(strContent, vbNullString) Set re = Nothing ReplaceTrim = strContent Exit Function End Function %>