person.asp

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

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
end if
rs(""&WebSqlType&"_Ctitle")=request("Ctitle")
rs(""&WebSqlType&"_username")=request.Cookies("username")
rs(""&WebSqlType&"_user")=request.Cookies("UserID")
rs.update
rs.close
response.Redirect(request("url"))
end if
elseif a=2 then
sql3="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_id="&clng(request("activitxid"))
set rs3=server.createobject("ADODB.Recordset")
rs3.open sql3,conn,1,1
response.Write"<FORM id=addOrgform name=thisForm onSubmit=""return ckok();"" action='activitx_edit.asp?action=edit' method=post>"
response.Write"<input name='id' type='hidden' value="&rs3(""&WebSqlType&"_id")&">"
response.Write"<input type='hidden' name='url' value='activitx.asp'>"
response.Write"<input type='hidden' name='club' value='"&rs3(""&WebSqlType&"_club")&"'>"
response.Write"<input type='hidden' name='Ctitle' value="&rs3(""&WebSqlType&"_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 rs=server.createobject("ADODB.Recordset")
sql="select *  from "&WebSqlType&"_activitxsort order by "&WebSqlType&"_activitxsortdate desc"
rs.open sql,conn,1,1
n=0
while not rs.eof
n=n+1
response.Write"<INPUT name=zhuti type=radio value="&rs(""&WebSqlType&"_activitxsorttitle")&" "
if trim(rs3(""&WebSqlType&"_zhuti"))=trim(rs(""&WebSqlType&"_activitxsorttitle")) then
response.Write"checked"
end if
response.Write">"&rs(""&WebSqlType&"_activitxsorttitle")&"" 
rs.movenext
wend
rs.Close()
response.Write"</LABEL></TD></TR><TR><TD align=right><SPAN class=redtext>*</SPAN>" 
response.Write"<STRONG>活动名称:</STRONG>&nbsp;&nbsp;</TD><TD><LABEL>"
response.Write"<INPUT name=title class=colorblue id=title value="&trim(rs3(""&WebSqlType&"_title"))&" size=60>"
response.Write"</LABEL> </TD></TR><TR> <TD align=right><SPAN class=redtext>*</SPAN>  <STRONG>开始时间:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<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 name=address class=colorblue id=title3 value="&trim(rs3(""&WebSqlType&"_address"))&" size=60>"
response.Write"   </LABEL></TD></TR><TR> <TD align=right><SPAN class=redtext>*</SPAN>" 
response.Write"<STRONG>联系方式:</STRONG>&nbsp;&nbsp;</TD> <TD><LABEL>"
response.Write"<INPUT name=tel class=colorblue id=address value="&trim(rs3(""&WebSqlType&"_tel"))&" size=30>" 
response.Write" </LABEL></TD></TR><TR>"
response.Write"<TD align=right><SPAN class=redtext>*</SPAN> "
response.Write" <STRONG>费用:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL><INPUT name=price class=colorblue id=tel value="&trim(rs3(""&WebSqlType&"_price"))&" size=30>" 
response.Write" </LABEL></TD></TR><TR><TD align=right><SPAN class=redtext>*</SPAN> "
response.Write" <STRONG>人数限制:</STRONG>&nbsp;&nbsp;</TD><TD><LABEL>"
response.Write"<input name='ren' type='text' id='ren' value="&trim(rs3(""&WebSqlType&"_ren"))&" size='10'> "
response.Write" <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><TBODY>"
response.Write"<TR><TD width='150' align=right><STRONG>活动规则:</STRONG>&nbsp;&nbsp;</TD><TD><LABEL>"
response.Write"<input name='type' type='radio' value='1' "
if trim(rs3(""&WebSqlType&"_type"))=1 then
response.Write"checked"
end if
response.Write">   所有人员均可以报名 且无须审核"
response.Write" <input type='radio' name='type' value='2' "
if trim(rs3(""&WebSqlType&"_type"))=2 then
response.Write" checked"
end if
response.Write">  所有人员均可以报名 需要审核</LABEL></TD></TR>"
response.Write" </TBODY></TABLE></TD></TR>"
response.Write"<TR> <TD align=right><SPAN class=redtext>*</SPAN> <STRONG>详细介绍:</STRONG>&nbsp;&nbsp;</TD>"
response.Write" <TD><LABEL><textarea name='book' cols='100' rows='12' id='book'>"&trim(rs3(""&WebSqlType&"_book"))&"</textarea>"
response.Write" </LABEL></TD></TR> <TR> <TD align=right>&nbsp;</TD><TD><LABEL>"
response.Write"<INPUT class=but2 type=submit value=' 确认修改 ' name=Submit></LABEL> "
response.Write"   以上带<SPAN class=redtext>*</SPAN>号为必填</TD></TR></TBODY></TABLE>"
rs3.close
response.Write"</FORM>"
end if 
End Function
'------------------------------------------------------
Function Pgroup()
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_user="&request.Cookies("UserID")&" order by "&WebSqlType&"_date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then                     
	response.write "<td>还没有内容</td>"
else 
n=0
do while not rs.eof
n=n+1
goname=rs(""&WebSqlType&"_webname")
goid=rs(""&WebSqlType&"_id")
%>
<!--#include file="dns/dns.asp"-->
<%
response.Write"<TABLE cellSpacing=0><TBODY><TR> <TD class=td1 align=middle width=35>"
response.Write"<IMG src="&cityurl&"images/manager.gif> </TD><TD class=td1> <DIV class=right></DIV>"
response.Write"<A href="&usertwourl&" target=_blank><STRONG class=bigtext>"&rs(""&WebSqlType&"_title")&"</STRONG></A> "
response.Write"<SPAN class='graytext smalltext'>("
call htc("select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&rs(""&WebSqlType&"_id")&"")
response.Write"人)</SPAN> </TD>"
'response.Write"<TD class=td1 align=middle width=150><A href="&cityurl&"club/price.asp?id="&rs(""&WebSqlType&"_id")&" target=_blank>查看费用</A></TD>"
response.Write" <TD class=td1 align=middle width=120><A href="&cityurl&"club/index.asp?id="&rs(""&WebSqlType&"_id")&""
response.Write"&userid="&request.Cookies("UserID")&">管理</A></TD></TR></TBODY></TABLE>"
rs.movenext
loop
rs.close
end if
End Function
'--------------------------------------------------------------
Function PbbsDel()
if request("Submit")="删 除" then
LID=request("LID")
LID=split(LID,",")
for i=0 to UBound(LID)
conn.execute("delete From "&WebSqlType&"_log Where "&WebSqlType&"_id="&LID(i))
next
response.Redirect("bbs.asp")
end if
End Function
'------------------------------------------------------------
Function Pbbs()
response.Write"<TABLE cellSpacing=0><TBODY><form name='from' method='post' action='bbs.asp?id="&id&"'>"
response.Write"<TR bgcolor='#F2F2F2'><TH width=52 height='30'>&nbsp;</TH><TH width='683'>"
response.Write"<DIV style='TEXT-ALIGN: left'>话题名称</DIV></TH><TH width=177 align='left'>"
response.Write"<DIV class=th>&nbsp;发布日期</DIV></TH><TH width=38><DIV class=th>操作</DIV></TH></TR>"
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_log where "&WebSqlType&"_user="&request.Cookies("UserID")&" order by "&WebSqlType&"_z desc, "&WebSqlType&"_j desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else 
listnum=20
rs1.pagesize=listnum
page=Request("page")
if (page-rs1.pagecount) > 0 then
page=rs1.pagecount
elseif page = "" or page < 1 then
page = 1
end if
rs1.absolutepage=page
'编号的实现
j=rs1.recordcount
j=j-(page-1)*listnum
i=0