tuya2.asp

asp构建网站bbs.采用B/S架构

<!--#include file="up.asp"-->
<div align="center">
<%
t1="<div align=center><center> <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%' height='24'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d1="<tr><td width=100% ><P style='MARGIN: 15px'>"
d2="</td></tr></table></center></div>"%>
  <style type="text/css">
<!--
td {
	font-size: 12px;
}
-->
  </style>
  <%
    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 ("db/tuya.mdb")
	
    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 myrs.eof then%><br><br>
<%=t1%>错误信息<%=t2&d1%>对不起现在还没有涂鸦信息！！！！请你在这里 <a href=tuya.asp>涂鸦</a><%=d2%>
  <br><!--#include file="down.asp"-->
<%	response.end
	end if
	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("tuya2.asp")
	end if
   ' myrs.PageSize= 1
   'myrs.AbsolutePage =mypage
   myrs.Move (mypage-1)
    'do while not myrs.EOF
    %>
  <br><br>
  <%=t1%>社区涂鸦板<%=t2&d1%> <p 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/tuya_show.swf?id=<%response.Write myrs("id")%>">
    <param name="quality" value="high">
    <param name="wmode" value="transparent">
    <embed src="tuya/tuya_show.swf?id=<%response.Write myrs("id")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="400" height="400"></embed></object>
  <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="60" height="40" align="bottom">
    <param name="movie" value="tuya/go.swf">
    <param name="quality" value="high">
    <embed src="tuya/go.swf" width="60" height="40" align="bottom" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed></object>
  <a href="tuya.asp">来这涂鸦</a> <%=d1%><p align="center">作品名称: 
  <%=myrs("name") %>
  &nbsp; 涂鸦时间:<%=myrs("date_t")%>&nbsp;&nbsp;涂鸦作者： 
  <%=myrs("username")%>
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="tuyagl.asp?gl=look">个人作品管理</a> &nbsp;&nbsp;&nbsp;<%set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if not cjbz.eof then
%><a href="tuyagl.asp?gl=admin">超级管理</a><br><br>
<%
End If %>
<%=d1%> <p align="center">涂鸦总数 
  <%
	  response.Write ":"&myrs.RecordCount &" &nbsp;<br>"
	  %>
  <%
	  
	  for i=1 to myrs.RecordCount 
		tt=tt+1
		if int(i)<> int(mypage) then
			response.Write "<a href=tuya2.asp?mypage="&i&">["&int(myrs.RecordCount-i)+1&"]</a>&nbsp;"
		else
			response.Write "<"&int(myrs.RecordCount-i)+1&">&nbsp;"
		end if
		if tt=15 then
			response.Write("<br>")
			tt=0
		end if
		'response.Write int(myrs.PageCount-i)
	  next
	  myrs.Close ()
      'gconn.Close()
      %><br><br>
  <%=d2%> <br>
  <!--#include file="down.asp"-->
</div>