צפיות
תשובות
שליחת פרמטר מטופס איך אני עושה זאת?
תראו חברים אני בונה מערכת תגובות קצת מיושנת אבל לא חשוב אני מתחיל אז אני צריך את עזרתכם בבקשה הנה הבעיה אני לא יודע איך לשלוח לדף asp פרמטר דרך ה action של הטופס הנה הקוד הוא:
<%
dim conn, rs, del
code=Request.QueryString
Set conn = server.CreateObject("ADODB.connection")
conn.Provider="Microsoft.jet.OLEDB.4.0"
conn.Open Server.MapPath("db1.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from report where ID=" & code,conn,3,3
%>
<body background="chai.jpg">
<h2><centeR><font color=white>
<%=rs("id")%>
הוספת תגובה לכתבה
<BR>
<br>
</h2>
התגובה תהיה באורך של עד 5
0 תווים ולא היא לא תישלח
<form id="new2" name="new2" action="newtg.asp?<%=rs("id")%>">
<table align=center border=3 width=100 height=100>
<tr align=right>
<td bgcolor="yellow">תוכן התגובה</td>
</tr>
<tr align=right>
<td>
<TEXTAREA ROWS=10 COLS=45 NAME="cont3" id="cont3">
</TEXTAREA>
</td>
</tr>
<tr align=right>
<td bgcolor="yellow">שם המגיב</td>
</tr>
<tr align=right>
<td>
<input type="text" name="txtname" id="txtname">
</td>
</tr>
</table>
<br><BR>
<input type="button" id="btn" name="btn" value="שלח ד"ש">
</form>
<BR><BR>
</html>
<script language="vbscript">
sub btn_onclick
dim name, name2
name = new2.cont3.value
name2 = new2.txtname.value
if name = empty then
msgbox ("נא הכנס תוכן"),vbinformation,"תוכן"
elseif name2 = empty then
msgbox ("נא הכנס שם"),vbinformation,"שם"
else
new2.submit
end if
end sub
</script>
בבקשה תעזרו לי
4 תשובות
סליחה על הבלאגן!
דרוש קוד רלוונטי
שגיאה (אם יש) ומה לא הצלחת.
וקרא כיצג מציגים שאלה.
אתה צריך לכתוב את הקישור newtg ככה:
newtg.asp?fff=<%……..
זתומרת לתת משתנה שיקבל את הערך שאתה רוצה לשלוח לדף.
ואז בדף ששולחים אליו לקבל את המשתנה כ query string
בשביל מה לשלוח נתון דרך ה Action?
הרבה יותר נכון יהיה להוסיף פשוט אלמנט hidden לטופס ואיתו לשלוח את הנתון.