📄 applyuserright.asp
字号:
<!--#include file="const.asp"-->
<!--#include file="path.asp"-->
<!--#include file="IsUser.asp"-->
<%
if User_ID<>"" then
set rs = conn.execute("select * from [user] where id="&User_ID )
%>
<HTML><HEAD><TITLE><%=WebTitle%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="styles.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width="95%" align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=6 width="100%" bgColor=#BFD3EE
border=0><TBODY>
<TR>
<TD vAlign=center align=middle
bgColor=#BFD3EE><div align="center"><A
href="<%=CompanyLink%>"><%=CompanyName%></A>网上招标系统</div></TD>
</TR>
<TR>
<TD vAlign=center bgColor=#ffffff>
<DIV align=left></DIV>
<TABLE cellSpacing=0 cellPadding=5 align=center bgColor=#BFD3EE
border=0>
<!--DWLayoutTable-->
<TBODY>
<TR bgColor=#ffffff>
<TD colSpan=2> <P> </P></TD>
</TR>
<TR bgColor=#BFD3EE>
<TD colSpan=2><b>操作:申请权限</b></TD>
</TR>
<form name=UserApply action=PostApply.asp method=post>
<%
UserFlag=rs("UserFlag") '得到用户标识数字
Select case UserFlag '将用户标识数字替换文字
case 0
UserRight="无权限"
case 1
UserRight="招标者"
case 2
UserRight="竞标者"
case 3
UserRight="招标/竞标者"
case else
UserRight="未知"
End Select
%>
<TR align="center" bgColor=#ffffff>
<TD height="26"
colSpan=2
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid;BORDER-Bottom: #BFD3EE 1px solid"><font color=red><%=rs("UserName")%></font>
<%=UserRight%> 申请:招标
<input type="checkbox" name="right1" value="1" <%if UserFlag=1 or UserFlag=3 then %>checked<%end if%>>
竞标 <input type="checkbox" name="right2" value="2" <%if UserFlag=2 or UserFlag=3 then %>checked<%end if%>></TD>
</TR>
<TR align="center" bgColor=#ffffff>
<TD height="26"
colSpan=2
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid;BORDER-Bottom: #BFD3EE 1px solid"><textarea name="reason" cols="50" rows="5">填写申请理由</textarea></TD>
</TR>
<%
%>
<TR bgColor=#ffffff>
<TD
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid"
colSpan=2><DIV align=center>
<input type="submit" style="BORDER-RIGHT: #BFD3EE 2px solid; BORDER-TOP: #BFD3EE 2px solid; FONT-SIZE: 9pt; BACKGROUND: #f0f0f0; BORDER-LEFT: #BFD3EE 2px solid; WIDTH: 120px; BORDER-BOTTOM: #BFD3EE 2px solid; HEIGHT: 20px" name="-1" value="申请"> <a href='javascript:window.close()'>取消</a>
</div></TD>
</TR>
</form>
<TR bgColor=#ffffff>
<TD
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid"
colSpan=2 bgColor=#BFD3EE> <DIV align=center>审批记录</DIV></TD>
</TR>
<%
rs.close
set rs=conn.execute("select [User].UserName,[User].UserFlag,Apply.ID,Apply.ApplyRight,Apply.ApplyTime,Apply.ApplyID,Apply.ApplyStatus from Apply,[User] where Apply.ApplyID="&User_ID&" and Apply.ApplyStatus<>-1 and [User].ID=Apply.ApplyID order by Apply.ID desc")
%>
<%
while not(rs.eof or rs.bof)
UserFlag=rs("UserFlag")
Select case UserFlag
case 0
UserRight="无权限"
case 1
UserRight="招标者"
case 2
UserRight="竞标者"
case 3
UserRight="招标/竞标者"
case else
UserRight="未知"
End Select
Right_Flag=rs("ApplyRight")
Select case Right_Flag
case 0
ApplyRight="无权限"
case 1
ApplyRight="招标者"
case 2
ApplyRight="竞标者"
case 3
ApplyRight="招标/竞标者"
case else
ApplyRight="未知"
End Select
action="拒绝"
if rs("ApplyStatus")=1 then
action="同意"
end if
%>
<TR bgColor=#ffffff>
<TD align='center'
colSpan=2
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid"><%=rs("UserName")%>
<%=UserRight%> 申请:<%=ApplyRight%> 时间:<%=rs("ApplyTime")%> 操作:<%=action%> <a href='ViewActionReason2.asp?ID=<%=rs("ID")%>' target=_blank>原因</a></TD>
</TR>
<%
rs.movenext
wend
%>
<TR bgColor=#ffffff>
<TD
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid"
colSpan=2><DIV align=center><a href="exit.asp">注销</a> </div></TD>
</TR>
<TR>
<TD width="250" bgColor=#BFD3EE>如有问题请与管理员联系：</TD>
<TD width="282"><A
href="mailto:<%=AdminEmail%>"><%=AdminEmail%></A></TD>
</TR>
<TR bgColor=#ffffff>
<TD colSpan=2> </TD>
</TR>
</TBODY>
</TABLE></TD></TR>
<TR>
<TD vAlign=center bgColor=#BFD3EE>
<DIV align=center><A
href="
<%=CompanyLink%>"><%=CompanyName%></A>版权所有</DIV></TD></TR>
<TR>
<TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<P>
<P></P></BODY></HTML>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -