pconfig.asp

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

<%
'--------------------------------------------------------
'相册分类
Function Photosort()
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_CPhotoSort where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date 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='photo.asp?sort="&rs1(""&WebSqlType&"_id")&"&action=photo&id="&id&"'>"&rs1(""&WebSqlType&"_title")&"</A>")
rs1.movenext
loop
rs1.close
end if
End Function
'-------------------------------------------------------
'相册内容
Function Cphoto()
response.write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0>"
response.write"  <TBODY> <TR>"
set rs1=server.createobject("adodb.recordset")
if request("sort")<>"" then
sql="select * from "&WebSqlType&"_photo where "&WebSqlType&"_club="&id&" and "&WebSqlType&"_sort="&request("sort")&" order by "&WebSqlType&"_date desc"
else
sql="select * from "&WebSqlType&"_photo 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 height=87 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=9CB6D3><tr><td height=194 colspan=5 align=center>暂无内容</td></tr></table>"
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
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&"_pic")<>"" then
pic=rs1(""&WebSqlType&"_pic")
else
pic="images/s_20070927100055DB0.jpg"
end if
response.Write"<TD class=td3 align=middle width='20%'>"
response.Write"<A href='photo_view.asp?id="&id&"&photoid="&rs1(""&WebSqlType&"_id")&"&action=photo'>"
response.Write"<IMG width=100 src='/"&pic&"' border=0></A><BR>"&rs1(""&WebSqlType&"_title")&""
response.Write" </TD>"
if n mod 5=0 then response.write("</tr><tr>")
rs1.movenext
i=i+1 
j=j-1
loop
response.Write"</TR></TBODY></TABLE>"	
response.Write"<DIV class=page><SPAN class=right>"
filename="photo.asp?id="&id&"&action=photo"
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 
response.Write"</SPAN>&nbsp;</DIV>"
rs1.close
end if
End Function
'---------------------------------------------------------------------------
'发布相册
Function Photoaddserver()
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
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_photo"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_club")=request("id")
rs(""&WebSqlType&"_title")=request("title")
rs(""&WebSqlType&"_user")=request.Cookies("userid")
rs(""&WebSqlType&"_username")=request.Cookies("username")
rs(""&WebSqlType&"_pic")=request("pic")
rs(""&WebSqlType&"_sort")=request("sort")
rs(""&WebSqlType&"_csort")=request("csort")
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("photo.asp?id="&request("id")&"")
response.End()
end if
End Function
'-----------------------------------------------------------------------------
Function Photoadd()
response.Write"<form name='thisForm' action='photo_add.asp?action=add' method='post' onsubmit='return ckok();'>"
response.Write"<input name='id' type='hidden' value='"&id&"'>"
response.Write"<DIV id=wrap2>"
response.Write"<H2>发布相片</H2>"
response.Write"<DIV class=box>"
response.Write"<DIV class=content>&nbsp;</DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>标题:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL><input name='title' type='text' id='title' size='40'>"
response.Write" </LABEL></DIV></DIV>"	
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>栏目:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL>"
set rs2=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_photosort order by "&WebSqlType&"_photoid desc"
rs2.open sql,conn,1,1
m=0
while not rs2.eof
m=m+1
response.Write"<INPUT name=sort type=radio value='"&rs2(""&WebSqlType&"_photoid")&"'"
if m=1 then
response.Write"checked"
end if
response.Write">"
response.Write rs2(""&WebSqlType&"_photosort")
rs2.movenext
wend
rs2.Close()
response.Write"   </LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>分类:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL>"
response.Write"<INPUT name=csort type=radio value='0'>默认分类"
set rs2=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_CPhotoSort where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc"
rs2.open sql,conn,1,1
n=0
while not rs2.eof
n=n+1
response.Write"<INPUT name=csort type=radio value='"&rs2(""&WebSqlType&"_id")&"'"
if n=1 then
response.Write"checked"
end if
response.Write">"
response.Write rs2(""&WebSqlType&"_title") 
rs2.movenext
wend
rs2.Close()
response.Write"</LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>正文:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL>"
response.Write"<input name='pic' type='text' id='pic2' size='40'>"
response.Write"<input type='button' name='Submit2' value='上传图片' onClick=""window.open('/TaoJinJbwPic_2.asp?formname=thisForm&editname=pic&uppath=2007/"&request.Cookies("username")&"&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')""></LABEL>"
response.Write"</DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l></DIV>"
response.Write"<DIV class=content-r><LABEL> <INPUT type=submit value=' 确认提交 ' name=Submit>"
response.Write" </LABEL><SPAN id=postMsg></SPAN></DIV></DIV></DIV>"
response.Write"<DIV class=cl></DIV></DIV></FORM>"
End Function
'-------------------------------------------------------------------------------------
Function photoeditserver()
'---------------------------------------------------------------------------------------------
if request("action")="edit" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_photo where "&WebSqlType&"_id="&request("photoid")&""
rs.open sql,conn,1,3
'rs.addnew
rs(""&WebSqlType&"_title")=request("title")
rs(""&WebSqlType&"_pic")=request("pic")
rs(""&WebSqlType&"_sort")=request("sort")
rs(""&WebSqlType&"_csort")=request("csort")
rs.update
rs.close
response.Redirect("photo_view.asp?id="&request("id")&"&photoid="&request("photoid")&"")
end if
End Function
'--------------------------------------------------------------------------------------------
Function photoedit()
set rsb=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_photo where "&WebSqlType&"_id="&trim(request("photoid"))
rsb.open sql,conn,1,1
response.Write"<form name='thisForm' action='photo_edit.asp?action=edit' method='post' onsubmit='return ckok();'>"
response.Write"<input name='id' type='hidden' value='"&id&"'>"
response.Write"<input name='photoid' type='hidden' value="&request("photoid")&">"
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><input name=title type='text' id='title' size='40' value="&rsb(""&WebSqlType&"_title")&">"
response.Write" </LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>栏目:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL>"
set rs2=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_photosort order by "&WebSqlType&"_photoid desc"
rs2.open sql,conn,1,1
m=0
while not rs2.eof
m=m+1
response.Write"<INPUT name=sort type=radio value='"
response.Write rs2(""&WebSqlType&"_photoid")
response.Write"'"
if rsb(""&WebSqlType&"_sort")=rs2(""&WebSqlType&"_photoid") then
response.Write"checked"
end if
response.Write">"
response.Write rs2(""&WebSqlType&"_photosort")
rs2.movenext
wend
rs2.Close()
response.Write"</LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>分类:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL>"
set rs2=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_CPhotoSort where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc"
rs2.open sql,conn,1,1
n=0
while not rs2.eof
n=n+1
response.Write"<INPUT name=csort type=radio value='"&rs2(""&WebSqlType&"_id")&"'"
if rsb(""&WebSqlType&"_csort")=rs2(""&WebSqlType&"_id") then
response.Write"checked"
end if
response.Write">"
response.Write rs2(""&WebSqlType&"_title")
rs2.movenext
wend
rs2.Close()
response.Write"</LABEL></DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<DIV class=content-l><STRONG>正文:</STRONG></DIV>"
response.Write"<DIV class=content-r><LABEL>"
response.Write"<input name='pic' type='text' id='pic' size='35' value="&rsb(""&WebSqlType&"_pic")&">"
response.Write"  <input type='button' name='Submit2' value='上传图片'"
response.Write" onClick=""window.open('/TaoJinJbwPic_2.asp?formname=thisForm&editname=pic&uppath=2007/"&request.Cookies("username")&"&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')""></LABEL>"
response.Write"</DIV></DIV>"
response.Write"<DIV class=content>"
response.Write"<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
'-------------------------------------------------------------------------
'del
Function photodel()
if request("action")="del" then
LID=request("photoid")
conn.execute("delete From "&WebSqlType&"_photo Where "&WebSqlType&"_id="&LID)
conn.execute("delete From "&WebSqlType&"_book Where "&WebSqlType&"_htc="&LID)
response.Redirect("photo.asp?id="&request("id")&"")
end if
End Function
'-------------------------------------------------------------------------
'title
Function phototitle()
response.Write"<A href='#2'>回复</A>   | <A  href='"
if trim(request.Cookies("UserID"))=trim(rsb(""&WebSqlType&"_user")) then
response.Write"photo_edit.asp?id="&id&"&photoid="&request("photoid")&""
else
response.Write"#"
end if
response.Write"'>修改</A> | <A href='"
if trim(request.Cookies("UserID"))=trim(rsb(""&WebSqlType&"_user")) then
response.Write"photo_view.asp?id="&id&"&photoid="&request("photoid")&"&action=del"
else
response.Write"#"
end if
response.Write"'>删除</A></SPAN> "
End Function
%>