C++博客-edog-随笔分类-.NET技术

Asp的时间格式问题

冰冻热狗 — Sun, 11 Jun 2006 05:39:00 GMT

现象：使用ASP取当前时间NOW，返回的时间带有上下午字样，导致无法写入datetime字段。
原因：安装了WIN2000番茄乐园版，该版本把系统时间修改为带上下午格式。

方法1：
1、控制面板－－区域和语言选项－－把时间设置为24小时格式。
2、打开注册表建立HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OLEAUT\VarConversionLocaleSetting = 2 (DWORD)
备注：OLEAUT 项可能不存在。如果它不存在，则必须先创建该项。
3、重新启动IIS。

问题解决，原理是强制使asp时间使用区域格式。

方法2：
查找注册表，全部匹配，把iTime的值全部改成1 。
然后修改服务器系统时间，重起机器完全正常了～
（此方法试过好像不行）

冰冻热狗 2006-06-11 13:39 发表评论

用VS2003调试ASP的方法和体会

冰冻热狗 — Tue, 14 Mar 2006 16:08:00 GMT

一直以来，和很多朋友一样，我调试ASP一般都是用editplus，当然，界面部分还是要用用什么frontpage之类的啦。前段时间写.net项目，装了一个VS.net2003，最近要写一个asp的项目，后来想想用vs20003来试试吧。
1、打开VS2003，先新建立一个项目，选Visual Basic项目--空WEB项目，名字就叫webproject1，然后可以在资源管理器（是VS的不是windows的）里看到解决方案。

2、点项文件栏上的"项目"，然后点"webproject1属性"--"配置属性"--"调试"里，把"ASP.NET调试"去掉，把"ASP"调试打开。

3、右键webproject1，添加新项---WEB窗体，名称叫index.asp（注意名称不是aspx，是asp）。然后可以看到index.asp的HTML处理编辑状态。
4、把现成的代码全部删除，因为这个是VS自动生成的，当中有些代码是用于asp.net的。然后你就可以自由编写你的ASP页面了。在编写代码的时候，VS会提供一些自动完成功能，很方便的。

5、现在准备调试。在资源管理器中index.asp，右键，设置为起始页。
6、然后点工具栏上的"三角"（哈哈，就是播放键）啦，这个就是debug的调试。
7、然后会跳出一个窗口让你输入本机密码，你就输入你登录用户的密码好了。 IE跳出来了，页面中显示出"VS下调试ASP项目"，哈，调试成功了！

结束调试的话你可以在VS里点工具栏上的那个"方块"（就是停止调试），也可以直接把IE关掉，也会自动停止调试的。

好了，下面来谈谈我的一点经验和体会吧。
1、VS调试ASP程序比较慢，这个慢是体现在打开IE页面时，所以我建议一般的写代码和编程就在VS里，调试的时候就像以前那样，直接开个IE进行调试。但是，对于复杂的问题，涉及到流程错误的，我还是喜欢在VS里用单步调试，用F9在某个地方设个断点，然后用F10进行跟踪，这样对于程序的流程，变量值都可以很好的看出来（这些调试技巧大家可以参考一些asp.net方面的书，或是以前的VS6的书也行），解决复杂问题也就快了许多。

2、建立新页面文件时，我建议还是直接进到目录中，然后建立好，再到VS的资源管理器中，用添加现有项进行导入，这样建立的文件没有垃圾代码。

3、VS2003可以提供很好的自动完成功能，大家可以充分的利用。

4、VS.net可以实现控件拖放加载，你可以在左边的"工具箱"--"HTML"里可以看到，直接点了，按住MOUSE左键直接拖到你想添加的地方。由于VS.net是针对.net的，所以一些HTML控件的属性中也体现了这些，比如"runat"这样的属性，在asp中是根本用不起来的。不过大多数控件的属性都是可以的，而且可以在"设计"视图下进行方便的设置属性好啦就说这么多吧. 大家可以慢慢体会：）有人说DW不错，我没有用过，不知道怎么样，也有人说DW有不少垃圾代码，呵呵：P

本文摘录自：http://www.81819.com/Article/2004-3-1/news2004-6-2535008925.html

冰冻热狗 2006-03-15 00:08 发表评论

数据库表中列类型的修改和ALTER的用法

冰冻热狗 — Thu, 02 Mar 2006 15:43:00 GMT

1、修改列类型，比如列为nvarch类型，修改其长度为100：

ALTER TABLE tb ALTER COLUMN col nvarchar(100)

2、增加一列：

ALTER TABLE tb ADD col2 nvarchar(100) null

表中存在数据时，新增加的列必须为null或者identity。

3、增加约束，设定列col3的缺省值为0：

ALTER TABLE tb ADD CONSTRAINT DF_col3 DEFAULT 0 FOR col3

冰冻热狗 2006-03-02 23:43 发表评论

用CHttpFile实现简单的GET/POST数据

冰冻热狗 — Mon, 05 Dec 2005 16:19:00 GMT

一、GET 数据，下载网页，文件等，用于可下载的文件，不能用于服务端运行的程序，比如.aspx文件等，否则会返回500错误。

