📄 shownews.asp
字号:
<!--#include file="conn.asp"-->
<%
o_id=request("o_id")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="update Activity set hits=hits+1 where o_id=" & cstr(request("o_id"))
conn.execute sql
'sql="select * from njbobo where o_id="&o_id
rs.open "select * from Activity where o_id=" & cstr(request("o_id")),conn,1,1
o_title=rs("o_title")
o_content=rs("o_content")
o_date=rs("o_date")
o_id=rs("o_id")
%>
<HTML>
<HEAD>
<TITLE><%=o_title%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="css/index.css" type="text/css">
</HEAD>
<BODY topmargin="0">
<style type=text/css>
A#menu {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none;
}
A#menunow {
FONT-SIZE: 12px; COLOR: #718df8; TEXT-DECORATION: none;
}
A#menu:link {
TEXT-DECORATION: none;FONT-SIZE: 12px; COLOR: #000000;
}
A#menu:hover {
TEXT-DECORATION: underline;FONT-SIZE: 12px; COLOR: #ffffff;
}
A#menu:visited {
FONT-SIZE: 12px; COLOR: #000000;
}
TD#menu {
FONT-SIZE: 12px; COLOR: #000000
}
.box {
BORDER-RIGHT: #096ac8 1px solid; BORDER-TOP: #000000 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #000000 1px solid; COLOR: #ffffff; BORDER-BOTTOM: #096ac8 1px solid; BACKGROUND-COLOR: #001457
}
.box5{
BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #0ea8ff 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #0ea8ff 1px solid; COLOR: #9dc3e9; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; HEIGHT: 18px; BACKGROUND-COLOR: #096ac8
}
BODY {SCROLLBAR-FACE-COLOR: #053e75; SCROLLBAR-HIGHLIGHT-COLOR: #096ac8; SCROLLBAR-SHADOW-COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #abb8e8; SCROLLBAR-ARROW-COLOR: #3c88c2; SCROLLBAR-TRACK-COLOR: #3c88c2; SCROLLBAR-DARKSHADOW-COLOR: #053e75; }
-->
</style>
<!--#include file="top.asp"-->
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="img/top.jpg" width="750" height="116"></td>
</tr>
</table>
<table height=7 cellspacing=0 cellpadding=0 width=750 bgcolor=#3d1a01
border=0 align="center">
<tbody>
<tr>
<td></td>
</tr>
</tbody>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#053e75">
<tr>
<td>
<!--#include file="usl.asp"-->
</td>
</tr>
</table>
<table height=7 cellspacing=0 cellpadding=0 width=750 bgcolor=#3d1a01
border=0 align="center">
<tbody>
<tr>
<td></td>
</tr>
</tbody>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#053e75">
<tr>
<td> </td>
</tr>
<tr>
<td>
<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="92%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="36" valign="middle">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FFFFFF">
<td height="30" colspan="2" align="center">
<p align="center"><br>
<h1 align="center"><b><font color="#FF0000" size="4" face="黑体"><%=o_title%></font></b></h1>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2">
<hr size=1 width=100%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="center">阅读次数：<%=cstr(rs("hits"))%>
时间:<%=o_date%>        
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2">
<hr size=1 width=100%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="3%"> </td>
<td width="97%">
<%
o_content=replace(rs("o_content"),chr(13),"<br>")
o_content=replace(o_content,chr(32)," ")
response.write o_content
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="16" colspan="2"> </td>
</tr>
</table>
<table height=7 cellspacing=0 cellpadding=0 width=750 bgcolor=#FFCC00
border=0 align="center">
<tbody>
<tr>
<td></td>
</tr>
</tbody>
</table>
</div>
</td>
</tr>
<%
rs.close
set rs=nothing
%>
<tr>
<td height="22">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="24" align="center" bgcolor="#000000"><font color="#CCCCCC">上
午 活 动 报 名 参 加 表</font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#666666">
<tr align="center" bgcolor="#CCCCCC">
<td width="12%">ID</td>
<td width="12%" height="24">网友</td>
<td width="30%" height="24">申请时间</td>
<td width="13%" height="24">时段</td>
<td width="33%" height="24">内容</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from review where o_id=" & cstr(request("o_id")) & " and r_type='上午' order by rtime DESC",conn,1,1
if rs.bof and rs.eof then
response.write "该活动目前上午没有人参加"
else
s=0
do while not rs.eof
s=s+1
%>
<tr align="center" bgcolor="#FFFFFF">
<td><%=trim(rs("reviewid"))%></td>
<td height="24"><b><%=trim(rs("reviewer"))%></b></td>
<td height="24"><%=trim(rs("rtime"))%></td>
<td height="24"><%=trim(rs("r_type"))%></td>
<td height="24">
<%
content=replace(rs("content"),chr(13),"<br>")
content=replace(content,chr(32)," ")
response.write content
%>
</td>
</tr>
<%
rs.movenext
loop
end if
%>
<tr align="center" bgcolor="#CCCCCC">
<td height="24" colspan="5">上午活动总共有<font color=#ff0000><%=s%></font>人参加
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#CCCCCC"> </td>
</tr>
</table>
<table height=7 cellspacing=0 cellpadding=0 width=750 bgcolor=#FFCC00
border=0 align="center">
<tbody>
<tr>
<td></td>
</tr>
</tbody>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CDCDE7">
<tr>
<td height="23" align="center" style="border-top: 1 solid #666666" bgcolor="#000000"><font color="#CCCCCC">下
午 活 动 报 名 参 加 表</font></td>
</tr>
<tr>
<td>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#666666">
<tr align="center" bgcolor="#CCCCCC">
<td width="12%">ID</td>
<td width="12%" height="24">网友</td>
<td width="30%" height="24">申请时间</td>
<td width="13%" height="24">时段</td>
<td width="33%" height="24">内容</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from review where o_id=" & cstr(request("o_id")) & " and r_type='下午' order by rtime DESC",conn,1,1
if rs.bof and rs.eof then
response.write "该活动目前下午没有人参加"
else
x=0
do while not rs.eof
x=x+1
%>
<tr align="center" bgcolor="#FFFFFF">
<td><%=trim(rs("reviewid"))%></td>
<td height="24"><b><%=trim(rs("reviewer"))%></b></td>
<td height="24"><%=trim(rs("rtime"))%></td>
<td height="24"><%=trim(rs("r_type"))%></td>
<td height="24">
<%
content=replace(rs("content"),chr(13),"<br>")
content=replace(content,chr(32)," ")
response.write content
%>
</td>
</tr>
<%
rs.movenext
loop
end if
%>
<tr align="center" bgcolor="#CCCCCC">
<td height="24" colspan="5">下午活动总共有<font color=#ff0000><%=x%></font>人参加
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="31" align="center"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="22"></td>
</tr>
<tr>
<td height="22" align="center">
<%
set rst=server.createobject("adodb.recordset")
rst.open "select * from Activity where o_id=" & cstr(request("o_id")) & " and check=1",conn,1,1
if rst.bof and rst.eof then%>
<table width="95%" border="0" cellpadding="0" cellspacing="1" height="20">
<tr>
<td height="20" align="center" bgcolor="#000000"><font color="#CCCCCC">活动已停止报名！<font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif">ＣＬＯＳＤ</font></font></td>
</tr>
</table>
<br>
<%else%>
<table width="549" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="addreg.asp" method=post>
<tr>
<td colspan="2">
<div align="center">
<p> </p>
<p><font size="3" color="#FFFFFF"><b>我要参加 </b></font><font color="#FFFFFF">(带
* 号的为必填项)</font></p>
</div>
</td>
</tr>
<tr>
<td width="74" height="22"><font color="#FFFFFF">* 您的帐号:</font></td>
<td width="475"> <font color="#FFFFFF">
<input name="reviewer" type=text class=box value="<%=session("auid")%>" size="25" maxlength=29 readonly>
会员请先</font><a href="#"><font color="#FF0000">登陆</font></a><font color="#FFFFFF">，然后参加！还不是会员？请先申请
</font></td>
</tr>
<tr>
<td width="74" height="22"><font color="#FFFFFF">* 您的电话:</font></td>
<td width="475"> <font color="#FFFFFF">
<input name="tel" type=text class=box id="tel" size="25" maxlength=98>
</font></td>
</tr>
<tr>
<td width="74" height="22"><font color="#FFFFFF">* 活动时段:</font></td>
<td width="475"> <font color="#FFFFFF">
<select class=box name="r_type" id="r_type">
<option value="上午" selected>上午</option>
<option value="下午">下午</option>
</select>
</font></td>
</tr>
<tr>
<td width="74"><font color="#FFFFFF">* 附加信息:</font></td>
<td width="475"> <font color="#FFFFFF">
<textarea name="content" cols="63" rows="6" class="box"></textarea>
</font></td>
</tr>
<tr align="center">
<td height="40" colspan="2"> <font color="#FFFFFF">
<input type=hidden name="o_id" value="<%=request("o_id")%>">
<input type=hidden name="o_title" value="<%=o_title%>">
<input name="submit" type=submit class=box5 value=" 加 入 ">
</font></td>
</tr>
</form>
</table>
<% End If
rst.close
set rst=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<!--#include file="end.asp"-->
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -