📄 save_addfriend_new.asp
字号:
<!--#include file="../head.asp"-->
<!--#include file="../checkrole.asp"-->
<%
call checkuser("sh")
Response.Buffer = true
Response.ExpiresAbsolute=now()-1
Response.Expires=0
Response.CacheControl="no-cache"
if Not ChkPost then
response.write "<script language='javascript'>"
response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
response.end
end if
%>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD
style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff"
vAlign=top align=middle>
<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="10%"><IMG height=32 src="../images/myfriend.gif"
border=0></TD>
<TD width="90%" background="../images/info_bg.gif"> </TD>
</TR></TBODY></TABLE>
<TABLE class=content_border cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD align=middle><BR>
<%
user=replace_text(request.form("user"))
sql="select * from wygkcn_corporation where [user]='"&user&"'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write"<TABLE width=578 border=0 align='center' cellPadding=0 cellSpacing=0>"
response.write"<TR><td Class=C>"
response.write"<ul>"
response.write"<li><FONT color='ff0000'> 亲爱的会员，您要添加的商业伙伴是："&user&"，但不存在这个会员</font><br>"
response.write"</li>"
response.write"</ul>"
response.write"</TR></td></table>"
else
if rs("user")=session("user") then
response.write"<TABLE width=578 border=0 align='center' cellPadding=0 cellSpacing=0>"
response.write"<TR><td Class=C>"
response.write"<ul>"
response.write"<li><FONT color='ff0000'> 亲爱的会员，请不要将自已添加为商业伙伴</font><br>"
response.write"</li>"
response.write"</ul>"
response.write"</TR></td></table>"
else
sql2="Select AddTime from Yixiang_memberRelation where [User]='"&session("user")&"' and SecUser='"&rs("user")&"'"
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn,1,1
if not (rs2.eof and rs2.bof) then
response.write"<TABLE width=578 border=0 align='center' cellPadding=0 cellSpacing=0>"
response.write"<TR><td Class=C>"
response.write"<ul>"
response.write"<li><FONT color='ff0000'> 亲爱的会员，您已经添加过该商业伙伴，请不要重复添加！<br>添加时间："&rs2("addtime")&"</font><br>"
response.write"</li>"
response.write"</ul>"
response.write"</TR></td></table>"
else
relation=replace_text(request.form("relation"))
if relation<>"" then
sql3="Insert into Yixiang_memberRelation([user],secuser,relation) values('"&session("user")&"','"&rs("user")&"',"&relation&")"
conn.execute(sql3)
response.redirect("addfriend_new_ok.asp")
end if
rs2.close
set rs2=nothing
end if
end if
end if
%>
<BR>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=tbg1>一、对方已经是会员了</TD>
</TR></TBODY></TABLE><IMG height=8
src="../images/shim(1).gif" width=1><BR>
<TABLE width="100%"
border=0 align="center" cellPadding=0 cellSpacing=0 class=bdr1>
<TBODY>
<TR>
<TD>
<TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD class=lh15><SPAN
class=M>·我还不知道对方的“会员登录名”</SPAN><BR>
从商友中心：<A href="../../corporation/index.html" target=_blank>搜索我要增加的商业伙伴</A> </TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD>
<TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD class=lh15>
<script Language="JavaScript">
function check()
{
if (trim(form1.user.value)=="") {
alert("对方会员登陆名不能为空！");
form1.user.focus();
return (false);
}
if (trim(form1.relation.value)=="") {
alert("请选择要添加到的组！");
form1.relation.focus();
return (false);
}
else
document.form1.submit();
}
//-->
function trim(inputString) {
if (typeof inputString != "string") { return inputString; }
var retValue = inputString;
var ch = retValue.substring(0, 1);
while (ch == " ") {
//检查字符串开始部分的空格
retValue = retValue.substring(1, retValue.length);
ch = retValue.substring(0, 1);
}
ch = retValue.substring(retValue.length-1, retValue.length);
while (ch == " ") {
//检查字符串结束部分的空格
retValue = retValue.substring(0, retValue.length-1);
ch = retValue.substring(retValue.length-1, retValue.length);
}
while (retValue.indexOf(" ") != -1) {
//将文字中间多个相连的空格变为一个空格
retValue = retValue.substring(0, retValue.indexOf(" ")) + retValue.substring(retValue.indexOf(" ")+1, retValue.length);
}
return retValue;
}
//-->
</script>
<FORM name=form1 action="" method=post>
<TABLE width="95%"
border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD colspan="2" class=M>·我知道对方的“会员登录名”</TD></TR>
<TR>
<TD width="47%" align="right">输入对方的:<B>会员登录名</B>": </TD>
<TD width="53%" height="30"> <INPUT maxLength=20 size=12 name="user"></TD>
</TR>
<TR>
<TD align="right">添加到: </TD>
<td height="30">
<SELECT size=1 name="relation"> <OPTION value="" selected></OPTION>
<OPTION value=0>我的供应商</OPTION> <OPTION value=1>我的采购商</OPTION></SELECT></TD>
</TR>
<TR>
<TD height="30" colspan="2" align="center"><INPUT type=button value=提交 name=eventSubmit_doAddByLoginId onClick="check()"></TD>
</TR></TBODY></TABLE>
</form></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<BR>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=tbg1>二、对方还不是会员</TD>
</TR></TBODY></TABLE><IMG height=8
src="../images/shim(1).gif" width=1><BR>
<TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD>
<TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD class=lh15>您邀请的对象还不是会员？<A
href="#">邀请他加入“我的商业伙伴”</A>！ </TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR><BR><BR><BR></TD></TR></TBODY></TABLE>
<BR>
<BR>
</TABLE><%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -