|
1 :םויה תוסינכ
36 :שדוחה תוסינכ
1 :ןיילנוא םישלוג
|
|
|
ASPב םיטפירקס
|
! םיחרוא רפס
|
קוטשניב רוא :רבחמה םש
http://www.israelfonts.net :תיב-רתא
:תורעה\תויחנה
םשב ותוא רומשתו קיר ץבוק ךותל אבה דוקה תא קתעה
gb.asp
הלימה תא דוקה ךותב ונש ןכמ רחאלו
user
םש לכב תחא ורצ םכל ןיא םא)םכלש םיחרוא רפסה תייקתל
תא ונשתו ורחבתש
user
ץבוק ורצ היקיתה ךוץבו ,היקיתה לש םשל
txt
םשב
GoldBook.txt
!!!ונהת
:דוק
|
<%
if request.form("Action") <> "" then
set objFSO = createObject("Scripting.FileSystemObject")
set GoldBook = objFSO.OpenTextFile(server.mappath("/user/GoldBook.txt"),8) Nom = Request.form("nom")
Email = Request.form("Email")
commentaire = replace(Request.form("commentaire"),"'","´")
NouvelleEntree1 = Commentaire & "<p><I><FONT SIZE=-1>"
NouvelleEntree2 = "- by <A HREF='mailto:" & Email & "'>" & Nom &"</a> on " & date & "</FONT></I>"
Goldbook.writeline (NouvelleEntree1)
Goldbook.writeblanklines (1)
Goldbook.writeline (NouvelleEntree2)
Goldbook.writeline ("<Hr>")
Session("signed") = 1
end if
%>
<html>
<head>
<meta Name="Author" content="Or">
<title></title>
</head>
<>
<body>
<hr>
<% if session("signed") = "" then %>
<form ACTION="gb.asp" METHOD="POST" name="GuestForm">
<p>Your Name : <input TYPE="text" NAME="Nom" size="20"><br>
Your E-mail : <input TYPE="text" NAME="Email" size="20"><br>
Your Comment : <textarea NAME="Commentaire" ROWS="4" COLS="40"></textarea><br>
<input TYPE="submit" VALUE="Sign" name="Action"> </p>
</form>
<% end if %>
<!--#include virtual="/user/Goldbook.txt"-->
</body>
</html>
|
|
|
הרזח >>
|
... |