<script language = "VB" runat ="server"> Sub page_load(ByVal sender As Object, ByVal e As EventArgs) Dim user_name As String Dim sex As String Dim age As Integer user_name = Request.QueryString("user_name") sex = Request.QueryString("sex") age = Request.QueryString("age") message.Text = user_name & "ÄúºÃ" message.Text = message.Text & ",ÄúµÄÐÔ±ðÊÇ" & sex.tostring message.Text = message.Text & ",ÄúµÄÄêÁäÊÇ" & age.ToString End Sub </script>