Test my first blog on csdn using wlw

It is very difficult to write a blog on csdn because it is very slow and information will be lost, which makes me very depressed. For this reason, I want to move the blog on csdn TO THE cnblog. However, I found that wlw can be used to write both a csdn blog and a cnblog. I would like to give it a try and I will not move it if I can. I still like the csdn environment.

TestCodeCan be inserted. The paste as vs code plug-in is used here, instead of the windowslivewriter. sourcecode. dll plug-in.

Code snippet

2. private sub cmdimportusers_click ( byval sender as system. object, byval E as system. eventargs) handles cmdimportusers. click
4. DimXmldocAs NewXmldocument
6. Xmldoc. loadxml (txtuserxml. Text)
8. 'Update the user record in the database
10. dim responsebuilder as stringbuilder = New stringbuilder ()
12. For EachXmlitemAsXmlelementInXmldoc. selectnodes ("/Users/user")
14.  
16. DimOuserinfoAs NewUserinfo
18. Ouserinfo. portalid = 0
20. Ouserinfo. Membership. Username = getxmlitemvalue (xmlitem,"Username")
22. Ouserinfo. Username = getxmlitemvalue (xmlitem,"Username")
24. Ouserinfo. profile. firstname = getxmlitemvalue (xmlitem,"Firstname")
26. Ouserinfo. firstname = getxmlitemvalue (xmlitem,"Firstname")
28. Ouserinfo. profile. lastname = getxmlitemvalue (xmlitem,"Lastname")
30. Ouserinfo. lastname = getxmlitemvalue (xmlitem,"Lastname")
32. Ouserinfo. profile. unit = getxmlitemvalue (xmlitem,"Unit")
34. Ouserinfo. profile. Street = getxmlitemvalue (xmlitem,"Street")
36. Ouserinfo. profile. City = getxmlitemvalue (xmlitem,"City")
38. Ouserinfo. profile. region = getxmlitemvalue (xmlitem,"Region")
40. Ouserinfo. profile. postalcode = getxmlitemvalue (xmlitem,"Postalcode")
42. Ouserinfo. profile. Country = getxmlitemvalue (xmlitem,"Country")
44. Ouserinfo. profile. Telephone = getxmlitemvalue (xmlitem,"Telephone")
46. Ouserinfo. Membership. Email = getxmlitemvalue (xmlitem,"Email")
48. Ouserinfo. Email = getxmlitemvalue (xmlitem,"Email")
50. Ouserinfo. Membership. Approved =True
52. Ouserinfo. affiliateid = NULL. nullinteger
54. Ouserinfo. Membership. Password = getxmlitemvalue (xmlitem,"Password")
56. DimCreatestatusAsUsercreatestatus = usercontroller. createuser (ouserinfo)
58.  
60. 'If createstatus = usercreatestatus. Success then
62. 'Responsebuilder. appendline (string. Format ("User '{0} 'created successfully", ouserinfo. username ))
64.  
66. 'Else
68. 'Responsebuilder. appendline (string. format ("User '{0} 'creation failed: {1}", ouserinfo. username, [Enum]. getname (GetType (usercreatestatus), createstatus )))
70.  
72. 'End if
74. 'Only users who failed to import will be output.
76. IfCreatestatus <> usercreatestatus. SuccessThen
78. Responsebuilder. appendline (String. Format ("User '{0} 'creation failed: {1 }", Ouserinfo. username, [Enum]. getname (GetType(Usercreatestatus), createstatus )))
80. End If
82.  
84. Next
86. Txtuserxml. Text = responsebuilder. tostring ()
88. End Sub

Then we can test whether images can be uploaded.