user_bookmarker.asp

本系统是一套开源WEB的网站管理系统

		conn.execute("insert into ms_user_bookmarker(r_id,s_id,userName,bmName) values(0,0,'"&userinfo(1)&"','"&chkFormStr(bmgroup)&"')")
		response.redirect "user_center.asp?action=bookmarker"
	end if
end if
exit sub
end sub
sub delBookMarker()
	dim id,sql
	id=Request.QueryString("id")
	if isNumeric(r_id)=false then
		showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br><li>请输入一个正确的整型参数</li>","出错信息"
		exit sub
	end if
	if lcase(request.QueryString("del"))=lcase("group") then
	sql="delete from ms_user_bookmarker where id="&id&" and r_id=0 and s_id=0"
	else
	sql="delete from ms_user_bookmarker where id="&id&" and s_id=1"
	end if
	conn.execute(sql)
	response.redirect "user_center.asp?action=bookmarker"
	exit sub
end sub
sub modifyGroup()
dim id,bmName
id=Request("id")
bmName=Request("bmName")
if isNumeric(r_id)=false then
	showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br><li>请输入一个正确的整型参数</li>","出错信息"
	exit sub
end if
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" style="margin-top:8px;" class="tableBC">
  <tr> 
    <td height="21" valign="middle" class="tdT">&nbsp;<a name="addnewgroup">修改书签组</a></td>
  </tr>
<form action="user_center.asp?action=bookmarker&operation=maosin_saveBookMarker&save=group" name="addgroupform" method="post">
  <tr> 
    <td height="30" valign="middle" align="center" class="tdBC">书签组名：<input type="text" class="wenbenkang" size="30" name="bmgroup" value="<%=bmName%>">
      <input name="id" type="hidden" value="<%=id%>">
	  <input name="addgroup" type="submit" id="modifygroup" value="修改书签组" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'"> </td>
  </tr>
</form>
</table>
<%
end sub
sub modifyBookMarker()
dim id,r_id,bmName,url,rs
id=Request("id")
r_id=Request("r_id")
bmName=Request("bmName")
url=Request("url")
share=Request("share")
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" style="margin-top:8px;" class="tableBC">
  <tr> 
    <td width="100%" height="22" valign="middle" class="tdT">&nbsp;<a name="addnewmarker">修改书签</a></td>
  </tr>
