<%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("
精美花篮
![[南宁花海鲜花]](/images/10_online.gif)
