14-06-2006, 10:03
|
|
|
חבר מתאריך: 12.06.06
הודעות: 25
|
|
למדתי ACCESS
ובדקתי את המסד נתונים
בניתי שאילתת עידכון על רשומה אחת והוא עידכן אותה
אז זה אומר שהמסד נתונים עובד
הקטע זה רק בקוד
יש בעיה בקוד של האתר
הקוד הוא:
קוד:
<%
Dim id,SQL,rs
ID = Request("id")
Select case Request("the_action")
case "add": Dim item,values,cn
SQL = "insert into BANNERS ("
values = "("
For each item in Request.querystring
if item <> "the_action" and item <> "id" Then
SQL = SQL & "[" & item & "],"
values = values & "'" & request(item) & "',"
end if
Next
SQL = left(SQL,len(SQL)-1) & ") values"
SQL = SQL & left(values,len(values)-1) & ")"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open TheDSN
cn.Execute SQL
cn.Close
set cn = Nothing
Response.Redirect "admin.asp?" & rnd()
case "edit":SQL = "Update BANNERS Set "
For Each Item in Request.QueryString
if (Item <> "id") and (Item <> "the_action") Then
SQL = SQL & Item & "='" & Request(Item) & "', "
End if
Next
SQL = Left(SQL,Len(SQL)-2) & " Where id=" & id
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open TheDSN
cn.Execute SQL
cn.Close
Set cn = Nothing
Response.Redirect "admin.asp?" & rnd()
case "del": SQL = "Delete * From BANNERS Where id=" & id
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open TheDSN
cn.Execute SQL
cn.Close
set cn = Nothing
Response.Redirect "admin.asp?" & rnd()
case "zero": SQL = "Update BANNERS Set hits=0 where id=" & id
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open TheDSN
cn.Execute SQL
cn.Close
set cn = Nothing
Response.Redirect "admin.asp?" & rnd()
End Select
SQL = "Select * From BANNERS" 'remove the * and put all the fields
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, TheDSN
%>
החיבור DSN עובד גםכן
הקטע זה רק בקוד הזה
יש כנראה שגיאה
הוא לא מעדכן, לא מאפס, לא מוחק ולא מוסיף
כנראה יש שגיאה בפונקציה הנ"ל
תעזרו לי לתקן אותה
תודה!
|