PDA

View Full Version : ارتباط ASP با My sql



ozve_jadid
سه شنبه 13 تیر 1385, 04:31 صبح
سلام
وقت همگی بخیر
می خوام ASP رو با My sql ارتباط بدم ، اما اصلا My sql بلد نیستم فقط یه جدول آماده از اون دارم که باید بهش ارتباط بدم
من تیکه برنامه ای که در این مورد کار کردم رو براتون می فرستم
لطف کنین اشکالات منو بهم بگین( برای من حیاتی هستش)
ممنونم
منتظرم
این تکه برنامه برای چک کردن پسورد و user name می باشد


<<A href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim conn AS adodb.connection
dim rs AS adodb.Recordset
'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=localhost;"_
& " DATABASE=test;"_
& " OPTION=3"
conn.Open
Set rs= New adodb.Recordset

rs.open "select * from table2",conn
rs.MoveFirst
dim decision
decision=false
dim r1
r1=request.Form.Item("id")
dim r2
r2=request.Form.Item("user")
while not rs.EOF
r1=trim(r1)
r2=trim(r2)
if (r2=rs.Fields("user").Value AND r1=rs.Fields("id").Value) then
decision=true
end if
rs.MoveNext()
wend
conn.Close()
if (decision=true) then
Response.Cookies("check_status")="true"
Response.Cookies("check_status").Expires=Date()+2
Response.Redirect("index.html")
end if
if (decision=false) then
Response.Redirect("pass.asp")
end if
%>