伊悟网事
伊悟网事
有没有办法撤消自己的博客的啊。
文章
C#转换为VB.NET
C#转换为VB.NET，类似的网站转换结果总是不太好：http://www.kamalpatel.net/ConvertCSharp2VB.aspx
http://authors.aspalliance.com/aldotnet/examples/translate.aspx
目前为止，我见过的最好的转换工具：
点击下载：
C# to Visual Basic Translation Tool
参考：
http://msdn.microsoft.com/msdnmag/issues/04/08/EndBracket/default.aspx
此工具是将整个C#工程转换为VB.NET工程，转换率为98%以上，很少的手动修改就OK！
此工具引用到了ICSharpCode.SharpRefactory.dll，需要下载SharpDevelop。
http://www.icsharpcode.net/OpenSource/SD/
http://www.icsharpcode.net/OpenSource/SD/Download/
关于SharpDevelop
SharpDevelop 是一个用于制作C#或者VB.NET的项目而设计的一个编辑器，同时，这个编辑器本身就是使用C#开发的，而且公开了全部源代码，因此这个工具本身也是学习C#以及软件开发规范的一个很好材料。
SharpDevelop 这个轻型的开发工具支持多种程序语言，包括C#、java以及VB.NET，同时还支持多种语言界面，象任何爱好者开发的工具一样，SharpDevelop经历了很多版本的更替，现在最新的是
这个编辑器的界面风格类似于Office XP以及VS.NET，这个编辑器可以支持书写C#, ASP.NET, ADO.NET, XML, HTML 等多种代码， 支持基于项目或者是文件的开发，可以对C#, HTML, ASP, ASP.NET, VBscript, VB.NET, XML 提供彩色语法显示支持，同时还可以把彩色的代码输出为HTML格式文件。你可以在代码中做标记，支持丰富的代码模版以及外接插件。
访问http://www.icsharpcode.net/OpenSource/SD/forum/可以获得SharpDevelop 的更多信息
附：Convert VB.NET to C#
http://www.developerfusion.com/utilities/convertvbtocsharp.aspx
http://www.soft32.com/download_26228.html
http://www.elegancetech.com/csvb.aspx
http://www.programmi.com/detail.asp?id=6385
参考：
http://www.4guysfromrolla.com/webtech/012702-1.shtml
利用XMLHTTP优化数据传输
在Web应用中，我们经常会需要记录客户端的状态，如果浏览器支持Cookie的功能，这样很好办，但如果用户禁止了Cookie功能，该如何记录客户端的信息呢？当我们提交新录或修改的数据时，我们希望只提交录入的数据信息而不提交与之无关的其它信息，利用XML数据岛和XMLHTTP可以轻松实现。一个比较理想的方法就是把INPUT和SELECT等控件绑定到XML数据岛，实际上，如果有更复杂的表单元素时，我们还可以利用XPATH进行处理，这样可以进行更加复杂的操作。利用XMLHTTP可以只提交数据信息，这样也可以减少网络流量。
下面就是简单的例子xmlhttpTest.htm：
<body>
<XML id="xmlTest">
<?xml version="1.0"?>
<root>
<Customer>
<customerid>00001</customerid>
<name>孟子E章</name>
<phone>13910309***</phone>
<address>北京市海淀区信息路</address>
<description><![CDATA[<html><body>支持html代码</body></html>]]></description>
</Customer>
</root>
</XML>
<script>
function update()
{
var oXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
'这里换成你自己的ServerName和VirtualDir
oXmlHttp.Open("POST", "http://mengxianhui/asp/update.asp", false);
oXmlHttp.setRequestHeader("Content-Type","text/xml")
oXmlHttp.Send(xmlTest.xml);
if(oXmlHttp.status!="200")
{
alert("没有返回正确的数据类型。")
return false
}
xmlTest.loadXML(oXmlHttp.responseXML.xml);
}
</script>
<table align="center" cellspacing="6" style="font-size:11pt">
<FORM NAME="frmTest">
<tr>
<td>客户名称：</td>
<td><INPUT TYPE="text" dataSrc="#xmlTest" dataFld="name" style="width:400px"></td>
</tr>
<tr>
<td>客户电话：</td>
<td><INPUT TYPE="text" dataSrc="#xmlTest" dataFld="phone" style="width:400px"></td>
</tr>
<tr>
<td>客户地址：</td>
<td><INPUT TYPE="text" dataSrc="#xmlTest" dataFld="address" style="width:200px"></td>
</tr>
<tr>
<td>客户简介：</td>
<td>
<TEXTAREA dataSrc="#xmlTest" dataFld="description" rows="6" style="width:400px"></TEXTAREA>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<INPUT TYPE="button" onclick="update()" VALUE=" 确 定 " style="background-color:#6F7EEF">
</td>
</tr>
</FORM>
</table>
</body>
这个HTML页面提供了一个数据岛来保存用户的信息，利用dataSrc和dataFld属性分别与Form表单元素进行绑定。XML数据岛将会实时反映出表单元素中数据的变化。通过点击“确定”按钮，将会调用update()函数，利用XMLHTTP把数据提交到服务器，同时利用XML数据岛的一个节点customerid来记录正在编辑的记录的状态。
下面就是简单的接收数据的代码update.asp：
<%
Dim xmldom
Set xmldom = Server.CreateObject("MSXML.DOMDocument")
Response.ContentType = "text/xml"
Response.CharSet = "GB2312"
xmldom.load Request
'可以在这里进行处理，然后返回到客户端
Response.Write "<?xml version=""1.0"" encoding=""GB2312""?>"
Response.Write xmldom.documentElement.xml
Set xmldom = Nothing
%>
如果只是测试，可以利用下面的代码update2.asp
<%
Response.ContentType = "text/xml"
Response.CharSet = "GB2312"
Response.Write "<?xml version=""1.0"" encoding=""GB2312""?>"
Response.Write "<root><Customer><customerid></customerid>"
Response.Write "<name>net_lover</name><phone>010-817939**</phone>"
Response.Write "<address>中国北京国际创业园</address>"
Response.Write "<description><![CDATA[<html><body>这种方式也支持HTML啊^_^</body></html>]]></description>"
Response.Write "</Customer></root>"
%>
一旦XML数据提交到服务器后，XML数据将保存到Request对象中，这样，我们可以把数据装载到XML DOM对象，利用XMLDOM对象的方便性进行各种处理，比如保存到数据库等，然后把结果返回到客户端。
其实，最实用的时候是把提交上来的XML数据交给Microsoft SQL Server 2000 来处理，在Microsoft SQL Server 2000 中进行数据的更新。
下面是利用Microsoft SQL Server 2000 来处理数据的例子update3.asp
Dim conn, cmd
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
conn.ConnectionString = "连接字符串写这里"
conn.Open
Set cmd.ActiveConnection = conn
cmd.CommandText = "update_stored_procedure" '调用存储过程
cmd.CommandType = 4
cmd.Parameters.Append cmd.CreateParameter("@xmldata", 200, 1, 8000, oXML.xml)
cmd.Properties("Output Stream") = Response 'IIS 5.0+支持
Response.Write "<root>"
cmd.Execute , ,1024
Response.Write "</root>"
在默认情况下，服务器端返回的是UTF-8格式的数据，为了避免乱码，在update.asp中，有一句Response.Write "<?xml version=""1.0"" encoding=""GB2312""?>"，利用这句的输出，就可以避免因中文输出带来的乱码问题。另外，利用XMLHTTP提交，页面是不刷新的，也可以减少数据传输的流量。
通过XML中的XMLHTTP对象调用其它网站上的网页
先定义了一个函数，解释在函数中：
接着就来看看定义编码函数BytesToBstr()的主要内容
当然，还可以使用专门的函数来处理汉字：
Function bytes2BSTR(vIn)
strReturn = ""
For j = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,j,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,j+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
j = j + 1
End If
Next
bytes2BSTR = strReturn
End Function
lenB返回字节数而不是字符数，同理ascB返回每个字节的ascii码，大于80h，也就是128的ascii是汉字——半个汉字，把半个半个的汉字ascii码拼合再用chr函数返回字符就可以了。
应用则如下：
即表示对 http://www.w3sky.com/index.html 的内容进行“偷”行为，返回了相关该站的内容。
XMLHTTPRequest的应用
微软自身的杀进程命令 - ntsd
Ajax技术
解决图片文件不能显示缩略图问题
如果你安装了Photoshop或AcdSee后又没有正确御载,有可能造成缩略图无法正常显示图片文件.可以通过以下方法解决这个问题.
方法1
单击"开始→运行"，输入"regsvr32 %windir%\system\thumbvw.dll"后按下回车键。其中"%windir%"表示操作系统安装的目录，比如你的Windows安装在
C:\Windows 中，那么该行就应该是"regsvr32 C:\Windows\System\thumbvw.dll"。
方法2
如果以上的方法无法修复Windows的图片预览功能，我们还可从网上下载修补程序，该程序其实是一小段编译好的VBS文件，双击即可将键值添加到注册表中，非常方便。它的下载地址是
http://www.binbin.net/messages/qa_win9/files/fixthumbnails.zip。需要注意的是，如果你的计算机上安装了Norton等杀毒软件，运行该程序时杀毒软件会提示你有恶意代码，选择"忽略"即可。
Fixthumbnails.vbs源文件为：
'Fixthumbnails.vbs
'Start of Image Preview Repair
'This section repairs the associations for Image Preview
Option Explicit
'Declare variables
Dim WSHShell, p1, p2, p3
Set WSHShell = WScript.CreateObject("WScript.Shell")
p2 = "\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\"
p3 = "{7376D660-C583-11d0-A3A5-00C04FD706EC}"
For Each p1 in Array(".art",".bmp",".dib",".gif",".jfif",".jpe",".jpeg",".jpg",".png",".wmf")
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
Next
p1 = ".tif"
p3 = "{1AEB1360-5AFC-11d0-B806-00C04FD706EC}"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".tiff"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".htm"
p3 = "{EAB841A0-9550-11cf-8C16-00805F1408F3}"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".html"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
'Start of Thumbnail Repair
'This section repairs the view in Thumbnail mode of Explorer.
p2 = "\CLSID\"
p3 = "{25336920-03F9-11cf-8FD0-00AA00686F13}"
For Each p1 in Array(".art",".bmp",".dib",".gif",".jfif",".jpe",".jpeg",".jpg",".png",".tif",".tiff",".wmf")
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
Next
MsgBox "Image Preview and Thumbnail View File" & vbCR & "Associations have
been restored.", 4096, "Confirmation"
Set WSHShell = Nothing