צפיות
תשובות
חלק מהנתונים של המשתמש אינם נשמרים
שלום
יש לי בעיה קטנה
בנית טופס הרשמה בשפת ASP והנתונים נשמרים באקסס
הבעיה היא שכאשר משתמש נרשם לאתר שלי לא כל הנתונים נשמרים
מה לעשות
הקוד של הדף ששומר את הנתונים
הקוד של הדף ששומר את הנתונים
<%
Dim conn, SQLstr
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DATA"
SQLstr="INSERT INTO People (USER,password,NAME,Last_name,ID,address,CITY,zip_code,telephone,cellular,email) VALUES ('"
SQLstr = SQLstr & Request("USER") & "','"
SQLstr = SQLstr & Request("Password") & "','"
SQLstr = SQLstr & Request("NAME") & "','"
SQLstr = SQLstr & Request("Last_name") & "','"
SQLstr = SQLstr & Request("ID") & "','"
SQLstr = SQLstr & Request("address") & "','"
SQLstr = SQLstr & Request("CITY") & "','"
SQLstr = SQLstr & Request("zip_code") & "','"
SQLstr = SQLstr & Request("telephone") & "','"
SQLstr = SQLstr & Request("cellular") & "','"
SQLstr = SQLstr & Request("email") & "')"
conn.Execute SQLstr
conn.Close
Set conn = Nothing
%>
תודה
6 תשובות
יכול להיות ש…
שרשמת גרשיים בהודעה שאותה אתה רוצה להכניס למסד הנתונים?
שם משתמ סיסמא ודואל באנגלית
שלום
רציתי לשאול אייך אני בודק בשפת ASP או JAVA SCRIPT אם המשתמש הקיש שם משתמש סיסמא ודואל באנגלית
תודה
שם משתמש סיסמא ודואל באנגלית
שלום
רציתי לשאול אייך אני מונע מהמשתמש בשפת ASP או JAVA SCRIPTלהירשם עם שם משתמש סיסמא בעיברית
ואייך אני בודק שהמייל הוא באנגלית
תודה
בעיה בעדכון הנתונים
רציתי לשאול אם מישהו יכול לומר לי מה הבעיה בקוד הבא שהמשתמש לא מצליח לעדכן את הנתונים :
|
רציתי לשאול אם מישהו יכול לומר לי מה הבעיה בקוד הבא שהמשתמש לא מצליח לעדכן את הנתונים :
<%@language="VBSCRIPT" CODEPAGE="1255"%>
<html>
<head>
<title>עריכת רשומה</title>
</head>
<body dir="rtl">
<basefont face="Arial" size="2">
<h3 dir="rtl" align="center">עריכת רשומה</h3><br>
<%
Dim CODE, Edit, NAME, email
Dim Conn, rs, SQL,fconStr
CODE = Request.QueryString("CODE")
Edit = Request.QueryString("Edit")
Set Conn = Server.CreateObject("ADODB.Connection")
Source=" & Server.MapPath("outpost.mdb")
fconStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="
con = fconStr & Server.MapPath("outpost.mdb")
conn.Open con
Set rs = Server.CreateObject("ADODB.RecordSet")
If IsEmpty(CODE) or IsNumeric(CODE) = False Then CODE = 0
SQL = "Select * from List where CODE="&CODE
rs.Open SQL, Conn
If rs.EOF Then
Response.Write "<h3 align=""center"">הרשומה המבוקשת נמחקה או אינה קיימת במסד הנתונים!</h3>" & vbcrlf
Else
If Edit <> "True" Then%>
<form action="?Edit=True&CODE=<%=CODE%>" method="post">
<table dir="rtl" wCODEth="60%" align="center"><tr>
<td wCODEth="15%" dir="rtl">שם מלא:</td><td><input type="text" dir="rtl" name="name" size="20" value="<%=rs("NAME")%>"></td></tr><tr>
<td wCODEth="15%" dir="rtl"> דוא"ל:</td>
<td><input type="text" dir="ltr" name="email" size="20" value="<%=rs("email")%>"></td>
</tr><tr>
<td colspan="2" align="center"> <input type="submit" value=" עריכה">
<input type="reset" value=" ביטול "> </td>
</tr>
</table>
</form>
<%
Else
NAME = Request.Form("NAME")
email = Request.Form("email")
rs.Close
SQL = "Select * from List where CODE="&CODE
rs.Open SQL, Conn, 2, 3
rs("NAME") = NAME
rs("email") = email
rs.Update
rs.Close
Response.Write "<h3 align=""center"">הרשומה נערכה בהצלחה!<br>" & vbcrlf
Response.Write "<a href=""List.asp"">חזרה לדף הרשומות</a></h3>" & vbcrlf
End If
End If
Set rs = Nothing
Conn.Close
Set Conn = Nothing%>
</basefont>
</body>
</html>
צמצם את הקוד
לחלק הרלוונטי בלבד.
חוצמזה, אם אתה מקבל הודעת שגיאה, מהי?
השגיאה שאני מקבל היא:
Error Type:
Microsoft JET Database Engine (0x80004005)
The Microsoft Jet database engine cannot open the file 'c:inetpubwwwrootproject1outpost.mdb'. It is already opened exclusively by another user, or you need permission to view its data.
/project1/UPDET7.asp, line 22