UC知道关天ASP变量接受的问题,.来位大虾帮下忙!
来源：百度知道 编辑：UC知道 时间：2024/05/29 20:51:11
帮忙改一下我的两个页面..激活后就把相应的选出来...
6649.asp代码如下:
<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("6649.mdb")
conn.Open strcon
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from 6649 order by id desc"
rs.Open sql, conn, 1
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
<tr>
<a href="play.asp?id=<%=rs("id")%>" target="play">
<% =rs("mc")%></a>
<%=rs("singer")%>
<a href="list.asp?tyeid=<%=rs("tyeid")%>"><%=rs("tyeid")%></a>
<%=rs("time")%
6649.asp代码如下:
<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("6649.mdb")
conn.Open strcon
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from 6649 order by id desc"
rs.Open sql, conn, 1
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
<tr>
<a href="play.asp?id=<%=rs("id")%>" target="play">
<% =rs("mc")%></a>
<%=rs("singer")%>
<a href="list.asp?tyeid=<%=rs("tyeid")%>"><%=rs("tyeid")%></a>
<%=rs("time")%
是要改list.asp吗
list.asp代码如下:
<% Dim tyeid
tyeid="1"
if (request("tyeid")<>"") then
tyeid=request.QueryString("tyeid")
End if
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("6649.mdb")
conn.Open strcon
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from 6649 where tyeid='"&tyeid&"'"
rs.Open sql, conn, 3
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>
<a href="play.asp?id=<%=rs("id")%>" target="play">
<% =rs("mc")%></a></td><%=rs("singer")%></td>
<a href="list.asp?