person.asp

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

rs.movenext
loop
rs.close
end if
End Function
'--------------------------------------------------
Function PinfoAddServer()
if request("action")="add" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_info"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_infotitle")=request("title")
rs(""&WebSqlType&"_infobook")=request("book")
rs(""&WebSqlType&"_infoaddone")=request("addone")
rs(""&WebSqlType&"_infoaddtwo")=request("addtwo")
rs(""&WebSqlType&"_infoxxone")=request("infoone")
rs(""&WebSqlType&"_infoxxtwo")=request("infotwo")
rs(""&WebSqlType&"_infotel")=request("tel")
rs(""&WebSqlType&"_infousername")=request.Cookies("username")
rs(""&WebSqlType&"_infouser")=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"))
response.Redirect(request("url"))
response.End()
end if
End Function
'--------------------------------------------------
Function PinfoAdd()
response.Write"<FORM id=addOrgform name=thisForm onSubmit='return ckok();' action='info_add.asp?action=add' method=post>"
response.Write"<input type='hidden' name='url' value='info.asp'>"
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>"
sql = "select *  from "&WebSqlType&"_infoxxtwo order by "&WebSqlType&"_infodate desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
response.Write"<script language = 'JavaScript'>"
response.Write"var onecount;"
response.Write"onecount=0;"
response.Write"subcat = new Array();"
count = 0
do while not rs.eof
response.Write"subcat["&count&"] = new Array("""&trim(rs(""&WebSqlType&"_infotwo"))&""","""&trim(rs(""&WebSqlType&"_infoone"))&""","
response.Write""""& trim(rs(""&WebSqlType&"_infotwo"))&""");"
count = count + 1
 rs.movenext
 loop
rs.close
set rs=nothing
response.Write"onecount="&count&";"
response.Write"function changelocation(infoone)"
response.Write"   {"
response.Write"  document.thisForm.infotwo.length = 0; "
response.Write"  var infoone=infoone;"
response.Write"   var i;"
response.Write"  document.thisForm.infotwo.options[0] = new Option('请选择小类','');"
response.Write"  for (i=0;i < onecount; i++)"
response.Write"       {"
response.Write"       if (subcat[i][1] == infoone)"
response.Write"         { "
response.Write"document.thisForm.infotwo.options[document.thisForm.infotwo.length] = new Option(subcat[i][0], subcat[i][2]);"
response.Write"          } "       
response.Write"      }"        
response.Write"  }"
response.Write"  </script>"
response.Write"<select name='infoone' onChange=""changelocation(document.thisForm.infoone.options[document.thisForm.infoone.selectedIndex].value)"">"
sql="select *  from "&WebSqlType&"_infoxxone where "&WebSqlType&"_infoone_id=16 order by "&WebSqlType&"_infodate desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
response.Write"<option value="&trim(rs(""&WebSqlType&"_infoone"))&" selected>"&trim(rs(""&WebSqlType&"_infoone"))&"</option>"
rs.movenext
wend
rs.Close()

sql="select *  from "&WebSqlType&"_infoxxone where "&WebSqlType&"_infoone_id<>16 order by "&WebSqlType&"_infodate desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
response.Write"<option value="&trim(rs(""&WebSqlType&"_infoone"))&">"&trim(rs(""&WebSqlType&"_infoone"))&"</option>"
rs.movenext
wend
rs.Close()
response.Write"</select>"
response.Write"<select name='infotwo'>"
response.Write"<option selected value=''>请选择小类</option>"
sql="select *  from "&WebSqlType&"_infoxxtwo where "&WebSqlType&"_infoone_id=16 order by "&WebSqlType&"_infodate desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
response.Write"<option value="&trim(rs(""&WebSqlType&"_infotwo"))&">"&trim(rs(""&WebSqlType&"_infotwo"))&"</option>"
rs.movenext
wend
rs.Close()
response.Write"</select></LABEL></TD></TR>"
response.Write"<TR><TD align=right><SPAN class=redtext>*</SPAN> "
response.Write"<STRONG>信息名称:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL><INPUT class=colorblue id=title size=60 name=title></LABEL> </TD></TR>"
response.Write"<TR><TD align=right><STRONG>发布地区:</STRONG>&nbsp;&nbsp;</TD>"
response.Write" <TD><LABEL>"
 set rs=server.createobject("ADODB.Recordset")
 sql = "select *  from "&WebSqlType&"_ypaddtwo order by "&WebSqlType&"_date desc"
rs.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 rs.eof
response.Write"subcat1["&count&"] = new Array("""&trim(rs(""&WebSqlType&"_addtwo"))&""","""& trim(rs(""&WebSqlType&"_addone"))&""","
response.Write""""&trim(rs(""&WebSqlType&"_addtwo"))&""");"
count = count + 1
rs.movenext
loop
rs.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><select name='addone' "
response.Write"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"
rs.open sql,conn,1,1
while not rs.eof
response.Write"<option value="&rs(""&WebSqlType&"_addone")&">"&rs(""&WebSqlType&"_addone")&"</option>"
rs.movenext
wend
rs.Close()
response.Write"</select>"
response.Write"<select name='addtwo'>"
response.Write"  <option value=''>请选择城市</option>"
response.Write" </select></LABEL>    </TD>"
response.Write" </TR><TR><TD align=right><SPAN class=redtext>*</SPAN>" 
response.Write" <STRONG>联系方式:</STRONG>&nbsp;&nbsp;</TD><TD><LABEL><INPUT class=colorblue id=title3 size=70 name=tel> "
response.Write" </LABEL></TD></TR>"
response.Write"<TR><TD align=right><SPAN class=redtext>*</SPAN> <STRONG>详细说明:</STRONG>&nbsp;&nbsp;</TD>"
response.Write" <TD><LABEL><textarea name='book' cols='100' rows='12' id='book'></textarea>"
response.Write" </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 Function
'-----------------------------------------------------
Function PinfoEditServer()
if request("action")="edit" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from "&WebSqlType&"_info where "&WebSqlType&"_infoid="&clng(request("id"))&""
rs.open sql,conn,1,3
'rs.addnew
rs(""&WebSqlType&"_infotitle")=request("title")
rs(""&WebSqlType&"_infotel")=request("tel")
rs(""&WebSqlType&"_infobook")=request("book")
rs.update
rs.close
response.Redirect(request("url"))
end if
End Function
'-----------------------------------------------------
Function PinfoEdit()
sql3="select * from "&WebSqlType&"_info where "&WebSqlType&"_infoid="&clng(request("infoid"))
set rs3=server.createobject("ADODB.Recordset")
rs3.open sql3,conn,1,1
response.Write"<FORM id=addOrgform name=thisForm onSubmit='return ckok();' action='info_edit.asp?action=edit' method=post>"
response.Write"<input type='hidden' name='url' value='info.asp'>"
response.Write"<input name='id' type='hidden' value='"&rs3(""&WebSqlType&"_infoid")&"'>"
response.Write"<TABLE cellSpacing=0><TBODY><TR><TD width='150' align=right><SPAN class=redtext>*</SPAN> "
response.Write"<STRONG>信息名称:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL><INPUT name=title class=colorblue id=title value='"&trim(rs3(""&WebSqlType&"_infotitle"))&"' size=60>"
response.Write"</LABEL> </TD></TR><TR><TD align=right><SPAN class=redtext>*</SPAN> "
response.Write" <STRONG>联系方式:</STRONG>&nbsp;&nbsp;</TD>"
response.Write"<TD><LABEL><input name=tel class=colorblue id=title3 value='"&trim(rs3(""&WebSqlType&"_infotel"))&"' size=70>" 
response.Write"</LABEL></TD></TR><TR><TD align=right><SPAN class=redtext>*</SPAN>" 
response.Write" <STRONG>详细说明:</STRONG>&nbsp;&nbsp;</TD> <TD><LABEL>"
response.Write"<textarea name='book' cols='100' rows='12' id='book'>"&trim(rs3(""&WebSqlType&"_infobook"))&"</textarea>"
response.Write"</LABEL></TD></TR><TR><TD align=right>&nbsp;</TD>"
response.Write"<TD><LABEL><INPUT class=but2 type=submit value=' 确认修改 ' name=Submit></LABEL> "
response.Write"  以上带<SPAN class=redtext>*</SPAN>号为必填</TD></TR></TBODY></TABLE></FORM>"
rs3.close
End Function
'------------------------------------------------
Function Pbook()
response.Write"<table width='90%' border='0' align='center' cellpadding='6' cellspacing='0' bordercolor='#111111'"
response.Write" style=""BORDER-COLLAPSE: collapse"">"
response.Write" <tbody> <tr align='left'><td height='13' colspan='2' style='border-bottom:1px solid red; '>"
response.Write"<div class='tablehead'><b class='tableheadr'>查看评论 </b><a href='book.asp?key=1'>空间留言</a> "
response.Write"<a href='book.asp?key=4'>相册留言</a>  <a href='book.asp?key=2'>分类信息留言</a>" 
response.Write"<a href='book.asp?key=3'>活动留言</a>  <a href='book.asp?key=5'>话题留言</a>  "
response.Write"<a href='book.asp'><font color=red>所有评论</font></a></div></td>"
response.Write"</tr>"
set rs=server.createobject("adodb.recordset")
if request("key")<>"" then
sql="select * from "&WebSqlType&"_book where "&WebSqlType&"_key="&trim(request("key"))&" and "&WebSqlType&"_userid="&request.Cookies("UserID")&" order by "&WebSqlType&"_id desc"
else
sql="select * from "&WebSqlType&"_book where "&WebSqlType&"_userid="&request.Cookies("UserID")&" order by "&WebSqlType&"_id desc"
end if
rs.open sql,conn,1,1
do while not rs.eof
response.Write" <tr><td width='17%' height='25' align='right' ><span class='STYLE1'>"
response.Write"<A href='index.asp?id="&rs(""&WebSqlType&"_user")&" ' target=_blank>"&rs(""&WebSqlType&"_username")&"</A> 说：</span></td>"
response.Write"<td height='25' align='left' style='border-bottom:1px solid #cccccc;'>"&rs(""&WebSqlType&"_book")&"</td> </tr>"

