مشكل اين كد كجاست؟

nesarian2006

nesarian2006

Member
سلام خدمت شما دوستان عزيز
PHP: 
<%@ Language=VBScript %>
<% Option Explicit %>
<Html>
<Body>
<!--#include virtual="/adovbs.inc"-->
<!--#include file="DBConnect.asp"-->
<%
Dim objRS,bolFound,strUsername
strUsername = Request.Form("UserName")
If ((Request.Form("UserName") = "")OR(Request.Form("Password") = "")_
OR (Request.Form("email") = "")OR (Request.Form("firstname") = "")_
OR (Request.Form("lastname") = ""))Then
objConn.Close
Set objConn = Nothing
%>
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "db",objConn,,adLockOptimistic,adCmdTable
bolFound = False
Do Until objRS.EOF OR bolFound
If (strComp(objRS("Username"),strUsername,vbTextCompare)=0)Then
bolFound = True
Else
objRs.MoveNext
End If
Loop
If Not bolFound Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<A Href=''>"
Response.Write ""
Response.Write "</A>"
Response.End
End If
objRS("FirstName") = Request.Form("firstname")
objRS("LastName") = Request.Form(lastname")
objRS.Update
objRS.Close
Set objRs = Nothing
End if
objConn.Close
Set objConn = Nothing
%>
</body>
</html>
Error 800a01a8 ميده
ممنون ميشم پاسخ بدين
 
shirani

shirani

مدیر انجمن <A href="http://forum.majidonline.com/f
اگه ارور لاین می دادید خیلی بهتر بود در ضمن خیلی ناخوانا این کد

Set objConn = Nothing

این را چندین بار استفاده کردید فمر نکنم نیاز باشه
 
shirani

shirani

مدیر انجمن <A href="http://forum.majidonline.com/f
این تست کن

PHP: 
<%@ Language=VBScript %>
<% Option Explicit %>
<Html>
<Body>
<!--#include virtual="/adovbs.inc"-->
<!--#include file="DBConnect.asp"-->
<%
Dim objRS,bolFound,strUsername
strUsername = Request.Form("UserName")
If ((Request.Form("UserName") = "")OR(Request.Form("Password") = "")OR (Request.Form("email") = "") OR (Request.Form("firstname") = "") OR (Request.Form("lastname") = ""))Then
Response.Redirect("index.html")
Else
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "db",objConn,,adLockOptimistic,adCmdTable
bolFound = False
Do Until objRS.EOF OR bolFound
If (strComp(objRS("Username"),strUsername,vbTextCompare)=0)Then
bolFound = True
Else
objRs.MoveNext
End If
Loop
If Not bolFound Then
objRS.Close
 
Response.Write "<A Href=''>"
Response.Write ""
Response.Write "</A>"
End If
objRS("FirstName") = Request.Form("firstname")
objRS("LastName") = Request.Form("lastname")
objRS.Update
objRS.Close
Set objRs = Nothing
End if
objConn.Close
Set objConn = Nothing
%>
</body>
</html>
 
nesarian2006

nesarian2006

Member
نتيجه اي نداشت
ممنون ميشم اين كد رو بازسازي كنيد و يك كد جديد بسازيد
 
nesarian2006

nesarian2006

Member
سلام خدمت شمادوستان عزیز
13 روز گذشت
چرا جواب من رو نمیدید
خیلی مهمه
با تشکر فراوان
 
shirani

shirani

مدیر انجمن <A href="http://forum.majidonline.com/f
والا من نمیدونم این کد برای چی میخواید وگرنه براتون می نوشتم
 
nesarian2006

nesarian2006

Member
سلام خدمت شما دوستان عزيز
بابا براي مدرسه است
فوري(آبرو در ميان است)
با تشكر
 
cool_programmer

cool_programmer

Member
دوست عزیز کد رو بسیار بد نوشتی بهتره جستجو رو تو where دستور select قسمت sql ارتباط بانک بنویسی ولی اگه ساختار بانک و اینکه بانک اطلاعاتیت چیه رو بگی من کد درست رو بهت می دم. شما دو تا include داری که متن اونا رو ننوشتی.

ولی یه راهنمایی فوری اینه که کد رو به این شکل تغییر بدی :

تو کد select بنویس
[LTR]sql = "SELECT * FROM tablename WHERE (user=N'" & request("user") & "') and (pass=N'" &_[/LTR]
[LTR]request("pass") & "')"[/LTR]

و بعد از ارتباط هم از کد زیر استفاده کن

[LTR]

if not objRs.eof then
objRs("firstname") = request("firstname")
objRs.update
objRs.close
else
response.Redirect("error.asp")
end if
objConn.Close
Set objConn = Nothing
response.Redirect("step2.asp")

[/LTR]
 
nesarian2006

nesarian2006

Member
سلام خدمت شما دوستان عزيز
ممنون از اينكه پاسخ دادين
اين كد رو كجا قرار بدم
كد داخل اينكلود
کد: 
<%
Dim objConn
Dim dbpath
dbpath = Server.Mappath("tbladuser.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Provider="Microsoft.Jet.OLEDB.4.0"
objConn.Open(dbpath)
%>
DataBaseConnect
ممنون ميشم پاسخ بدين فوري(تا آخر دي ماه بيشتر وقت ندارم)
با تشكر فراوان
 
nesarian2006

nesarian2006

Member
کد: 
[LEFT]sql = "SELECT * FROM tablename WHERE (user=N'" & request("user") & "') and (pass=N'" &_[/LEFT]

 
[LEFT]request("pass") & "')"
[/LEFT]
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا