|
 |
| |
รบกวนพี่ช่วยดูโค้ดให้หน่อยนะค่ะว่าต้องแก้ตรงไหน ขอบคุนมากกกกกค่ะ |
| |
 |
|
|
 |
 |
|
เอามาให้พี่ดูด้วยว่าต้องแก้ตรงไหนเคยลองเอาโค้ดพี่ตามกระทู้ไปแก้แล้วมานไม่ได้ค่ะช่วยหน่อยนะค่ะขอบคุณมากค่ะ
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"><style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
body,td,th {
font-family: Tahoma;
font-size: 14px;
color: #660000;
font-weight: bold;
}
-->
</style></head>
<body>
<%
Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
strSQL = "SELECT * FROM user "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3
%>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0" background="loginadmin/images/b4.gif">
<!--DWLayoutTable-->
<tr>
<td width="181" rowspan="2" valign="middle"><div align="right"><img src="loginadmin/images/b6.gif" width="76" height="63" /> </div></td>
<td width="363" rowspan="2" valign="top"> <br />
<br />
<img src="loginadmin/images/p2.gif" width="210" height="40" /><br />
</td>
<td width="238" height="90"> </td>
<td width="220" valign="bottom"><img src="loginadmin/b/b9.gif" width="192" height="52" /></td>
</tr>
<tr>
<td height="15"></td>
<td></td>
</tr>
</table>
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" background="loginadmin/b/b6.gif">
<!--DWLayoutTable-->
<tr> <td width="1003" height="17"></td>
<tr>
<td height="29" valign="top" background="loginadmin/images/b9.gif"> <img src="loginadmin/images/p9.gif" width="150" height="25" /> <a href="login.asp" target="_parent"><img src="loginadmin/b/b5.gif" width="89" height="25" border="0" /></a></td>
<!--DWLayoutTable-->
<tr>
<td height="19" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="177" align="center" valign="top"><table width="1000" border="1" align="left" cellspacing="0" bordercolorlight="#006600" bordercolordark="#006600">
<!--DWLayoutTable-->
<tr>
<th width="81" bgcolor="#C1E8B9">No.</th>
<th width="81" height="34" bgcolor="#C1E8B9"> <div align="center">UserID </div></th>
<th width="354" valign="middle" bgcolor="#C1E8B9"><img src="loginadmin/b/b1.gif" width="158" height="30" /></th>
<th width="283" valign="middle" bgcolor="#C1E8B9"><img src="loginadmin/b/b2.gif" width="158" height="30" /></th>
<th width="91" bgcolor="#C1E8B9"><img src="loginadmin/b/b12.gif" width="57" height="30" /></th>
<th width="81" bgcolor="#C1E8B9"><img src="loginadmin/b/b11.gif" width="57" height="30"></th>
<th width="84" bgcolor="#C1E8B9"><img src="loginadmin/b/b13.gif" width="84" height="30"></th>
</tr>
<%
While Not objRec.EOF
%>
<tr>
<td bgcolor="#EBF8E9"><div align="center"><%=objRec.Fields("No").Value%></div></td>
<td height="36" bgcolor="#EBF8E9"><div align="center"><%=objRec.Fields("UserID").Value%></div></td>
<td valign="middle" bgcolor="#EBF8E9"><%=objRec.Fields("UserName").Value%></td>
<td valign="middle" bgcolor="#EBF8E9"><%=objRec.Fields("Password").Value%></td>
<td align="center" valign="middle" bgcolor="#EBF8E9"><a href="useredit.asp?CusID=<%=objRec.Fields("UserID").Value%>"><img src="loginadmin/images/delete.gif" alt="แก้ไข" width="33" height="32" border="0"></a></td>
<td align="center" valign="middle" bgcolor="#EBF8E9"><a href="deleteuser.asp?CusID=<%=objRec.Fields("UserID").Value%>"><img src="loginadmin/images/edit.gif" alt="ลบ" width="33" height="32" border="0"></a></td>
<td align="center" valign="middle" bgcolor="#EBF8E9"><a href="adduser.asp"><img src="loginadmin/images/b10.gif" alt="เพิ่มผู้ใช้" width="33" height="32" border="0"></a></td>
</tr>
<%
objRec.MoveNext
Wend
%>
</table>
<%
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%></td>
</tr>
<tr>
<td height="1115"> </td>
</tr>
</table>
</body>
</html>
Tag : ASP, Ms Access
|
|
|
 |
 |
 |
 |
| Date :
2010-09-09 13:41:47 |
By :
ning |
View :
1097 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ตาลายเลย error ว่าอะไรยังไงตรงไหนก็ไม่บอก เอา error มาแปะก็ดีนะครับ
|
| |
|
|
| |
| Date :
2010-09-09 17:50:45 |
By :
blacklion |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
มานบอกerrorตรงนี้ค่ะSet Conn = Nothing พอดีต้องการให้มานสลับสีกันแต่ละแถวค่ะ มานจะเพิ่มแถวเลือยๆตามข้อมูลที่อยู่ในdatabase access ค่ะ ไม่รู้จะต้องเพิ่มโค้ดรายตรงไหน asp นะค่ะ ขอบคุณพี่ลวงหน้านะค่ะ
|
| |
|
|
| |
| Date :
2010-09-09 20:13:22 |
By :
gusjang |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 03
|
