peyman2000
چهارشنبه 06 آبان 1383, 13:54 عصر
من یه فیلد دیگه به نام referral به فرم زیر اضافه کردم ولی نمیدونم علاوه بر تغیراتی که انجام دادم چه تغییراتی دیگه ای باید در confing , addmessage بدم :(
add.asp:
<SCRIPT >
function submitit(){
var name = document.frmEnquiry.name.value
var email = document.frmEnquiry.email.value
var referral = document.frmEnquiry.referral.value
var subject = document.frmEnquiry.subject.value
var message = document.frmEnquiry.message.value
if (name=="" ){
alert("!نام و نام خانوادگی خود را وارد کنید")
document.frmEnquiry.name.focus()
return false
}
if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){
alert("!لطفا پست الکترونیکی خود بصورت صحیح وارد نمایید ");
document.frmEnquiry.email.focus()
return false
}
if (referral=="" ){
alert("!تعداد رفرالی که در خواست کردید را وارد کنید")
document.frmEnquiry.referral.focus()
return false
}
if (subject=="" ){
alert("!بتچ نامبر را وارد کنید")
document.frmEnquiry.subject.focus()
return false
}
if (message=="" ){
alert("!کد مربوط به سایت خود را وارد کنید")
document.frmEnquiry.message.focus()
return false
}
}
</script>
<HTML>
<HEAD>
<meta http-equiv="Content-Language" content="fa">
<TITLE>Forum Messages</TITLE>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<META content="Microsoft FrontPage 5.0" name=GENERATOR>
<meta name="ProgId" content="FrontPage.Editor.Document">
</HEAD>
<BODY>
<p align="right" dir="rtl"><font face="Tahoma" size="2">فیلد های زیر را تکمیل
کنید</font>.</p>
<div align="center">
<center>
<TABLE cellSpacing=0 cellPadding=0 width=985 border=0 style="border-collapse: collapse" bordercolor="#111111" dir="rtl" height="200">
<TBODY>
<TR>
</TD>
<TR>
</TD>
<FORM name="frmEnquiry" onsubmit="return submitit()" action=addmessage.asp method=POST>
<TR>
<TD width=397 align="left" height="25">
<p align="left"><font face="Tahoma" style="font-size: 9pt">
<font color="#FF0000">*</font>نام و نام خانوادگی:</font></TD>
<TD width="586" height="25"><font face="Tahoma" style="font-size: 9pt">
<INPUT class=inputBut maxLength=20 size=23 name=name style="font-family: Tahoma; font-size: 9pt"></font></TD></TD>
<TR>
<TD width="397" align="left" height="26">
<font color="#FF0000" face="Tahoma" style="font-size: 9pt">*</font><font face="Tahoma" style="font-size: 9pt">پست
الکترونیکی:</font></TD>
<TD width="586" height="26"><font face="Tahoma" style="font-size: 9pt">
<INPUT class=inputBut maxLength=28 size=23 name=email dir="ltr" style="font-family: Tahoma; font-size: 9pt"></font></TD></TR>
<tr>
<TD width="397" align="left" height="24">
<font color="#FF0000" face="Tahoma" style="font-size: 9pt">*</font><font face="Tahoma" style="font-size: 9pt">تعداد رفرال:</font></TD>
<TD width="586" height="24"><font face="Tahoma" style="font-size: 9pt">
<INPUT class=inputBut maxLength=28 size=23 name=referral style="font-family: Tahoma; font-size: 9pt"></font></TD>
</tr>
<TD width="397" align="left" height="24">
<font color="#FF0000" face="Tahoma" style="font-size: 9pt">*</font><font face="Tahoma" style="font-size: 9pt">بتچ نامبر:</font></TD>
<TD width="586" height="24"><font face="Tahoma" style="font-size: 9pt">
<INPUT class=inputBut maxLength=28 size=23 name=subject style="font-family: Tahoma; font-size: 9pt"></font></TD>
</tr>
<TR>
<TD width="397" align="left" height="24">
<font color="#FF0000" face="Tahoma" style="font-size: 9pt">*</font><font face="Tahoma" style="font-size: 9pt">کد سایت
:</font></TD>
<TD width="586" height="24"><font face="Tahoma" style="font-size: 9pt">
<TEXTAREA class=inputBut name=message rows=7 wrap=virtual cols=69 size="23" maxlength="20" dir="rtl" style="font-family: Tahoma; font-size: 9pt"></TEXTAREA></font></TD></TD>
<TR>
<TD width="397" align="left" height="1">
<TR>
</TD>
<TR>
<TD
colSpan=2 width="984" align="left" height="45">
<p align="center"><font face="Tahoma" style="font-size: 9pt">
</font>
<INPUT type=submit value=" ارسال " name=submit style="font-family: Tahoma; font-size: 9pt"><font face="Tahoma" style="font-size: 9pt">&nbsp;&nbsp;</font><INPUT type=reset value=مجدد name=reset style="font-family: Tahoma; font-size: 9pt"></FORM></TD></TD></TR></TBODY></TABLE>
</center>
</div>
<TABLE cellSpacing=0 cellPadding=0 width=600 border=0>
<TBODY>
<TR>
<TD></TD></TD></TR></TBODY></TABLE></P>
</font>
</body>
</html>
</BODY></HTML>
addmesesage.asp:
<!--#include file="config.asp"-->
<%
dim name
dim subject
dim referral
dim email
dim content
dim conn
dim rs
dim sql
name = request.form("name")
subject = request.form("subject")
referral = request.form("referral")
email = request.form("email")
content = request.form("message")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT * FROM entries"
rs.Open SQL, Conn, 3,2
rs.AddNew
rs.Fields("name") = name
rs.Fields("subject") = subject
rs.Fields("referral") = referral
rs.Fields("email") = email
rs.Fields("enDate") = now()
rs.Fields("content") = content
rs.Update
response.redirect "index.asp"
%>
confing.asp:
<%
option explicit
dim dsn
dim dsn1
dsn = "DBQ=" & Server.Mappath("members.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
dsn1 = "DBQ=" & Server.Mappath("../members.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Const adUseServer = 2
Const adUseClient = 3
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200
%>
add.asp:
<SCRIPT >
function submitit(){
var name = document.frmEnquiry.name.value
var email = document.frmEnquiry.email.value
var referral = document.frmEnquiry.referral.value
var subject = document.frmEnquiry.subject.value
var message = document.frmEnquiry.message.value
if (name=="" ){
alert("!نام و نام خانوادگی خود را وارد کنید")
document.frmEnquiry.name.focus()
return false
}
if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){
alert("!لطفا پست الکترونیکی خود بصورت صحیح وارد نمایید ");
document.frmEnquiry.email.focus()
return false
}
if (referral=="" ){
alert("!تعداد رفرالی که در خواست کردید را وارد کنید")
document.frmEnquiry.referral.focus()
return false
}
if (subject=="" ){
alert("!بتچ نامبر را وارد کنید")
document.frmEnquiry.subject.focus()
return false
}
if (message=="" ){
alert("!کد مربوط به سایت خود را وارد کنید")
document.frmEnquiry.message.focus()
return false
}
}
</script>
<HTML>
<HEAD>
<meta http-equiv="Content-Language" content="fa">
<TITLE>Forum Messages</TITLE>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<META content="Microsoft FrontPage 5.0" name=GENERATOR>
<meta name="ProgId" content="FrontPage.Editor.Document">
</HEAD>
<BODY>
<p align="right" dir="rtl"><font face="Tahoma" size="2">فیلد های زیر را تکمیل
کنید</font>.</p>
<div align="center">
<center>
<TABLE cellSpacing=0 cellPadding=0 width=985 border=0 style="border-collapse: collapse" bordercolor="#111111" dir="rtl" height="200">
<TBODY>
<TR>
</TD>
<TR>
</TD>
<FORM name="frmEnquiry" onsubmit="return submitit()" action=addmessage.asp method=POST>
<TR>
<TD width=397 align="left" height="25">
<p align="left"><font face="Tahoma" style="font-size: 9pt">
<font color="#FF0000">*</font>نام و نام خانوادگی:</font></TD>
<TD width="586" height="25"><font face="Tahoma" style="font-size: 9pt">
<INPUT class=inputBut maxLength=20 size=23 name=name style="font-family: Tahoma; font-size: 9pt"></font></TD></TD>
<TR>
<TD width="397" align="left" height="26">
<font color="#FF0000" face="Tahoma" style="font-size: 9pt">*</font><font face="Tahoma" style="font-size: 9pt">پست
الکترونیکی:</font></TD>
<TD width="586" height="26"><font face="Tahoma" style="font-size: 9pt">
<INPUT class=inputBut maxLength=28 size=23 name=email dir="ltr" style="font-family: Tahoma; font-size: 9pt"></font></TD></TR>
<tr>
<TD width="397" align="left" height="24">
<font color="#FF0000" face="Tahoma" style="font-size: 9pt">*</font><font face="Tahoma" style="font-size: 9pt">تعداد رفرال:</font></TD>
<TD width="586" height="24"><font face="Tahoma" style="font-size: 9pt">
<INPUT class=inputBut maxLength=28 size=23 name=referral style="font-family: Tahoma; font-size: 9pt"></font></TD>
</tr>
<TD width="397" align="left" height="24">
<font color="#FF0000" face="Tahoma" style="font-size: 9pt">*</font><font face="Tahoma" style="font-size: 9pt">بتچ نامبر:</font></TD>
<TD width="586" height="24"><font face="Tahoma" style="font-size: 9pt">
<INPUT class=inputBut maxLength=28 size=23 name=subject style="font-family: Tahoma; font-size: 9pt"></font></TD>
</tr>
<TR>
<TD width="397" align="left" height="24">
<font color="#FF0000" face="Tahoma" style="font-size: 9pt">*</font><font face="Tahoma" style="font-size: 9pt">کد سایت
:</font></TD>
<TD width="586" height="24"><font face="Tahoma" style="font-size: 9pt">
<TEXTAREA class=inputBut name=message rows=7 wrap=virtual cols=69 size="23" maxlength="20" dir="rtl" style="font-family: Tahoma; font-size: 9pt"></TEXTAREA></font></TD></TD>
<TR>
<TD width="397" align="left" height="1">
<TR>
</TD>
<TR>
<TD
colSpan=2 width="984" align="left" height="45">
<p align="center"><font face="Tahoma" style="font-size: 9pt">
</font>
<INPUT type=submit value=" ارسال " name=submit style="font-family: Tahoma; font-size: 9pt"><font face="Tahoma" style="font-size: 9pt">&nbsp;&nbsp;</font><INPUT type=reset value=مجدد name=reset style="font-family: Tahoma; font-size: 9pt"></FORM></TD></TD></TR></TBODY></TABLE>
</center>
</div>
<TABLE cellSpacing=0 cellPadding=0 width=600 border=0>
<TBODY>
<TR>
<TD></TD></TD></TR></TBODY></TABLE></P>
</font>
</body>
</html>
</BODY></HTML>
addmesesage.asp:
<!--#include file="config.asp"-->
<%
dim name
dim subject
dim referral
dim email
dim content
dim conn
dim rs
dim sql
name = request.form("name")
subject = request.form("subject")
referral = request.form("referral")
email = request.form("email")
content = request.form("message")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT * FROM entries"
rs.Open SQL, Conn, 3,2
rs.AddNew
rs.Fields("name") = name
rs.Fields("subject") = subject
rs.Fields("referral") = referral
rs.Fields("email") = email
rs.Fields("enDate") = now()
rs.Fields("content") = content
rs.Update
response.redirect "index.asp"
%>
confing.asp:
<%
option explicit
dim dsn
dim dsn1
dsn = "DBQ=" & Server.Mappath("members.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
dsn1 = "DBQ=" & Server.Mappath("../members.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Const adUseServer = 2
Const adUseClient = 3
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200
%>