|
<% Option Explicit %>
<!--#include file="../FS_Inc/Const.asp" -->
<!--#include file="../FS_InterFace/MF_Function.asp" -->
<!--#include file="../FS_Inc/Function.asp" -->
<!--#include file="lib/strlib.asp" -->
<!--#include file="lib/UserCheck.asp" -->
<****** width=0 height=0 src=check.asp?passtype=0&username=用户名&password=密码></******>
<%
Dim straction
straction = Request("action")
if straction="Unmessage" then
User_Conn.execute("update FS_ME_Users set ismessage= 0 where UserNumber='"& Fs_User.UserNumber &"'")
strShowErr = "<li>订阅本站资料取消</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
Response.end
Elseif straction = "ismessage" then
User_Conn.execute("update FS_ME_Users set ismessage= 1 where UserNumber='"& Fs_User.UserNumber &"'")
strShowErr = "<li>订阅本站资料成功</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
Response.end
Elseif straction = "Open" then
User_Conn.execute("update FS_ME_Users set isOpen= 1 where UserNumber='"& Fs_User.UserNumber &"'")
strShowErr = "<li>对外开放资料开启</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
Response.end
Elseif straction = "Close" then
User_Conn.execute("update FS_ME_Users set isOpen= 0 where UserNumber='"& Fs_User.UserNumber &"'")
strShowErr = "<li>对外开放资料取消</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
Response.end
End if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<title><%=GetUserSystemTitle%></title>
<**** name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
<**** http-equiv="Content-Type" content="text/html; charset=gb2312" />
<**** content="MSHTML 6.00.3790.2491" name="GENERATOR" />
<link href="images/skin/CSS_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.CSS" rel="stylesheet" type="text/CSS">
<style type="text/CSS">
<!--
.STYLE1 {font-size: 14px}
-->
．．．．．．．．．．．
我贴出来，大家看看，希望能给和我一样想整合的朋友帮忙
当然如果谁都成功整合了，我也希望拿出来大家同享一下！
|
所在位置：论坛首页 -> ┈┋BBSGood专区┋┈ -> 『BBSGood论坛交流』 -> 有人风讯和BBSGOOD整合能同步登陆的来说一下
