名词空间:Imports System.Data.SqlClient
Dim Con As New SqlConnection("data source=服务器名称或者IP地址(127.0.0.1);initial catalog=所要连接的数据库名称(Northwind);user id=帐户;password=密码")
Con.Open()
/pa?p=1:123440016:10" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open('http://wpa./pa?p=1:123440016:10');}" onmousewheel="return imgzoom(this);" alt="" />/msgrd?V=1&Uin=123440016&Site=im.&Menu=yes" target="_blank">点击这里给我发消息