テスト用スレッド

テスト用スレッドです。
良識の範囲内で自由に書き込んでテストしてください。

Azureに移行したんですが、
SQL Azure対応でのプログラム変更や、多少の機能追加などでちゃんとテストしてない状態です。

でも、なんとなく動いてるんでいいかなと思って公開してみました。

日付のフォーマットが違うのが気になります。
あと、日付が標準時(GMT)になっちゃってますね。
おかしいなぁ、一応ローカルの時間(つまり日本時間)に変更するように機能修正したつもりだったんだけど。
と書きながら気が付きました。サーバーもあっちにあるんでローカルの時間がGMTなんだ…。
ローカルじゃだめか。有無をいわさず９時間たすのか。
アクセスしてきたユーザーのカルチャーを取得してそのカルチャーごとの時間に変更すべきか。
いや、面倒だから無条件で９時間たすように変更します。

返答画面がすごく文字化けします。
なぜこの画面だけ…。とりあえず今日は寝ます。

遂に掲示板復活ですね。
うれしいです!
これからもよろしくお願いいたします。

こんにちは！
早速の書き込みありがとうございます。
これで自分以外の環境でも投稿できることがわかってほっとしました。

文字化けの原因はどうも、いくつかのaspxがいつの間にか文字コードShift-JISで保存されていることにあるようです。
いつの間にShift-JISになったんでしょうか。

次回アップ(今夜?)はUTF-8に直してからアップしますので文字化けは解消されることと思います。

おお…文字化けしてる
投稿も時々失敗します。

でもとりあえず移行されてうれしいです。

こんにちは！
いまちょうどプログラムの入れ替えをやっていました。
ファイアーウォールの設定などで手間取って30分強かかってしまったので、
その間システムが不安定だったと思います。

とりあえず文字化けは直ったと思います。
URL機能、さっそく利用されましたね！

１ヶ月近く停止してしまいましたが、
今後もよろしくお願いいたします。

てすてす、あーてすてす。

Imports System.Runtime.CompilerServices

Imports System.Net

Imports System.Text

Imports System.Web

Imports System.Collections.Specialized



Friend Module WebClientExtension

    ''' <param name="queryString">この内容はURLエンコードされます</param> 

    <Extension()> _

    Public Function HttpGet(ByVal webClient As WebClient, ByVal url As String, ByVal queryString As NameValueCollection, ByVal userID As String, ByVal userPass As String) As String

        Dim res As String = ""

        Using client As New WebClient()

            client.Encoding = Encoding.UTF8



            client.Credentials = New NetworkCredential(userID, userPass)



            For i As Integer = 0 To queryString.Keys.Count - 1

                queryString(queryString.Keys(i)) = HttpUtility.UrlEncode(queryString(queryString.Keys(i)))

            Next

            client.QueryString = queryString



            Try

                res = client.DownloadString(url)

            Catch ex As WebException

                Throw New WebException("通信エラー", ex)

            End Try

        End Using



        Return res

    End Function



    ''' <param name="valus">この内容はURLエンコードされます</param> 

    <Extension()> _

    Public Function HttpPost(ByVal webClient As WebClient, ByVal url As String, ByVal valus As NameValueCollection, ByVal userID As String, ByVal userPass As String) As String

        Dim url_ As String = url

        If valus.Count >= 1 Then

            url_ += "?"

        End If



        Dim res() As Byte = Nothing

        Using client As New WebClient()

            client.Encoding = Encoding.UTF8



            client.Credentials = New NetworkCredential(userID, userPass)



            For Each key As String In valus.Keys

                url_ += key + "=" + HttpUtility.UrlEncode(valus(key)) + "&"

            Next



            Try

                res = client.UploadData(url_, System.Text.Encoding.Default.GetBytes(""))

            Catch ex As WebException

                 Throw New WebException("通信エラー", ex)

            End Try

        End Using

        Return Encoding.UTF8.GetString(res)

    End Function



End Module

文字化け直ってる！！

あれ？
もしかして、投稿日時おかしくないですか？

> もしかして、投稿日時おかしくないですか？
日本は UTC(≠GMT) に対して +9時間の時差があるので、たとえば
　4/28/2010 6:34:19 AM
の場合、日本時間では
　2010/04/28 15:34:19
に相当しているのだと思います。

このスレッドの先頭にて、るきおさんが
>> アクセスしてきたユーザーのカルチャーを取得してそのカルチャーごとの時間に変更すべきか。
>> いや、面倒だから無条件で９時間たすように変更します。 
といった内容を書かれていましたから、個人的には
いずれ(黄金週間で?)改善されるであろうと期待。(^^;


# ASP.NET 的にはこのあたり…かも。
http://msdn.microsoft.com/ja-jp/library/cc671415.aspx
http://msdn.microsoft.com/ja-jp/library/system.globalization.cultureinfo.aspx
http://msdn.microsoft.com/ja-jp/library/bb384268.aspx
http://www.atmarkit.co.jp/fdotnet/dotnettips/195aspmultilang2/aspmultilang2.html

掲示板復活とてもおめでとうございます。
こちらのサイトはたくさん学べるものがありまして、
掲示板復活を切に願っていただけに、
とてもうれしいです。
僕は今年から高校生ですが、VB中に登校してもいいんですよね・・・
みなさんとVBをともに学びあえるのは、
こちらにとって大きな励みです。
これからもこの掲示板の繁栄を願います。

GVさん、こんにちは。

>僕は今年から高校生ですが、VB中に登校してもいいんですよね・・・
高校入学おめでとうございます！
VB中は小学生であれ大人であれウェルカムです。
今後もよろしくお願いします。


なお、時差問題については魔界の仮面弁士さんのご説明のとおりです。
もちろん近いうちに直します。
Azureだと時間がずれるという実例ですので、多少の啓蒙活動にはなっているかも…。

「啓蒙」という言葉はなんかエラそうなのであまり使いたくないのですが、
他にいい言葉が思いつかないです。啓発？

(削除されました)