person.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<%
Function PActivitxDel()
if request("action")="del" then
conn.execute("delete from "&WebSqlType&"_activitx where "&WebSqlType&"_id="&request("id")&"")
response.redirect("activitx.asp")
end if
End Function
'---------------------------------------------------------------
Function Pactivitx()
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_user="&request.Cookies("UserID")&" order by "&WebSqlType&"_date desc"
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "<tr><td height=194 align=center>暂无内容</td></tr>"
else 
do while not rs.eof
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&rs(""&WebSqlType&"_club")&" "
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
else
co=rs1(""&WebSqlType&"_co")
rs1.close
end if 
if trim(rs(""&WebSqlType&"_club"))<>0 then
weget="/quan/"&trim(co)&"/activitx_view.asp?id="&rs(""&WebSqlType&"_club")&"&action=activitx&activitxid="&rs(""&WebSqlType&"_id")&""
else
weget="/space/activitx_view.asp?activitxid="&rs(""&WebSqlType&"_id")&"&id="&rs(""&WebSqlType&"_user")&""
end if
response.Write"<TABLE cellSpacing=0><TBODY><TR>"
response.Write"<TD class=td1 align=middle width=40><IMG src="&cityurl&"images/yes.gif></TD>"
response.Write"<TD class=td1 align=left><A href="&weget&" target=_blank><STRONG>"&rs(""&WebSqlType&"_title")&"</STRONG></A> "
response.Write"<SPAN class=graytext>("&rs(""&WebSqlType&"_addone")&")</SPAN> <a href='activitx_edit.asp?activitxid="
response.Write""&rs(""&WebSqlType&"_id")&"'>编辑</a> <a href='activitx.asp?id="&rs(""&WebSqlType&"_id")&"&action=del'>删除</a><BR>"
response.Write" 活动时间："&year(rs(""&WebSqlType&"_date"))&"年"&month(rs(""&WebSqlType&"_date"))&"月"&day(rs(""&WebSqlType&"_date"))&"日"
response.Write" "&Hour(rs(""&WebSqlType&"_date"))&"时"&Minute(rs(""&WebSqlType&"_date"))&"分</TD>"
response.Write"  <TD class=td1 align=middle width=150><SPAN class=bluetext>&nbsp;"
response.Write"<A href="&weget&" target=_blank>"&rs(""&WebSqlType&"_ctitle")&"</A></SPAN></TD>"
response.Write" <TD class=td1 align=middle width=120>人数：<STRONG class=redtext>"&rs(""&WebSqlType&"_Rhtc")&"</STRONG>/"
if trim(rs(""&WebSqlType&"_ren"))=0 then
response.Write"不限"
else
response.Write""&rs(""&WebSqlType&"_ren")&""
end if
response.Write" </TD> <TD class=td1 align=middle width=100><SPAN class=graytext>"
if rs(""&WebSqlType&"_Edate")<= now() then 
response.Write"已结束"
else
response.Write"进行中"
end if
response.Write"</SPAN></TD></TR></TBODY></TABLE>"
rs.movenext
loop
rs.close
end if
End Function
'----------------------------------------------------------------
Function PactivitxAddServer()

