Bir web sitesi yaparken genelde site içeriğini hazırlama aşamasını uzun tutar, yayınlama aşamasını ise pek önemsemeyiz. Oysa web yayıncılığının temel ilkeleri, amatör bir siteyle profesyonel bir siteyi birbirinden ayıran en önemli etkenlerdendir. Sitenizi web’e yerleştirirken bilmeniz gereken 25 ipucunu sizler için derledik.

<%@ page language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.IO" %>
 <script language="VB" runat="server">
     Private Sub downloadButton_OnClick(ByVal sender As Object, ByVal e As System.EventArgs)
         Dim url As String = "http://www.tcmb.gov.tr/kurlar/today.html"
         Dim strVeri As String = GetHTML(url)
         Dim iDolar As String = InStr(strVeri, "USD")
         Dim iEuro As String = InStr(strVeri, "EUR")
         Dim strDolarAlis As String = Mid(strVeri, iDolar + 38, 10)
         Dim strDolarSatis As String = Mid(strVeri, iDolar + 51, 10)
         Dim strEuroAlis As String = Mid(strVeri, iEuro + 38, 11)
         Dim strEuroSatis As String = Mid(strVeri, iEuro + 51, 11)
         Response.Write(strDolarAlis & "<br>")
         Response.Write(strDolarSatis & "<br>")
         Response.Write(strEuroAlis & "<br>")
         Response.Write(strEuroSatis)
        
     End Sub
     Private Function GetHTML(ByVal strURL As String) As String
         Dim objResponse As WebResponse = Nothing
         Dim strHTML As String
         Try
             Dim objUri As Uri = New Uri(strURL)
             Dim objRequest As WebRequest = WebRequest.Create(objUri)
             objResponse = objRequest.GetResponse
             Dim objStream As Stream = objResponse.GetResponseStream

             Dim encode As Encoding = System.Text.Encoding.UTF8
             Dim objReader As StreamReader = New StreamReader(objStream, encode)
             strHTML = objReader.ReadToEnd
         Catch ex As Exception
             Return ex.ToString
         Finally
             objResponse.Close()
         End Try
         Return strHTML
     End Function
     Private Function Post(ByVal strURL As String, ByVal strPostData As String) As String
         Dim objResponse As WebResponse = Nothing
         Dim strResult As String = Nothing
         Try
             Dim objUri As Uri = New Uri(strURL)
             Dim objRequest As WebRequest = WebRequest.Create(objUri)
             objRequest.Method = "POST"
             objRequest.ContentType = "application/x-www-form-urlencoded"
             Dim UrlEncoded As StringBuilder = New StringBuilder
             Dim reserved As Char() = {"?"c, "="c, "&"c}
             Dim SomeBytes As Byte() = Nothing
             If Not (strPostData Is Nothing) Then
                 Dim i As Integer = 0
                 Dim j As Integer
                 While i < strPostData.Length
                     j = strPostData.IndexOfAny(reserved, i)
                     If j = -1 Then
                         UrlEncoded.Append(HttpUtility.UrlEncode(strPostData.Substring(i, strPostData.Length - i)))
                         ' break
                     End If
                     UrlEncoded.Append(HttpUtility.UrlEncode(strPostData.Substring(i, j - i)))
                     UrlEncoded.Append(HttpUtility.UrlEncode(strPostData.Substring(j, 1)))
                     i = j + 1
                 End While
                 SomeBytes = Encoding.UTF8.GetBytes(UrlEncoded.ToString)
                 objRequest.ContentLength = SomeBytes.Length
                 Dim objStream As Stream = objRequest.GetRequestStream
                 objStream.Write(SomeBytes, 0, SomeBytes.Length)
                 objStream.Close()
             Else
                 objRequest.ContentLength = 0
             End If
             objResponse = objRequest.GetResponse
             Dim objReceiveStream As Stream = objResponse.GetResponseStream
             Dim encode As Encoding = System.Text.Encoding.UTF8
             Dim objReader As StreamReader = New StreamReader(objReceiveStream, encode)
             strResult = objReader.ReadToEnd
         Catch ex As Exception
             Return ex.ToString
         Finally
             If Not (objResponse Is Nothing) Then
                 objResponse.Close()
             End If
         End Try
         Return strResult
     End Function
 </script>
<form id="Form1" runat="server">
<asp:button id="downloadButton" runat="server" text="Download" tabindex="2" onclick = "downloadButton_OnClick"></asp:button>
</form>