📄 80diy_work_list.asp
字号:
<%@ Language=VBScript %>
<!--#include file="articleconn.asp"-->
<%
80diyid=Request.Querystring("ID")
If 80diyid ="" then
Response.Write("<script language=javascript>alert('·?·¨·??ê');window.location.href='http://www.80diy.com/'</script>")
end if
if instr(80diyid,"'") or instr(80diyid,"select") or instr(80diyid,"in") or instr(80diyid,"from") or instr(80diyid,"len") or instr(80diyid,"where") or instr(80diyid,"or") or instr(80diyid,"and") then
Response.Write("<script language=javascript>alert('你想做什么？');window.location.href='80diy.html'</script>")
Response.End
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from book where id="&request("id")
rs.open sql,conn,3,3
set rs2=server.createobject("adodb.recordset")
dim title,nr,author,from1,key1,cs,cs1,typeid,time1,todayhit,img1,img2
img1=trim(rs("img1"))
img2=trim(rs("img2"))
time1=trim(rs("time1"))
typeid=trim(rs("typeid"))
title=trim(rs("title"))
cs=trim(rs("cs"))
nr=trim(rs("nr"))
author=trim(rs("author"))
from1=trim(rs("from1"))
kkk1=trim(rs("key1"))
rs("cs")=cs+1
rs("hitday")=date
rs.update
if rs("hitday")=date() then
rs("todayhit")=rs("todayhit")+1
rs.update
else
rs("todayhit")=0
rs.update
end if
cs1=rs("cs")
todayhit=rs("todayhit")
rs.close
set rs=nothing
%>
<%
sql2="select * from type where id="&typeid
rs2.open sql2,conn,1,1
dim typename
typename=rs2("typename")
rs2.close
set rs2=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>80秀传媒设计资讯中心 || 网站作品展示 || <%=title%></title>
<STYLE>
body
{background-image:url(bg1.gif); background-position:center }
</STYLE>
<link href="style.css" type="text/css" rel="stylesheet">
</head>
<body background="bg.gif" leftmargin=0 topmargin=0>
<center>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="104" bgcolor="#C0C0C0">
<tr>
<td bgcolor="#C0C0C0" width="981" background="img/top.gif" height="104" align="center" valign="bottom">
<table border="0" cellpadding="0" cellspacing="0" width="103%" height="100%">
<tr>
<td width="33%" align="center">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="50%" 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="114" height="82">
<param name="_cx" value="3016">
<param name="_cy" value="2170">
<param name="FlashVars" value>
<param name="Movie" value="img/logo.swf">
<param name="Src" value="img/logo.swf">
<param name="WMode" value="Window">
<param name="Play" value="-1">
<param name="Loop" value="-1">
<param name="Quality" value="High">
<param name="SAlign" value>
<param name="Menu" value="-1">
<param name="Base" value>
<param name="AllowScriptAccess" value="always">
<param name="Scale" value="ShowAll">
<param name="DeviceFont" value="0">
<param name="EmbedMovie" value="0">
<param name="BGColor" value>
<param name="SWRemote" value>
<param name="MovieData" value>
<param name="SeamlessTabbing" value="1"><embed src="img/1118xl.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="174" height="320">
</object>
</td>
<td width="50%"></td>
</tr>
</table>
</div>
</td>
<td width="67%" align="right"><a href="http://www.80diy.com" target="_blank"><img border="0" src="menu1.gif"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td bgcolor="#717171" height="1"></td>
</tr>
<tr>
<td bgcolor="#717171">
<table height="38" cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td background="img/menu_bg.gif" align="center">
<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="9">
<tr>
<td width="28%" height="9"></td>
<td width="72%" height="9" align="right">
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="2">
<tr>
<td bgcolor="#717171" height="1"></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="945" bgcolor="#717171" height="1"></td>
</tr>
</table>
</div>
</center>
<table>
<tr>
</tr>
</table><br>
<div align="center">
<center>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"><font color="#FFFFFF">建站2000起,联系方式:
| QQ:16386225 | E-mail:goglen@126.com</font></td>
</tr>
</table>
</center>
</div>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="line22">
<tr>
<td width="1"><img src="images/dat.gif" width="1" height="1"></td>
<td align="center" valign="top"><table width="780" border="0" cellpadding="6" cellspacing="1" bgcolor="#666666" class="b">
<tr bgcolor="#333333" class="text">
<td width="718" align="center">
<div align="center">
<center>
<table border="0" width="106%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"><font color=#ffffff><b><%=title%></b></font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr bgcolor="#454545" class="text1" >
<td width="718" align="center">
<div align="center">
<center>
<table border="0" width="106%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"><%=nr%></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</td>
<td width="1"><img src="images/dat.gif" width="1" height="1"></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="line22" height="83">
<tr>
<td width="1" height="83"><img src="images/dat.gif" width="1" height="1"></td>
<td align="center" valign="top" height="83">
<table width="780" border="0" cellpadding="6" cellspacing="1" bgcolor="#666666" class="b" height="96">
<tr bgcolor="#333333" class="text">
<td width="667" align="center" height="16">
<table border="0" width="115%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"><font color="#FFFFFF"><b>作
品 点 评</b></font></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#454545" class="text1">
<td width="667" align="center" height="52">
<table border="0" width="115%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"> <%
siteid=CLng(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open "Select * from book where book.id="&siteid,conn,1,3
if not (rs.bof and rs.eof) then
%><%if rs("review")<>"" then
Response.Write rs("review")%> <%else Response.Write "<br><p align=center>当前没有评论</p>"
end if%> <br>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="1" height="83"><img src="images/dat.gif" width="1" height="1"></td>
</tr>
</table>
<div align="center">
<center><form action="savereview.asp?id=<%=request("id")%>" method="POST" name="form">
<table border="0" cellpadding="0" cellspacing="0" width="488">
<tr>
<td width="664" height="15"></td>
</tr>
<tr>
<td width="664" align="center">
<tr>
<td height="169" width="664"> <b> 网上大名：</b>
<input type="Text" name="reviewname" size="30" value="" maxlength="50" >
<font color="#FF0000">*</font> <br>
<br>
<b>
建议标题：</b><font color="#FF0000">* </font>（很高兴您能够对我的作品进行点评）
<br>
<textarea name="review" cols="95" rows="5" class="smallinput">
</textarea>
</td>
</tr>
</table>
<table>
<tr>
<td width="100%" align="center" height="5"> <input type="submit" value=" 发 表 "class="buttonface">
<input type="reset" name="return" value=" 清 除 " onclick="javascript:history.go(-1)" class="buttonface"> <br>
</td>
</tr>
</form>
</center>
</body> <%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%conn.close
set conn=nothing%>
<!--#include file="down.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -