📄 tuya_show.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
#divUpControl{position:absolute; width:320; left:10; top:10; z-index:1; text-align: right}
#divDownControl{position:absolute; width:320; left:42px; top:346px; z-index:1; text-align: right}
#divContainer{position:absolute; width:486px; height:221px; overflow:hidden; top:287px; left:290px; clip:rect(0 500 240 0); visibility:hidden}
#divContent{position:absolute; top:0; left:0}
td {
font-size: 12px;
}
A:visited {
TEXT-DECORATION: none
}
A:active {
TEXT-DECORATION: none
}
A:hover {
TEXT-DECORATION: underline overline
}
A:link {
TEXT-DECORATION: none
}input {
border: thin groove;
background-color: #EFF8F7;
}
area {
border: 1px none;
}
BODY {
SCROLLBAR-FACE-COLOR: #ffffff; SCROLLBAR-HIGHLIGHT-COLOR: #9e9e9e; SCROLLBAR-SHADOW-COLOR: #9e9e9e; SCROLLBAR-3DLIGHT-COLOR: #ffffff; SCROLLBAR-ARROW-COLOR: #9e9e9e; SCROLLBAR-TRACK-COLOR: #eaeaea; SCROLLBAR-DARKSHADOW-COLOR: #eaeaea
}
</style>
<STYLE type=text/css>.opacity {
FILTER: alpha(opacity=100)
}
</STYLE>
<SCRIPT>
function movstar(a,time){
movx=setInterval("mov("+a+")",time)
}
function movover(){
clearInterval(movx)
}
function mov(a){
scrollx=new_date.document.body.scrollLeft
scrolly=new_date.document.body.scrollTop
scrolly=scrolly+a
new_date.window.scroll(scrollx,scrolly)
}
function o_down(theobject){
object=theobject
while(object.filters.alpha.opacity>60){
object.filters.alpha.opacity+=-5}
}
function o_up(theobject){
object=theobject
while(object.filters.alpha.opacity<100){
object.filters.alpha.opacity+=5}
}
function wback(){
if(new_date.history.length==0){window.history.back()}
else{new_date.history.back()}
}
</SCRIPT>
<title>GuangGuangDang</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
function MM_goToURL(url) { //v3.0
window.open(url)
}
function delty(id){
var url='add_grade.asp?delid='+id
if (confirm ("确认删除该涂鸦！")){
MM_goToURL(url)
}
}
function talksub(){
if (document.talkform.talker.value!=""){
if(document.talkform.talkcontent.value!=""){
document.talkform.submit();
document.talkform.talkcontent.value =""
document.talkform.talker.value =""
}
else
{
alert ("想说你就说吗！");
}
}
else
{
alert ("留下你的姓名吧！");
}
}
//-->
</script>
</HEAD>
<BODY background="images/bg.gif" >
<table width="622" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/top.gif" width="622" height="17"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <div align="right"></div>
<div align="right"> <img src="images/tuya/top.gif" width="622" height="212"></div></td>
</tr>
<tr valign="middle">
<td height="21" valign="middle" background="images/bg1.gif"> <a href="index.asp"><img src="images/b1.gif" alt="首页" width="38" height="9" border="0"></a> <a href="aboutme.asp"><img src="images/b2.gif" alt="我自己" border="0"></a> <a href="favorites.asp"><img src="images/b3.gif" alt="收藏" border="0"></a> <a href="coollink.asp"><img src="images/b4.gif" alt="酷站" border="0"></a> <a href="wallpaper.asp"><img src="images/b6.gif" alt="精彩桌面" width="80" height="9" border="0"></a> <a href="guest/guest.asp"><img src="images/b5.gif" alt="留言簿" border="0"></a>
<img src="images/b7.gif" width="37" height="9"><a href="admin_login.asp">
</a></td>
</tr>
</table>
<table width="622" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EFF8F7">
<tr>
<td colspan="2" valign="top"> <br> <img src="images/tuya/t1.gif" width="622" height="10"></td>
</tr>
<tr>
<td height="251" colspan="2" valign="top" background="images/tuya/t2.gif">
<div align="right"><a href="tuya_pen_show.asp"><img src="images/tuya/pen.gif" alt="钢笔画" width="99" height="29" border="0"><img src="images/tuya/TY.gif" alt="水彩画" width="99" height="29" border="0"></a>
</div>
<div align="right">
<%
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=8888;dbq=" & server.MapPath ("guest/db/guestbook.mdb")
dim myrs,sq,myrs_tk
set myrs=server.CreateObject ("adodb.recordset")
set myrs_tk=server.CreateObject ("adodb.recordset")
sq="select * from tuya order by date_t desc"
myrs.Open sq,gconn,1,3
myrs.PageSize= 1
myrs.AbsolutePage =mypage
do while not myrs.EOF and count<myrs.PageSize
%>
</div>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="68%"> </td>
<td width="32%"><div align="right"><a href="tuya_paint.asp"><img src="images/tuya/go.gif" alt="开始涂鸦" width="56" height="23" border="0"></a></div></td>
</tr>
<tr>
<td height="200" valign="top"><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="379" height="281" >
<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="379" height="281"></embed></object></td>
<td valign="bottom"><p>作者：<%=myrs("name")%><br>
<br>
时间： <%=myrs("date_t")%><br>
<br>
得分： <%=myrs("grade")%></p>
<p>加分：</p>
<form name="form1" method="post" action="add_grade.asp" target="_blank">
<p>
<input type="hidden" value=<%=myrs("id")%> name="tuya_id">
<input name="radiobutton" type="radio" value="1" checked>
：1分 </p>
<p>
<input type="radio" name="radiobutton" value="2">
：2分 </p>
<p>
<input type="radio" name="radiobutton" value="5">
：5分 </p>
<p align="center">
<input type="submit" name="Submit" value="加分">
<%
if session("admin")=true then
%>
<input type="button" name="del" value="删除" ID="del1" onclick =javascript:delty(<%=myrs("id")%>)>
<%
end if
%>
</p>
</form>
<p align="right"><br>
<br>
</p></td>
</tr>
<tr>
<td colspan="2" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<%'评论涂鸦输出部分开始---------------------------------------------------------------------------------------------------
sqtk="select id,talk,talker from tuya_talk where tuya_id="&myrs("id")&" and tuya_type=1 order by date_t desc"
myrs_tk.Open sqtk,gconn,1,3
'response.Write sqtk
'response.End
tb=0
do while not myrs_tk.EOF
if tb=0 then
response.Write("<tr bgcolor='#CCCCCC'><td>")
tb=1
else
response.Write("<tr><td>")
tb=0
end if
response.Write "<font color=#003366>"&myrs_tk("talker")&"说："&myrs_tk("talk")&"</font>"
if session("admin")=true then
response.Write "<td><a href=talk_ty.asp?delid="&myrs_tk("id")&" target=_blank>删除</a></td>"
end if
myrs_tk.MoveNext ()
response.Write("</td></tr>")
loop
'评论涂鸦输出部分结束---------------------------------------------------------------------------------------------------%>
</table>
<form action="talk_ty.asp" method="post" name="发" id="talkform" target="_blank">
<input type =hidden name =tuya_id value =<%=myrs("id")%>>
<input type =hidden name =tuya_type value =1>
我：
<input name="talker" type="text" id="talker" style="width:100"
<%
if session("admin")=true then
response.Write "value=光光当"
end if
%>
>
说 ：
<input name="talkcontent" type="text" id="talkcontent" style="width:300">
<input type="button" name="Submit2" value=" 发 " onclick ="javascript:talksub()">
</form></td>
</tr>
</table>
<%
myrs.MoveNext ()
count=count+1
loop
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
response.Write "水彩画涂鸦总数"&myrs.RecordCount &" <br>"
for i=1 to myrs.PageCount
tt=tt+1
if int(i)<> int(mypage) then
response.Write "<a href=tuya_show.asp?mypage="&i&">["&int(myrs.PageCount-i)+1&"]</a> "
else
response.Write "{"&int(myrs.PageCount-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>
<tr>
<td>
<%
set myrspen=server.CreateObject("adodb.recordset")
sqpen="select * from tuya_pen order by date_t desc"
myrspen.open sqpen,gconn,1,3
myrspen.PageSize =1
response.Write "钢笔画涂鸦总数"&myrspen.RecordCount &" <br>"
for i=1 to myrspen.PageCount
t=t+1
'if int(i)<> int(mypage) then
response.Write "<a href=tuya_pen_show.asp?mypage="&int(i)&">["&int(myrspen.PageCount-i)+1&"]</a> "
'else
' response.Write "{"&int(myrs.PageCount-i)+1&"} "
'end if
if t=15 then
response.Write("<br>")
t=0
end if
'response.Write int(myrs.PageCount-i)
next
myrspen.Close ()
' gconn.Close()
%>
</td>
</tr>
</table> </tr>
<tr>
<td valign="top" background="images/tuya/t4.gif"> <img src="images/tuya/t3.gif" width="28" height="20" align="top">
<br>
<td valign="top" background="images/tuya/t4.gif"><div align="right"><img src="images/tuya/t5.gif" width="13" height="20"></div></tr>
<tr>
<td><div align="left"><img src="images/copyright.gif" width="269" height="7"></div></td>
<td><div align="right">
<%
if session("admin")=true then
response.Write("<a href=guest/db/guestbook.mdb target=_blank>数据库下载</a>")
end if
%>
<a href="guest/admin_login.asp"><img src="images/copyright1.gif" width="79" height="19" border="0"></a></div></td>
</tr>
<tr>
<td class="text"> </td>
<td> </td>
</tr>
</table>
<P>
</P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -