📄 tuya_show.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>涂鸦板板</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<p>
<%
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)};password=1234;dbq=" & server.MapPath ("db/tu.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 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("tuya_show.asp")
end if
' myrs.PageSize= 1
'myrs.AbsolutePage =mypage
myrs.Move (mypage-1)
'do while not myrs.EOF
%>
</p>
<div align="center">
<table width="51%" border="0">
<tr>
<td width="56%"><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 myrs("id")%>">
<param name="quality" value="high">
<embed src="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></td>
</tr>
</table>
<table width="565" border="0">
<tr>
<td width="181">Design
<% response.write(myrs("name")) %>
</td>
<td width="209"><%=myrs("date_t")%></td>
</tr>
<tr>
<td> 作品
<%
response.Write ":"&myrs.RecordCount &" <br>"
%>
</td>
<td><a href="TUYA.ASP">带我一个</a></td>
</tr>
<tr>
<td colspan="2">
<%
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> "
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()
%>
</td>
</tr>
</table>
<br>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -