亚洲无码高清在线播放|国产人伦视频在线观看|在线亚洲中文精品第1页|黄网站色视频免费观看w|亚洲av日韩综合一区二区|国产精品久久超碰人人最新|国产91精品久久久久久无码|欧美日韩偷窥高清一区二区三区

<%if session("admin")<>"" then%> <%end if%> <% sql="select * from data order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,connstr,1,1 if rs.eof then response.write "暫時沒有任何謎語！" else const maxperpage=120 dim currentpage rs.pagesize=maxperpage currentpage=request.querystring("pageid") if not isnumeric(currentpage) then currentpage=1 end if if currentpage="" then currentpage=1 elseif currentpage<1 then currentpage=1 else currentpage=clng(currentpage) if currentpage > rs.pagecount then currentpage=rs.pagecount end if end if dim totalput,n totalput=rs.recordcount if totalput mod maxperpage=0 then n=totalput\maxperpage else n=totalput\maxperpage+1 end if if n=0 then n=1 end if rs.move(currentpage-1)*maxperpage i=0 w=1 do while i< maxperpage and not rs.eof %> <% i=i+1 w=w+1 rs.movenext loop end if rs.close %>

謎語及答案大全

添加謎語  退出管理
謎語	答案
<%=rs("question")%><%if session("admin")<>"" then%>  ">編輯 ">刪除 <%end if%>	')" type=button value=查看謎底 name=button<%=rs("id")%> >
<%=currentpage%>/<% =n%> <%k=currentpage if k<>1 then%> 首頁 上一頁 <%else%> 首頁 上一頁 <%end if%> <%if k<>n then%> 下一頁 尾頁 <%else%> 下一頁 尾頁 <%end if%> 共<%=totalput%>條  跳到  <% p=1 for j=1 to n step 1 if k=p then response.write ""&p&"" else response.write ""&p&" " if j mod 11125=0 then response.write "" end if end if p=p+1 next %>
Copyright 2020© 金美印務＼迅捷傳媒 All Rights Reserved