aconfig.asp

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

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 size=60 name=address value="&trim(rsb(""&WebSqlType&"_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 value="&trim(rsb(""&WebSqlType&"_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="&trim(rsb(""&WebSqlType&"_price"))&" 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='"&trim(rsb(""&WebSqlType&"_ren"))&"' 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' "
if trim(rsb(""&WebSqlType&"_type"))=1 then
response.write"checked"
end if
response.write">   不需审批"
response.write"  <input type='radio' name='type' value='2'"
if trim(rsb(""&WebSqlType&"_type"))=2 then
response.write"checked"
end if
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='"&server.HTMLEncode(rsb(""&WebSqlType&"_book"))&"'>"
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>"
rsb.close
End Function

'活动报名及退出,删除活动,审核成员程序块
Function BSactivitx()
if request("action")="adel" then
LID=request("activitxid")
conn.execute("delete From "&WebSqlType&"_activitx Where "&WebSqlType&"_id="&LID)
conn.execute("delete From "&WebSqlType&"_mactivitx Where "&WebSqlType&"_activitx="&LID)
conn.execute("delete From "&WebSqlType&"_price Where "&WebSqlType&"_activitx="&LID)
response.Redirect("activitx.asp?id="&request("id")&"")
end if
if request("action")="add" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_mactivitx"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_activitx")=request("activitxid")
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(""&WebSqlType&"_club")=request("id")
rs(""&WebSqlType&"_key")=trim(request("type"))
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("id")&"&activitxid="&request("activitxid")&"")
response.End()
end if
if request("action")="del" then
conn.execute("delete from "&WebSqlType&"_mactivitx where "&WebSqlType&"_user="&request.Cookies("userid")&" and "&WebSqlType&"_activitx="&request("activitxid")&"")
response.Redirect("activitx_view.asp?id="&request("id")&"&activitxid="&request("activitxid")&"")
end if
if request("action")="mdel" then
conn.execute("update "&WebSqlType&"_mactivitx set "&WebSqlType&"_key=1 where "&WebSqlType&"_activitx="&trim(request("activitxid"))&" and "&WebSqlType&"_user="&trim(request("user"))&"")
response.Redirect("activitx_view.asp?id="&request("id")&"&activitxid="&request("activitxid")&"")
end if
End Function
Function Vactivitx(a)
if a =1 then

'输入活动发起人
response.write("<a href='index.asp?id="&rsb(""&WebSqlType&"_user")&"'>"&rsb(""&WebSqlType&"_username")&"</a>  ")
'修改按钮
if trim(request.Cookies("UserID"))=trim(rsb(""&WebSqlType&"_user")) then
response.write("<A href='activitx_edit.asp?id="&id&"&activitxid="&request("activitxid")&"'>修改</A>")
else
response.write("<A href='#'>修改</A>")
end if
'删除按钮
if trim(request.Cookies("UserID"))=trim(rsb(""&WebSqlType&"_user")) then
response.write(" | <A href='activitx_view.asp?id="&id&"&activitxid="&request("activitxid")&"&action=adel'>删除</A>")
else
response.write(" | <A href='#'>删除</A>")
end if
elseif a=2 then
'活动时间
response.write("<STRONG>"&year(rsb(""&WebSqlType&"_Gdate"))&"年"&month(rsb(""&WebSqlType&"_Gdate"))&"月")
response.write(""&day(rsb(""&WebSqlType&"_Gdate"))&"日 "&Hour(rsb(""&WebSqlType&"_Gdate"))&"时"&Minute(rsb(""&WebSqlType&"_Gdate"))&"分")
response.write("  <font color=red> 到 </font>"&year(rsb(""&WebSqlType&"_Edate"))&"年"&month(rsb(""&WebSqlType&"_Edate"))&"月")
response.write(""&day(rsb(""&WebSqlType&"_Edate"))&"日 "&Hour(rsb(""&WebSqlType&"_Edate"))&"时"&Minute(rsb(""&WebSqlType&"_Edate"))&"分")
response.write("  <font color=red>")
if rsb(""&WebSqlType&"_Edate")<= now() then 
response.write("已结束")
else
response.write("进行中")
end if
response.write("</font></STRONG>")
elseif a=3 then
'活动报名
'活动报名模板
'------------------------
'如果用户登录后做下面的事
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="&request("activitxid")&"",conn
if not rs0.EOF then
response.write("<DIV class=so><STRONG class='bigtext redtext'>我要报名：</STRONG>")
response.write("您己经报名&nbsp;&nbsp;&nbsp;&nbsp;<a href='activitx_view.asp?id="&id&"&activitxid="&request("activitxid")&"&action=del'>退出报名</a> </DIV>")
'如果报名为空的话就输出报名框供用户报名
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
response.write("<DIV class=so><STRONG class='bigtext redtext'>我要报名：</STRONG>")
response.write("<form action='activitx_view.asp?action=add' method='post' name='form1'>")
response.write(" 报名截止：<STRONG>"&year(rsb(""&WebSqlType&"_Zdate"))&"年"&month(rsb(""&WebSqlType&"_Zdate"))&"月"&day(rsb(""&WebSqlType&"_Zdate"))&"日")
response.write(" "&Hour(rsb(""&WebSqlType&"_Zdate"))&"时"&Minute(rsb(""&WebSqlType&"_Zdate"))&"分</STRONG><BR>")
response.write("<input type='hidden' name='activitxid' value='"&request("activitxid")&"'>")
response.write("<input type='hidden' name='user_id' value='"&rsb(""&WebSqlType&"_user")&"'>")
response.write("<input type='hidden' name='id' value='"&id&"'>")
response.write("<input type='hidden' name='type' value="&rsb(""&WebSqlType&"_type")&">")
response.write("  您的姓名：<input name='username' type='text' id='username' size='15' value='"&username&"'>")
response.write("  <BR>联系方式：<input name='tel' type='text' id='tel' size='20' value='"&tel&"'>")
response.write("  <BR>参加人数：<input name='ren' type='text' id='ren' onKeyUp='value=value.replace(/[^0-9]/g,'');' value='1' size='10'>(我有几人参加)")
response.write("	  <BR> <INPUT type=submit value=我要报名 name=submit> </FORM></DIV>")
end if
else
response.write("<DIV class=so><STRONG class='bigtext redtext'>我要报名：</STRONG> ")
response.write("  您还没有登录.请先登录</DIV>")
end if
end if
End Function
'输入报名人数的资料
Function Vmactivitx(a)
'读取己报名等待审核人数资料
set rsl=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_mactivitx where "&WebSqlType&"_key="&a&" and "&WebSqlType&"_activitx="&rsb(""&WebSqlType&"_id")&" order by "&WebSqlType&"_date desc"
rsl.open sql,conn,1,1
n=0
do while not rsl.eof
n=n+1
response.write("<A title='报名人数："&rsl(""&WebSqlType&"_ren")&"人,联系方式："&rsl(""&WebSqlType&"_tel")&",")
response.write("报名时间："&rsl(""&WebSqlType&"_date")&"'") 
response.write(" href='/space/index.asp?id="&rsl(""&WebSqlType&"_user")&"' target=_blank>"&rsl(""&WebSqlType&"_username")&"</A>")
if a =2 then
response.write("  <a href='")
if trim(request.Cookies("UserID"))=trim(rsb(""&WebSqlType&"_user")) then
response.write("activitx_view.asp?id="&id&"&activitxid="&request("activitxid")&"&action=mdel&user="&rsl(""&WebSqlType&"_user")&"")
else
response.write("#")
end if
response.write("'>审核 </a>")
end if
rsl.movenext
loop
rsl.close
End Function
%>