rs.movenext
loop
rs.close
response.Write"<tr align='center'  valign='bottom'><td height='10' colspan='2'></td></tr></tbody> </table>"
End Function
'--------------------------------------------------------------------
Function PuserDel()
if request("action")="del" then
id=request("id")
conn.execute("delete From "&WebSqlType&"_haoyuo Where "&WebSqlType&"_id="&id&"")
Response.Redirect "user.asp"
end if
if request("action")="up" then
id=request("id")
conn.execute("update "&WebSqlType&"_haoyuo set "&WebSqlType&"_key1=0 Where "&WebSqlType&"_id="&ID&"")
Response.Redirect "user.asp"
end if

if request("action")="hy" then
id=request("id")
conn.execute("update "&WebSqlType&"_haoyuo set "&WebSqlType&"_key=2 Where "&WebSqlType&"_id="&ID&"")
conn.execute("update "&WebSqlType&"_haoyuo set "&WebSqlType&"_key1=2 Where "&WebSqlType&"_id="&ID&"")
Response.Redirect "user.asp"
end if
End Function
'------------------------------------------------------------------
Function Pusers()
response.Write"<form name='addform' method='post' action='user.asp?action=save'>"
sql="select * from "&WebSqlType&"_haoyuo where "&WebSqlType&"_user="&Request.Cookies("userid")&" and "&WebSqlType&"_key1<>0 order by "&WebSqlType&"_id desc"
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                                         
if rs.eof and rs.bof then                     
response.Redirect("username.asp")
response.End()
else  
'分页的实现 
listnum=20
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.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
response.Write"<TABLE class=category cellSpacing=1 cellPadding=2 width='98%' border=0>"
response.Write"<TBODY><TR><TD width='33%'><B>加我的朋友("&j&")个</B>&nbsp;&nbsp;|&nbsp;&nbsp;"
response.Write"<A class=blue3ln href='username.asp'>我加的朋友</A></TD></TR></TBODY></TABLE>"