有关交互式链接，谢谢

setcdq9801的专栏 2002-08-16 12:14:28
我用以下asp代码实现了交互式链接，请问我如何把它单独的每个链接放进一个单元格中
这样就管理就非常方便了！

<% set myobj=server.createobject("mswc.nextlink") %>
   <font face="CommercialScript BT"> </font>
</blockquote>
<uL>
<%
FOR I=1 to myobj.getlistcount("list.txt")
%>
<LI type=disc ><a href=rtsp://172.16.0.1/<% =myobj.getnthurl("list.txt",I) %> >
<% =myobj.getnthdescription("list.txt",I) %> </A>
<% next %>
</ul>
...全文
70 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
setcdq9801的专栏 2002-08-17
  • 打赏
  • 举报
 回复
list.txt文件内容为

smi/01.smi FAMILY ALBUM USA 01
smi/02.smi FAMILY ALBUM USA 02
smi/03.smi FAMILY ALBUM USA 03
smi/06.smi FAMILY ALBUM USA 03
smi/04.smi FAMILY ALBUM USA 05
smi/05.smi FAMILY ALBUM USA 06
smi/07.smi FAMILY ALBUM USA 07
smi/08.smi FAMILY ALBUM USA 08
smi/09.smi FAMILY ALBUM USA 09
smi/10.smi FAMILY ALBUM USA 10
smi/11.smi FAMILY ALBUM USA 11
smi/12.smi FAMILY ALBUM USA 11


两列用TAB键分开

就可以实现了

这一是个超链接的例子，希望你谁也有帮助

谢谢

cmsoft(韦小宝是我的老乡)

thinkover(至真宝)
freezwy(网络自由人)
MeXP(秦汉风)

以及所有关注此问题的朋友
以后还有问题向你们请教的

setcdq9801的专栏 2002-08-17
  • 打赏
  • 举报
 回复
解决了，结贴

贴出我的源代码

<html>
<title>测试</title>
<BODY>
<% set myobj=server.createobject("mswc.nextlink") %>
<table border=1>
<%
j=0
FOR i=1 to myobj.getlistcount("list.txt")
url1=myobj.getnthurl("list.txt",i)
explain=myobj.getnthdescription("list.txt",i)

if j mod 3=0 then
Response.Write "<tr><td width='250'><div align='center'>"
else
Response.Write "<td width='250'><div align='center'>"
end if
%>
<a href=rtsp://172.16.0.1/<% =url1 %> >
<% response.write explain %> </A>
<%
j=j + 1
if j mod 3=0 then
Response.Write "</td></tr>"
else
Response.Write "</td>"
end if
next

%>
<tr>
</table>
</body>
</html>
freezwy 2002-08-16
  • 打赏
  • 举报
 回复
使用表格来限定就是了。
一般的格式如下：
<table>
<tr>
<%循环%>
<td><%=连接的值%></td>
<%中止循环%>
</tr>
</table>
qisanyou 2002-08-16
  • 打赏
  • 举报
 回复
回不了留言,只好贴到这里,以下代码跟此贴无关.

