急求:ASP程序调用,寻代码
如题,左边是图片,右边是题目和简介,每页八个,翻页,这个结构的ASP代码应该是怎么样的啊,跪求各位高手啊是一张图片,图片旁边是题目和简介,点击题目是调用的视频哟,这样算一...
如题,左边是图片,右边是题目和简介,每页八个,翻页,这个结构的ASP代码应该是怎么样的啊,跪求各位高手啊
是一张图片,图片旁边是题目和简介,点击题目是调用的视频哟,这样算一个整体,一页有八个这样的整体,新手表达上有点问题哈,复制一个代码给我嘛,我确实套不来 展开
是一张图片,图片旁边是题目和简介,点击题目是调用的视频哟,这样算一个整体,一页有八个这样的整体,新手表达上有点问题哈,复制一个代码给我嘛,我确实套不来 展开
3个回答
展开全部
你要的应该是这个吧!
<%
'=======我写的一个过程,自己调用就可以了==========
'=================================================
'==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
%>
<%
'=======我写的一个过程,自己调用就可以了==========
'=================================================
'==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
%>
展开全部
这个好像是电子商务用的或者是新闻(图文),你可以到网上下载个相关网站,然后漂出来。
自己写的话也很简单:不过你的意思很不明确。可能有两种设计:
1.一张图片跟一个题目和简介,这样一页有8个Div(如果想省事就用GridView空间吧)
2.8张图片共用一个题目和简介,点击图片或悬浮后显示相应的题目和简介
自己写的话也很简单:不过你的意思很不明确。可能有两种设计:
1.一张图片跟一个题目和简介,这样一页有8个Div(如果想省事就用GridView空间吧)
2.8张图片共用一个题目和简介,点击图片或悬浮后显示相应的题目和简介
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个其实就是和普通的分页没什么区别,只不过,是要调用图片和简介而已,其实原理是一个样的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询