测试我用WLW在CSDN上的第一篇博客-白红宇

CSDN上写博客让人很纠结，因为很慢，而且会丢失信息，这让我很郁闷，为了这个我都想将CSDN上的博客搬家到CNBLOG上去了。但是发现使用WLW既可以写CSDN的博客，也可以写CNBLOG的博客，我有想试一下，如果可以的话就不搬家了。我还是喜欢CSDN的环境。

下面测试代码能否插入。这里使用了插件Paste AS VS Code，而不是使用WindowsLiveWriter.SourceCode.dll这个插件。

       Code Snippet 
 Private Sub cmdImportUsers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImportUsers.Click 
         Dim xmlDoc As New XmlDocument 
         xmlDoc.LoadXml(txtUserXML.Text) 
         ' update the user record in the database 
         Dim responseBuilder As StringBuilder = New StringBuilder() 
         For Each xmlItem As XmlElement In xmlDoc.SelectNodes("/Users/User") 
 
             Dim oUserInfo As New UserInfo 
             oUserInfo.PortalID = 0 
             oUserInfo.Membership.Username = GetXmlItemValue(xmlItem, "Username") 
             oUserInfo.Username = GetXmlItemValue(xmlItem, "Username") 
             oUserInfo.Profile.FirstName = GetXmlItemValue(xmlItem, "FirstName") 
             oUserInfo.FirstName = GetXmlItemValue(xmlItem, "FirstName") 
             oUserInfo.Profile.LastName = GetXmlItemValue(xmlItem, "LastName") 
             oUserInfo.LastName = GetXmlItemValue(xmlItem, "LastName") 
             oUserInfo.Profile.Unit = GetXmlItemValue(xmlItem, "Unit") 
             oUserInfo.Profile.Street = GetXmlItemValue(xmlItem, "Street") 
             oUserInfo.Profile.City = GetXmlItemValue(xmlItem, "City") 
             oUserInfo.Profile.Region = GetXmlItemValue(xmlItem, "Region") 
             oUserInfo.Profile.PostalCode = GetXmlItemValue(xmlItem, "PostalCode") 
             oUserInfo.Profile.Country = GetXmlItemValue(xmlItem, "Country") 
             oUserInfo.Profile.Telephone = GetXmlItemValue(xmlItem, "Telephone") 
             oUserInfo.Membership.Email = GetXmlItemValue(xmlItem, "Email") 
             oUserInfo.Email = GetXmlItemValue(xmlItem, "Email") 
             oUserInfo.Membership.Approved = True 
             oUserInfo.AffiliateID = Null.NullInteger 
             oUserInfo.Membership.Password = GetXmlItemValue(xmlItem, "Password") 
         Dim createStatus As UserCreateStatus = UserController.CreateUser(oUserInfo) 
 
         '    If createStatus = UserCreateStatus.Success Then 
         '    responseBuilder.AppendLine(String.Format("User '{0}' created successfully", oUserInfo.Username)) 
 
         '    Else 
         '    responseBuilder.AppendLine(String.Format("User '{0}' creation failed: {1}", oUserInfo.Username, [Enum].GetName(GetType(UserCreateStatus), createStatus))) 
 
         'End If 
         '只输出导入不成功的用户。 
         If createStatus <> UserCreateStatus.Success Then 
             responseBuilder.AppendLine(String.Format("User '{0}' creation failed: {1}", oUserInfo.Username, [Enum].GetName(GetType(UserCreateStatus), createStatus))) 
         End If 
 
         Next 
         txtUserXML.Text = responseBuilder.ToString() 
     End Sub 

然后是测试图片能够上传

本文转自xwdreamer博客园博客，原文链接：http://www.cnblogs.com/xwdreamer/archive/2010/06/04/2297127.html，如需转载请自行联系原作者