function scrollnow() {
if (on){
if (x < limdex & x >= 0 ) {
parent.frames[0].scroll(x,0);

x = x + 1;
setTimeout('scrollnow()', 18);<----8改成18就慢了很多
}
......................
MeXP 2002-08-16
  • 打赏
  • 举报
 回复
不知是不是这个意思
<% FOR I=1 to myobj.getlistcount("list.txt") %>
<tr>
<td>
<a href=rtsp://172.16.0.1/<%=myobj.getnthurl("list.txt",I)%>>
<% =myobj.getnthdescription("list.txt",I) %></A>
</td>
</tr>
<% next %>
cmsoft 2002-08-16
  • 打赏
  • 举报
 回复
<table border=1>
<% set myobj=server.createobject("mswc.nextlink") %>
   <font face="CommercialScript BT"> </font>
</blockquote>
<uL>

<%
FOR I=1 to myobj.getlistcount("list.txt")
%>
<LI type=disc >
<tr> <td><a href=rtsp://172.16.0.1/<% =myobj.getnthurl("list.txt",I) %> >
<% =myobj.getnthdescription("list.txt",I) %> </A> </td></tr>
<% next %>
</ul>
</table>
cmsoft 2002-08-16
  • 打赏
  • 举报
 回复
你自己改一下吧，这个我已经试过成功了
<table border=1>
<%
j=0
FOR i=0 to 9
if j mod 3=0 then
Response.Write "<tr><td width='150'><div align='center'>"
else
Response.Write "<td width='150'><div align='center'>"
end if
%>
<a href=rtsp://172.16.0.1/<%=i%>><% =i %></A>
<%
j=j + 1
if j mod 3=0 then
Response.Write "</td></tr>"
else
Response.Write "</td>"
end if
next

%>
<tr>
</table>
cmsoft 2002-08-16
  • 打赏
  • 举报
 回复

<%
j=0
FOR I=1 to myobj.getlistcount("list.txt")
if j mod 3=0 then
Response.Write "<tr><td width='150'><div align='center'>"
else
Response.Write "<td width='150'><div align='center'>"
end if
%>

<a href=rtsp://172.16.0.1/<%=myobj.getnthurl("list.txt",I)%>>
<% =myobj.getnthdescription("list.txt",I) %></A>
<%
j=j + 1
response.write "</td>"
end if
next
%>
</tr>

cmsoft 2002-08-16
  • 打赏
  • 举报
 回复
以前写的一个例子，自己看看@_@
<%
if j mod 3=0 then
Response.Write "<tr><td width='150'><div align='center'>"
else
Response.Write "<td width='150'><div align='center'>"
end if

Response.Write "<a href='javascript:CallPage(""" & id & """,""" & ver & """)'><img src="&smallpicurl&" alt='" & proname & "' border='0'></a></font></div><br><font size='2'><div align='center'>"&proname&"</div></font></td>"

rs.MoveNext
rsnum=rsnum+1

Response.Write "</table>"
%>
setcdq9801的专栏 2002-08-16
  • 打赏
  • 举报
 回复
不行呀！
顶
cmsoft 2002-08-16
  • 打赏
  • 举报
 回复
if tds mod 3=0 then '按楼上的应该是这样子
JavaCoffee 2002-08-16
  • 打赏
  • 举报
 回复
要修改一下：
<tr>
<td>
<%
tds=0
FOR I=1 to myobj.getlistcount("list.txt")
%>
<a href=rtsp://172.16.0.1/<%=myobj.getnthurl("list.txt",I)%>>
<% =myobj.getnthdescription("list.txt",I) %></A>
<%
tds=tds + 1
if tds=3 then
response.write "</td></tr><tr><td>"
　　　 tds=0
end if
next
%>
</td>
</tr>

表示每３列换一行。
JavaCoffee 2002-08-16
  • 打赏
  • 举报
 回复
试试下面这样：
<tr>
<td>
<%
tds=0
FOR I=1 to myobj.getlistcount("list.txt")
%>
<a href=rtsp://172.16.0.1/<%=myobj.getnthurl("list.txt",I)%>>
<% =myobj.getnthdescription("list.txt",I) %></A>
<%
tds=tds + 1
if tds=3 then
response.write "</td></tr><tr><td>"
end if
next
%>
</td>
</tr>

表示每３列换一行。
setcdq9801的专栏 2002-08-16
  • 打赏
  • 举报
 回复
分数加到200！
求解！
setcdq9801的专栏 2002-08-16
  • 打赏
  • 举报
 回复
to cmsoft(韦小宝是我的老乡)
谢谢，不过这样只能实现表只有一列
to MeXP(秦汉风)
你的也一样，只有一列，我想自己设置表有几行几列，然后让它自动填进去，请问怎么办？

freezwy(网络自由人)
有点不懂你的意思
Python 创建自己的交互式Shell和BotNet实现远程控制
Python 远程控制 本文仅为传递技术，如您用于非法用途，我们不会也不可能承担任何责任 本文由中国秦川联盟旗下氢氟安全组撰写，原文来自于中国秦川联盟博客（他*的这几天服务器崩了），我们不希望您转载本文，如果有非法爬虫爬取本文，本声明依然奏效，中国秦川联盟有权追责 以上声明将会覆盖 CC 4.0 BY-SA 部分协议，为防止爬虫，这里附上本文链接https://blog.csdn.net/weixin_42660646/article/details/105276372，如有发现，希望大家联系我或者直接联系作者删除，谢谢 网络上有很多远程控制的Python脚本，譬如TCP/IP反弹式Shell
v2：with使用React构建的简单，可访问且交互式的个人网站！
亚当斯顿.com· 使用构建托管的的第二次迭代。 先前的版本： 该网站的设计既简单又易于访问。 动态粒子创造了一种互动且视觉上引人入胜的体验。 该站点通过切换，暗模式（默认）和亮模式提供了两个主题。 切换后，所选主题应在选项卡，窗口和页面重新加载之间保持不变。 该站点的移动支持范围从4英寸显示器到6.7英寸，一直到13英寸平板电脑。 开源的 我在假定其他人将使用该代码创建自己的网站的前提下将该网站开源。 我只要求将此代码与归因一起使用，因为花费了大量时间来编写和优化它。 请通过链接回到给予适当的信誉。 谢谢！ 安装与设置 克隆此存储库 安装软件包/依赖项： npm install 启动开发服务器： npm start 随意更改图标或颗粒颜色之类的任何内容 建设与部署 创建网站的生产版本： npm run build 文档详细介绍了如何部署到gh-pages ，Netlify和许多其他服务 图示 字体真棒图标 利用 图标 短代码 暗模式 fas moon 灯光模式 fas sun 的GitHub fab github 领英 fab linkedin 恢复
用VB 6+OpenGL开发交互式CAD系统
Basic)结合OpenGL，从无到有开发一个功能较完整的小型交互式CAD系统。 作者有交互式CAD系统、动态几何系统开发经验。出版过交互式CAD系统开发方面的图书。 课程先讲准备知识，然后讲整个系统的开发思路和主要技术，...
ICIJ-Fatal-Extraction:澳大利亚是非洲采矿业的最大参与者之一，但其庞大的足迹（在某些情况下甚至是致命的足迹）从未得到检查
ICIJ致命提取 从复制的原始数据 可视化的数据在 原始 其他 该数据库是由国际调查新闻记者联合会（ICIJ）在非洲调查报告中心网络（ANCIR）的协助下编制的。 只要您相信我们，您就可以自由地重复使用它。 谢谢！ 您可以在此处查看使用此数据创建的交互式应用程序： : 我们建议您阅读全文互动应用程序“关于”部分中的数据方法。 数据字典： 股票代号 澳大利亚证券交易所（ASX）给出的代码 公司名称 如澳大利亚证券交易所（ASX）所列 制片人？ 截至2014年12月31日，该公司是否实际在生产矿物？ （是=是，否=否） 国家 公司活跃的国家/地区。 如果一家公司在几个非洲国家/地区活跃，那么每个国家/地区在该公司都活跃有一行。 矿物质 公司在该特定国家/地区勘探或生产的矿物。 季度报告（2014年12月） 链接到ASX文档。 2014年年度报告 链接到ASX文档。
[期末网页作业]-精仿华为官网10个网页（html+css+js）
演示地址：https://blog.csdn.net/qq_42431718/article/details/131601782 经过漫长的期末考试季节，我成功地完成了一个华为官网的仿写项目，并且非常高兴地与大家分享。这个项目包含了10个页面，每一个页面都经过了精心的设计和努力的填充。 首先，我注重了页面的整体布局与设计。借鉴了华为官网的风格，我使用了华为的Logo，并且设置了显眼的导航链接，如产品、解决方案、新闻和支持等，以确保用户在访问页面时能够方便地浏览不同的内容。 在为页面添加样式和布局时，我注重了颜色的搭配和字体的选择，以保证页面的视觉效果和整体美感。我致力于使每个页面都能给用户带来愉悦的视觉体验，并且遵循了华为品牌的设计原则。 除了外观设计，我还注重了页面的交互性和功能性。为了提升用户体验，我使用了响应式设计，使得页面在不同的设备上都能良好地展示和操作。同时，我添加了一些动画效果和交互元素，使页面更加生动有趣。 感谢大家的支持与关注！如果您对我的项目有任何技术上的疑问或者建议，我会非常乐意提供帮助。让我们一起共同进步，不断提升自己的技术水平吧！谢谢！
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章