<form action="?action=bookmarker&operation=maosin_saveBookMarker&save=bookmarker" name="addbmform" method="post">
  <tr> 
    <td valign="middle" height="60" class="tdBC">&nbsp;书签名称：
      <input name="bmName" type="text" id="bmName" size="30" value="<%=bmName%>" class="wenbenkang"><input name="id" type="hidden" value="<%=id%>">
      所属组名：
      <select name="groupName" id="groupName">
	  <option value="0">[根目录]
	  <%set rs=conn.execute("select id,bmName from ms_user_bookmarker where r_id=0 and s_id=0 and userName='"&userInfo(1)&"'")
	  	do while not rs.eof
			if r_id=cstr(rs(0)) then
			response.write("<option value="""&rs(0)&""" selected>"&rs(1)&"</option>")
			else
			response.write("<option value="""&rs(0)&""">"&rs(1)&"</option>")
			end if
			rs.movenext
		loop
		rs.close
		set rs=nothing
	  %>
      </select>
      <br>
       &nbsp;书签地址：
      <input name="url" type="text" id="url" size="40" value="<%=url%>" class="wenbenkang">
	  <input type="checkbox" name="share" id="share" value="1" <%if share="1" then response.write("checked") end if%>><label for="share">共享该组书签</label>&nbsp;
      <input name="modifybm" type="submit" id="modifybm" value="修改书签" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'"> </td>
  </tr>
</form>  
</table>
<%end sub
sub saveBookMarker()
	dim id,r_id,sql,bmgroup,bmName,url
	id=Request("id")
	if isNumeric(r_id)=false then
		showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br><li>请输入一个正确的整型参数</li>","出错信息"
		exit sub
	end if
	if ms_submit=0 then
		if chkIsOut=false then
			showmsg "<font color=""#ff0000"">茂 盛系统返回提示信息：</font><br><br>对不起，本站不允许从外部提交数据","系统出错信息"
			exit sub
		end if
	end if
	if Request("save")="group" then
		bmgroup=trim(Request("bmgroup"))
		if bmgroup="" then
			showmsg "书签组名不能为空，请输入书签名","出错信息"
			exit sub
		elseif strLength(bmgroup)>30 then
			showmsg "书签组名最不能大于20个字符","出错信息"
			exit sub
		end if
		sql="update ms_user_bookmarker set bmName='"&chkFormStr(bmgroup)&"' where id="&id&" and userName='"&userInfo(1)&"'"
		conn.execute(sql)
		response.redirect "user_center.asp?action=bookmarker"
		exit sub
	elseif Request("save")="bookmarker" then
		bmName=trim(Request("bmName"))
		r_id=trim(Request("groupName"))
		url=trim(Request("url"))
		if not isNumeric(r_id) then
			r_id=0
		end if
		if bmName="" then
			errMsg="<li>书签名不能为空</li>"
		elseif strLength(bmName)>30 then
			errMsg="<li>书签名不能大于 30 个字符</li>"
		end if
		if url="" then
			errMsg=errMsg&"<li>书签地址不能为空</li>"
		elseif strLength(url)>100 then
			errMsg=errMsg&"<li>书签地址不能大于 100 个字符</li>"
		end if
		if errMsg<>"" then
			showmsg "<font color=""#ff0000"">您在操作中产生如下错误：</font><br><br>"&errMsg,"操作出错信息"
			exit sub
		end if
		bmName=chkFormStr(bmName)
		url=chkFormStr(url)
		sql="update ms_user_bookmarker set r_id="&r_id&",bmName='"&bmName&"',url='"&url&"' where id="&id&" and userName='"&userInfo(1)&"'"
		conn.execute(sql)
		response.redirect "user_center.asp?action=bookmarker"
		exit sub
	end if
	exit sub
end sub
sub setShare()
	dim id
	id=Request("id")
	if isNumeric(id)=false then
		showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br><li>请输入一个正确的整型参数</li>","出错信息"
		exit sub
	end if
	if request("isShare")="yes" then
		conn.execute("update ms_user_bookmarker set isShare=1 where id="&id&" or r_id="&id&" and userName='"&userInfo(1)&"'")
	elseif request("isShare")="no" then
		conn.execute("update ms_user_bookmarker set isShare=0 where id="&id&" or r_id="&id&" and userName='"&userInfo(1)&"'")
	end if
	response.redirect "user_center.asp?action=bookmarker"
end sub
'---------------------------------共享------------------------------------
sub shareGroup()%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" class="tableBC">
  <tr class="tdT">
    <td width="*" height="22" valign="middle">&nbsp;网友书签组</td>
	<td width="100" align="center" valign="middle">所属用户</td>
  </tr>
<%
dim temp_str
Set bmrs=conn.execute("select * from ms_user_bookmarker where s_id=0 and r_id=0 and isShare=1 and userName<>'"&userInfo(1)&"'")
if not bmrs.eof and not bmrs.bof then
temp_str=""
do while not bmrs.eof
  temp_str=temp_str&"<tr class=""tdBC""><td height=""22"" valign=""middle"">&nbsp;<img src=""images/user/bookgroup.gif"" align=""absmiddle""> <a href=user_center.asp?action=bookmarker&operation=viewShare&viewmarker=group&r_id="&bmrs("id")&">"&bmrs("bmName")&"</a></td><td valign=""middle"" align=""center"">"&bmrs("userName")&"</td></tr>"
  bmrs.movenext
loop
bmrs.movefirst
response.Write(temp_str)
else
response.Write("<tr class=""tdBC""><td height=""22"" colspan=""2"" align=""center"" valign=""middle"">暂时没有网友共享</td></tr>")
end if
%>
</table>
<%
end sub
sub shareBookMarker()
dim r_id,url
r_id=request("r_id")
if isNumeric(r_id)=false then
	showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br><li>请输入一个正确的整型参数</li>","出错信息"
	exit sub
end if%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" style="margin-top:8px;" class="tableBC">
  <tr class="tdT"> 
    <td width="180" valign="middle">&nbsp;书签名称</td>
    <td width="310" valign="middle">&nbsp;书签地址</td>
    <td width="100" valign="middle" align="center">所属用户</td>
  </tr>
<%
if request("viewmarker")="group" then
	sql="select * from ms_user_bookmarker where r_id="&r_id&" and s_id=1 and isShare=1 and userName<>'"&userInfo(1)&"'"'分类
	url="user_center.asp?action=bookmarker&operation=viewShare&r_id="&r_id&"&"
else
	sql="select * from ms_user_bookmarker where s_id=1 and isShare=1 and userName<>'"&userInfo(1)&"'"
	url="user_center.asp?action=bookmarker&operation=viewShare&"
end if
set bmrs=server.createobject("adodb.recordset")
bmrs.open sql,connstr,1,1
dim n:n=20'每页显示记录数
nextpage=pagetitle(bmrs,n,url,"条书签")
if not bmrs.eof and not bmrs.bof then
temp_str=""
dim lineNo:lineNo=1
do while not bmrs.eof and lineNo<=bmrs.pagesize
  temp_str=temp_str&"<tr class=""tdBC""><td height=""22"" valign=""middle"">&nbsp;<img src=""images/user/bookmark.gif"" align=""absmiddle"">&nbsp;<a href="""&bmrs("url")&""" target=""_blank"">"&bmrs("bmName")&"</a></td><td valign=""middle"">&nbsp;<a href="""&bmrs("url")&""" target=""_blank"">"&bmrs("url")&"</a></td><td valign=""middle"" align=""center"">"&bmrs("userName")&"</td></tr>"
  bmrs.movenext
  lineNo=lineNo+1
loop
response.write(temp_str)
bmrs.movefirst
else
response.write("<tr><td height=""22"" class=""tdBC"" colspan=""3"" valign=""middle"" align=""center"">暂时还没有网友共享！</td></tr>")
end if
if bmrs.RecordCount>n then
%>
  <tr> 
    <td height="22" colspan="3" valign="top" class="tdBC"><%=nextpage%></td>
  </tr>
 <%end if%>
</table>
<%
bmrs.close
set bmrs=nothing
end sub
'========================================================
'MaoSin CMS 1.1      Power by maosin.com
'Email: [e-mail] , [e-mail]
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>