lconfig.asp

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

response.Write"<option value='"&trim(rsi(""&WebSqlType&"_infoone"))&"'>"&trim(rsi(""&WebSqlType&"_infoone"))&"</option>"
rsi.movenext
wend
rsi.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 rsi=server.createobject("ADODB.Recordset")
rsi.open sql,conn,1,1
while not rsi.eof
response.Write"<option value="&trim(rsi(""&WebSqlType&"_infotwo"))&">"&trim(rsi(""&WebSqlType&"_infotwo"))&"</option>"
rsi.movenext
wend
rsi.Close()
response.Write" </select>"
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 rsi=server.createobject("ADODB.Recordset")
sql = "select *  from "&WebSqlType&"_ypaddtwo order by "&WebSqlType&"_date desc"
rsi.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 rsi.eof
response.Write"subcat1["&count&"] = new Array('"&trim(rsi(""&WebSqlType&"_addtwo"))&"','"& trim(rsi(""&WebSqlType&"_addone"))&"','"& trim(rsi(""&WebSqlType&"_addtwo"))&"');"
count = count + 1
rsi.movenext
loop
rsi.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"
rsi.open sql,conn,1,1
while not rsi.eof
response.Write"<option value='"&rsi(""&WebSqlType&"_addone")&"'>"&rsi(""&WebSqlType&"_addone")&"</option>"
rsi.movenext
wend
rsi.Close()
response.Write"</select>"
response.Write" <select name='addtwo'>"
response.Write"  <option value=''>请选择城市</option>"
response.Write"  </select>"
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><INPUT class=colorblue id=title3 size=70 name=tel>"
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><textarea name='infobook' cols='100' rows='12' id='infobook'></textarea></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>"
End Function
'-----------------------------------------------------------------------
'infoedit
Function infoeditserver()
if request("action")="edit" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_info where "&WebSqlType&"_infoid="&request("infoid")&""
rs.open sql,conn,1,3
'rs.addnew
rs(""&WebSqlType&"_infotitle")=request("title")
rs(""&WebSqlType&"_infobook")=request("infobook")
'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&"_infoclub")=request("id")
'rs(""&WebSqlType&"_infousername")=request.Cookies("username")
'rs(""&WebSqlType&"_infouser")=request.Cookies("UserID")
rs.update
rs.close
response.Redirect("info_view.asp?id="&request("id")&"&infoid="&request("infoid")&"")
end if
End Function
'----------------------------------------------------------------------------------
Function infoedit()
set rsb=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_info where "&WebSqlType&"_infoid="&trim(request("infoid"))
rsb.open sql,conn,1,1
response.Write"<form name='thisForm' action='info_edit.asp?action=edit' method='post'>"
response.Write"<input name='id' type='hidden' value='"&id&"'>"
response.Write"<input name='infoid' type='hidden' value="&request("infoid")&">"
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' value="&rsb(""&WebSqlType&"_infotitle")&">"
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"<textarea name='infobook' cols='100' rows='15' id='infobook'>"&rsb(""&WebSqlType&"_infobook")&"</textarea>"
response.Write"</LABEL></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
'----------------------------------------------------------
Function infodel()
if request("action")="del" then
LID=request("infoid")
conn.execute("delete From "&WebSqlType&"_info Where "&WebSqlType&"_infoid="&LID)
conn.execute("delete From "&WebSqlType&"_book Where "&WebSqlType&"_htc="&LID)
response.Redirect("info.asp?id="&request("id")&"")
end if
End function
'------------------------------------------------
'userinfo
Function Userinfo()
set rsm=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rsb(""&WebSqlType&"_infouser")&" "
rsm.open sql,conn,1,1
if rsm.eof and rsm.bof then                     
flaguser=0
else
upic=rsm(""&WebSqlType&"_pic")
uuser=rsm(""&WebSqlType&"_username")
ureal=rsm(""&WebSqlType&"_realname")
utop=rsm(""&WebSqlType&"_top")
umx=rsm(""&WebSqlType&"_"&WebSqlType&"")
ulinks="<a href='/jiaoyou/index.asp?username="&rsm(""&WebSqlType&"_id")&"' target='_blank'>发消息</a> | <a href='/space/book.asp?id="&rsm(""&WebSqlType&"_id")&"' target='_blank'>留言</a>"
rsm.close
end if
response.write" <DIV class=user-info><IMG id=mem onmouseover=showMenu(this.id)" 
response.write"      src='/"&upic&"' width=120><BR> <A  href='/space/index.asp?id="&rsb(""&WebSqlType&"_infouser")&" target=_blank>"
response.write"<STRONG>"&uuser&"("&ureal&")</STRONG> </A><BR>"
response.write"<SPAN  class=graytext>	  "&ulinks&" </SPAN> </DIV>"
End Function
'-------------------------------------------
Function infotitle()
response.write"<SPAN class=right>	<A href='#2'>回复</A>" 
response.write"      | <A href='"
if trim(request.Cookies("UserID"))=trim(rsb(""&WebSqlType&"_infouser")) then
response.write"info_edit.asp?id="&id&"&infoid="&request("infoid")&""
else
response.write "#"
end if
response.write"'>修改</A>  | <A  href='"
if trim(request.Cookies("UserID"))=trim(rsb(""&WebSqlType&"_infouser")) then
response.write"info_view.asp?id="&id&"&infoid="&request("infoid")&"&action=del"
else
response.write"#"
end if
response.write"'>删除</A></SPAN>"
End Function
%>