person.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.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 trim(rs1(""&WebSqlType&"_j"))=1 then
keyj="加精"
else
keyj=""
end if
if trim(rs1(""&WebSqlType&"_z"))=1 then
keyz="置顶"
else
keyz=""
end if
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_id="&rs1(""&WebSqlType&"_club")&" "
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
else
co=rs2(""&WebSqlType&"_co")
rs2.close
end if
response.Write"<TR><TD align='center'><IMG src='"&cityurl&"images/folder.gif'>&nbsp;</TD>"
response.Write" <TD class=td1><SPAN class='graytext right'>"&rs1(""&WebSqlType&"_sort")&"</SPAN> "
response.Write"<A href='/quan/"&trim(co)&"/bbs_view.asp?bbsid="&rs1(""&WebSqlType&"_id")&"&id="&rs1(""&WebSqlType&"_club")&"'"
response.Write" target=_blank>"&rs1(""&WebSqlType&"_title")&"</A> <font color=red>"&keyj&"</font> <font color=#006600>"&keyz&"</font>"
response.Write" </TD><TD align='left' class=td1>&nbsp;"&rs1(""&WebSqlType&"_Ndate")&"</TD>"
response.Write"<TD align='center' class=td1><input type='checkbox' name='LID' value='"&rs1(""&WebSqlType&"_id")&"' style='border:0'>"
response.Write"</TD></TR>"
rs1.movenext
i=i+1 
j=j-1
loop
response.Write"<TR align='right'><TD colSpan=4 class=page> <input name='chkall' type='checkbox' id='chkall'"
response.Write" value='select' onClick='CheckAll(this.form)' style='border:0'>"
response.Write"全选　　<input type='submit' name='submit' value='删 除'>&nbsp;</TD>"
response.Write"  </TR> <TR align='right'>  <TD colSpan=4 class=page>"
filename="bbs.asp?id="&id&""
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"</TD></TR>"

rs1.close
end if
response.Write"</form></TBODY></TABLE>"
End Function
'----------------------------------------------
Function PPhotoDel()
if request("Submit")="删 除" then
LID=request("LID")
LID=split(LID,",")
for i=0 to UBound(LID)
conn.execute("delete From "&WebSqlType&"_photo Where "&WebSqlType&"_id="&LID(i))
next
response.Redirect("photo.asp")
end if
End Function
'--------------------------------------------
Function Pphoto()
response.Write"<form name='from' method='post' action='photo.asp'>"
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_photo where "&WebSqlType&"_user="&request.Cookies("UserID")&" order by "&WebSqlType&"_date 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
response.Write"<TABLE cellSpacing=0 cellPadding=0 width='100%' border=0><TBODY><TR>"
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
response.Write"<TD width='20%' align=middle valign='bottom' class=td3>"
response.Write"<A href='/space/photo_view.asp?photoid="&rs1(""&WebSqlType&"_id")&"&id="&rs1(""&WebSqlType&"_user")&"' target=_blank>"
response.Write" <IMG title="&rs1(""&WebSqlType&"_title")&" src='/"&rs1(""&WebSqlType&"_pic")&"' width='100' border=0>"
response.Write"<BR>"&rs1(""&WebSqlType&"_title")&"</A> <BR><span class='graytext smalltext'>"
response.Write"<a href='photo_add.asp?edit=yes&photoid="&rs1(""&WebSqlType&"_id")&"'>编辑</a></span>"
response.Write" <input type='checkbox' name='LID' value='"&rs1(""&WebSqlType&"_id")&"' style='border:0'></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>&nbsp; "
filename="photo.asp?id="&id&""
response.Write"<STRONG>共 "&rs1.pagecount&" 页 </STRONG>"
if page=1 then
else
response.Write"<a class=p href="&filename&">|<<</a>&nbsp; "
response.Write"<a class=p href="&filename&"&page="&page-1&"><font color=#000000><<</font></a>&nbsp; "
response.Write"<a class=p href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a>&nbsp;"
end if
if rs1.pagecount=1 then
else
response.Write"<STRONG> ["&page&"]</STRONG>"
end if
if rs1.pagecount-page <> 0 then
response.Write"<a class=p href="&filename&"&page="&page+1&"><font color=#000000>["&page+1&"]</font></a>&nbsp; "
response.Write"<a class=p href="&filename&"&page="&page+1&"><font color=#000000>>></font></a>&nbsp; "
response.Write"<a class=p href="&filename&"&page="&rs1.pagecount&"><font color=#000000>>>|</font></a>&nbsp; "
end if 
response.Write"<input name='chkall' type='checkbox' id='chkall' value='select' onClick='CheckAll(this.form)' style='border:0'>"
response.Write"全选　　<input type='submit' name='submit' value='删 除'>&nbsp;</SPAN>&nbsp;</DIV>  "

rs1.close
end if
response.Write"</form>"
End Function
'-----------------------------------------------------------
Function PphotoAdd()
if request("action")="add" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_photo"
rs.open sql,conn,1,3
rs.addnew
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("sorta")
rs.update
rs.close
conn.execute("update "&WebSqlType&"_member set "&WebSqlType&"_Taojin2008="&WebSqlType&"_Taojin2008+"&cint(trim(Chtcs(1)))&" where "&WebSqlType&"_id="&request.Cookies("UserID"))
response.Redirect("photo.asp")
response.End()
end if
'------------------------------------------------------------------------
if request("action")="edit" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_photo where "&WebSqlType&"_id="&clng(request("id"))&""
rs.open sql,conn,1,3
'rs.addnew
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("sorta")
rs.update
rs.close
response.Redirect("photo.asp")
end if
End Function
'----------------------------------------------------
Function PphotoEdit()
'修改信息
if request("edit")="yes" then
sql3="select * from "&WebSqlType&"_photo where "&WebSqlType&"_id="&clng(request("photoid"))
set rs3=server.createobject("ADODB.Recordset")
rs3.open sql3,conn,1,1
response.Write"<FORM id=addOrgform name=ethisForm onSubmit='return ckok();' action=photo_add.asp?action=edit method=post>"
response.Write"<input name='id' type='hidden' value='"&rs3(""&WebSqlType&"_id")&"'>"
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>"
response.Write"<INPUT name=title id=link_title size='40' value='"&rs3(""&WebSqlType&"_title")&"'>"
response.Write" </LABEL> <SPAN class=graytext>不能包含特殊字符号，长度3-10之间</SPAN></TD></TR>"
response.Write"<TR><TD align=right><SPAN class=redtext>*</SPAN> <STRONG>上传相片:</STRONG>&nbsp;&nbsp;</TD>"
response.Write" <TD><LABEL><input name='pic' type='text' id='pic' size='35' value="&rs3(""&WebSqlType&"_pic")&">"
response.Write"<input type='button' name='Submit2' value='上传图片'"
response.Write" onClick=""window.open('/TaoJinJbwPic_2.asp?formname=ethisForm&editname=pic&uppath=2007/"&request.Cookies("username")&"&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"">"
response.Write"</LABEL></TD></TR><TR> <TD align=right><SPAN class=redtext>*</SPAN>"
response.Write"<STRONG>选择类型:</STRONG>&nbsp;&nbsp;</TD><TD><LABEL>"
response.Write"<select name='sorta'>"
response.Write"<option value='' selected>请选择相册分类</option>"
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_photosort  order by "&WebSqlType&"_photodate desc"
rs.open sql,conn,1,1
do while not rs.eof
response.Write"<option value='"&rs(""&WebSqlType&"_photoid")&"' "
if rs(""&WebSqlType&"_photoid")=rs3(""&WebSqlType&"_sort") then
response.Write"selected"
end if
response.Write">"&rs(""&WebSqlType&"_photosort")&"</option>"
rs.movenext
loop
rs.close
response.Write"</select> </LABEL></TD></TR>"
response.Write"<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>"
response.Write"</FORM>"
'添加数据
else
response.Write"<FORM id=addOrgform name=thisForm onSubmit='return ckok();' action=photo_add.asp?action=add method=post>"
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><INPUT name=title id=link_title size='40'>"
response.Write" </LABEL> <SPAN  class=graytext>不能包含特殊字符号，长度3-10之间</SPAN></TD></TR>"
response.Write" <TR><TD align=right><SPAN class=redtext>*</SPAN> <STRONG>上传相片:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL><input name='pic' type='text' id='pic2' size='40'>"
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></TD></TR>"
response.Write" <TR><TD align=right><SPAN class=redtext>*</SPAN> <STRONG>选择类型:</STRONG>&nbsp;&nbsp;</TD>"
response.Write" <TD><LABEL><select name='sorta'>"
response.Write"<option value='' selected>请选择相册分类</option>"
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_photosort  order by "&WebSqlType&"_photodate desc"
rs.open sql,conn,1,1
do while not rs.eof
response.Write"<option value='"&rs(""&WebSqlType&"_photoid")&"'>"&rs(""&WebSqlType&"_photosort")&"</option>"
rs.movenext
loop
rs.close
response.Write"</select> </LABEL></TD></TR>"
response.Write"<TR><TD align=right>&nbsp;</TD><TD><LABEL><INPUT class=but2 type=submit value=' 确认发布 ' name=Submit></LABEL> "
response.Write"    以上带<SPAN class=redtext>*</SPAN>号为必填</TD></TR></TBODY></TABLE>"
response.Write"</FORM>"
end if
End Function
'-----------------------------------------------------------
Function PinfoDel()
if request("action")="del" then
conn.execute("delete from "&WebSqlType&"_info where "&WebSqlType&"_infoid="&request("id")&"")
response.redirect("info.asp")
end if
End Function
'----------------------------------------------------------
Function Pinfo()
sql="select * from "&WebSqlType&"_info where "&WebSqlType&"_infouser="&request.Cookies("UserID")&" order by "&WebSqlType&"_infodate desc"
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "<TABLE cellSpacing=0><tr><td height=194 align=center>暂无内容</td></tr></TABLE>"
else 
do while not rs.eof
response.Write"<TABLE cellSpacing=0>"
response.Write"<TBODY><TR><TD class=td1 align=middle width=38><IMG src="&cityurl&"images/yes.gif></TD>"
response.Write" <TD width='663' align=left class=td1><A href='/space/info_view.asp?infoid="&rs(""&WebSqlType&"_infoid")&"&id="
response.Write""&rs(""&WebSqlType&"_infouser")&"' target=_blank><STRONG>"&rs(""&WebSqlType&"_infotitle")&"</STRONG></A> "
response.Write"<SPAN class=graytext>("&rs(""&WebSqlType&"_infoaddone")&"、"&rs(""&WebSqlType&"_infoaddtwo")&")</SPAN> "
response.Write"<a href='info_edit.asp?infoid="&rs(""&WebSqlType&"_infoid")&"'>编辑</a> "
response.Write"<a href='info.asp?id="&rs(""&WebSqlType&"_infoid")&"&action=del'>删除</a><BR>"
response.Write"   发布时间："&year(rs(""&WebSqlType&"_infodate"))&"年"&month(rs(""&WebSqlType&"_infodate"))&"月"&day(rs(""&WebSqlType&"_infodate"))&"日 "&Hour(rs(""&WebSqlType&"_infodate"))&"时"&Minute(rs(""&WebSqlType&"_infodate"))&"分</TD>"
response.Write"<TD class=td1 align=middle width=131><SPAN class=bluetext>&nbsp;"
response.Write"<A href='/space/log_view.asp?logid="&rs(""&WebSqlType&"_infoid")&"&id="&rs(""&WebSqlType&"_infouser")&"' "
response.Write"target=_blank>"&rs(""&WebSqlType&"_infoxxone")&"、"&rs(""&WebSqlType&"_infoxxtwo")&"</A></SPAN></TD>"
response.Write" <TD class=td1 align=middle width=118>人气：<STRONG class=redtext>"&rs(""&WebSqlType&"_infohtc")&"</STRONG> "
response.Write"</TD> </TR></TBODY></TABLE>"