if request("action")="add" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_activitx"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_zhuti")=request("zhuti")
rs(""&WebSqlType&"_title")=request("title")
rs(""&WebSqlType&"_Gdate")=request("Gyear")&"-"&request("Gmonth")&"-"&request("Gday")&"  "&request("Gd")&":"&request("Gf")
rs(""&WebSqlType&"_Edate")=request("Eyear")&"-"&request("Emonth")&"-"&request("Eday") &"  "&request("Ed") &":"&request("Ef")
rs(""&WebSqlType&"_Zdate")=request("Zyear")&"-"&request("Zmonth")&"-"&request("Zday") &"  "&request("Zd") &":"&request("Zf")
rs(""&WebSqlType&"_addone")=request("addone")&"、"&request("addtwo")
rs(""&WebSqlType&"_address")=request("address")
rs(""&WebSqlType&"_tel")=request("tel")
rs(""&WebSqlType&"_price")=request("price")
rs(""&WebSqlType&"_ren")=request("ren")
rs(""&WebSqlType&"_type")=request("type")
rs(""&WebSqlType&"_book")=request("book")
if request("club")<>"" then
rs(""&WebSqlType&"_club")=request("club")
end if
if request("Ctitle")<>"" then
rs(""&WebSqlType&"_Ctitle")=request("Ctitle")
end if
rs(""&WebSqlType&"_username")=request.Cookies("username")
rs(""&WebSqlType&"_user")=request.Cookies("UserID")
rs.update
rs.close
conn.execute("update "&WebSqlType&"_member set "&WebSqlType&"_Taojin2008="&WebSqlType&"_Taojin2008+"&cint(trim(Chtcs(1)))&" where "&WebSqlType&"_id="&request.Cookies("UserID"))
response.Redirect(request("url"))
end if
End Function
'-----------------------------------------------------------------------
Function PactivitxAdd()
response.Write"<FORM id=addOrgform name=thisForm onSubmit='return ckok();' action='activitx_add.asp?action=add' method=post>"
response.Write"<input type='hidden' name='url' value='activitx.asp'>"
'response.Write"<input type='hidden' name='club' value='"&request("cid")&"'>"
'response.Write"<input type='hidden' name='Ctitle' value='"&request("Ctitle")&"'>"
response.Write"<TABLE cellSpacing=0><TBODY><TR><TD align=right width=150><SPAN class=redtext>*</SPAN> "
response.Write" <STRONG>活动类别:</STRONG>&nbsp;&nbsp;</TD><TD><LABEL>"
set rsactivitxsort=server.createobject("ADODB.Recordset")
sql="select *  from "&WebSqlType&"_activitxsort order by "&WebSqlType&"_activitxsortdate desc"
rsactivitxsort.open sql,conn,1,3
s=0
while not rsactivitxsort.eof
s=s+1
response.Write"<INPUT name=zhuti type=radio value='"&rsactivitxsort(""&WebSqlType&"_activitxsorttitle")&"' "
if s=1 then
response.Write"checked"
end if
response.Write"> "&rsactivitxsort(""&WebSqlType&"_activitxsorttitle")&""
rsactivitxsort.movenext
wend
rsactivitxsort.Close
response.Write"</LABEL></TD></TR><TR><TD align=right><SPAN class=redtext>*</SPAN> "
response.Write"<STRONG>活动名称:</STRONG>&nbsp;&nbsp;</TD><TD><LABEL><INPUT class=colorblue id=title size=60 name=title></LABEL>"
response.Write"</TD></TR><TR><TD align=right><SPAN class=redtext>*</SPAN>" 
response.Write"<STRONG>开始时间:</STRONG>&nbsp;&nbsp;</TD> <TD><LABEL>"
response.Write" <SELECT name=GYear id='GYear'> "
for i=2007 to 2028
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT> 年 "
response.Write" <select name=GMonth id='select'>"
for i=1 to 12
response.Write"<option value="&i&">"&i&"</option>"
next
response.Write" </select> 月 "
response.Write"<SELECT name=GDay id='GDay'>" 
for i=1 to 31
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT>日"
response.Write"<SELECT name=Gd id='Gd'>"
for i=1 to 24
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT>  点"
response.Write"<SELECT name=Gf id='Gf'>"
for i=1 to 60
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT>"
response.Write" 分</LABEL></TD></TR>"
response.Write"  <TR><TD align=right><SPAN class=redtext>*</SPAN> "
response.Write" <STRONG>结束时间:</STRONG>&nbsp;&nbsp;</TD>"
response.Write" <TD><LABEL><SELECT name=EYear id='EYear'> "
for i=2007 to 2028
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT>年 "
response.Write" <SELECT name=EMonth id='EMonth'>" 
for i=1 to 12
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT>月 <SELECT name=EDay id='EDay'> "
for i=1 to 31
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT>日"
response.Write"<SELECT name=Ed id='Ed'>"
for i=1 to 24
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT> 点"
response.Write"<SELECT name=Ef id='Ef'>"
for i=1 to 60
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT> 分</LABEL></TD></TR><TR>"
response.Write"<TD align=right><SPAN class=redtext>*</SPAN>" 
response.Write"<STRONG>报名截止时间:</STRONG>&nbsp;&nbsp;</TD><TD><LABEL>"
response.Write"<SELECT name=ZYear id='EYear'>" 
for i=2007 to 2028
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT>年" 
response.Write"<SELECT name=ZMonth id='EMonth'> "
for i=1 to 12
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT>月 <SELECT name=ZDay id='EDay'>" 
for i=1 to 31
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT>日<SELECT name=Zd id='Ed'>"
for i=1 to 24
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT> 点"
response.Write"<SELECT name=Zf id='Ef'>"
for i=1 to 60
response.Write"<OPTION value="&i&">"&i&"</OPTION>"
next
response.Write"</SELECT> 分"
response.Write"</LABEL></TD></TR><TR>"
response.Write"<TD align=right><STRONG>活动地点:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL>"
set rs=server.createobject("ADODB.Recordset")
sql = "select *  from "&WebSqlType&"_ypaddtwo order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
response.Write"<script language = 'JavaScript'>"
response.Write"var onecount1;"
response.Write"onecount1=0;"
response.Write"subcat1 = new Array();"
count = 0
do while not rs.eof
response.Write"subcat1["&count&"] = new Array("""&trim(rs(""&WebSqlType&"_addtwo"))&""","""&trim(rs(""&WebSqlType&"_addone"))&""","
response.Write""""&trim(rs(""&WebSqlType&"_addtwo"))&""");"
count = count + 1
rs.movenext
loop
rs.close
response.Write"onecount1="&count&";"
response.Write"function changelocation1(addone)"
response.Write"    {"
response.Write"    document.thisForm .addtwo.length = 0; "
response.Write" var addone=addone;"
response.Write"  var i;"
response.Write"  document.thisForm .addtwo.options[0] = new Option('请选择地区(市)','');"
response.Write"  for (i=0;i < onecount1; i++)"
response.Write"     {"
response.Write"         if (subcat1[i][1] == addone)"
response.Write"       { "
response.Write"  document.thisForm .addtwo.options[document.thisForm .addtwo.length] = new Option(subcat1[i][0], subcat1[i][2]);"
response.Write"         }     "   
response.Write"    }"
response.Write"    }"
response.Write" </script><select name='addone' "
response.Write"onChange=""changelocation1(document.thisForm .addone.options[document.thisForm .addone.selectedIndex].value)"">"
response.Write"<option value=''>请选择省份</option>"
sql="select *  from "&WebSqlType&"_ypaddone order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
while not rs.eof
response.Write"<option value="&rs(""&WebSqlType&"_addone")&">"&rs(""&WebSqlType&"_addone")&"</option>"
rs.movenext
wend
rs.Close()
response.Write"</select><select name='addtwo'>"
response.Write"<option value=''>请选择城市</option>"
response.Write" </select></LABEL>    </TD>"
response.Write" </TR><TR><TD align=right><SPAN class=redtext>*</SPAN>  <STRONG>具体地点:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL><INPUT class=colorblue id=title3 size=60 name=address> </LABEL></TD></TR>"
response.Write"<TR><TD align=right><SPAN class=redtext>*</SPAN> <STRONG>联系方式:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL><INPUT class=colorblue id=address size=30 name=tel> </LABEL></TD></TR><TR>"
response.Write"<TD align=right><SPAN class=redtext>*</SPAN> <STRONG>费用:</STRONG>&nbsp;&nbsp;</TD>"
response.Write" <TD><LABEL><INPUT name=price class=colorblue id=tel onKeyUp=""value=value.replace(/[^0-9]/g,'');"" value=""0"" size=30>  "
response.Write"<SPAN class=graytext>0为AA制</SPAN></LABEL></TD></TR><TR><TD align=right><SPAN class=redtext>*</SPAN>" 
response.Write"<STRONG>人数限制:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL><input name='ren' type='text' id='ren' onKeyUp=""value=value.replace(/[^0-9]/g,'');"""
response.Write" value='0' size='10'> <SPAN class=graytext>0为不限制</SPAN></LABEL></TD></TR>"
response.Write"<TR id=setting ><TD colSpan=2><TABLE class=so cellSpacing=0 cellPadding=0 border=0>"
response.Write"<TBODY><TR><TD width='150' align=right><STRONG>活动规则:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL><input name='type' type='radio' value='1' checked>  所有人员均可以报名 且无须审核"
response.Write" <input type='radio' name='type' value='2'>  所有人员均可以报名 需要审核</LABEL></TD></TR>"
response.Write"</TBODY></TABLE></TD></TR><TR><TD align=right><SPAN class=redtext>*</SPAN>" 
response.Write"<STRONG>详细介绍:</STRONG>&nbsp;&nbsp;</TD><TD><LABEL><textarea name='book' cols='100' rows='12' id='book'>"
response.Write"</textarea></LABEL></TD></TR><TR><TD align=right>&nbsp;</TD>"
response.Write"<TD><LABEL><INPUT class=but2 type=submit value=' 确认创建 ' name=Submit></LABEL> "
response.Write" 以上带<SPAN class=redtext>*</SPAN>号为必填</TD></TR></TBODY></TABLE>"
response.Write"</FORM>"
End Function
'---------------------------------------------------------------------------------------------
Function PactivitxEdit(a)
if a=1 then
if request("action")="edit" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_id="&request("id")&""
rs.open sql,conn,1,3
'rs.addnew
rs(""&WebSqlType&"_zhuti")=request("zhuti")
rs(""&WebSqlType&"_title")=request("title")
rs(""&WebSqlType&"_Gdate")=request("Gyear")&"-"&request("Gmonth")&"-"&request("Gday")&"  "&request("Gd")&":"&request("Gf")
rs(""&WebSqlType&"_Edate")=request("Eyear")&"-"&request("Emonth")&"-"&request("Eday") &"  "&request("Ed") &":"&request("Ef")
rs(""&WebSqlType&"_Zdate")=request("Zyear")&"-"&request("Zmonth")&"-"&request("Zday") &"  "&request("Zd") &":"&request("Zf")