Arkadaşlar yeni bir site çalışmam var.Yalnız birkaç birşey tanıtımı yapılıcak ve o tanıtımların altına yorum yapılabilicek.Ama sitede üyelik falan yok ziyaretçi direk yorum yapıcak.Bunu nasıl yapabilirim php,asp ikisede olur.
formun
Alıntı
<form method="POST" action="yorum_kaydet.asp" name="form" onSubmit="submitonce(this)" >
<p>
<input type="hidden" name="hid" size="1" value="<%= rshaber("hid") %>"></p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="60%" id="AutoNumber6">
<tr>
<td width="100%" colspan="2">
<p align="center">
<script language="JavaScript">
//Function to check form is filled in correctly before submitting
function CheckForm () {
//Initialise variables
var errorMsg = "";
var errorMsgLong = "";
//Check for a isim
if (document.form.isim.value==""){
errorMsg += "\nİsim \t- İsminizi yazınız.";
}
//If an e-mail is entered check that the mail address is valid
if (document.form.mail.value.length >0 && (document.form.mail.value.indexOf("@",0) == -1||document.form.mail.value.indexOf(".",0) == -1)) {
errorMsg +="\nMail\t- Mail adresinizi düzgün yazınız.";
}
//Check for a yorum
if (document.form.yorum.value==""){
errorMsg += "\nYorum \t- Yorumunuzu yazınız.";
}
//If there is aproblem with the form then display an error
if ((errorMsg != "") || (errorMsgLong != "")){
msg = "Aşağıdaki alanların düzeltilmesi gereklidir:\n";
errorMsg += alert(msg + errorMsg + "\n" + errorMsgLong);
return false;
}
//Reset the submition action
document.form.action = "yorum_kaydet.asp"
return true;
}
</script>
<b>Yorum
formu:<br>
</b></td>
</tr>
<tr>
<td width="50%">İsim: </td>
<td width="50%"> <input type="text" name="isim" size="20">*</td>
</tr>
<tr>
<td width="50%">Mail: </td>
<td width="50%"> <input type="text" name="mail" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top">Yorum:<br>
</td>
<td width="50%">
<font face="Verdana">
<!--webbot bot="Validation" i-maximum-length="800" --><textarea rows="5" name="yorum" cols="30" onKeyUp="textKey(this.form)" ></textarea></font>*<br>
<script LANGUAGE="JavaScript1.2">
function calcCharLeft(f) {
maxLength = 800
if (f.yorum.value.length > maxLength) {
f.yorum.value = f.yorum.value.substring(0,maxLength)
charleft = 0
} else {
charleft = maxLength - f.yorum.value.length
}
f.say.value = charleft
}
function textKey(f) {
supportsKeys = true
calcCharLeft(f)
}
</script>Kalan karakter:
<input type="text" name="say" size="1" disabled value="800" ></td>
</tr>
<tr>
<td width="50%"> </td>
<td width="50%">
<p align="right">
<input type="submit" name="Submit" value="Gönder" onClick="return CheckForm();" /><font face="Verdana"><input type="reset" value="Temizle" name="B3"></font></td>
</tr>
<tr>
<td width="100%" colspan="2"><br>
* Doldurulması zorunlu alanlar.<br>
Html kod kullanılamaz.
IP adresiniz kaydedilecektir.</td>
</tr>
</table>
</center>
</div>
</form>
</td>
</tr>
</table>
<script>
function submitonce(theform){
//if IE 4+ or NS 6+
if (document.all||document.getElementById){
//screen thru every element in the form, and hunt down "submit" and "reset"
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.t ype.toLowerCase()=="reset")
//disable em
tempobj.disabled=true
}
}
}
</script>
</table>
yorum kaydet sayfan
Alıntı
<%
hid = Request.Form("hid")
if Request.Cookies("Enigma_Haber")(hid) = "yorumlandi" then %>
<% msg = "Bu Yazıya daha önce yorum yazdınız.<br><br> Daha sonra tekrar deneyiniz." %>
<%
else
isim= TRIM(Server.HTMLEncode(request.form("isim")))
mail= TRIM(Server.HTMLEncode(request.form("mail")))
yorum= TRIM(Server.HTMLEncode(request.form("yorum")))
if instr(yorum, " ") = 0 then
Text= yorum
YeniText=""
i=1
counter=0
while i<=Len(Text)
if Mid(Text,i,4)="<br>" then
YeniText=YeniText & Mid(Text,i,1)
counter=0
elseif counter<50 then
YeniText=YeniText & Mid(Text,i,1)
else
YeniText=YeniText & "<br>" & Mid(Text,i,1)
counter=0
end if
counter=counter+1
i=i+1
wend
yorum = yenitext
end if
Set rs2yorum = Server.CreateObject("ADODB.Recordset")
nere = "Select * From yorum"
rs2yorum.Open nere, bag, 1, 3
rs2yorum.AddNew
rs2yorum("isim") = isim
rs2yorum("mail") = mail
rs2yorum("yorum")= yorum
rs2yorum("hid")= hid
rs2yorum("IP")= Request.ServerVariables("REMOTE_ADDR")
rs2yorum.Update
Response.Cookies("Enigma_Haber")(hid) = "yorumlandi"
Response.Cookies("Enigma_Haber").Expires = NOW()+rsayar("sm_dakika")
msg = "Yorum işlemi tamamlandı.<br><br>Yorumunuz onaylandıktan sonra sitedeki yerini alacaktır."
end if
%>
kafana göre düzelte bilirsin asp dir çalışıyor