⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 activitx_view.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
字号:
🔍 
<!--#include file="../main.asp" -->
<!--#include file="../Space.asp" -->
<%
if request("action")="add" then
if request.Cookies("Userid")="" then
Response.Write "<script>alert('发布信息出错，下面是产生错误的可能原因：\n\n·对不起，您还没有登录!，不能发布信息');history.go(-1);</Script>"
Response.End 
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_mactivitx"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_activitx")=request("activitx")
rs(""&WebSqlType&"_user")=request.Cookies("userid")
rs(""&WebSqlType&"_user_id")=request("user_id")
rs(""&WebSqlType&"_username")=request("username")
rs(""&WebSqlType&"_ren")=request("ren")
rs(""&WebSqlType&"_tel")=request("tel")
rs.update
rs.close
'conn.execute("update loqv_activitx set loqv_Rhtc=loqv_Rhtc+1 where loqv_id="&clng(request("id"))&"")
response.Redirect("activitx_view.asp?id="&request("user_id")&"&activitxid="&request("activitx")&"")
response.End()
end if
'---------------------------------------------------------------------------------------------------
if request("action")="del" then
if request.Cookies("Userid")="" then
Response.Write "<script>alert('发布信息出错，下面是产生错误的可能原因：\n\n·对不起，您还没有登录!，不能发布信息');history.go(-1);</Script>"
Response.End 
end if
conn.execute("delete from "&WebSqlType&"_mactivitx where "&WebSqlType&"_user="&request.Cookies("userid")&" and "&WebSqlType&"_activitx="&request("activitx")&"")
response.Redirect("activitx_view.asp?id="&request("id")&"&activitxid="&request("activitx")&"")
end if
'---------------------------------------------------------------------------------------------------
id=clng(request("id"))
activitxid=clng(request("activitxid"))
if id="" or IsNumeric(id)<>true then
response.write"请输入正确的ID号！"
response.end
end if
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_id="&activitxid&""
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
conn.execute("update "&WebSqlType&"_activitx set "&WebSqlType&"_htc="&WebSqlType&"_htc+1 where "&WebSqlType&"_id="&activitxid)
sql3="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&id&""
set rs3=server.createobject("ADODB.Recordset")
rs3.open sql3,conn,1,1%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE><%=rs(""&WebSqlType&"_title")%> - 活动</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=follow,index name=robots>
<LINK href="<%=cityurl%>images/style.css" 
type=text/css rel=stylesheet>
<LINK href="<%=cityurl%>images/msg.css" type=text/css 
rel=stylesheet>
<script>
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>

<STYLE>#flashcontent P {
	COLOR: #000
}
#foot {
	DISPLAY: block; MARGIN: 0px auto; WIDTH: 720px
}
</STYLE>

<META content="MSHTML 6.00.3790.0" name=GENERATOR></HEAD>
<BODY>
<DIV id=append_parent></DIV>
<DIV id=wrap>
<!--#include file="top.asp" -->

<DIV class=main>
<!--#include file="right.asp" -->
<DIV class=main-box-4>
<DIV class=box-top>
<DIV></DIV></DIV>
<DIV class=nav>我的位置：<A href="<%=cityurl%>">首页</A> &raquo; <A 
href="<%=cityurl%>activitx">活动</A> &raquo; <STRONG><%=rs(""&WebSqlType&"_title")%></STRONG></DIV>
<DIV class=box>
<TABLE class=title cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width="14" class=title-l></TD>
    
    <TD width="816"><%=rs(""&WebSqlType&"_title")%></TD>
	<TD width="116"><!-- <a href="/bbs/bbs_add.asp">发布新贴子</a> -->&nbsp;</TD>
    <TD width="14" class=title-r></TD></TR></TBODY></TABLE>

        <TABLE width=90% border=0 align="center" cellPadding=6 cellSpacing=0 borderColor=#111111 
      style="BORDER-COLLAPSE: collapse">
          <TBODY>

            <TR align="left">
              <TD height=30 colspan="2" style="border-bottom:1px solid red; "><DIV class=tablehead><B class=tableheadr>
 </B>
<%
if request.Cookies("userid")<>"" then
set rs0=Server.CreateObject("Adodb.Recordset")
rs0.Open "Select *  from "&WebSqlType&"_mactivitx where "&WebSqlType&"_user="&request.Cookies("userid")&" and "&WebSqlType&"_activitx="&activitxid&"",conn
if not rs0.EOF then%>
您己经报名&nbsp;&nbsp;&nbsp;&nbsp;<a href="activitx_view.asp?id=<%=id%>&activitx=<%=activitxid%>&action=del">退出报名</a> <%
else
 sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&request.Cookies("userid")&""
set rs2=server.createobject("ADODB.Recordset")
rs2.open sql,conn,1,1
username=rs2(""&WebSqlType&"_realname")
tel=rs2(""&WebSqlType&"_sj")
rs2.close
 %>活动报名:
 <form action="activitx_view.asp?action=add" method="post" name="form1">
 <input type="hidden" name="activitx" value="<%=activitxid%>">
 <input type="hidden" name="user_id" value="<%=id%>">
 姓名：
 <input name="username" type="text" id="username" size="15" value="<%=username%>">
 联系方式：
 <input name="tel" type="text" id="tel" size="20" value="<%=tel%>">
 参加人数：
 <input name="ren" type="text" id="ren" onKeyUp="value=value.replace(/[^0-9]/g,'');" value="1" size="10">
              (我共有几个参加)
              <input type="submit" name="Submit2" value="我要报名">
			  </form>
			  <%end if%>
			  <%else%>
			   <form action="activitx_view.asp?action=add" method="post" name="form1">
 <input type="hidden" name="activitx" value="<%=activitxid%>">
 <input type="hidden" name="user_id" value="<%=id%>">
 姓名：
 <input name="username" type="text" id="username" size="15" value="<%=username%>">
 联系方式：
 <input name="tel" type="text" id="tel" size="20" value="<%=tel%>">
 参加人数：
 <input name="ren" type="text" id="ren" onKeyUp="value=value.replace(/[^0-9]/g,'');" value="1" size="10">
              (我共有几个参加)
              <input type="submit" name="Submit2" value="我要报名">
			  </form>
			  <%
			  
			  end if%>
              </DIV></TD>
            </TR>
			            <TR> 
              <TD width=17% height=25 align=right><span class="STYLE1">活动发起人：</span></TD>
              <TD width=83% height=25 align=left style="border-bottom:1px solid #cccccc; ">
			  
			  <a href="index.asp?id=<%=rs(""&WebSqlType&"_user")%>"><%=rs(""&WebSqlType&"_username")%></a>&nbsp;&nbsp;&nbsp;&nbsp;
			   <!-- <A href="am_add.asp?amid=%=rs(""&WebSqlType&"_id")%>&id=%=id%>"><B>我要报名</B></A> -->
		                  </TD>
            </TR>
            <TR> 
              <TD width=17% height=25 align=right><span class="STYLE1">所属分类：</span></TD>
              <TD height=25 align=left style="border-bottom:1px solid #cccccc; "> <%=trim(rs(""&WebSqlType&"_zhuti"))%> 
             </TD>
            </TR>


            

			              <TR>
              <TD height=25 align=right><span class="STYLE1">活动时间：</span></TD>
              <TD height=25 align=left style="border-bottom:1px solid #cccccc; ">
			  <%=year(rs(""&WebSqlType&"_Gdate"))%>年<%=month(rs(""&WebSqlType&"_Gdate"))%>月<%=day(rs(""&WebSqlType&"_Gdate"))%>日 <%=Hour(rs(""&WebSqlType&"_Gdate"))%>时<%=Minute(rs(""&WebSqlType&"_Gdate"))%>分
			  <font color=red> 到 </font><%=year(rs(""&WebSqlType&"_Edate"))%>年<%=month(rs(""&WebSqlType&"_Edate"))%>月<%=day(rs(""&WebSqlType&"_Edate"))%>日 <%=Hour(rs(""&WebSqlType&"_Edate"))%>时<%=Minute(rs(""&WebSqlType&"_Edate"))%>分 
			   <font color=red><%if rs(""&WebSqlType&"_Edate")<= now() then %>已结束<%else%>进行中<%end if%></font>
			   </TD>
            
			</TR> 
	<tr>
              <td width="17%" height="25" align="right"><span class="STYLE1">报名截止时间：</span></td>
              <td width="83%" height="25" align="left" style="border-bottom:1px solid #cccccc; "><%=year(rs(""&WebSqlType&"_Zdate"))%>年<%=month(rs(""&WebSqlType&"_Zdate"))%>月<%=day(rs(""&WebSqlType&"_Zdate"))%>日 <%=Hour(rs(""&WebSqlType&"_Zdate"))%>时<%=Minute(rs(""&WebSqlType&"_Zdate"))%>分</td>
            </tr>
			
			<tr>
              <td width="17%" height="25" align="right"><span class="STYLE1">活动地区：</span></td>
              <td width="83%" height="25" align="left" style="border-bottom:1px solid #cccccc; "><%=trim(rs(""&WebSqlType&"_addone"))%></td>
            </tr>
			<tr>
              <td width="17%" height="25" align="right"><span class="STYLE1">具体地点：</span></td>
              <td width="83%" height="25" align="left" style="border-bottom:1px solid #cccccc; "><%=trim(rs(""&WebSqlType&"_address"))%></td>
            </tr>
			<tr>
              <td width="17%" height="25" align="right"><span class="STYLE1">联系方式：</span></td>
              <td width="83%" height="25" align="left" style="border-bottom:1px solid #cccccc; "><%=trim(rs(""&WebSqlType&"_tel"))%></td>
            </tr>
			<tr>
              <td width="17%" height="25" align="right"><span class="STYLE1">费用：</span></td>
              <td width="83%" height="25" align="left" style="border-bottom:1px solid #cccccc; "><%=trim(rs(""&WebSqlType&"_price"))%></td>
            </tr>
						<tr>
              <td width="17%" height="25" align="right"><span class="STYLE1">活动人数：</span></td>
              <td width="83%" height="25" align="left" style="border-bottom:1px solid #cccccc; "><%=rs(""&WebSqlType&"_Rhtc")%>/<%=rs(""&WebSqlType&"_ren")%></td>
            </tr>

			
			
			
			
			
			
			
            <TR align="center"  valign="bottom"> 
              <TD height=10 colSpan=2></TD>
            </TR>
          </TBODY>
        </TABLE>
        <table width="90%" border="0" align="center" cellpadding="6" cellspacing="0" bordercolor="#111111" 
      style="BORDER-COLLAPSE: collapse">
          <tbody>
            <tr align="left">
              <td height="13" colspan="2" style="border-bottom:1px solid red; ">
                <div class="tablehead"><b class="tableheadr">详细资料 </b></div></td>
            </tr>
            <tr>
              <td width="17%" height="25" align="right" ><span class="STYLE1"></span></td>
              <td height="25" align="left" style="border-bottom:1px solid #cccccc; "><%=trim(rs(""&WebSqlType&"_book"))%></td>
            </tr>
            <tr align="center"  valign="bottom">
              <td height="10" colspan="2">
              </td>
            </tr>
          </tbody>
        </table>
		
        <TABLE width=90% border=0 align="center" cellPadding=6 cellSpacing=0 borderColor=#111111 
      style="BORDER-COLLAPSE: collapse">
          <TBODY>

            <TR align="left">
              <TD height=30 colspan="2" style="border-bottom:1px solid red; "><DIV class=tablehead><strong> 发起评论 </strong></DIV></TD>
            </TR>
		  <FORM id="book" name="leavewordForm" action="server.asp " method="post"> 
			 <INPUT type=hidden value=<%=id%> name=id>
              <INPUT type=hidden value=3 name=key>
			  <INPUT type=hidden value=<%=activitxid%> name=htc>
            <TR> 
              <TD width=17% height=25 align=right><span class="STYLE1">内容 ：</span></TD>
              <TD height=25 align=left style="border-bottom:1px solid #cccccc; ">

