Pytanie : ASP kod VB 2010

Móc jakaś jeden dlaczego ten kod VB 2010? 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:

 ' The pismo móc dzwonić przez

<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 1252 " %>

<% wywoławczy sendsms ("447740123456", (1), "123 ABC PRÓBNY test", "", "")

jeżeli AQresponse <> "" wtedy
  response.write (AQresponse)
inny
  response.write ("BŁĄD")
kończyć jeżeli

%>

'Faktyczny pismo podążać. Kartoteka móc umieszczać w oddzielny kartoteka, 
'tak jak the smslib.asp kartoteka opisywać opisywać

<%
response.buffer = true
'Prawo autorskie 2002 (aq) Ltd.
'Pismo wymagać Microsoft XMLHTTP składnik

Ciemnawy metoda, zabezpieczać, error_on_length, username, hasło, AQresponse
  'Użytkownik Zmienna Zmienna
  zabezpieczać = (0) 'Set ' (1) dla SSL związek 
                                    'lub (0) dla normalny związek.
  error_on_length = (1) "Czy i błąd na wiadomość nad 160 chracters. 
                                    " (1) dla prawdziwy, (0) dla fałszywy.
  username = "testusername" 'Twój aql username, móc lub ustawiać tutaj 
                                    'lub robić na a na wywoławczy podstawa od the funkcja.
  hasło = "testpassword" 'Twój aql hasło, móc lub ustawiać tutaj
                                    'lub robić na a na wywoławczy podstawa od the funkcja.

'Redagować robić tutaj jeśli ty znać znać ty robić!

Funkcja sendsms (miejsce przeznaczenia, błysk, wiadomość, f_username, f_password, sprawca)
  jeżeli f_username <> null lub f_username <> "" wtedy
    username = f_username
  kończyć jeżeli
  jeżeli f_password <> null lub f_password <> "" wtedy
    hasło = f_password
  kończyć jeżeli
  jeżeli username = "" wtedy
      wywoławczy senderror (1)
    inny jeżeli hasło = "" wtedy
        wywoławczy senderror (2)
    inny jeżeli miejsce przeznaczenia = "" wtedy
        wywoławczy senderror (3)
    inny jeżeli len (wiadomość) > 160 i error_on_length = (1) wtedy
        dzwonić senderror (6)
    inny jeżeli błysk > (1) lub błysk < (0) wtedy
        wywoławczy senderror (5)
    kończyć jeżeli
    kończyć jeżeli
    kończyć jeżeli
    kończyć jeżeli
  kończyć jeżeli

Ćmić objXMLHTTP, xml
  wiadomość = zamieniać (wiadomość, "", "+")
  Ustalony xml = Server.CreateObject ("Microsoft.XMLHTTP")
  jeżeli zabezpieczać = null lub zabezpieczać = (0) wtedy
    xml. Otwarty "POCZTA", "http://gw1.aql.com/sms/sms_gw.php", Fałszywy
    xml.setRequestHeader "Zadawalać-Typ", "application/x-www-form-urlencoded"
    xml. Wysyłać "username=" & username & "&password=" & hasło & "&destination=" & miejsce przeznaczenia & "&message=" & wiadomość & "&originator=" & sprawca & "&flash=" & błysnąć
  inny jeżeli zabezpieczać = (1) wtedy
    xml. Otwarty "POCZTA", "https://gw1.aql.com/sms/sms_gw.php", Fałszywy
    xml.setRequestHeader "Zadawalać-Typ", "application/x-www-form-urlencoded"
    xml. Wysyłać "username=" & username & "&password=" & hasło & "&destination=" & miejsce przeznaczenia & "&message=" & wiadomość & "&originator=" & sprawca & "&flash=" & błysnąć
  inny
    wywoławczy senderror (7)
    kończyć jeżeli
   kończyć jeżeli

AQresponse = xml.responseText
Ustalony xml = nic

Końcówka Funkcja

Funkcja senderror (id)
  ustawiać xml = nic
  Wybierać skrzynka (id)

  skrzynka (1)
    response.write
      ("Żadny username precyzować w lub the funkcja wezwanie lub the config sekcja")
    response.end
  skrzynka (2)
    response.write
      ("Żadny hasło precyzować w lub the funkcja wezwanie lub the config sekcja")
    response.end
  skrzynka (3)
    response.write ("Nie ustawiać w the funkcja wezwanie")
    response.end
  skrzynka (4)
    response.write ("Nie, lub błędny metoda precyzować")
    response.end
  skrzynka (5)
    response.write ("Nieważny położenie dla Błyskowy wiadomość flaga, musieć (1) lub (0)")
    odpowiedź. Końcówka
  skrzynka (6)
    response.write ("Wiadomość być nad 160 przypalać i być sent.")
    response.write ("Ten ostrzeżenie redagować the flaga w "" smslib.asp """)
    response.end
  skrzynka (7)
    response.write ("Invalied położenie dla Bezpiecznie flaga, musieć (1) lub (0)")
    response.end
końcówka wybiórka
końcówka funkcja

%>

Odpowiedź : ASP kod VB 2010

Ono patrzeć jak ten kod być przeniesienie pilot URL.  Z VB.NET 2010, ty móc the System.Net.HttpWebRequest klasa the ten sam skutek.

http://www.worldofasp.net/tut/WebRequest/Working_with_HttpWebRequest_and_HttpWebResponse_in_ASPNET_114.aspx

Pobierać próbki Kod na dlaczego Dane daleki Strona Internetowa using HttpWebRequest
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Import System.IO
Import System.Net

Społeczeństwo Klasowy RemotePost

    '''  
    ''' Poczta pilot URL, i wracać the odpowiedź tekst.
    '''  
    ''' A ważny HTTP url
    ''' The odpowiedź od the daleki strona internetowa
    Społeczeństwo Dzielić Funkcja PostToUrl (ByVal url Sznurek) Sznurek
        Ciemnawy uri Jako Nowy Uri (url)
        Ciemnawy dane Jako Sznurek = "field-keywords=ASP.NET 2.0"
        Jeżeli uri. Plan = uri.UriSchemeHttp Wtedy
            Ćmić prośba Jako HttpWebRequest = HttpWebRequest.Create (uri)
            prośba. Metoda = WebRequestMethods.Http.Post
            request.ContentLength = dane. Długość
            request.ContentType = "application/x-www-form-urlencoded"
            Using pisarz Jako Nowy StreamWriter (request.GetRequestStream)
                pisarz. Pisać (dane)
            Kończyć Using
            Using odpowiedź Jako HttpWebResponse = request.GetResponse ()
                Using czytelnik Jako Nowy StreamReader (response.GetResponseStream ())
                    Powrotny reader.ReadToEnd ()
                Końcówka Using
            Końcówka Using
        Kończyć Jeżeli
        Wracać ""
    Kończyć Funkcja

Kończyć Klasa
Inne rozwiązania  
 
programming4us programming4us