<!-- #include file="../../include/skin.asp" -->
<%
index_url="games"
tit_fir="娱乐中心"
url_fir="../"
tit="涂鸦天地"
call web_head(0,0,0,0,0)

dim gconn,mypage
    mypage=request("mypage")
    if mypage="" then
		mypage=1
    end if
   
	set gconn=server.CreateObject ("adodb.connection")
	gconn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath (web_data_path)
	
    dim myrs,sq,myrs_tk
    set myrs=server.CreateObject ("adodb.recordset")
	set myrs_del=server.CreateObject ("adodb.recordset")
    sq="select * from tuya order by date_t desc"
    myrs.Open sq,gconn,1,3
	'if request("delid")<>"" then
		'delsq="delete * from tuya where id="&request("delid")
		'myrs_del.open delsq,gconn,1,3
		'myrs_del.close()
		'response.Write(delsq)
		'response.end()
		'response.Redirect("./")
	'end if
   ' myrs.PageSize= 1
   'myrs.AbsolutePage =mypage
   if not myrs.eof then
   myrs.Move (mypage-1)
   id=myrs("id")
   name=myrs("name")
   date_t=myrs("date_t")
   end if
    'do while not myrs.EOF
    %>
<table width="775" border="0" align="center" cellspacing="1"  cellpadding="4" background="image/bg.JPG">
<tr> 
    <td  align="center" valign="middle"> 
	<table align="center">
	<tr><td width=250>
	涂鸦名称: <% response.write name %> 
	</td>
	<td valign="middle" rowspan="2" width=100>
	<a href="tuya.asp" target="_top"><img src="image/go.gif" alt="去涂鸦" width="60" height="40" border="0"></a> 
    </td></tr>
	<tr><td> 涂鸦时间:<%response.write date_t%></td></tr></table>
	

	</td></tr>
  
    <tr> 
    <td width="100%"  align="center">
	    <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="400" height="400">
        <param name="movie" value="tuya_show.swf?id=<%response.Write id%>">
        <param name="quality" value="high">
        <embed src="tuya_show.swf?id=<%response.Write id%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="400" height="400"></embed></object> 
    </td>
  </tr>


    <tr> 
    <td width="100%"  align="center">
	涂鸦总数 <% response.Write ":"&myrs.RecordCount %> 
	  &nbsp;&nbsp;&nbsp;&nbsp;分页:
      <%
	  for i=1 to myrs.RecordCount 
		tt=tt+1
		if int(i)<> int(mypage) then
			response.Write "<a href=tuya_show.asp?mypage="&i&">["&int(myrs.RecordCount-i)+1&"]</a>&nbsp;"
		else
			response.Write "<font class=blue>["&int(myrs.RecordCount-i)+1&"]</font>&nbsp;"
		end if
		if tt=15 then
			response.Write("<br>")
			tt=0
		end if
		'response.Write int(myrs.PageCount-i)
	  next
	  myrs.Close ()
	  %>
	   </td></tr>
	   <tr><td height="5">
	 </td></tr></table>
	  <%
call web_end(0,0)
%>