CString strSentence, strWriteName="1.htm";
    CString strFileName="http://localhost/InDesign/" + strWriteName;

    CInternetSession sess;
    CHttpFile* fileGet;
    try
    {
        fileGet=(CHttpFile*)sess.OpenURL(strFileName);
    }
    catch(CException* e)
    {
        fileGet = 0;
        throw;
    }

    if(fileGet)
    {
        DWORD dwStatus;
        DWORD dwBuffLen = sizeof(dwStatus);
        BOOL bSuccess = fileGet->QueryInfo(HTTP_QUERY_STATUS_CODE|HTTP_QUERY_FLAG_NUMBER, &dwStatus, &dwBuffLen);

        if( bSuccess && dwStatus>= 200&& dwStatus<300 )
        {
            CStdioFile fileWrite;
            if(fileWrite.Open(strWriteName, CFile::modeWrite|CFile::modeCreate))
            {
                while(fileGet->ReadString(strSentence))
                {
                    fileWrite.WriteString(strSentence+"\n");
                }
                fileWrite.Close();
                AfxMessageBox("下载完毕");
            }
            else
            {
                AfxMessageBox("本地文件"+strWriteName+"打开出错.");
            }
        }
        else
        {
            strSentence.Format("打开网页文件出错，错误码：%d", dwStatus);
            AfxMessageBox(strSentence);
        }
        fileGet->Close();
        delete fileGet;
    }
    else
        AfxMessageBox("不能找到网页文件！");

    sess.Close();

二、POST 数据，比如用于提交注册信息等

CString strHttpName="http://localhost/TestReg/RegForm.aspx"; // 需要提交数据的页面
    CString strFormData = "username=abc&password=123";    // 需要提交的数据

    CInternetSession sess;
    CHttpFile* fileGet;
    CString strHeaders = _T("Content-Type: application/x-www-form-urlencoded"); // 请求头

    try
    {
        fileGet=(CHttpFile*)sess.OpenURL(strHttpName);//打开文件
    }
    catch(CException* e)
    {
        fileGet = 0;
        throw;
    }

    CString strSentence, strGetSentence = "";
    if(fileGet)
    {
        DWORD dwStatus;
        DWORD dwBuffLen = sizeof(dwStatus);
        BOOL bSuccess = fileGet->QueryInfo(HTTP_QUERY_STATUS_CODE|HTTP_QUERY_FLAG_NUMBER, &dwStatus, &dwBuffLen);
        if( bSuccess && dwStatus>= 200 &&dwStatus<300 )
        {
            BOOL result = fileGet->SendRequest(strHeaders, (LPVOID)(LPCTSTR)strFormData, strFormData.GetLength());
            while(fileGet->ReadString(strSentence))    // 读取提交数据后的返回结果
            {
                strGetSentence = strGetSentence + strSentence + char(13) + char(10);
            }
            AfxMessageBox(strGetSentence); // 显示返回网页内容
        }
        else
        {
            strSentence.Format("POST出错，错误码：%d", dwStatus);
            AfxMessageBox(strSentence);
        }

        fileGet->Close();
        delete fileGet;
    }
    else
        AfxMessageBox("不能找到网页文件！");

    sess.Close();

冰冻热狗 2005-12-06 00:19 发表评论

VB.NET编程日记

冰冻热狗 — Fri, 02 Dec 2005 16:21:00 GMT

1、FOR循环的郁闷
VB.NET中的FOR循环中改变了界限的数值，还只是记住原来的界限，考虑以下程序，是把一个字符串中的非字母去掉：

1        Dim ss As String = "Gogo No Kocha (Milk Tea) (500ml) - Small"
2        Dim pos2 As Integer = ss.Length
3        Dim i As Integer
4        Dim ch As Char
5        For i = 0 To pos2 - 1
6            If i >= pos2 - 1 Then Exit For
7            ch = ss.Chars(i)
8            If ch.IsLetter(ch) = False And ch <> " " Then
9                ss = ss.Remove(i, 1)
10                i -= 1
11                pos2 -= 1
12            End If
13        Next
14        ss = "Gogo No Kocha Milk Tea ml  Small"

如果不加上第6行，会死得很惨。

冰冻热狗 2005-12-03 00:21 发表评论

服务端调试 Web Service 的办法【转贴】

冰冻热狗 — Wed, 30 Nov 2005 06:40:00 GMT

把本地调试好的服务上传到WEB空间去试试，可以访问，调试看看，恩？“The test form is only available for requests from the local machine”怎么回事，找找，原来是这样。。。

通过编辑 Web 服务所在的 vroot 的 Web.config 文件，可以启用 HTTP GET 和 HTTP POST。以下配置同时启用了 HTTP GET 和 HTTP POST：

或者，可以通过编辑 Machine.config 中的节为计算机上的所有 Web 服务启用这些协议。下面的示例启用了 HTTP GET、HTTP POST 及 SOAP，此外还从本地主机启用了 HTTP POST：

冰冻热狗 2005-11-30 14:40 发表评论