asp ile sunucuya html dosyası açtırmak.

24-07-2014, 12:50:37

mesela bir kutu olacak o kutucuğa ahmet yazıp göndere basınca sunucuda ahmet.html açılacak yapılabilirmi hangi kodla yaparım arkadaşlar?

24-07-2014, 12:53:29

#2

CemUter

normal link ver olur

24-07-2014, 13:02:01

#3

moss218

Bunu asp değil js ile de yapabilirsiniz. Örnek olarak ASP ile form göndererek yaptım:

<form action="gonder.asp" method="post">
<input type="text" name="isim" required /><input type="submit" value="Gönder" />
</form>

gonder.asp

If Request.Form("isim")<>"" Then Response.Redirect Request.Form("isim")&".html"

24-07-2014, 13:11:42

#4

thecoder

moss218 adlı üyeden alıntı: mesajı görüntüle

Bunu asp değil js ile de yapabilirsiniz. Örnek olarak ASP ile form göndererek yaptım:

<form action="gonder.asp" method="post">
<input type="text" name="isim" required /><input type="submit" value="Gönder" />
</form>

gonder.asp

If Request.Form("isim")<>"" Then Response.Redirect Request.Form("isim")&".html"

gonder.asp adında dosya açıp direk kodu yazdım

If Request.Form("isim")<>"" Then Response.Redirect Request.Form("isim")&".html"

bu çıktı hocam gönder asp nin tam kodlarını yazarmısınız ben biraz zayıfımda.

24-07-2014, 13:13:01

#5

moss218

thecoder adlı üyeden alıntı: mesajı görüntüle

gonder.asp adında dosya açıp direk kodu yazdım

If Request.Form("isim")<>"" Then Response.Redirect Request.Form("isim")&".html"

bu çıktı hocam gönder asp nin tam kodlarını yazarmısınız ben biraz zayıfımda.

<%
If Request.Form("isim")<>"" Then Response.Redirect Request.Form("isim")&".html"
%>

Sanırım etiketleri açmadınız

24-07-2014, 13:17:00

#6

thecoder

moss218 adlı üyeden alıntı: mesajı görüntüle

<%
If Request.Form("isim")<>"" Then Response.Redirect Request.Form("isim")&".html"
%>

Sanırım etiketleri açmadınız

deneme.html diye boş bir sayfa açıldı ama sunucuya html dosyası oluşmadı

sunucuda bir dosya oluşmasını istiyorum kullanıcı sonradan gelip o dosyaya baksın diye

24-07-2014, 13:23:24

#7

moss218

thecoder adlı üyeden alıntı: mesajı görüntüle

deneme.html diye boş bir sayfa açıldı ama sunucuya html dosyası oluşmadı

sunucuda bir dosya oluşmasını istiyorum kullanıcı sonradan gelip o dosyaya baksın diye

Dosya oluşturma kısmını anlamamıştım. gonder.asp şu şekilde değiştirin:

<%
isim=Request.Form("isim")
If isim="" Then
Response.Write "Lütfen isim yazın."
Else
Dim objFso
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
If Not objFso.FileExists(Server.MapPath("/"&isim&".html")) Then
Dim objHtml
Set objHtml = objFso.CreateTextFile(Server.MapPath("/"&isim&".html"), True)
objHtml.Writeline "içerik"
objHtml.Close
Response.Redirect "/"&isim&".html"
Else
Response.Write "Bu sayfa zaten var"
End If
Set objFso=Nothing
End If
%>

Ayrıca içerik yazan yere dosya içeriğinde ne olacaksa onu yazabilirsiniz.

24-07-2014, 13:26:11

#8

thecoder

moss218 adlı üyeden alıntı: mesajı görüntüle

Dosya oluşturma kısmını anlamamıştım. gonder.asp şu şekilde değiştirin:

<%
isim=Request.Form("isim")
If isim="" Then
Response.Write "Lütfen isim yazın."
Else
Dim objFso
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
If Not objFso.FileExists(Server.MapPath("/"&isim&".html")) Then
Dim objHtml
Set objHtml = objFso.CreateTextFile(Server.MapPath("/"&isim&".html"), True)
objHtml.Writeline "içerik"
objHtml.Close
Response.Redirect "/"&isim&".html"
Else
Response.Write "Bu sayfa zaten var"
End If
Set objFso=Nothing
End If
%>

Ayrıca içerik yazan yere dosya içeriğinde ne olacaksa onu yazabilirsiniz.

peki hocam bu asp ye spam koruması olarak ne yapabiliriz?

24-07-2014, 13:28:50

#9

moss218

thecoder adlı üyeden alıntı: mesajı görüntüle

peki hocam bu asp ye spam koruması olarak ne yapabiliriz?

Forma Captcha entegre edebilirsiniz.
Bunu kullanabilirsiniz.