Fråga : ASP kodifierar till VB 2010

Kan något råda hur man konverterar detta kodifiera till VB 2010? > för

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:

" codeBody " ' skriva class= " kan kallas via <%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 1252 " %> <% appellsendsms (”447740123456”, 1, ”123 som ABC TESTAR, testar”, "", ""), om AQresponse <>"" därefter response.write (AQresponse) annars response.write (”FEL”) avsluta om %> 'Faktiskt skriva följer. Detta kunde förläggas i ett separat sparar, 'liksom smslib.aspen spara beskrivit över <% response.buffer = true 'Ta copyrightt på 2002 (aq) Ltd. 'Skriva kräver del- Microsoft XMLHTTP Dunkel metod som säkras, error_on_length, username, lösenord, AQresponse 'Redigerbara variabler för användare säkrat = 0 'uppsättning till endera 1 för SSL-anslutning 'eller 0 för det normalaanslutning. error_on_length = 1 ”huruvida som ska ges, och fel på meddelanden över 160 chracters. ” 1 för riktigt, 0 för falskt. username = ”testusername” 'din aql-username, kan antingen vara fastställd här 'eller gjort på a per appellbas från fungera. lösenordet = ”testpassworden” 'ditt aql-lösenord, kan antingen vara fastställdt här 'eller gjort på a per appellbas från fungera. 'Redigera inte nedanfört här, om inte du vet vad du gör! Fungera sendsms (destination, pråligt, meddelande, f_username, f_password, initiativtagaren) om ogiltig f_username<> eller f_username<>"" därefter username = f_username avsluta om om ogiltig f_password<> eller f_password<>"" därefter lösenord = f_password avsluta om om username = "" därefter appellsenderror (1) om annars lösenord = "" därefter appellsenderror (2) om annars destination = "" därefter appellsenderror (3) annars, om len (meddelandet) > 160 och error_on_length = 1 därefter appellsenderror (6) om annars prålig > 1 eller exponerar < 0 därefter appellsenderror (5) avsluta om avsluta om avsluta om avsluta om avsluta om Dunkel objXMLHTTP, xml meddelandet = byter ut (meddelandet, ””, ”+”) Fastställd xml = Server.CreateObject (”Microsoft.XMLHTTP”) om säkrat = ogiltig eller säkrad = 0 därefter xml. Öppet ”POSTA”, ”http://gw1.aql.com/sms/sms_gw.php” som är falsk xml.setRequestHeader ”Tillfredsställa-Skrivar”, ”application/x-www-form-urlencoded”, xml. Överför ”username=” & username & ”&password=” & lösenordet & ”&destination=” & destinationen & ”&message=” & meddelandet & ”&originator=” & initiativtagaren & ”&flash=” & exponera om annars säkrad = 1 därefter xml. Öppet ”POSTA”, ”https://gw1.aql.com/sms/sms_gw.php” som är falsk xml.setRequestHeader ”Tillfredsställa-Skrivar”, ”application/x-www-form-urlencoded”, xml. Överför ”username=” & username & ”&password=” & lösenordet & ”&destination=” & destinationen & ”&message=” & meddelandet & ”&originator=” & initiativtagaren & ”&flash=” & exponera annars appellsenderror (7) avsluta om avsluta om AQresponse = xml.responseText Fastställd xml = ingenting Avsluta fungerar Fungera senderroren (ID) fastställd xml = ingenting Välj fallet (ID) case (1) response.write (”Ingen username specificerades i endera fungeraappellen, eller configna delar upp”), response.end fall (2) response.write (”Inget lösenord specificerades i endera fungeraappellen, eller configna delar upp”), response.end fall (3) response.write (”nr.en som ska numreras, var fastställd i fungeraappellen”), response.end fall (4) response.write (”nr. eller specificerad oriktig metod”) response.end fall (5) response.write (”den ogiltiga inställningen för pråligt meddelande sjunker, måste vara 1 eller 0”), svar. Avsluta case (6) response.write (”meddelandet var över 160 rödingar och inte överfördes. ”) response.write (”att inaktivera denna varning redigera sjunka i """ för "" smslib.asp), response.end case (7) response.write (”den Invalied inställningen för säkert sjunker, måste vara 1 eller 0”), response.end avsluta valt avsluta fungerar %> " klar "

Svar : ASP kodifierar till VB 2010

Det ser något liknande som kodifierar är utnämning till en fjärrkontrollURL.  Med VB.NET 2010, du kunde använda System.Net.HttpWebRequesten klassificerar för att uppnå samma verkställer.

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

Ta prov kodifierar på hur man postar data till den avlägsna rengöringsduksidan 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:

Importer System.IO Importer System.Net Allmänhet klassificerar RemotePost ''', ''' Postar till en fjärrkontrollURL och går svarstexten tillbaka. ''', Giltig HTTP-url för ''' A ''' Svaret från den avlägsna rengöringsduksidan Delad allmänhet fungerar PostToUrl (ByVal url som stränger) som stränger Dunkel uri som nya Uri (url) Dunkla data som stränger = ”field-keywords=ASP.NET 2.0”, Om uri. Intrig = uri.UriSchemeHttp därefter Dunkel förfrågan som HttpWebRequest = HttpWebRequest.Create (urien) förfrågan. Metod = WebRequestMethods.Http.Post request.ContentLength = data. Längd request.ContentType = ”application/x-www-form-urlencoded”, Using författare som nya StreamWriter (request.GetRequestStream) författare. Skriv (data) Avsluta Using Using svar som HttpWebResponse = request.GetResponse () Using avläsare som nya StreamReader (response.GetResponseStream ()) Återgånga reader.ReadToEnd () Avsluta Using Avsluta Using Avsluta om Gå "" tillbaka, Avsluta fungerar Avsluta klassificerar