我想直接访问这个页面就能显示选定的id，怎么修改啊？还有能不能帮我把没用的代码删除？比如分页的代码？谢谢。

<!--#include file="mfkiqpl.asp"-->
<%
call pagestart
%>

<table width="780" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="529" height="651" valign="top" bgcolor="#FFFFFF"><table width="529" border="0" align="right" cellpadding="0" cellspacing="0">
<%
dim lrs
set lrs=mfkiqpl.execute("select * from board where id="&mfkiqpl.unnum(request("id")))
%>
<tr valign="top">
<td height="700" colspan="3">
<%
function image(str)
if str<>"" then
image=str
else
image="Mfk_images/mfk_112.gif"
end if
end function
set rs=server.CreateObject("ADODB.Recordset")
sql="select id,x_name,x_baojia,x_shijian,x_leixun,x_jingdiantupian,x_top from xianlu where x_leiid="&lrs("id")&" order by x_top desc,id desc"
selectsql=selectsql+1
rs.open sql,conn,1,2
if not( rs.eof or rs.bof) then
rs.pagesize=4
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
a=0
do while not rs.eof and a<rs.pagesize
%>
<table width="527" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="145" height="95" align="center"><table width="120" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF"><a href="list_xianlu.asp?id=<%=mfkiqpl.ennum(rs("id"))%>"><img src="<%=image(rs("x_jingdiantupian"))%>" width="120" height="80" border="0"></a></td>
</tr>
</table></td>
<td width="382"><table width="370" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60" height="22">线路名称：</td>
<td colspan="3"><a href="list_xianlu.asp?id=<%=mfkiqpl.ennum(rs("id"))%>"><%=mfkiqpl.leftstr(rs("x_name"),26)%></a></td>
</tr>
<tr>
<td height="22">特惠价格：</td>
<td width="120" style="color:#FF0000;"><%=rs("x_baojia")%></td>
<td width="60">所需时日：</td>
<td width="130"><%=rs("x_shijian")%></td>
</tr>
<tr>
<td height="22">线路类型：</td>
<td><%=rs("x_leixun")%></td>
<td><%
if rs("x_top")=1 then
response.write("<font color=red>置顶线路</font>")
else
response.write("普通线路")
end if
%></td>
<td>　</td>
</tr>
<tr>
<td height="22" colspan="4"><table width="327" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="150"><a href="list_xianlu.asp?id=<%=mfkiqpl.ennum(rs("id"))%>"><img src="Mfk_images/mfk_85.gif" width="95" height="20" border="0"></a></td>
<td width="177"><a href="giveme_xianlu.asp?id=<%=mfkiqpl.ennum(rs("id"))%>"><img src="Mfk_images/mfk_86.gif" width="110" height="20" border="0"></a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
rs.movenext
a=a+1
loop
mfkiqpl.closers
end if
%>
</td>
</tr>

</table></td>
</tr>
</table>

<%
call pageend
%>

[此贴子已经被作者于2007-9-26 12:39:51编辑过]