巧克力花束

<%dim tupian1,tupian2,tupian3,tupian4,tupian5,tupian6,tupian1url,tupian2url,tupian3url,tupian4url,tupian5url,tupian6url,fudongjia set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_gg",conn,1,1 tupian1=trim(rs("tupian1")) tupian2=trim(rs("tupian2")) tupian3=trim(rs("tupian3")) tupian4=trim(rs("tupian4")) tupian5=trim(rs("tupian5")) tupian6=trim(rs("tupian6")) tupian1url=trim(rs("tupian1url")) tupian2url=trim(rs("tupian2url")) tupian3url=trim(rs("tupian3url")) tupian4url=trim(rs("tupian4url")) tupian5url=trim(rs("tupian5url")) tupian6url=trim(rs("tupian6url")) rs.close set rs=nothing set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_fudong",conn,1,1 If not rs.eof then fudongjia=rs("canshu") itype=rs("itype") Else fudongjia="*1" itype=3 End If rs.close set rs=nothing Sub PageControl(iCount,pagecount,page,table_style,font_style) '生成上一页下一页链接 Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("

" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上一页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上一页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下一页 " & vbCrLf) Response.Write ("尾页 " & vbCrLf) else Response.Write("下一页 " & vbCrLf) Response.Write("尾页 " & vbCrLf) end if Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf) Response.Write(" 共有" & iCount & "种商品" & vbCrLf) Response.Write(" 转到" & "" & "页" & vbCrLf & "

") Response.Write("

" & vbCrLf ) End Sub %>