?? tuya2.asp
字號:
<!--#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'> <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%>對不起現(xiàn)在還沒有涂鴉信息!!!!請你在這里 <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%>社區(qū)涂鴉板<%=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") %>
涂鴉時間:<%=myrs("date_t")%> 涂鴉作者:
<%=myrs("username")%>
<a href="tuyagl.asp?gl=look">個人作品管理</a> <%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">涂鴉總數(shù)
<%
response.Write ":"&myrs.RecordCount &" <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> "
else
response.Write "<"&int(myrs.RecordCount-i)+1&"> "
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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -