addfriend.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下:管理员」· ASP 代码 · 共 63 行
ASP
63 行
<!--#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
%>
<br>
<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=center>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD width="123"><IMG height=32 src="../images/myfriend.gif" width=161
border=0></TD>
<TD width="655" 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><Br>
<TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="95%"
border=0><TBODY>
<TR>
<TD>
<TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD class=lh15>
<FORM name=frmAreaSearch action="addfriend_ok.asp" method=post>
<input type=hidden name="user" value=<%=request("user")%>>
<TABLE width="85%" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD class=c>添加到: <SELECT size=1 name="relation">
<OPTION value=0>我的供应商</OPTION> <OPTION value=1>我的采购商</OPTION></SELECT> <INPUT type=submit value=" 提 交 " name=nextsubmit></TD></TR>
</TBODY></TABLE></FORM></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<BR>
<BR><BR><BR></TD></TR></TBODY></TABLE>
<BR>
<BR>
</TABLE>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?