ช่วยดูโค้ดผมหน่อย แก้ไม่ออกนะ(เป็นการค้นหาเบอโทรสัพท์นะ)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%
response.buffer = true
'decleration
dim seetable
dim conn,dsn,rs,sql
'if the user submit the form
useraction = request("action")
select case useraction
case "EmployeeData"
Order = request.form("Order")
NCompany = request.form("NCompany")
IDCompany[Eng] = request.form("IDCompany[Eng]")
IDEmp = request.form("IDEmp")
FirstName = request.form("FirstName")
LastName = request.form("LastName")
NameJob = request.form("NameJob")
NameAdd = request.form("NameAdd")
Status = request.form("Status")
Telephone = request.form("Telephone")
Tel-Too = request.form("Tel-Too")
FAX = request.form("FAX")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "EISDATA01","sa",""
StrSQL = "SELECT * FROM EmployeeData"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<center>No data</center>"
else
session("auth") = ture
response.redirect "Default.asp"
end if
end select
%>
<html>
<HEAD>
<meta content="False" name="vs_snapToGrid">
<meta content="True" name="vs_showGrid">
<META content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
<meta http-equiv="Content-type" content="text/html; charset=windows-874">
<meta http-equiv="Content-Language" content="th">
<meta content="" name="Telno">
<meta content="" name="Searhgin">
<meta content="all" name="Keyword">
<meta content="7 days" name="revisit-after">
<SCRIPT language="javascript">
<!-- Original: CodeLifter.com ([email protected] ) -->
<!-- Web Site: http://www.codelifter.com -->
<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->
<!-- Begin
var slideShowSpeed = 5000;
var crossFadeDuration = 3;
var Pic = new Array();
var t;
var j = 0;
var p = Pic.length;
var preLoad = new Array();
for (i = 0; i < p; i++) {
preLoad = new Image();
preLoad.src = Pic;
}
function runSlideShow() {
if (document.all) {
document.images.SlideShow.style.filter="blendTrans(duration=2)";
document.images.SlideShow.style.filter="blendTrans(duration=crossFadeDuration)";
document.images.SlideShow.filters.blendTrans.Apply();
}
document.images.SlideShow.src = preLoad[j].src;
if (document.all) {
document.images.SlideShow.filters.blendTrans.Play();
}
j = j + 1;
if (j > (p - 1)) j = 0;
t = setTimeout('runSlideShow()', slideShowSpeed);
}// End -->
</SCRIPT>
<SCRIPT language="JavaScript">
<!-- Original: Ronnie T. Moore, Editor -->
<!-- Web Site: The JavaScript Source -->
<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->
<!-- Begin
closetime = 0; // Close window after __ number of seconds?
// 0 = do not close, anything else = number of seconds
function Start(URL, WIDTH, HEIGHT) {
windowprops = "left=50,top=50,width=" + WIDTH + ",height=" + HEIGHT;
preview = window.open(URL, "preview", windowprops);
if (closetime) setTimeout("preview.close();", closetime*1000);
}
function doPopup() {
url = "/foodcomplex2.htm";
width = 550;
height = 180;
delay = 1;
timer = setTimeout("Start(url, width, height)", delay*500);
}
// End -->
</SCRIPT>
<script language="javascript" id="clientEventHandlersJS">
function popupCenter(theURL,winName,w,h) {
// set properties for the editace window
var lp = (screen.width) ? (screen.width-w)/2 : 0;
var tp = (screen.height) ? (screen.height-h)/2 : 0;
var OpenWindow;
attrs = 'height=' + h + ',width=' + w + ',top=' + tp + ',left=' + lp + ', resizable=yes, toolbar=no , scrollbars=no , status=no';
OpenWindow = window.open( theURL , winName , attrs);
OpenWindow.focus();
}
function popup(url, width, height) {
var Win = window.open(url,"displayWindow",'width=' + width + ',height=' + height + ',resizable=yes,scrollbars=yes ,menubar=NO ,status=NO' );
}
//-->
</script>
</HEAD>
<%
Set Conn=Server.Createobject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open"Provider=SQLOLEDB.2;Persist Security Info= False;Login ID=sa;password=sa
Initial Catalog=EmployeeData;Data_Source=167.97.200.117"
strSQL="Select* from EmployeeData"
strSQL = strSQL & "FROM EmployeeData"
strSQL = strSQL & " ORDER BY IDEmp DESC;"
rsCommon.Open strSQL, adoCon
RS.Open strSQL,Conn,1,3
%>
<%=Rs("Order")%>
<%=Rs("IDCompany")%>
<%=Rs("IDCompany[Eng]")%>
<%=Rs("IDEmp")%>
<%=Rs("FirstName")%>
<%=Rs("LastName")%>
<%=Rs("NameJob")%>
<%=Rs("NameAdd")%>
<%=Rs("Status")%>
<%=Rs("Telephone")%>
<%=Rs("Tel-Too")%>
<%=Rs("FAX")%>
<%=RS("E-mail")%>
<body bgColor="lightsalmon" leftMargin="0" topMargin="0">
<table id="table1" style="WIDTH: 1166px; HEIGHT: 79px" cellSpacing="0" cellPadding="0"
width="1166" bgColor="#ff3333" border="0">
<tr>
<td rowSpan="3"><a href=""></a></td>
<td style="WIDTH: 1055px; HEIGHT: 79px"><IMG style="WIDTH: 1048px; HEIGHT: 77px" height="77" alt="" src="" width="1048"></td>
<TD style="WIDTH: 3px; HEIGHT: 79px" align="center"></TD>
<td style="HEIGHT: 79px" align="center"><font face="MS Sans Serif" color="#66ff99" size="1"><img style="WIDTH: 112px; HEIGHT: 77px" height="77" src="file:///C:\chang\logo1.jpg"
width="112" border="0"></font></td>
<td style="HEIGHT: 79px"></td>
<td style="HEIGHT: 79px" vAlign="bottom"></td>
</tr>
<tr align="center" height="18">
<td style="WIDTH: 1055px" bgColor="#ff6600" height="18"><font face="MS Sans Serif" color="#000000" size="4">
<marquee id="MARQUEE" style="WIDTH: 1052px; HEIGHT: 35px" scrollDelay="200"><a title="www.betagro.com" href="http://www.betagro.com" target="_blank"><IMG style="WIDTH: 182px; HEIGHT: 43px" height="43" alt="" src="file:///C:\chang\li.jpg"
width="182" DESIGNTIMEDRAGDROP="13036"></a> </STRONG><a title="betagro-net" href="http://betagro-net" target="_blank"><FONT color="#00ffff"><STRONG>
Welcome to Betrago-net = มุ่งสร้างความเป็นเลิศทางด้านอาหาร และ
ความปลอดภัยของอาหาร</STRONG></FONT></a></marquee>
</font>
</td>
</tr>
</table>
<!---------------------------End table------------------->
<TABLE id="Table5" style="WIDTH: 1149px; HEIGHT: 303px" cellSpacing="0" cellPadding="0"
width="1149" border="0">
<TR>
<td style="WIDTH: 1276px" background="images/head10_bg.gif">
<table id="Table6" style="WIDTH: 889px; HEIGHT: 62px" cellSpacing="0" cellPadding="0" width="889"
border="0">
<tr>
<td style="WIDTH: 76px; HEIGHT: 55px" width="76"></td>
<td style="HEIGHT: 55px" vAlign="top" align="center"><table id="Table7" style="WIDTH: 873px; HEIGHT: 42px" cellSpacing="0" cellPadding="4" width="873"
border="0">
<TBODY>
<tr>
<td class="body" style="WIDTH: 918px; HEIGHT: 17px" vAlign="baseline" align="left"><A class="list2" href="http://betagro-net" target="_self"><STRONG>Home</STRONG></A>
| <A class="list2" href="Default1.html" target="_self"><STRONG>หน้าหลัก </STRONG></A>
| <A class="list2" href="default.html" target="_self"><STRONG>LOGIN</STRONG></A>
</td>
<td style="WIDTH: 177px; HEIGHT: 17px" vAlign="baseline" align="right"><A href="/Home/" target="_self"></A></td>
</tr>
</td>
</tr>
</table>
</td>
</TR>
<tr>
<td style="WIDTH: 76px" align="left"></td>
<td><input language="javascript" id="Text2" style="WIDTH: 171px; HEIGHT: 26px" onclick="return Text2_onclick()"
type="text" maxLength="100" size="23" name="Telnumber"> <input language="javascript" class="Button" id="Submit2" onclick="return Submit2_onclick()"
type="submit" value="Search" name="Submit">
<%if Request.Form("keyword")="" then
Response.write("<br>กรุณากรอก Keyword เพื่อค้นหาจาก Field Description<hr>")
else
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "EISDATA01","sa",""
sql ="Select * From Employee where description like '%"&Request.Form("keyword")&"%'"
Set Rs = Conn.Execute(sql)
End if%>
<STRONG>กรุณาเลือกชื่อที่ต้องการ <SELECT id="Select1" style="WIDTH: 252px" name="DayBackSearch">
<OPTION value="0" selected>-----------------ทั้งหมด-----------------</OPTION>
<OPTION value="7">ABS - บริษัท อายิโนะโมะโต๊ะ เบทาโกร สเปเชียลตี้ ฟู้ดส์ จำกัด</OPTION>
<OPTION value="55">ATS - บริษัท แอนิเทค โทเทิล โซลูชั่น จำกัด</OPTION>
<OPTION value="3">BAG - บริษัท เบทาโกร อโกร กรุ๊ป จำกัด (มหาชน)</OPTION>
<OPTION value="54">BAG-RM - บริษัท เบทาโกร อโกร กรุ๊ป จำกัด(มหาชน)</OPTION>
<OPTION value="14">BAI - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด</OPTION>
<OPTION value="39">BAI-JR - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาจันทบุรี</OPTION>
<OPTION value="30">BAI-KK - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สำนักงานขอนแก่น</OPTION>
<OPTION value="29">BAI-KP - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขากำแพงเพชร</OPTION>
<OPTION value="53">BAI-Loei - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาเลย</OPTION>
<OPTION value="33">BAI-NK - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาหนองคาย</OPTION>
<OPTION value="34">BAI-NM - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สำนักงานนครราชสีมา</OPTION>
<OPTION value="26">BAI-NS - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สำนักงานนครสวรรค์</OPTION>
<OPTION value="28">BAI-PB - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาเพชรบูรณ์</OPTION>
<OPTION value="27">BAI-PL - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาพิษณุโลก</OPTION>
<OPTION value="40">BAI-PR - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาปราจีนบุรี</OPTION>
<OPTION value="32">BAI-RA - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาร้อยเอ็ด</OPTION>
<OPTION value="38">BAI-RY - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สำนักงานระยอง</OPTION>
<OPTION value="37">BAI-SRN - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาสุรินทร์</OPTION>
<OPTION value="35">BAI-UBN - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาอุบลราชธานี</OPTION>
<OPTION value="31">BAI-UDN - บริษัท เบทาโกรเกษตรอุตสาหกรรม จำกัด สาขาอุดรธานี</OPTION>
<OPTION value="25">BBF - บริษัท บีเอฟไอ บรอยเลอร์ ฟาร์ม จำกัด</OPTION>
<OPTION value="16">BCP - บริษัท บี แอนด์ ซี พูลาสกี้ จำกัด</OPTION>
<OPTION value="8">BDT - บริษัท เบทาโกร ไดนิปปอน เทคโน เอ็กซ์ จำกัด</OPTION>
<OPTION value="57">BF-Broiler - บริษัท อาหารเบทเทอร์ จำกัด</OPTION>
<OPTION value="60">BF-Export - บริษัท อาหารเบทเทอร์ จำกัด</OPTION>
<OPTION value="58">BFI-Broiler - บริษัท บี.ฟู้ดส์ โปรดักส์ อินเตอร์เนชั่นแนล จำกัด</OPTION>
<OPTION value="59">BFI-Export - บริษัท บี.ฟู้ดส์ โปรดักส์ อินเตอร์เนชั่นแนล จำกัด</OPTION>
<OPTION value="10">BFI-Local - บริษัท บี.ฟู้ดส์ โปรดักส์ อินเตอร์เนชั่นแนล จำกัด</OPTION>
<OPTION value="9">BF-Local - บริษัท อาหารเบทเทอร์ จำกัด</OPTION>
<OPTION value="4">BHI - บริษัท เบทาโกรไฮบริด อินเตอร์เนชั่นแนล จำกัด</OPTION>
<OPTION value="18">BIT - บริษัท บี. อินเตอร์เนชั่นแนล แอนด์ เทคโนโลยี่ จำกัด</OPTION>
<OPTION value="12">BNA - บริษัท เบทาโกรภาคเหนือ เกษตรอุตสาหกรรม จำกัด</OPTION>
<OPTION value="41">BNA - บริษัท เบทาโกรภาคเหนือ เกษตรอุตสาหกรรม จำกัด
สำนักเชียงใหม่</OPTION>
<OPTION value="44">BNA-CR - บริษัท เบทาโกรภาคเหนือ เกษตรอุตสาหกรรม จำกัด
สาขาเชียงราย</OPTION>
<OPTION value="43">BNA-LP - บริษัท เบทาโกรภาคเหนือ เกษตรอุตสาหกรรม จำกัด สาขาลำปาง</OPTION>
<OPTION value="42">BNA-PHRAE - บริษัท เบทาโกรภาคเหนือ เกษตรอุตสาหกรรม จำกัด
สาขาแพร่</OPTION>
<OPTION value="15">BP - บริษัท เบ็ทเทอร์ฟาร์ม่า จำกัด</OPTION>
<OPTION value="2">BP&T - บริษัท เบ็ทเทอร์ โพรดักส์ แอนด์ เทคโนโลยี จำกัด</OPTION>
<OPTION value="6">BSM - บริษัท เบทาโกร เซฟตี้ มีท แพคกิ้ง จำกัด</OPTION>
<OPTION value="17">BTF - บริษัท เบทาโกร ฟู้ดส์ จำกัด</OPTION>
<OPTION value="1">BTH - บริษัท เบทาโกร โฮลดิ้ง จำกัด</OPTION>
<OPTION value="22">BTL - บริษัท เบทาโกรแลนด์ จำกัด</OPTION>
<OPTION value="23">BTR - บริษัท บี แอนด์ ที เรียลตี้ จำกัด</OPTION>
<OPTION value="13">BTS - บริษัท เบทาโกรภาคใต้ จำกัด</OPTION>
<OPTION value="51">BTS-CHP - บริษัท เบทาโกรภาคใต้ สาขาชุมพร</OPTION>
<OPTION value="52">BTS-KB - บริษัท เบทาโกรภาคใต้ สาขากระบี่</OPTION>
<OPTION value="47">BTS-NS - บริษัท เบทาโกรภาคใต้ สาขานครศรีธรรมราช</OPTION>
<OPTION value="48">BTS-PK - บริษัท เบทาโกรภาคใต้ สาขาภูเก็ต</OPTION>
<OPTION value="45">BTS-SR - บริษัท เบทาโกรภาคใต้ สาขาสุราษฏร์ธานี</OPTION>
<OPTION value="46">BTS-TR - บริษัท เบทาโกรภาคใต้ สาขาตรัง</OPTION>
<OPTION value="50">BTS-TS - บริษัท เบทาโกรภาคใต้ สาขาทุ่งสง</OPTION>
<OPTION value="49">BTS-YL - บริษัท เบทาโกรภาคใต้ สาขายะลา</OPTION>
<OPTION value="21">BTXH - บริษัท เบทาโกร - ไทยลักซ์ โฮลดิ้ง จำกัด</OPTION>
<OPTION value="20">KBF - บริษัท เบทาโกร ไคฟง ฟีดมิลล์ จำกั</OPTION>
<OPTION value="56">PAH - บริษัท โพรเทค แอนิมัล เฮลธ์ จำกัด</OPTION>
<OPTION value="19">PF - บริษัท เพ็ท โฟกัส จำกัด</OPTION>
<OPTION value="24">PH - บริษัท ป่าสัก ฮิลล์ไซด์ จำกัด</OPTION>
<OPTION value="5">SPF - บริษัท ไทย เอส พี เอฟ โปรดักส์ จำกัด</OPTION>
<OPTION value="11">TAB - บริษัท อายิโนะโมะโต๊ะ เบทาโกร โฟรเซ่นฟู้ดส์ (ประเทศไทย)
จำกัด</OPTION>
</SELECT> <input id="Submit1" type="submit" value="Submit" name="Submit1" language="javascript" onclick="return Submit1_onclick()"></STRONG></td>
</tr>
</TABLE>
<table class="textb" id="Table8" style="WIDTH: 1167px; HEIGHT: 34px" cellSpacing="0" cellPadding="5"
width="1167" border="0">
<tr>
<td> <span class="textsmall"><A title="เพิ่ม" href="StaffEdit.asp?mode=new&companyid2=0&pageNo="><STRONG>เพิ่ม
</STRONG></A> <A title="แก้ไข" href="StaffEdit.asp?mode=new&companyid2=0&pageNo=">
<STRONG>แก้ไข </STRONG></A> <A title="ลบ" href="StaffEdit.asp?mode=new&companyid2=0&pageNo="><STRONG>ลบ
</STRONG></A> </span></td>
<td align="right"></td>
</tr>
</table>
<%
pageLen = 2 'กำหนดจำนวนแต่ละหน้าที่ต้องการแสดงกี่ Reccord
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "EISDATA01","sa",""
sql ="Select * From EmployeeData"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
Nrecord=RS.recordcount
Rs.pageSize = pageLen
totalPage = Rs.PageCount
Rs.absolutePage = pageNo
If Rs.EOF Then%>
ไม่มีข้อมูลในตาราง !
<%Else%>
<table id="Table2" style="WIDTH: 1169px" align="center" border="1">
<tr bgColor="#ffccff">
<td style="WIDTH: 39px; HEIGHT: 49px">
<P align="center">Order</P>
</td>
<td style="WIDTH: 99px; HEIGHT: 49px">
<P align="center">NCompany</P>
</td>
<td style="WIDTH: 126px; HEIGHT: 49px">
<P align="center"> NCompany [Eng]</P>
</td>
<td style="HEIGHT: 49px">
<P align="center">IDEmp</P>
</td>
<td style="WIDTH: 88px; HEIGHT: 49px">
<P align="center">FirstName</P>
</td>
<td style="WIDTH: 78px; HEIGHT: 49px">
<P align="center">LastName</P>
</td>
<td style="WIDTH: 93px; HEIGHT: 49px">
<P align="center">NameJob</P>
</td>
<td style="WIDTH: 106px; HEIGHT: 49px">
<P align="center"> NameAdd</P>
</td>
<td style="WIDTH: 127px; HEIGHT: 49px">
<P align="center"> Status</P>
</td>
<td style="WIDTH: 104px; HEIGHT: 49px">
<P align="center"> Telephone</P>
</td>
<td style="WIDTH: 61px; HEIGHT: 49px">
<P align="center"> Tel-Too</P>
</td>
<td style="WIDTH: 6px; HEIGHT: 49px">
<P align="center"> FAX</P>
</td>
<td style="WIDTH: 115px; HEIGHT: 49px">
<P align="center"> E-mail</P>
</td>
</tr>
<% While Not Rs.EOF%>
<tr>
<td style="WIDTH: 39px"><%=Rs("Order")%></td>
<td style="WIDTH: 99px"><%=Rs("IDCompany")%></td>
<td style="WIDTH: 126px"><%=Rs("IDCompany[Eng]")%></td>
<td style="WIDTH: 45px"><%=Rs("IDEmp")%></td>
<td style="WIDTH: 88px"><%=Rs("FirstName")%></td>
<td style="WIDTH: 78px"><%=Rs("LastName")%></td>
<td style="WIDTH: 93px"><%=Rs("NameJob")%></td>
<td style="WIDTH: 106px"><%=Rs("NameAdd")%></td>
<td style="WIDTH: 127px"><%=Rs("Status")%></td>
<td style="WIDTH: 104px"><%=Rs("Telephone")%></td>
<td style="WIDTH: 61px"><%=Rs("Tel-Too")%></td>
<td style="WIDTH: 100px"><%=Rs("FAX")%></td>
<td style="WIDTH: 100px"><%=Rs("E-mail")%></td>
<!--<td><a href="Update.asp?id=<%=Rs("id")%>">Update</a></td>
<td><a href="Delete.asp?id=<%=Rs("id")%>">Del</a></td>-->
</tr>
<%
Rs.MoveNext
Wend
Rs.Close
Conn.Close
End If
%>
</table>
<table id="Table11" style="WIDTH: 1168px; HEIGHT: 65px" cellSpacing="0" cellPadding="0"
width="1168" border="0">
<tr>
<td style="WIDTH: 1211px; HEIGHT: 1px"><IMG height="5" src="../images/spacer.gif" width="1"></td>
</tr>
<tr>
<td style="WIDTH: 1211px; HEIGHT: 74px">
<table id="Table12" style="WIDTH: 1166px; HEIGHT: 32px" cellSpacing="0" cellPadding="0"
width="1166" align="center" border="0">
<tr>
<td class="textsmall" style="HEIGHT: 21px" align="left"><span class="text">หน้าที่</span>
1 | <font class="textsmall">1</font>| | <A href="Default.asp"><FONT class="textsmall">2</FONT>
</A>| | <A href="Default.asp"><font class="textsmall">3</font></A>
</td>
</tr>
<tr>
<td class="text" align="right">
<A href="Default.asp?pageNo=<%=pageNo-1%>">< ย้อนกลับ |</A> <A href="Default1.asp?pageNo=<%=pageNo+1%>">
ต่อไป> |</A>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
Tag : - - - -
Date :
4 เม.ย. 2550 09:23:28
By :
dumbro
View :
7064
Reply :
2
แล้วมัน error ตรงไหน ? บรรทัดไหน ? อย่างไร ? ล่ะครับ
เล่นแปะมาเป็นพรื๊ด แบบนี้ ปวดหัว
Date :
6 เม.ย. 2550 04:04:56
By :
mangkhud
อยากช่วยนะ แต่รายละเอียดเยอะมากไป ไม่รู้จะเริ่มตรงไหนน่ะค่ะ
Date :
7 พ.ค. 2550 13:50:36
By :
คะ
Load balance : Server 02