يك ارور در ASP خواهش ميكنم كمكم كنيد

arash kardanpoor · Nov 3, 2004

اقا من در حال ساختن يك اسكريپت لوگين هستم كه كد آن اين است
[hr:9e1927c793]
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
set rscheck = my_conn.Execute ("Select user from member where user='" & user & "'")

if rscheck.eof then
been_here_before="No"
end if

RScheck.close
set rs = server.createobject("adodb.recordset")
if been_here_before="No" then
rs.open "member",my_conn,1,3
RS.AddNew
RS("user")=user
RS("Name")=name
RS("email")=email
RS("address")=address
RS("city")=city
RS("state")=state
RS("country")=country
RS("zipcode")=zipcode
RS("password")= password
RS("memberdate")= now()
RS.update
[hr:9e1927c793]
ولي بعد در هنگام تست كردن اين ارور ميدهد
[hr:9e1927c793]
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

/addnewmember.asp, line 77

خواهش ميكنم اگر ميدانيد كمكم كنيد
با تشكر

hoom · Nov 3, 2004

سلام

در موقع استفاده از فايلهاي اكسس خيلي مهمه كه اونا Read-Only نباشن درضمن يوزر IUSR_XXX به آنها دسترسي داشته باشه. اين دو مورد رو بررسي و تصحيح كن. حتما درست ميشه

ارادتمند

AliReza26 · Nov 4, 2004

از كد زير استفاده كن :

کد:

set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
set rscheck = my_conn.Execute ("Select user from member where user='" & user & "'")
		
if rscheck.eof then
been_here_before="No"
end if

RScheck.close
set rs = server.createobject("adodb.recordset")	
if been_here_before="No" then 
rs.open "member",my_conn,2,3
RS.AddNew
RS("user")=user
RS("Name")=name
RS("email")=email
RS("address")=address
RS("city")=city
RS("state")=state
RS("country")=country
RS("zipcode")=zipcode
RS("password")= password
RS("memberdate")= now()
RS.update

arash kardanpoor · Nov 4, 2004

AliReza26 گفت:

از كد زير استفاده كن :

کد:

set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
set rscheck = my_conn.Execute ("Select user from member where user='" & user & "'")
		
if rscheck.eof then
been_here_before="No"
end if

RScheck.close
set rs = server.createobject("adodb.recordset")	
if been_here_before="No" then 
rs.open "member",my_conn,2,3
RS.AddNew
RS("user")=user
RS("Name")=name
RS("email")=email
RS("address")=address
RS("city")=city
RS("state")=state
RS("country")=country
RS("zipcode")=zipcode
RS("password")= password
RS("memberdate")= now()
RS.update

با تشكر از شما ولي ايراد بر طرف نشد

arash kardanpoor · Nov 4, 2004

كمكم كنيد

hoom · Nov 4, 2004

arash kardanpoor گفت:
كمكم كنيد

ببخشید ولی اونی رو که من بهتون گفتم انجام دادید؟

a_mollaei · Nov 5, 2004

ايراد شما احتمالا همونيه كه Hoom گفت. اگه اون نبود. برو IISتو چك كن ببين فولدري كه فايلت توشه داراي Write Access هست يا نه. غير از اين دو مورد مشكلي نبايد داشته باشي.

arash kardanpoor · Nov 6, 2004

فكر ميكنم ايراد از IIS من باشد ميشه بيشتر درباره تنظيمات IIS توضيح دهيد

behdadkh · Nov 7, 2004

ببخشيد شما از چه بانكي داريد استفاده ميكنيد ؟
من كه هر چي نگاه كردم نفهميدم ...
DNS ؟

فكر كنم اصلي ترين قسمت رو پاك كردين

در هر صورت اگر از فايل دارين استفاده ميكنين مثل Access بايد با گرفتن properties از فايلتون و انتخاب گزينه security به كاربران خارجي روي اين فايل حق دسترسي write هم بدين .

arash kardanpoor · Nov 7, 2004

behdadkh گفت:
ببخشيد شما از چه بانكي داريد استفاده ميكنيد ؟
من كه هر چي نگاه كردم نفهميدم ...
DNS ؟

فكر كنم اصلي ترين قسمت رو پاك كردين

در هر صورت اگر از فايل دارين استفاده ميكنين مثل Access بايد با گرفتن properties از فايلتون و انتخاب گزينه security به كاربران خارجي روي اين فايل حق دسترسي write هم بدين .

بله ايراد از Write ديتابيس من هست اگر ميشه طريقه درست كردن اون را در ويندوز ايكس پي به طور كامل برايم شرح دهيد
باتشكر از شما و بروبچ مجيد آنلاين