📄 index.asp
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<%
Dim con,conStr
Set con = server.CreateObject("adodb.connection")
conStr = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db.mdb")
con.open conStr
Dim rs2
Set rs2 = server.CreateObject("adodb.recordset")
Dim sql2
sql2 = "select * from config"
rs2.open sql2,con,1,3
%>
<title><%=rs2("title")%></title>
<link rel="stylesheet" type="text/css" href="css/style.css">
<script type="text/javascript" src="js/script.js"></script>
<style type="text/css">
<!--
body {
font-size: 12px;
color: #FF66FF;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(images/5.gif);
background-repeat: repeat;
background-color: #FFFFFF;
}
.words {
font-size: 12px;
font-style: normal;
line-height: normal;
font-weight: normal;
font-variant: normal;
color: #FF0000;
text-decoration: underline;
}
a:link {
color: #FF0000;
text-decoration: none;
}
a:visited {
color: #FF0000;
text-decoration: none;
}
a:hover {
color: #00FF66;
text-decoration: underline;
}
a:active {
color: #FF66FF;
text-decoration: none;
}
body,td,th {
color: #FF00FF;
}
#Layer1 {
position:absolute;
left:3px;
top:2px;
width:4287px;
height:3964px;
z-index:1;
}
#Layer2 {
position:absolute;
left:78px;
top:3px;
width:741px;
height:359px;
z-index:1;
}
#Layer3 {
position:absolute;
left:75px;
top:530px;
width:621px;
height:323px;
z-index:2;
}
.STYLE5 {color: #000000}
-->
</style>
</head>
<body onload="showDate()">
<div id="Layer2">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="738" height="477">
<param name="movie" value="1.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="1.swf" width="738" height="477" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</div>
<div id="Layer3">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="600" height="320">
<param name="movie" value="3.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="3.swf" width="600" height="320" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</div>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" class="borall">
<tr>
<td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><input type="image" name="imageField" src="images/2.gif" />
<br/>
<marquee><%=rs2("board")%></marquee>
</tr>
</table></td>
</tr>
<tr>
<td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="260" class="words" id="myDate"> </td>
<td align="right" class="words"><a href="denglu.asp">[管理员登陆]</a> </td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"><img src="images/line.gif" width="741" height="10" /></td>
</tr>
<tr>
<td align="center"><br/>
<%
dim rs
set rs = server.CreateObject("adodb.recordset")
dim sql
sql = "select * from msg order by shijian desc"
rs.open sql,con,1,3
rs.pagesize = rs2("pagesize")
dim ipage
ipage=request("page")
if (ipage)="" then ipage=1 end if
if cint(ipage)<1 then ipage=1 end if
if cint(ipage)>rs.pagecount then ipage=rs.pagecount end if
rs.absolutepage=ipage
for i=1 to rs.pagesize
if rs.eof=true then
exit for
end if
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="borall">
<tr>
<td width="160" align="center" valign="top">[NO.<%=rs("id")%>]<br />
<%=rs("nicheng")%><br />
<img src="images/img/<%=rs("touxiang")%>.gif" width="90" height="90" /></td>
<td align="left" valign="top" class="borleft"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="bordown">
<tr>
<td width="200" height="22">发表时间:<%=rs("shijian")%></td>
<td width="20" align="center"><img src="images/qq.gif" width="18" height="18" /></td>
<td width="130"><%=rs("qq")%></td>
<td width="20" align="center"><img src="images/status_5.gif" width="14" height="11" /></td>
<td><%response.write rs("email")%> </td>
</tr>
</table></td>
</tr>
<tr>
<td align="left">留言：
<%
If rs("status")=true Then
response.Write rs("liuyan")
Else
response.write "<font color='red'>此留言为悄悄话!</font>"
End if
%>
</tr>
</table>
<%
if rs("recontent") <> "" then
%>
<br/>
<br/>
主人回复: <br/>
<font color='red'>
<%
response.write rs("recontent")
end if
%>
</font>
</td>
</tr>
</table>
<br />
<%
rs.movenext
next
%>
<br />
<br /></td></tr>
<tr>
<td align="center"><table width="90%" border="0" align="center">
<tr>
<td align="center" bgcolor="#000000">
<%if cint(ipage)>1 then%>
<a href="index.asp?page=1" class="wblack">首页 </a>
<a href="index.asp?page=<%=(ipage-1)%>">上一页</a>
<%else%>
首页 上一页
<%end if%>
<%if cint(ipage)<rs.pagecount then%>
<a href="index.asp?page=<%=(ipage+1)%>">下一页</a>
<a href="index.asp?page=<%=rs.pagecount%>">末页 </a>
<%else%>
下一页 末页
<%end if%> </td>
</tr>
</table></td>
</tr>
<tr>
<td>
<%
if rs2("isclose")=false then
%>
<table width="90%" border="0" align="center">
<tr>
<td>
<form action="insert.asp" onsubmit= "return checkText()" method="post">
<table width="100%" border="0">
<tr>
<td width="200" align="right">选择头像:</td>
<td><select name="txtImg"onchange="changeImg()"id="drpImg">
<option value="1">头像1</option>
<option value="2">头像2</option>
<option value="3">头像3</option>
<option value="4">头像4</option>
<option value="5">头像5</option>
</select></td>
</tr>
<tr>
<td align="right">昵称:</td> <td><input name="txtnicheng" type="text" class="textfile" id="txtnicheng" /></td>
</tr>
<tr>
<td align="right">QQ:</td>
<td><input name="txtqq" type="text" class="textfile" id="txtqq" /></td>
</tr>
<tr>
<td align="right">Email:</td>
<td><input name="txtemail" type="text" class="textfile" id="txtemail" /></td>
</tr>
<tr>
<td align="right">留言内容:</td>
<td><textarea name="txtliuyan" cols="50" rows="8" id="txtliuyan"></textarea></td>
</tr>
<tr>
<td align="right">留言性质:</td>
<td><input type="radio" name="rdstatus" value="1" checked />
公开
<input type="radio" name="rdstatus" value="0" />
悄悄话</td>
</tr>
<tr>
<td align="right"> </td>
<td><input name="提交" type="submit" value = "提 交"/>
<input name="重置" type="reset" value="重置" /></td>
</tr>
</table>
</form>
<td width="180" valign="top"><table width="100%" border="0">
<tr>
<td height="150" align="center" valign="middle"><img src="images/img/1.gif" name="myImg" width="90" height="90" class="borall" id="myImg"/></td>
</tr>
</table>
<table width="100%" border="0">
<tr></tr>
</table>
<table width="100%" height="120" border="0">
<tr onclick="showImg">
<td width="25"><img src="images/ico/icon_angry.gif" width="20" height="20" /></td>
<td width="25"><img src="images/ico/icon_confused.gif" width="20" height="20" /></td>
<td width="25"><img src="images/ico/icon_cool.gif" width="20" height="20" /></td>
<td width="25"><img src="images/ico/icon_cry.gif" width="19" height="19" /></td>
<td width="25"><img src="images/ico/icon_eek.gif" width="20" height="20" /></td>
</tr>
<tr id = "myQQ">
<td><img src="images/ico/icon_heart.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_idea.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_lol.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_music.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_no.gif" width="20" height="20" /></td>
</tr>
<tr>
<td><img src="images/ico/icon_razz.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_redface.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_rolleyes.gif" width="19" height="19" /></td>
<td><img src="images/ico/icon_sad.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_smile.gif" width="20" height="20" /></td>
</tr>
<tr>
<td><img src="images/ico/icon_star.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_stun.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_sweat.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_wink.gif" width="20" height="20" /></td>
<td><img src="images/ico/icon_yes.gif" width="20" height="20" /></td>
</tr>
</table></td>
</tr>
</table>
<%
end if
%>
<br /></td>
</tr>
<tr>
<td height="50" align="center" bgcolor="#C96BB8"><span class="STYLE5">版权所有 盗版必究</span></td>
</tr>
</table>
<p class="STYLE5"> </p>
</body>
<bgsound src="<%=rs2("bgsound")%>" />
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -