aconfig.asp

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

<%

'活动页面使用参数=============================================================================================================
'活动分类
Function activitxsort()
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_activitxsort order by "&WebSqlType&"_activitxsortdate desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<LI>没有内容"
else 
n=0
do while not rs1.eof
response.write("  <LI><A href='activitx.asp?sort="&rs1(""&WebSqlType&"_activitxsorttitle")&"&action=activitx&id="&id&"'>"&rs1(""&WebSqlType&"_activitxsorttitle")&"</A>")
rs1.movenext
loop
rs1.close
end if 
End Function

'活动主体列表信息----------------------------------------------------------------------------------------------------------------

Function Cactivitx()
set rs1=server.createobject("adodb.recordset")
if request("sort")<>"" then
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_club="&id&" and "&WebSqlType&"_zhuti='"&request("sort")&"' order by "&WebSqlType&"_date desc"
else
sql="select * from "&WebSqlType&"_activitx where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc"
end if
rs1.open sql,conn,1,1
if (rs1.eof and rs1.bof) then                     
response.write "<table width=500 height=87 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=9CB6D3><tr><td height=194 colspan=5 align=center>暂无内容</td></tr></table>"
response.End()
end if
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
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs1.eof and i<listnum
n=n+1
if rs1(""&WebSqlType&"_msort")=1 then
msort="成员活动"
else
msort="圈子活动"
end if
response.write"<TABLE cellSpacing=0>"
response.write"<TBODY>"
response.write"<TR class=td>"
response.write"<TD class=td width=21>"
response.write"<A  href='activitx_view.asp?id="&rs1(""&WebSqlType&"_id")&"&action=activitx' target=_blank>"
response.write"<IMG src='images/folder.gif' border=0></A></TD>"
response.write"<TD width='556' align=left class=td><SPAN class=right2><font color=red>"&msort&"</font></SPAN>"
response.write"<A href='activitx_view.asp?id="&id&"&action=activitx&activitxid="&rs1(""&WebSqlType&"_id")&"'>"
response.write""&rs1(""&WebSqlType&"_title")&"</A>"
response.write" <SPAN class='spage smalltext'></SPAN></TD>"
response.write"<TD class='smalltext td' width=72><STRONG class=redtext>"
response.write""&rs1(""&WebSqlType&"_Rhtc")&"</STRONG>/"&rs1(""&WebSqlType&"_ren")&"</TD>"
response.write"<TD class=td width=90><A href='/space/index.asp?id="&rs1(""&WebSqlType&"_user")&"' target=_blank>"
response.write""&rs1(""&WebSqlType&"_username")&"</A> </TD>"
response.write"<TD class='smalltext td' align=middle width=153>"&rs1(""&WebSqlType&"_Gdate")&"</TD>"
response.write"<TD class=td width=74><SPAN class=graytext>"
if rs1(""&WebSqlType&"_Edate")<= now() then 
response.write"已结束"
else
response.write"进行中"
end if
response.write"</SPAN></TD></TR></TBODY></TABLE>"
rs1.movenext
i=i+1 
j=j-1
loop
response.write("<DIV class=page><SPAN class=right>")
filename="activitx.asp?id="&id&"&action=activitx"
response.write("共 "&rs1.pagecount&" 页 ")
if page=1 then 
else
response.write("<a href="&filename&">|<<</a>&nbsp;") 
response.write("<a href="&filename&"&page="&page-1&"><font color=#000000><<</font></a>&nbsp;") 
response.write("<a href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a>&nbsp;")
end if
if rs1.pagecount=1 then
else
response.write("["&page&"]")
end if
if rs1.pagecount-page <> 0 then
response.write("<a href="&filename&"&page="&page+1&"><font color=#000000>["&page+1&"]</font></a>&nbsp; ")
response.write("<a href="&filename&"&page="&page+1&"><font color=#000000>>></font></a>&nbsp;") 
response.write("<a href="&filename&"&page="&rs1.pagecount&"><font color=#000000>>>|</font></a>&nbsp;" )
end if 
rs1.close
response.write("</SPAN>&nbsp;</DIV>")
End Function

'发布活动------------------------------------------------------------------------------------------------
Function activitx_server_add()
if request("action")="add" then
'-----------------------------------------------------------------------------------------------------------------------------
call flaguser()
if flaguser=0 or flaguser=4 then
Response.Write "<script>alert('发布信息出错，下面是产生错误的可能原因：\n\n·对不起，您没有权限在本圈子发布信息');history.go(-1);</Script>"
Response.End 
end if
if flaguser<>2 and flaguser<>1 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&"_activitx"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_msort")=request("msort")
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
end if
rs(""&WebSqlType&"_Ctitle")=request("Ctitle")
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"))
conn.execute("update "&WebSqlType&"_club set "&WebSqlType&"_club="&WebSqlType&"_club+"&cint(trim(Cprice(2)))&" where "&WebSqlType&"_id="&request("id"))
response.Redirect(request("url"))
response.End()
end if
End Function
'-----------------------------------------------------------------------------------------------------------------------
Function activitx_add()
response.write"<FORM name=thisForm onsubmit='return ckok();' action='activitx_add.asp?action=add&id="&id&"' method=post>"
response.write"<input type='hidden' name='url' value='activitx.asp?id="&id&"'>"
response.write"<input type='hidden' name='club' value="&id&">"
response.write"<input type='hidden' name='Ctitle' value="&title&">"
response.write"<input type='hidden' name='msort' value='2'>"
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 n=1 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></LABEL></DIV></DIV>"
response.write"<DIV class=content>"
response.write"<DIV class=content-l><STRONG>开始时间:</STRONG></DIV>"
response.write"<DIV class=content-r><LABEL><SELECT name=GYear id='GYear'> "
for i=2008 to 2018
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> 分</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>"