Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > ต้องการความช่วยเหลือด่วน ไม่เกิดerror ไม่สามารถดึงข้อมูลเพื่อแสดงข้อมูลออกมาได้

ต้องการความช่วยเหลือด่วน ไม่เกิดerror ไม่สามารถดึงข้อมูลเพื่อแสดงข้อมูลออกมาได้

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

Guest

ไม่เกิดerror ไม่สามารถดึงข้อมูลเพื่อแสดงข้อมูลออกมาได้
<html>
<head>
<title>IP ที่ต้องการ</title>
</head>
<body>

<% Set ObjDB=Server.CreateObject("ADODB.Connection")
ObjDB.Open "DSN=ip; UID=cat; PWD=cat"
intype=request.form("in")
number=request.form("input") %>

<% if intype = "IP "Then
Set ObjRS=Server.CreateObject("ADODB.Recordset")
strSQL="select Name from IP where IPAddress = number "
Set ObjRS=Server.execute(strSQL)
response.write ObjRS("Name")
else
do
Set ObjRS2=Server.CreateObject("ADODB.Recordset")
strSQL="select Distinct IPNet.IP ,Parent.IPNet from IP,IPNet where (IPNet.Ip=IPNet.IPNet) and (Parent.IPNet='intype') "
Set ObjRS2=Server.execute(strSQL)
response.write ObjRS2("IPNet.IPNet")

if ObjRS2("NoIP" )=1 then
response.write ObjRS2("IP.IPAddress")
response.write ObjRS2("IP.Name")

end if
loop
end if%>
tikky
strSQL-
<HR WIDTH=75%>
 <a href = "../IP/index.html">ต้องการดูข้อมูลตัวอื่น</a>
 <a href = "../IP/logout.html">ออกจากระบบ</a>

<HR WIDTH=75%>

<%=now%>
</body>
</html>

Tag : - - - -

Date : 13 May 2547 09:56:06

By : tikky753

View : 2696

Reply : 3

No. 1

Guest

ข้างบนพิมพ์ผิดค่ะเกิดerror ไม่สามารถแสดงผลได้

Date : 13 May 2547 09:57:40

By : tikky753

No. 2

Guest

ลองเปลี่ยน
Set ObjDB=Server.CreateObject("ADODB.Connection")
ObjDB.Open "DSN=ip; UID=cat; PWD=cat"
เป็น
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "DSN=ip; UID=cat; PWD=cat"
ไม่แน่ใจนะลองดูแล้วกันค่ะ

Date : 17 May 2547 19:41:07

By : jumbo

No. 3

Guest

<% Set ObjDB=Server.CreateObject("ADODB.Connection")
ObjDB.Open "DSN=ip; UID=cat; PWD=cat"
intype=request.form("in")
number=request.form("input") %>

<% if intype = "IP "Then
Set ObjRS=Server.CreateObject("ADODB.Recordset")
strSQL="select Name from IP where IPAddress = "&number&" "
Set ObjRS=Server.execute(strSQL)
response.write ObjRS("Name")
else
do
Set ObjRS2=Server.CreateObject("ADODB.Recordset")
strSQL="select Distinct IPNet.IP ,Parent.IPNet from IP,IPNet where (IPNet.Ip=IPNet.IPNet) and (Parent.IPNet='intype') "
Set ObjRS2=Server.execute(strSQL)
response.write ObjRS2("IPNet.IPNet")

if ObjRS2("NoIP" )=1 then
response.write ObjRS2("IP.IPAddress")
response.write ObjRS2("IP.Name")

end if
loop
end if%>
tikky
strSQL-
<HR WIDTH=75%>
 <a href = "../IP/index.html">ต้องการดูข้อมูลตัวอื่น</a>
 <a href = "../IP/logout.html">ออกจากระบบ</a>

<HR WIDTH=75%>

<%=now%>
</body>
</html>

"&number&"

Date : 13 ต.ค. 2549 14:59:04

By : เหน่งครับ

ค้นหาข้อมูล

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

Re : ต้องการความช่วยเหลือด่วน ไม่เกิดerror ไม่สามารถดึงข้อมูลเพื่อแสดงข้อมูลออกมาได้

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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