急求:ASP程序调用,寻代码

如题,左边是图片,右边是题目和简介,每页八个,翻页,这个结构的ASP代码应该是怎么样的啊,跪求各位高手啊是一张图片,图片旁边是题目和简介,点击题目是调用的视频哟,这样算一... 如题,左边是图片,右边是题目和简介,每页八个,翻页,这个结构的ASP代码应该是怎么样的啊,跪求各位高手啊
是一张图片,图片旁边是题目和简介,点击题目是调用的视频哟,这样算一个整体,一页有八个这样的整体,新手表达上有点问题哈,复制一个代码给我嘛,我确实套不来
展开
 我来答
劲捷电子信息
2010-10-09 · TA获得超过1705个赞
知道小有建树答主
回答量:829
采纳率:33%
帮助的人:409万
展开全部
你要的应该是这个吧!
<%
'=======我写的一个过程,自己调用就可以了==========
'=================================================
'==Cid为接受的栏目类别ID号====如3

Cid=Request("Cid")
ProductList(Cid) '直接调用就可以了....

'===========================================
Sub ProductList(Cid)
Response.Write" <table width=""90%"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""0"">"
Dim ipagecount
Dim ipagecurrent
Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize=8
rs.cachesize=8
MaxPage=8
sql="select * from model_Content where cid="&cid&" order by sort desc"
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "<tr><td align='center'>未找到您要的产品,资料上传中</td></tr>"
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<MaxPage and NOT rs.EOF
Response.Write"<tr>"
for i=1 to 2
if not rs.eof then
Response.Write" <td width='50%'>"

Response.Write"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""2"">"
Response.Write" <tr>"
Response.Write" <td width=""30%"" rowspan=""2"">"
Response.Write" <a href='News_read.asp?Pid="&rs("Pid")&"&Cid="&rs("Cid")&"&ID="&rs("Id")&"' target='_blank'>"
Response.Write" <img src=""uploadfile/"&rs("titleimg")&""" class=""pic2"" /></a></td>"
Response.write" <td width=""70%"">简介:"&rs("Title")&"</td>"
Response.Write" </tr>"
Response.Write" <tr>"
Response.Write" <td>介绍:"&rs("intro")&"</td>"
Response.Write" </tr>"
Response.Write" </table>"

irecordsshown = irecordsshown +1
Response.Write "</td>"
rs.movenext
else
response.Write"<td width='50%'>  </td>"
end if
next
Response.Write "</tr>"
loop
Response.Write"<tr><td height='26' colspan='2' align='center'>"

Response.Write"第<font color='#FF0000'>"&ipagecurrent&"</font>/"&ipagecount&"页"
if ipagecurrent=1 then
else
Response.Write"<a href='?page=1&cid="&cid&"' >首页</a> | "
Response.Write"<a href='?page="&ipagecurrent-1&"&cid="&cid&"' >上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write"<a href='?page="&ipagecurrent+1&"&cid="&cid&"' >下一页</a> "
Response.Write"| <a href='?page="&ipagecount&"&cid="&cid&"' >末页</a> "
end if
Response.Write"</td></tr>"
end if
rs.Close
set rs=nothing
Response.Write"</table>"
End Sub

%>
yaobing0687
2010-10-09 · TA获得超过988个赞
知道小有建树答主
回答量:1309
采纳率:0%
帮助的人:904万
展开全部
这个好像是电子商务用的或者是新闻(图文),你可以到网上下载个相关网站,然后漂出来。
自己写的话也很简单:不过你的意思很不明确。可能有两种设计:
1.一张图片跟一个题目和简介,这样一页有8个Div(如果想省事就用GridView空间吧)
2.8张图片共用一个题目和简介,点击图片或悬浮后显示相应的题目和简介
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
江澄SONG
2010-10-09 · TA获得超过294个赞
知道小有建树答主
回答量:300
采纳率:0%
帮助的人:218万
展开全部
这个其实就是和普通的分页没什么区别,只不过,是要调用图片和简介而已,其实原理是一个样的。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式