<INPUT type=hidden 
value="activitx_view.asp?id=<%=id%>&activitxid=<%=activitxid%>" name="url"> <TEXTAREA name=book cols="80" rows=5 id=input_words onKeyUp="return textLimitCheck(this,500);"></TEXTAREA>



             </TD>
            </TR>


            
            <TR> 
              <TD width=17% height=25 align=right><span class="STYLE1"></span></TD>
              <TD width=83% height=25 align=left style="border-bottom:1px solid #cccccc; "><INPUT id=btn_post type=submit value=发表留言 name=Submit> 
              </TD>
            </TR>
</form>
            <TR align="center"  valign="bottom"> 
              <TD height=10 colSpan=2></TD>
            </TR>
          </TBODY>
        </TABLE>
        <table width="90%" border="0" align="center" cellpadding="6" cellspacing="0" bordercolor="#111111" 
      style="BORDER-COLLAPSE: collapse">
          <tbody>
            <tr align="left">
              <td height="13" colspan="2" style="border-bottom:1px solid red; ">
                <div class="tablehead"><b class="tableheadr">查看评论 </b></div></td>
            </tr>
<%set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_book where "&WebSqlType&"_key=3 and "&WebSqlType&"_htc="&activitxid&" order by "&WebSqlType&"_id desc"
rs1.open sql,conn,1,1
do while not rs1.eof
%>
			
            <tr>
              <td width="17%" height="25" align="right" ><span class="STYLE1"><A 
href="index.asp?id=<%=rs1(""&WebSqlType&"_user")%> " target=_blank><%=rs1(""&WebSqlType&"_username")%></A> 说：</span></td>
              <td height="25" align="left" style="border-bottom:1px solid #cccccc; "><%=rs1(""&WebSqlType&"_book")%></td>
            </tr>
<%
rs1.movenext
loop
rs1.close%>

            <tr align="center"  valign="bottom">
              <td height="10" colspan="2">
              </td>
            </tr>
          </tbody>
        </table>        

</DIV>
<DIV class=box-bot>
<DIV></DIV></DIV></DIV></DIV>
<DIV id=bot><!--#include file="../bottom.asp" --></DIV>
<DIV id=wrap-bot>
<DIV></DIV></DIV></DIV>
</BODY></HTML>
<%
rs3.close
rs.close%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -