[求助]急需一跳转菜单代码 - ASP技术论坛

楼主

问题点数：0 回复次数：5

[求助]急需一跳转菜单代码

小弟想在这里面添加一短这样的代码.

图片附件: 游客没有浏览图片的权限，请登录或注册

麻烦各位给我一些.我想在文本框中输入2.然后跳转到第二页,在线等,先谢谢各位了.要说名改那些地方改的地方用XXXXX.
我这有一个menu1 的跳转代码,看修改的地方都用XXXX表示了.还要修改的地方请帮我用XXXX表示
<%
for i=1 to XXXX_TFMtotalPages
Dim curpage
if XXXXX_TFMcurrentpage=i then
curpage="selected"
else
curpage=""
end if
Response.write "<optionvalue=XXXX.asp?XXXX="& Request.Querystring("XXXX") &"&Offset="&(i-1)*10&""&curpage&">"&i&"</option>"
next
%>

搜索更多相关主题的帖子: 菜单　代码　

第 2 楼

得分:0

直接用Dreamweaver附带的跳转菜单不就行了嘛，不过我会帮你看看，迟点给答复你吧，我现在没空看。

第 3 楼

得分:0

我就是用的DM中的menu1也是跳转菜单但是.这个里面有些代码怎么写!麻烦说一下!先谢谢了

第 4 楼

得分:0

我帮你做了一个，自己修改一下链接吧：
<body>
<p>
<%
Dim conn,rs
Dim connstr
Dim sqlCmd
Dim pages
if(Request.QueryString("pages")<>"") then
pages=Cint(Request.QueryString("pages"))
if(pages<1) then
pages=1
Response.Redirect("index.asp?pages=1")
end if
else
pages=1
end if
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("DataBase/data.mdb")

set rs= server.createobject("adodb.recordset")
if pages<>1 then
rs.open "select Top 10 * from test where id not in(select Top "&(pages-1)*10&" id from test order by id) order by id",conn,1,2
else
rs.open "select Top 10 * from test order by id",conn,1,2
end if
if rs.recordcount<>0 then
response.Write("<table cellspacing='0' cellpadding='4' rules='all' border='1' id='GridView1' style='color:#333333;border-collapse:collapse;'>")
response.Write("<tr style='color:White;background-color:#1C5E55;font-weight:bold;'>")

for each it in rs.fields
Response.Write("<th>"&it.name&"</th>")
next

response.Write("</tr>")

dim arr
arr = rs.GetRows()
'arr(0,2)="ssssss"
For row = 0 To UBound(arr, 2)
response.Write("<tr>")
For col = 0 To UBound(arr, 1)
Response.Write ("<td>"&arr(col, row) & "</td>")
Next
response.Write("</tr>")
Next
response.Write("</table>")

end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</p>
<form action="index.asp" method="get"><a href='index.asp?pages=<%=(pages-1)%>'>上一页</a>
<a href='index.asp?pages=<%=(pages+1)%>'>下一页</a>
<input name="pages" value="<%=pages%>" style="width:30px" type="text">
<input value="GO" type="submit">
</form>
</body>

第 5 楼

得分:0

对了，忘了说，这个是要连到数据库里的

第 6 楼

得分:0

回复：（Doubleling）对了，忘了说，这个是要连到数据...

谢谢了,太感谢你了