Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > อยากได้โค้ดเช็ค username จากดาต้าเบส Access อยากได้โค้ด asp classic เช็ค username จากดาต้าเบส Access

อยากได้โค้ดเช็ค username จากดาต้าเบส Access อยากได้โค้ด asp classic เช็ค username จากดาต้าเบส Access

เริ่มหัวข้อใหม่

Giffy

โพสกระทู้ ( 11 )
บทความ ( 0 )

อยากได้โค้ด asp classic เช็ค username จากดาต้าเบส Access ผมได้หาจาก google แล้วไปเจอที่เวปนี้ http://www.codeproject.com/KB/ajax/availabilityasp.aspx แล้วโหลดมาทดลองแต่ไม่สามารถใช้ได้ ขึ้น Error Asychronous Error ตลอดทั้งๆ ที่ใช้ดาต้าเบสของเค้าที่ให้มา เป็นโค้ด Ajax กับ asp รบกวนช่วยดูให้หน่อยนะครับ

Source Code http://www.codeproject.com/KB/ajax/availabilityasp/sourcecode.zip

Code (HTML)

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript">
function put(param)
{
//document.form1.username.value=param
document.form1.username.value=""
document.form1.username.value=param
document.getElementById("Available").innerHTML = "";

}
function OnChangedUsername()
{
if(document.form1.username.value == "")
{
document.form1.btnCheckAvailability.disabled = true;
document.getElementById("Available").innerHTML =""
}
else
{
document.form1.btnCheckAvailability.disabled = false;
}
}

function OnCheckAvailability()
{
if(window.XMLHttpRequest)
{
oRequest = new XMLHttpRequest();
}
else if(window.ActiveXObject)
{
oRequest = new ActiveXObject("Microsoft.XMLHTTP");
}

oRequest.open("POST", "available.asp", true);
oRequest.onreadystatechange = UpdateCheckAvailability;

oRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
oRequest.send("strCmd=availability&strUsername=" + document.form1.username.value);
}

function UpdateCheckAvailability()
{
if(oRequest.readyState == 4)
{
if(oRequest.status == 200)
{
document.getElementById("Available").innerHTML = oRequest.responseText;
}
else
{
document.getElementById("Available").innerHTML = "Asychronous Error";

}
}
}
function validate(form1)
{
//****************************************************
if (form1.username.value.length<1)
{
alert("Please enter username!");
form1.username.focus();
form1.username.select();
return(false);
}
else if ((form1.username.value.indexOf("*")!=-1)||(form1.username.value.indexOf("!")!=-1)||(form1.username.value.indexOf("@")!=-1)||(form1.username.value.indexOf("$")!=-1)||(form1.username.value.indexOf("%")!=-1)||(form1.username.value.indexOf("^")!=-1)||(form1.username.value.indexOf("#")!=-1)||(form1.username.value.indexOf("=")!=-1)||(form1.username.value.indexOf("-")!=-1)||(form1.username.value.indexOf("[")!=-1)||(form1.username.value.indexOf("]")!=-1)||(form1.username.value.indexOf("{")!=-1)||(form1.username.value.indexOf("}")!=-1)||(form1.username.value.indexOf("+")!=-1)||(form1.username.value.indexOf("~")!=-1)||(form1.username.value.indexOf("?")!=-1)||(form1.username.value.indexOf("|")!=-1)||(form1.username.value.indexOf(">")!=-1)||(form1.username.value.indexOf("<")!=-1)||(form1.username.value.indexOf(" ")!=-1))
{
alert("Special characters and spaces are not allowed" );
form1.username.focus();
form1.username.select();
return(false);
}
else if (form1.username.value.length>30)
{
alert("Username must be less than thirty characters!")
form1.username.focus();
form1.username.select();
return(false);
}

}
</script>
</head>

<body>
<form method="post" id="form1" name="form1" onsubmit="return validate(this)">
<p><b>Enter desired username</b>
<input name="username" class="feeds1" size="20" value="" onkeyup="OnChangedUsername();" />
<input name="button" type="button" disabled="disabled" id="btnCheckAvailability" onClick="OnCheckAvailability();" value="Check Availability" />
</p>
<div id="Available"></div>

</form>
</body>
</html>

Code (ASP)

<%
Dim vPath, pPath, ConString
set con=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
vPath = "users.mdb" 'use this one if database is in root of cart folder
pPath = Server.MapPath( vPath )

ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=foo"
con.open ConString

strCmd = trim(Request.Form("strCmd").Item)
strUsername = trim(Request.Form("strUsername").Item)
select case strCmd
case "availability"
strSQL = "select uname from customers where uname='" & strUsername & "'"

rs.Open strSQL,con,1,3

if rs.EOF then
Response.Write("<font color=green><b>The User ID, <font color=blue>" + strUsername + "</font> is available</font>")

else
Response.Write("<font color=red>The User ID, <font color=blue>" + strUsername + "</font> , has already been taken.</font>")
Response.Write("<br><font color=red>Please enter a new User ID or choose a recommended one.</font>")
Response.Write("<table border=0 width=100% cellspacing=0 cellpadding=0>")
Response.Write("<tr bgcolor=#FED967><td>Recommended User IDs:")
Response.Write("<table><tr class='ss'>")
Response.Write("<td>")
Response.Write("<input type=radio name=r1 value="&Left(strUsername,2) & Left(strUsername,2)&" onclick=javascript:put(this.value)>"&Left(strUsername,2)& Left(strUsername,2)&"<br>")
Response.Write("<input type=radio name=r1 value="&strUsername & Left(strUsername,2)&" onclick=javascript:put(this.value)>"&strUsername & Left(strUsername,2)&"<br>")
Response.Write("<input type=radio name=r1 value="&Left(strUsername,2) & strUsername &" onclick=javascript:put(this.value)>"&Left(strUsername,2)& strUsername&"<br>")
Response.Write("</td></tr></table>")
Response.Write("</tr></td>")
Response.Write("</table>")

end if
case else
Response.Write("Invalid command: " + strCmd)
end select
rs.close
set rs = Nothing

%>

Tag : - - - -

Date : 2009-01-15 10:33:24

By : giffyen

View : 1377

Reply : 2

No. 1

Giffy

โพสกระทู้ ( 11 )
บทความ ( 0 )

ผู้รู้ช่วยดูให้หน่อยครับ งงจริงๆครับไม่รู้ว่าผิดที่ javascript หรือ ไฟล์ดาต้าเบส ลองดาวน์โหลด source code แล้วเอาไปรันที่ wwwroot ลองรันดูว่าติดปัญหาเหมือนผมรึเปล่านะครับ ช่วยหน่อยนะครับ

Date : 2009-01-16 11:24:34

By : giffyen

No. 2

Giffy

โพสกระทู้ ( 11 )
บทความ ( 0 )

ได้แล้วครับ เป็นความผิดพลาดของผมเองครับที่เอา database ไปไว้อีกที่หนึ่ง ขอโทษนะครับ

Date : 2009-01-17 17:16:42

By : giffyen

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : อยากได้โค้ดเช็ค username จากดาต้าเบส Access อยากได้โค้ด asp classic เช็ค username จากดาต้าเบส Access

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก