naruto13800
23-06-2010, 09:50 PM
Em đang làm để tài Web . Nói thật là chả biết chút gì chỉ sữa code của người ta lại . Bây giờ gập vấn đề ở chổ truyền tham số URL và Up hình
Truyền tham --> khi up 1 san pham mới thì tên sản phẩm sẻ là link dẫn tới trang về sản phẩm đó . Trên google thì người ta nói là tạo 1 Request , khi người dùng chọn sản phẩm thì nó tự lọc trong CSDL ra cái Fields phù hợp với cái Sản phẩm chọn..
Đây là code xuất sản phẩm ra mà em có !! Ai pro hướng dẫn giúp
<%
if( session("user") <> "Admin") then
Dim oRs
Dim Mv
Dim PageNo
Dim j
Dim i
Set oRs = Server.CreateObject("ADODB.Recordset")
Mv = Request("Mv")
If Request("PageNo") = "" Then
PageNo = 1
Else
PageNo = Request("PageNo")
End If
dim sql
sql = "select * from Sanpham"
oRs.Open sql, Constr, adOpenStatic
oRs.PageSize = 4
If Mv = "Page Down" or Mv = "Page Up" Then
Select Case Mv
Case "Page Down"
If PageNo > 1 Then
PageNo = PageNo - 1
Else
PageNo = 1
End If
Case "Page Up"
If oRs.AbsolutePage < oRs.PageCount Then
PageNo = PageNo + 1
Else
PageNo = oRs.PageCount
End If
Case Else
PageNo = 1
End Select
End If
if not oRs.eof then oRs.AbsolutePage = PageNo
i = 0
do while not (oRs.eof) and (i<4)
%>
<tr bgcolor="DDEECD">
<td width="4%" align="right"></td>
<td width="16%">Họ Tên: <%=oRs("Ten")%></td> <br>
<td width="18%">Hãng: <%=oRs("Hang")%></td> <br>
<td width="16%">Giá : <%=oRs("Gia")%></td> <br>
<td width="17%">Thông tin: <%=oRs("Thongtin")%></td>
</tr>
<br><br><br>
<%
i = i+ 1
oRs.MoveNext
loop
%>
<tr>
<td colspan="7"><div align="center">
<Input Type="Hidden" Name="PageNo" Value="<%= PageNo %>">
<% If PageNo < oRs.PageCount Then %>
<INPUT TYPE="Submit" Name="Mv" Value="Page Up">
<% End If %>
<% If PageNo > 1 Then %>
<INPUT TYPE="Submit" Name="Mv" Value="Page Down">
<%
End If
end if
%>
</div></td>
</tr>
</table>
</form>
Vấn đề thứ 2 là lúc thêm sản phẩm thì phát sinh vấn đề là hình của sản phẩm . Up vào Access thì up ở dạng OLE Object khi xuất ra thì nó không có hình , Ai đã tùng làm rồi cho em kinh nghiệm
Em dùng ngôn ngữ VBscript và làm trong Macromedia Dreaweaver 8
Truyền tham --> khi up 1 san pham mới thì tên sản phẩm sẻ là link dẫn tới trang về sản phẩm đó . Trên google thì người ta nói là tạo 1 Request , khi người dùng chọn sản phẩm thì nó tự lọc trong CSDL ra cái Fields phù hợp với cái Sản phẩm chọn..
Đây là code xuất sản phẩm ra mà em có !! Ai pro hướng dẫn giúp
<%
if( session("user") <> "Admin") then
Dim oRs
Dim Mv
Dim PageNo
Dim j
Dim i
Set oRs = Server.CreateObject("ADODB.Recordset")
Mv = Request("Mv")
If Request("PageNo") = "" Then
PageNo = 1
Else
PageNo = Request("PageNo")
End If
dim sql
sql = "select * from Sanpham"
oRs.Open sql, Constr, adOpenStatic
oRs.PageSize = 4
If Mv = "Page Down" or Mv = "Page Up" Then
Select Case Mv
Case "Page Down"
If PageNo > 1 Then
PageNo = PageNo - 1
Else
PageNo = 1
End If
Case "Page Up"
If oRs.AbsolutePage < oRs.PageCount Then
PageNo = PageNo + 1
Else
PageNo = oRs.PageCount
End If
Case Else
PageNo = 1
End Select
End If
if not oRs.eof then oRs.AbsolutePage = PageNo
i = 0
do while not (oRs.eof) and (i<4)
%>
<tr bgcolor="DDEECD">
<td width="4%" align="right"></td>
<td width="16%">Họ Tên: <%=oRs("Ten")%></td> <br>
<td width="18%">Hãng: <%=oRs("Hang")%></td> <br>
<td width="16%">Giá : <%=oRs("Gia")%></td> <br>
<td width="17%">Thông tin: <%=oRs("Thongtin")%></td>
</tr>
<br><br><br>
<%
i = i+ 1
oRs.MoveNext
loop
%>
<tr>
<td colspan="7"><div align="center">
<Input Type="Hidden" Name="PageNo" Value="<%= PageNo %>">
<% If PageNo < oRs.PageCount Then %>
<INPUT TYPE="Submit" Name="Mv" Value="Page Up">
<% End If %>
<% If PageNo > 1 Then %>
<INPUT TYPE="Submit" Name="Mv" Value="Page Down">
<%
End If
end if
%>
</div></td>
</tr>
</table>
</form>
Vấn đề thứ 2 là lúc thêm sản phẩm thì phát sinh vấn đề là hình của sản phẩm . Up vào Access thì up ở dạng OLE Object khi xuất ra thì nó không có hình , Ai đã tùng làm rồi cho em kinh nghiệm
Em dùng ngôn ngữ VBscript và làm trong Macromedia Dreaweaver 8