Prøve med dette .asp script, den fandt jeg engang jeg surfede omkring og har brugt den på min egen hjemmeside. Jeg har lagt 2 forskellige scripts op den første kan sende almindelige beskeder til alle mobiltelefoner og den anden kan sende lange beskeder som den selv automatisk deler op. Begge sender med AspMail hvis du ikke har denne service kan du ændre lidt i scriptet, ellers skulle det være lige til. Du skal selvfølgelig også ændre disse script med dine data.
-------------------------------> Script 1 <--------------------------------
<!-- Start javascript til at beregne antal tegn -->
<script type="text/javascript">
function BeskedLaengde( Formen ) {
b1 = Formen.besked.value.length
a1 = Formen.afsender.value.length
if( a1 > 0 ) {
b1 += a1 + 5
}
return b1
}
function updatetegntilbage( Formen ) {
tegntilbage = 160 - BeskedLaengde( Formen )
Formen.tegntilbage.value = tegntilbage
}
</script>
<!-- Slut javascript -->
</head>
<body>
<%
' Hvis formen ikke er submittet vises formular
If Request.Form("nummer") = "" Then
%>
<h1>Send SMS-besked</h1>
<form action="<% =Request.Servervariables("SCRIPT_NAME") %>" method="post">
<label for="t1">Modtagerens mobilnummer:</label><br />
<input size="20" type="text" name="nummer" id="t1" /><br />
<label for="t2">Dit navn, e-mail eller nummer:</label><br />
<input size="20" type="text" name="afsender" id="t2"
onkeyup="updatetegntilbage(this.form)"
onchange="updatetegntilbage(this.form)"
onkeypress="updatetegntilbage(this.form)" /><br />
<label for="t3">Besked:</label><br />
<textarea name="besked" rows="5" id="t3" cols="30"
onkeyup="updatetegntilbage(this.form)"
onchange="updatetegntilbage(this.form)"
onkeypress="updatetegntilbage(this.form)"></textarea><br />
<input type="text" name="tegntilbage" size="3" value="160"
onfocus="blur()" id="t4" /> anslag tilbage<br />
<input type="submit" value="Send besked" />
</form>
<%
' Ellers sendes SMS
Else
' Fjern alle mellemrum i mobilnummeret
intNummer = Replace(Request.Form("nummer")," ","")
' Endelser for de enkelte udbydere
strMobilix = "@sms.mobilix.dk"
strSonofon = "@note.sonofon.dk"
strTelia = "@gsm1800.telia.dk"
strTDC = "@sms.tdm.dk"
strTelefona = "@sms.tdm.dk"
' De første 4 cifre af nummeret til at bestemme udbyder
int4cifre = int(left(intNummer,4))
' Udfra nummerserien bestemmes udbyder (og dermed endelsen)
if int4cifre => 2010 and int4cifre =< 2059 then
strUdbyder = strTDC
elseif int4cifre => 2060 and int4cifre =< 2099 then
strUdbyder = strSonofon
elseif int4cifre => 2110 and int4cifre =< 2199 then
strUdbyder = strTDC
elseif int4cifre => 2210 and int4cifre =< 2299 then
strUdbyder = strSonofon
elseif int4cifre => 2310 and int4cifre =< 2399 then
strUdbyder = strTDC
elseif int4cifre => 2410 and int4cifre =< 2499 then
strUdbyder = strTDC
elseif int4cifre => 2510 and int4cifre =< 2539 then
strUdbyder = strSonofon
elseif int4cifre => 2610 and int4cifre =< 2699 then
strUdbyder = strMobilix
elseif int4cifre => 2710 and int4cifre =< 2799 then
strUdbyder = strMobilix
elseif int4cifre => 2810 and int4cifre =< 2899 then
strUdbyder = strTelia
elseif int4cifre => 2910 and int4cifre =< 2990 then
strUdbyder = strTDC
elseif int4cifre => 2991 and int4cifre =< 2992 then
strUdbyder = strTelefona
elseif int4cifre => 2993 and int4cifre =< 2999 then
strUdbyder = strTDC
elseif int4cifre => 3010 and int4cifre =< 3099 then
strUdbyder = strTDC
elseif int4cifre => 4010 and int4cifre =< 4049 then
strUdbyder = strTDC
elseif int4cifre => 4050 and int4cifre =< 4099 then
strUdbyder = strSonofon
elseif int4cifre => 5000 and int4cifre =< 5999 then
strUdbyder = strTDC
end if
' Den færdige SMS-adresse
SMSadresse = intNummer & strUdbyder
' ----------------------------------------
' Udskift eventuelt denne kode hvis anden mailkomponent benyttes
' Start send e-mail med AspMail
' ----------------------------------------
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = Request.Form("afsender")
Mailer.FromAddress= "sms@domain.dk"
Mailer.RemoteHost = "din-mailserver.dk"
Mailer.AddRecipient SMSadresse, SMSadresse
Mailer.Subject = ""
Mailer.BodyText = Request.Form("besked")
if Mailer.SendMail then
Response.Write "<h1>SMS er afsendt til " & SMSadresse & "</h1>"
else
Response.Write "<h1>Der skete en fejl: " & Mailer.Response & "</h1>"
end if
Set Mailer = Nothing
' ----------------------------------------
' Slut send e-mail med AspMail
' ----------------------------------------
End If
%>
-------------------------------> Script 2 <--------------------------------
<%
' Hvis formen ikke er submittet vises formular
If Request.Form("nummer") = "" Then
%>
<h1>Send SMS-besked</h1>
<form action="<% =Request.Servervariables("SCRIPT_NAME") %>" method="post">
<fieldset>
<legend>Send SMS-besked</legend>
<label for="t1">Modtagerens mobilnummer:</label><br />
<input size="20" type="text" name="nummer" id="t1" class="form" /><br />
<label for="t2">Dit navn, e-mail eller nummer:</label><br />
<input size="20" type="text" name="afsender" id="t2" class="form" /><br />
<label for="t3">Besked:</label><br />
<textarea name="besked" rows="5" id="t3" cols="30" class="form"></textarea><br />
<input type="submit" value="Send besked" />
</fieldset>
</form>
<%
' Ellers sendes SMS
Else
' Fjern alle mellemrum i mobilnummeret
intNummer = Replace(Request.Form("nummer")," ","")
' Endelser for de enkelte udbydere
strMobilix = "@sms.mobilix.dk"
strSonofon = "@note.sonofon.dk"
strTelia = "@gsm1800.telia.dk"
strTDC = "@sms.tdm.dk"
strTelefona = "@sms.tdm.dk"
' De første 4 cifre af nummeret til at bestemme udbyder
int4cifre = int(left(intNummer,4))
' Udfra nummerserien bestemmes udbyder (og dermed endelsen)
if int4cifre => 2010 and int4cifre =< 2059 then
strUdbyder = strTDC
elseif int4cifre => 2060 and int4cifre =< 2099 then
strUdbyder = strSonofon
elseif int4cifre => 2110 and int4cifre =< 2199 then
strUdbyder = strTDC
elseif int4cifre => 2210 and int4cifre =< 2299 then
strUdbyder = strSonofon
elseif int4cifre => 2310 and int4cifre =< 2399 then
strUdbyder = strTDC
elseif int4cifre => 2410 and int4cifre =< 2499 then
strUdbyder = strTDC
elseif int4cifre => 2510 and int4cifre =< 2539 then
strUdbyder = strSonofon
elseif int4cifre => 2610 and int4cifre =< 2699 then
strUdbyder = strMobilix
elseif int4cifre => 2710 and int4cifre =< 2799 then
strUdbyder = strMobilix
elseif int4cifre => 2810 and int4cifre =< 2899 then
strUdbyder = strTelia
elseif int4cifre => 2910 and int4cifre =< 2990 then
strUdbyder = strTDC
elseif int4cifre => 2991 and int4cifre =< 2992 then
strUdbyder = strTelefona
elseif int4cifre => 2993 and int4cifre =< 2999 then
strUdbyder = strTDC
elseif int4cifre => 3010 and int4cifre =< 3099 then
strUdbyder = strTDC
elseif int4cifre => 4010 and int4cifre =< 4049 then
strUdbyder = strTDC
elseif int4cifre => 4050 and int4cifre =< 4099 then
strUdbyder = strSonofon
elseif int4cifre => 5000 and int4cifre =< 5999 then
strUdbyder = strTDC
end if
' Den færdige SMS-adresse
strModtagerMail = intNummer & strUdbyder
strAfsenderMail = "navn@domæne.dk" ' Indsæt din egen e-mail i denne linie
' Hent værdier fra fomularen og find længden
strAfsenderNavn = Request.Form("afsender")
strBesked = Request.Form("besked")
' Split beskeden og opdel i flere delbeskeder
arrBesked = Split(strBesked," ")
For i = 0 to Ubound(arrBesked)
intLenMessage = intLenMessage + (Len(arrBesked(i)) + 1)
If intLenMessage < (150 - (Len(strAfsenderNavn & strAfsenderMail))) Then
strDelBesked = strDelBesked & arrBesked(i) & " "
Else
arrDelBeskeder = arrDelBeskeder & "###" & strDelBesked
intLenMessage = intLenMessage - (Len(strDelBesked))
strDelBesked = arrBesked(i) & " "
End If
Next
arrDelBeskeder = arrDelBeskeder & "###" & strDelBesked
arrDelBeskeder = Split(arrDelBeskeder,"###")
intBeskeder = Ubound(arrDelBeskeder)
For i = 1 to intBeskeder
' ----------------------------------------
' Udskift eventuelt denne kode hvis anden mailkomponent benyttes
' Start send e-mail med AspMail
' ----------------------------------------
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = strAfsenderNavn
Mailer.FromAddress= strAfsenderMail
Mailer.RemoteHost = "din-mailserver.dk"
Mailer.AddRecipient strModtagerMail, strModtagerMail
Mailer.Subject = "Nr. " & i & "/" & intBeskeder
Mailer.BodyText = arrDelBeskeder(i)
if Mailer.SendMail then
strStatus = strStatus & "<dt>Besked nr. " & i & " af " & intBeskeder
strStatus = strStatus & " - afsendt til " & strModtagerMail & ":</dt>"
strStatus = strStatus & "<dd style='color:green'>" & arrDelBeskeder(i) & "</dd>"
else
strStatus = strStatus & "<dt>Besked nr. " & i & " af " & intBeskeder
strStatus = strStatus & " - der skete en fejl: " & Mailer.Response & "</dt>"
strStatus = strStatus & "<dd style='color:red'>" & arrDelBeskeder(i) & "</dd>"
end if
Set Mailer = Nothing
' ----------------------------------------
' Slut send e-mail med AspMail
' ----------------------------------------
Next
Response.Write "<h1>Status</h1>"
Response.Write "<dl>" & strStatus & "</dl>"
End If
%>
Ny bruger
Nybegynder
Opret
Preview
