Dim tid As Integer
        Dim id As Integer
        Dim str3, str4 As String
        tid = Request.QueryString("tid")
        Dim rsc As SqlDataReader
        Dim conn As SqlConnection
        Dim cmd As SqlCommand
        conn = New SqlConnection(ConfigurationManager.AppSettings("scon"))
        cmd = New SqlCommand("lianjie", conn)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.AddWithValue("@tid", tid)
        conn.Open()
        rsc = cmd.ExecuteReader()
        If rsc.Read Then
            str3 = rsc("usern")
            str4 = rsc("mima")
            id = rsc("id")
            conn.Close()
        End If
        Dim lujin As String = "bin/" + str3 + "/" + str3 + ".xml"
        Dim stxml As XmlDocument = New XmlDocument()
        stxml.Load(Server.MapPath(lujin))
        Dim ss As XmlNode = stxml.SelectSingleNode("NewDataSet")
        Dim tt As XmlElement = stxml.CreateElement("test")
        Dim el As XmlElement = stxml.CreateElement("id")
        el.InnerText = id
        Dim xesub1 As XmlElement = stxml.CreateElement("usern")
        xesub1.InnerText = str3
        Dim xesub2 As XmlElement = stxml.CreateElement("mima")
        xesub2.InnerText = str4
        tt.AppendChild(el)
        tt.AppendChild(xesub1)
        tt.AppendChild(xesub2)
        ss.AppendChild(tt)
        stxml.Save(Server.MapPath(lujin))