帮忙修改个asp样式 上一个下一个产品

来源：百度知道 编辑：UC知道 时间：2024/06/15 06:21:49
'=================================================
'产品阅读
'过程名称 ProductsDisplay
'=================================================
Sub ProductsDisplay(byval ChannelID)
response.write "<script language=""javascript"">"&chr(13)
response.write "function ShopUser(ID) {"&chr(13)
response.write " popupWin = window.open('../ESYSPassport/UserShop.asp?ID='+ ID,'','width=720,height=530,scrollbars=no')"&chr(13)
response.write "}"&chr(13)
response.write "</script>"&chr(13)
ID = Request("ID")
if isnumeric(ID)=false Then
response.Write("系统查询失败，请稍候访问。")
Else
If ID="" Then
response.Write("系统查询失败，请稍候访问。")
Else
set rs = server.CreateObject ("adodb.recordset")
sql="select * from Easyes_Products where ChannelID="&ChannelI

id不连续没关系，上一个就查询比当前id小的产品中id最大的那个
下一个就是比当前id大的产品中最小的那个就可以了

'=================================================
'产品阅读
'过程名称 ProductsDisplay
'=================================================
Sub ProductsDisplay(byval ChannelID)
response.write "<script language=""javascript"">"&chr(13)
response.write "function ShopUser(ID) {"&chr(13)
response.write " popupWin = window.open('../ESYSPassport/UserShop.asp?ID='+ ID,'','width=720,height=530,scrollbars=no')"&chr(13)
response.write "}"&chr(13)
response.write "</script>"&chr(13)
ID = Request("ID")
if isnumeric(ID)=false Then
response.Write("系统查询失败，请稍候访问。")
Else
If ID="" Then
response.Write("系统查询失败，请稍候访问。")
Else
set rs = server.CreateObject ("ad