<% ac=SafeRequest("ac","get") view=SafeRequest("view","get") %> 保存设置 <%if ac="friend" then%>
关闭 | Close Window 
<%end if%>
<% If UserLogined<>True Then Response.Write "" Else If ac="web" Then Ylmv_Com_View = split(view,"$") Conn.DB "UPDATE CmsDj_Web SET WebAl='"&Ylmv_Com_View(0)&"' where UserID="&CmsDj_Com_UserID,"exe" Conn.DB "UPDATE CmsDj_Web SET WebAt='"&Ylmv_Com_View(1)&"' where UserID="&CmsDj_Com_UserID,"exe" Response.Write "" ElseIf ac="friend" Then From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <> Serv_url then response.write "

对不起，为了系统安全，不允许直接输入地址访问本系统。

" response.end end If If view=""&CmsDj_Com_UserID&"" Then Response.Write "" Response.End End If Set CmsDjPublic = New CmsDj_Com_Public CmsDj_FriendNum = Conn.DB ("select count(*) from CmsDj_Public where CD_AA=0 and CD_CC="&CmsDj_Com_UserID&"","exe")(0) Set Rs=CmsDjPublic.GetRs("CD_ID",0,"CD_AA=0 and CD_BB="&view&" and CD_CC="&CmsDj_Com_UserID) If Not(rs.bof And rs.EOF) Then Response.Write "" Response.End Else If CmsDj_FriendNum>CmsDj_Com_FriendNum-1 Then Response.Write "" Response.End End If Arr1=Array("CD_AA","CD_BB","CD_CC","CD_DD") Arr2=Array(0,view,CmsDj_Com_UserID,Now()) Call CmsDjPublic.add(Arr1,Arr2) title="好友信息通知" bodyMessage="会员 "&CmsDj_Com_UserName&" 已将您添加为好友！" Conn.DB "insert into [CmsDj_Message] (sender,incept,title,content,sendtime,flag,delR,delS) values('"&CmsDj_Com_UserName&"','"&GetUserName(view,0)&"','"&title&"','"&bodyMessage&"','"&now()&"',0,0,0)","exe" Conn.DB "insert into [CmsDj_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&CmsDj_Com_UserID&",'"&CmsDj_Com_UserName&"',0,"&view&",0,0,'"&Now()&"')","exe" Response.Write "" Response.End End If rs.Close Set rs=nothing Else Response.Write "" End If End If %>