Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > เขียนสคิปเองครับแล้วมันเจ๊งครับ ช่วยหน่อยนะครับ

เขียนสคิปเองครับแล้วมันเจ๊งครับ ช่วยหน่อยนะครับ

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

Guest

อันนี้คือ error นะครับ

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/asp/aspd-register/search.asp, line 47, column 12
id=rs("id") response.write(id)
-----------^

..................................................................................................................................

อันนี้คือส่วนของหน้าค้นหานะครับ(index.asp)

<html>
<head>
<title>ตรวจสอบบัญชีสมาชิค</title>
<meta http-equiv="Content-Type" content="text/html; charset=tis-620"></head>
<body bgcolor="#FFFFFF">
<div align="center" style="width: 286; height: 189"> <br>
<br>
<table width="75%" border="1" cellspacing="0" cellpadding="0" bordercolor="#3366FF" style="border-collapse: collapse">
<tr>
<td>
<p align="center"><font face="MS Sans Serif" size="5" color="#000000">
<br>
Test Search<br>
</font> </p>
<form method="POST" action="search.asp" name="regis" onSubmit="return checkFields2();" >
<p align="center"><font color="#000000">
<input type="text" name="key" size="40">
<br>
<br>
<input type="submit" name="Submit" value="Search ค้นหา">
<br>
</font> </p>
</form>
</td>
</tr>
</table>
</div>
</body>
</html>

-------------------------------------------------------------------------------------------------------------------------------

อันนี้ส่วนของผลลัพธ์ นะครับ(search.asp)

<%
ON Error Resume Next
key= request.querystring("key")
if key="" then
key=Request.Form("key")
end if
response.write(key)
%>

<%
pageLen = 1
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &Server.MapPath("database/database.mdb")
SQL="SELECT * FROM admins Where username Like '%"& key & "%'"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
%>

<%
if RS.eof then
%>

<p>กรุณาใช้ Keyword อื่น <br>
[ <a href="index.asp"><font color="#333333">กลับไปหน้าหลัก</font></a> ] <br>
<%
Response.end
end if
%>
<%
Nrecord=RS.recordcount
rs.pageSize = pageLen
totalPage = rs.PageCount
rs.absolutePage = pageNo
%>
<%no=1
recNo=1
Do While Not RS.EOF and recNo <= pageLen
%>
<%
no= no+1 'กำหนดให้ no + 1 ไปเรื่อย ๆ
%>
</p>
<p>คำอธิบาย :
<%
id=rs("id") response.write(id)%>
<br>
คำอธิบาย :
<%First_name=rs("First_name") response.write(First_name)%>
<br>
คำอธิบาย :
<%last_name=rs("last_name") response.write(last_name)%>
<br>
คำอธิบาย :
<%username=rs("username")response.write(username)%>
<br>
คำอธิบาย :
<%password=rs("password") response.write(password)%>
<br>
คำอธิบาย :
<%email_address=rs("email_address") response.write(email_address)%>
<br>
คำอธิบาย :
<%address=rs("address") response.write(address)%>
<br>
คำอธิบาย :
<%kwang=rs("kwang") response.write(kwang)%>
<br>
คำอธิบาย :
<%kate=rs("kate") response.write(kate)%>
<br>
คำอธิบาย :
<%zip_code=rs("zip_code") response.write(zip_code)%>
<br>
คำอธิบาย :
<%city=rs("city") response.write(city)%>
<br>
คำอธิบาย :
<%country=rs("country") response.write(country)%>
<br>
คำอธิบาย :
<%tel=rs("tel") response.write(tel)%>
<br>
คำอธิบาย :
<%fax=rs("fax") response.write(fax)%>
<br>
<%
no=no+1
recNo=recNo+1
RS.MoveNext
Loop
rs.close
conn.close
%>
</p>

Tag : - - - -

Date : 24 Aug 2546 19:28:55

By : กีรติ บุตดีวงษ์

View : 2797

Reply : 1

No. 1

Guest

id=rs("id")
response.write(id)

เอาไปไว้คนละบรรทัดจิ่

Date : 25 Aug 2546 16:24:41

By : Mr.x

ค้นหาข้อมูล

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

Re : เขียนสคิปเองครับแล้วมันเจ๊งครับ ช่วยหน่อยนะครับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); เขียนสคิปเองครับแล้วมันเจ๊งครับ ช่วยหน่อยนะครับ

No. 1

ค้นหาข้อมูล

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

Notice

เขียนสคิปเองครับแล้วมันเจ๊งครับ ช่วยหน่อยนะครับ