aconfig.asp

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

next
response.write"</SELECT> 分</LABEL></DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>报名截止时间:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL><SELECT name=ZYear id='EYear'>" 
for i=2008 to 2018
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> 分</LABEL></DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>活动地点:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL>"
set rs2=server.createobject("ADODB.Recordset")
 sql = "select *  from "&WebSqlType&"_ypaddtwo order by "&WebSqlType&"_date desc"
rs2.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 rs2.eof
response.write"subcat1["&count&"] = new Array('"& trim(rs2(""&WebSqlType&"_addtwo"))&"','"& trim(rs2(""&WebSqlType&"_addone"))&"','"& trim(rs2(""&WebSqlType&"_addtwo"))&"');"
count = count + 1
rs2.movenext
loop
rs2.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>"
response.write"<select name='addone' 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"
rs2.open sql,conn,1,1
while not rs2.eof
response.write"<option value='"&rs2(""&WebSqlType&"_addone")&"'>"&rs2(""&WebSqlType&"_addone")&"</option>"
rs2.movenext
wend
rs2.Close()
response.write"</select>"
response.write" <select name='addtwo'>"
response.write"<option value=>请选择城市</option>"
response.write"</select></LABEL></DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>具体地点:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL><INPUT class=colorblue id=title3 size=60 name=address></LABEL></DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>联系方式:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL><INPUT class=colorblue id=address size=30 name=tel></LABEL></DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>费用:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL>"
response.write"<INPUT class=colorblue id=tel size=30 name=price value='0' onKeyUp=""value=value.replace(/[^0-9]/g,'');"">"
response.write"</LABEL> &quot;0&quot;为AA制 </DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>人数限制:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL>"
response.write"<input name='ren' type='text' id='ren' value='0' size='10' onKeyUp=""value=value.replace(/[^0-9]/g,'');""></LABEL>"
response.write"&quot;0&quot;为不限制人数 </DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>活动属性:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL><input name='type' type='radio' value='1' checked> "
response.write"  不需审批"
response.write"  <input type='radio' name='type' value='2'>" 
response.write"   需要审批</LABEL></DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>活动说明:</STRONG></DIV>"
response.write"<DIV class=content-r><INPUT type='hidden' name='book' value=>"
response.write"<IFRAME ID='eWebEditor1' SRC='../../Webs2008/ewebeditor.asp?id=book&style=renmaiwang' FRAMEBORDER='0' SCROLLING='no' WIDTH='550' HEIGHT='250'></IFRAME>"
response.write"</DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l></DIV>"
response.write"<DIV class=content-r><LABEL><INPUT type=submit value=' 确认提交 ' name=Submit> </LABEL>"
response.write"<SPAN id=postMsg></SPAN></DIV></DIV></DIV>"
response.write"<DIV class=cl></DIV></DIV></FORM>"
End Function


'修改活动------------------------------------------------------------------------------------------------
Function activitx_server_edit()
if request("action")="edit" then
'-----------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_id="&trim(request("activitxid"))&""
rs.open sql,conn,1,3
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")=trim(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.update
rs.close
response.Redirect("activitx_view.asp?id="&trim(request("id"))&"&action=activitx&activitxid="&trim(request("activitxid"))&"")
end if
End Function
'-----------------------------------------------------------------------------------------------------------------------
Function activitx_edit()
set rsb=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_activitx where "&WebSqlType&"_id="&trim(request("activitxid"))
rsb.open sql,conn,1,1
response.write"<FORM name=thisForm onsubmit='return ckok();' action='activitx_edit.asp?action=edit&id="&id&"' method=post>"
response.write"<input type='hidden' name='activitxid' value='"&request("activitxid")&"'>"
response.write"<input type='hidden' name='club' value='"&id&"'>"
response.write"<input type='hidden' name='Ctitle' value='"&title&"'>"
response.write"<DIV id=wrap2><H2>修改活动</H2>"
response.write"<DIV class=box><DIV class=content>&nbsp;</DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>活动类别:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL>"
set rs2=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_activitxsort order by "&WebSqlType&"_activitxsortdate desc"
rs2.open sql,conn,1,1
while not rs2.eof
response.write"<INPUT name=zhuti type=radio value='"&rs2(""&WebSqlType&"_activitxsorttitle")&"'"
if trim(rsb(""&WebSqlType&"_zhuti"))=trim(rs2(""&WebSqlType&"_activitxsorttitle")) then
response.write"checked"
end if
response.write">"
response.write(rs2(""&WebSqlType&"_activitxsorttitle"))
rs2.movenext
wend
rs2.Close()
response.write"</LABEL></DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>活动名称:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL><INPUT class=colorblue id=title size=60 name=title value='"&trim(rsb(""&WebSqlType&"_title"))&"'></LABEL></DIV></DIV>"
response.write"<DIV class=content>"
Gdate=split(rsb(""&WebSqlType&"_Gdate"),"-")
'edate=split(rsb(""&WebSqlType&"_edate"),"-")
'zdate=split(rsb(""&WebSqlType&"_zdate"),"-")
response.write"<DIV class=content-l><STRONG>开始时间:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL><SELECT name=GYear id='GYear'> "

response.write"<OPTION value=2008 "
if trim(Gdate(0))=2008 then
response.write"selected"
end if
response.write">2008</OPTION>"

response.write"<OPTION value=2009 "
if trim(Gdate(0))=2009 then
response.write"selected"
end if
response.write">2009</OPTION>"

response.write"<OPTION value=2010 "
if trim(Gdate(0))=2010 then
response.write"selected"
end if
response.write">2010</OPTION>"

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> 分</LABEL></DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>结束时间:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL><SELECT name=EYear id='EYear'> "
for i=2008 to 2018
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></DIV></DIV>"
response.write"<DIV class=content><DIV class=content-l><STRONG>报名截止时间:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL><SELECT name=ZYear id='EYear'>" 
for i=2008 to 2018