lconfig.asp

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

<%
'---------------------------------------------------
Function cinfo()
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_info where "&WebSqlType&"_infoclub="&id&" order by "&WebSqlType&"_infodate desc"
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 n mod 2=0 then
ac="td2"
else
ac="td"
end if
webget="info_view.asp?id="&id&"&infoid="&trim(rs1(""&WebSqlType&"_infoid"))&""
set rs2=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rs1(""&WebSqlType&"_infouser")
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then                     
else 
user=rs2(""&WebSqlType&"_username")
end if
response.Write"<TABLE cellSpacing=0>"
response.Write"  <TBODY>"
response.Write"  <TR class="&ac&">"
response.Write"    <TD class=td width=30>"
response.Write"<A href="&webget&" target=_blank>"
response.Write"<IMG title=开放 src='images/folder.gif' border=0></A></TD>"
response.Write" <TD class=td align=left><SPAN class=right2></SPAN>"
response.Write"<A href="&webget&" target=_blank>"&rs1(""&WebSqlType&"_infotitle")&"</A> "
response.Write"<SPAN class='spage smalltext'></SPAN></TD>"
response.Write" <TD class=td align=left width=100><A href='/space/index.asp?id="&rs1(""&WebSqlType&"_infouser")&"' target=_blank>"
response.Write""&user&"</A> </TD>"
response.Write" <TD class='smalltext td graytext' width=70>"&rs1(""&WebSqlType&"_infohtc")&""
'response.Write"/<SPAN class=redtext>"&rs1(""&WebSqlType&"_infohtc")&"</SPAN>"
response.Write"</TD><TD class='smalltext td graytext' align=left width=130>"&rs1(""&WebSqlType&"_infodate")&"</TD></TR></TBODY></TABLE>"
rs1.movenext
i=i+1 
j=j-1
loop
response.Write"<DIV class=page><SPAN class=right>"
filename="info.asp?id="&id&"&action=info"
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
'----------------------------------------------------------------
'addserver
Function infoaddserver()
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&"_info"
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
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("info.asp?id="&request("id")&"")
response.End()
end if
End Function
'---------------------------------------------------------------------------------
'info add
Function infoadd()
response.Write"<form name='thisForm' action='info_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>"
sql = "select *  from "&WebSqlType&"_infoxxtwo order by "&WebSqlType&"_infodate desc"
set rsi=server.createobject("ADODB.Recordset")
rsi.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 rsi.eof
response.Write"subcat["&count&"] = new Array('"& trim(rsi(""&WebSqlType&"_infotwo"))&"','"&trim(rsi(""&WebSqlType&"_infoone"))&"','"& trim(rsi(""&WebSqlType&"_infotwo"))&"');"
count = count + 1
        rsi.movenext
        loop
        rsi.close
        set rsi=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'"
response.Write" 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 rsi=server.createobject("ADODB.Recordset")
rsi.open sql,conn,1,1
while not rsi.eof
response.Write"<option value='"&trim(rsi(""&WebSqlType&"_infoone"))&"' selected>"
response.Write trim(rsi(""&WebSqlType&"_infoone"))
response.Write"</option>"
rsi.movenext
wend
rsi.Close()
sql="select *  from "&WebSqlType&"_infoxxone 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