hassan1365
یک شنبه 23 مهر 1385, 22:47 عصر
سلام بچه ها خسته نباشید.
فکر کنم دوجور استفاده از بانک تو ASP داریم:
یکی اینه که تو هر صفحه ای که از بانک میخواد استفاده کنه یه کانکشن داشته باشیم و یکی اینه که یه فایل کانکشن داشته باشیم و هر بار که تو هر صفحه خواستیم وصل بشیم اونو include کنیم که البته به نظرم دومی برای کنترل ترافیک سایت بهتر باشه.
حالا مشکل من اینجاست که ممکنه تو صفحات عبارتهای SQL جداگانه ای مورد نیاز باشه(مثل اضافه کردن ، پاک کردن و ...) .برای اینکه اون صفحه کانکشن رو با عبارت دلخواه بتونیم تو یه صفحه اجرا کنیم باید چکار کنیم.
فعلا یه سوال دیگه هم دارم.وقتی میخوام به بانک SQL رکورد اضافه کنم این پیغام رو میده.(فکر کنم باید از دستور insert into استفاده کنم.
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
/adddata.asp, line 45
این سورس مربوطه است:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
DIM objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Driver={SQL Server}; Server=(local); Database=amartemp; UID=sa; PWD=hassan;"
objConn.Open
dIM objRS
'objRS.Open mySQL, objConn
'DIM mySQL
'mySQL = "SELECT * FROM tbluser"
dim bolalreadyexists
dim id,name2,family ,username,passowrd
id=request.Form("id")
name2=request.Form("name")
family=request.Form("family")
username=request.Form("username")
password=request.Form("password")
if id="" or name2="" or family="" or username="" or password="" then
error = "You have not entered an complete news."
Response.Write error
'Response.End
else
bolalreadyexists=false
Set objRS = Server.CreateObject("ADODB.Recordset")
'objrs.open "tbluser",objconn,adlockoptimistic,adcmdtable
DIM mySQL
mySQL = "SELECT * FROM tbluser"
objrs.open mysql,objconn
do while not (objrs.eof or bolalreadyexists)
if (strcomp(objrs("username"),username,vbtextcompare)=0) then
response.Write("username already exist")
bolalreadyexists=true
end if
objrs.movenext
loop
if not bolalreadyexists then
objrs.addnew
objrs("id")=id
objrs("name") =name2
objrs("family")=family
objrs("username")=username
objrs("password")=password
objrs.update
response.Write("thanks a lot")
end if
objrs.close
set objrs=nothing
end if
objconn.close
set objconn = nothing
%>
موفق باشید.
فکر کنم دوجور استفاده از بانک تو ASP داریم:
یکی اینه که تو هر صفحه ای که از بانک میخواد استفاده کنه یه کانکشن داشته باشیم و یکی اینه که یه فایل کانکشن داشته باشیم و هر بار که تو هر صفحه خواستیم وصل بشیم اونو include کنیم که البته به نظرم دومی برای کنترل ترافیک سایت بهتر باشه.
حالا مشکل من اینجاست که ممکنه تو صفحات عبارتهای SQL جداگانه ای مورد نیاز باشه(مثل اضافه کردن ، پاک کردن و ...) .برای اینکه اون صفحه کانکشن رو با عبارت دلخواه بتونیم تو یه صفحه اجرا کنیم باید چکار کنیم.
فعلا یه سوال دیگه هم دارم.وقتی میخوام به بانک SQL رکورد اضافه کنم این پیغام رو میده.(فکر کنم باید از دستور insert into استفاده کنم.
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
/adddata.asp, line 45
این سورس مربوطه است:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
DIM objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Driver={SQL Server}; Server=(local); Database=amartemp; UID=sa; PWD=hassan;"
objConn.Open
dIM objRS
'objRS.Open mySQL, objConn
'DIM mySQL
'mySQL = "SELECT * FROM tbluser"
dim bolalreadyexists
dim id,name2,family ,username,passowrd
id=request.Form("id")
name2=request.Form("name")
family=request.Form("family")
username=request.Form("username")
password=request.Form("password")
if id="" or name2="" or family="" or username="" or password="" then
error = "You have not entered an complete news."
Response.Write error
'Response.End
else
bolalreadyexists=false
Set objRS = Server.CreateObject("ADODB.Recordset")
'objrs.open "tbluser",objconn,adlockoptimistic,adcmdtable
DIM mySQL
mySQL = "SELECT * FROM tbluser"
objrs.open mysql,objconn
do while not (objrs.eof or bolalreadyexists)
if (strcomp(objrs("username"),username,vbtextcompare)=0) then
response.Write("username already exist")
bolalreadyexists=true
end if
objrs.movenext
loop
if not bolalreadyexists then
objrs.addnew
objrs("id")=id
objrs("name") =name2
objrs("family")=family
objrs("username")=username
objrs("password")=password
objrs.update
response.Write("thanks a lot")
end if
objrs.close
set objrs=nothing
end if
objconn.close
set objconn = nothing
%>
موفق باشید.