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))
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))
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货