HAVENT/夜雨流星℡ 的博客

[原创][.NET] 网站上传文件到局域网的方法

HAVENT — 2011-02-28 17:50:53

在使用网页上传文件功能的时候，有时候会遇到需要上传到局域网服务器的需求，此时可以通过帐号模拟功能，在两台服务器之间建立一个共享帐号，然后直接通过局域网路径进行文件保存

[原创][.NET] 网站上传文件到局域网的方法

HAVENT — 2011-02-28 17:50:36

[原创][.NET] WebRequest 的几种简单应用

HAVENT — 2010-12-18 22:04:45

下面是 GET 方法获取网页内容的代码

vb 代码

Dim r As String = ""
' 输入参数
Dim oURL As String = "http://192.169.1.69/Sync.ASPx?AC=HAVENT&PAGE=1"
'oURL = "http://www.ai169.com"
' 定义编码器
Dim oEncoding As System.Text.Encoding = System.Text.Encoding.UTF8
' 获得HttpWebRequest对象
Dim myRequest As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create(oURL), System.Net.HttpWebRequest)
myRequest.Method = "GET"
myRequest.ContentType = "application/x-www-form-urlencoded"
' 接收返回信息
Dim myResponse As System.Net.HttpWebResponse = DirectCast(myRequest.GetResponse(), System.Net.HttpWebResponse)
Dim sr As New System.IO.StreamReader(myResponse.GetResponseStream(), System.Text.Encoding.UTF8)
r = sr.ReadToEnd()
sr.Close()

[.NET] DateTimeFormat输出

本站整理 — 2008-10-06 14:19:34

* DateTimeFormatInfo 类
d 月中的某一天。一位数的日期没有前导零。
dd 月中的某一天。一位数的日期有一个前导零。
ddd 周中某天的缩写名称，在 AbbreviatedDayNames 中定义。
dddd 周中某天的完整名称，在 DayNames 中定义。
M 月份数字。一位数的月份没有前导零。
MM 月份数字。一位数的月份有一个前导零。
MMM 月份的缩写名称，在 AbbreviatedMonthNames 中定义。
MMMM 月份的完整名称，在 MonthNames 中定义。
y 不包含纪元的年份。如果不包含纪元的年份小于 10，则显示不具有前导零的年份。
yy 不包含纪元的年份。如果不包含纪元的年份小于 10，则显示具有前导零的年份。
yyyy 包括纪元的四位数的年份。

[原创][MS-SQL] 手工将数据库的用户名跟登录名关联

HAVENT — 2008-07-30 17:59:48

在数据库的迁移当中，很容易发生数据库的用户名和登录名关联丢失的问题
在查询分析器中使用sp_change_users_login 语句就能轻松搞定：
------------------------------------------------------------------
--将登录帐号与数据库的用户关联
USE Database
Go
EXEC sp_change_users_login 'Action', 'user', 'login'
------------------------------------------------------------------
--将 dbo 用户名与 sa 登录名链接
USE Database
Go
EXEC sp_changedbowner 'sa'
------------------------------------------------------------------

[AJAX] 使FIREFOX支持selectNodes,selectSingleNode

本站整理 — 2008-07-08 16:23:08

//使FIREFOX支持selectNodes()、selectSingleNode()
//代码出处：http://km0ti0n.blunted.co.uk/mozXPath.xap
// check for XPath implementation
if( document.implementation.hasFeature("XPath", "3.0") )
{
// prototying the XMLDocument
XMLDocument.prototype.selectNodes = function(cXPathString, xNode)
{
if( !xNode ) { xNode = this; }
var oNSResolver = this.createNSResolver(this.documentElement)
var aItems = this.evaluate(cXPathString, xNode, oNSResolver,
XPathResult.ORDERED_NODE_SNAPSHOT_TYPE, null)

[VB.NET] WndProc中的消息代码

本站整理 — 2008-05-30 10:46:34

WndProc中的消息代码
VB.net:
-----------------------------------------------------------------------------
Public Enum WindowMessages
     WM_ACTIVATE = &H6
     WM_ACTIVATEAPP = &H1C
     WM_ASKCBFORMATNAME = &H30C
     WM_CANCELJOURNAL = &H4B
     WM_CANCELMODE = &H1F
     WM_CAPTURECHANGED = &H1F
     WM_CAPTURECHANGED_R = &H215
     WM_CHANGECBCHAIN = &H30D
     WM_CHAR = &H102
     WM_CHARTOITEM = &H2F

[原创][VB.NET] 用LayeredWindow制作PNG透明窗体心得

HAVENT — 2008-05-23 16:24:50

前几天突然想制作一个窗体基类，所以去网上看了一下，发现了PNG透明窗体的源代码，代码的核心就是采用UpdateLayeredWindow的方法绘制窗体，测试了一下，界面非常爽，窗体的半透明效果感觉跟VistaGlass效果几乎一样。

但是随之而来的是遇到了一个非常棘手的问题，这个方法存在一个超级大BUG，就是无法可视化所有的控件，无论放什么控件，都无法显示（但是控件确实存在，只是没有绘制而已，我用TEXTBOX测试能够获取内容文本，也有区域感知，就是屏幕上看没有任何东西）。

基于这原因，本人上网找了资料，发现很多人也出现同样问题，后来研究一下System.Drawing.Graphics的功能，总算有了一点思路。

[原创][ASP] 域名泛解析后实现无限制任意级域名

HAVENT — 2008-03-29 23:50:33

默认站点，主机头为空
这样任何指向你服务器IP的域名都能访问该站点
然后在首页判断域名，根据域名不同给出不同路径即可

Dim Domain
Domain=Request.ServerVariables("http_host")

Select Case Domain
Case "Ai169.Com"        response.redirect   "Www.Ai169.Com"
Case "123.Ai169.Com"    response.redirect   "123/Index.html"
Case "asp.Ai169.Com"    response.redirect   "asp.html"
Case "Home.Ai169.Com"   server.transfer   "Index.html"
Case "219.133.197.221" server.transfer   "HTTP404/403.htm"
End Select

[MS-SQL] 用SQL语句对表、列、约束等进行操作

本站整理 — 2008-03-26 16:06:34

--如何用SQL语句更改表的列的数据类型和添加新列和约束

--增加一列
ALTER TABLE 表名 ADD 列名 VARCHAR(20) NULL
--删除一列
ALTER TABLE 表名 drop COLUMN 列名
--修改一列
alter TABLE 表名 ALTER COLUMN 列名 VARCHAR(40) NULL
--修改一列的类型
alter TABLE 表名 ALTER COLUMN 列名 VARCHAR(40)