userinfomanage.asp
来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 119 行
ASP
119 行
<!--#include file="../conn.asp"-->
<%
Dim SectionStr(),SectionID() '定义两个数组
Icnt = 0 '计数清0
set rs=server.createobject("adodb.recordset") '创建数据库对象
Sqlstr = "select count(*) as TotalSection from Section" 'Sql查询语句
rs.open Sqlstr,conn,3,2 '执行Sql，得到所有部门的数目
SectionNum = rs("TotalSection") 'SectionNum为部门的数目
Redim SectionStr(SectionNum) '更改数组大小为部门数目
Redim SectionID(SectionNum) '更改数组大小为部门数目
rs.close 'rs关闭
SqlStr = "select * from Section order by SectionID" 'Sql查询语句
rs.open Sqlstr,conn,3,2 '执行，得到所有部门数据
while not (rs.bof or rs.eof) '如果数据不为空的话
SectionStr(Icnt) = rs("SectionName") '将数据存到数组SectionStr()中
SectionID(Icnt) = rs("SectionID") '将数据存到数组SectionID()中
Icnt = Icnt+1 '计数加一
rs.movenext '指针移动
wend '循环
rs.close 'rs关闭
SqlStr = "select * from [User] order by UserID" 'Sql查询语句
rs.open Sqlstr,conn,3,2 '获得所有用户信息
%>
<HTML><HEAD><TITLE>修改用户信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../css.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">求是CRM</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 width="542" height="23"> <P> </P></TD>
</TR>
<TR bgColor=#BFD3EE>
<TD height="23"><b>操作:用户信息修改</b></TD>
</TR>
<form name=UserChangeInfo action=ChangeUserInfo.asp method=post>
<%
While not (rs.bof or rs.eof)
%>
<TR align="center" bgColor=#ffffff>
<TD height="30"
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid;BORDER-Bottom: #BFD3EE 1px solid"><font color=red><%=rs("UserName")%></font>
: 密码:
<input name="Pass<%=rs("UserID")%>" type="text" value="<%=rs("UserPass")%>" maxlength="50" style="BORDER-LEFT-COLOR: #ffffff; COLOR: #ff0000; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #ffffff; BORDER-BOTTOM: #BFD3EE 1px solid; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BACKGROUND-COLOR: #ffffff; BORDER-RIGHT-COLOR: #ffffff" >
部门:
<select name="S_Section<%=rs("UserID")%>" id="S_Section">
<%
for i = 0 to (SectionNum-1) '循环生成下拉列表
%>
<option value="<%=SectionID(i)%>" <%if Cint(rs("UserSection"))=SectionID(i) then %>selected<%end if%>><%=SectionStr(i)%></option>
<%
next
%>
</select>
管理员:是
<input type="radio" name="IsAdmin<%=rs("UserID")%>" value=1 <%if rs("IsAdmin") = true then%>checked<%end if%> >
否
<input type="radio" name="IsAdmin<%=rs("UserID")%>" value=0 <%if rs("IsAdmin") = false then%>checked<%end if%>> </TD>
</TR>
<%
rs.movenext
Wend
%>
<TR bgColor=#ffffff>
<TD height="30"
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid"><DIV align=center><a href="exit.asp">
<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></div></TD>
</TR>
</form>
<TR bgColor=#ffffff>
<TD height="23"
style="BORDER-RIGHT: #BFD3EE 1px solid; BORDER-LEFT: #BFD3EE 1px solid"><DIV align=center></div></TD>
</TR>
<TR>
<TD height="23" align="center" valign="middle"><input name="Submit" type="submit" class="button_all" value="返回" onclick="javascript:location.href='UserManage.asp'"></TD>
</TR>
<TR>
<TD height="1"></TD>
</TR>
</TABLE></TD></TR>
<TR>
<TD vAlign=center bgColor=#BFD3EE>
<DIV align=center>求是CRM 版权所有</DIV></TD></TR>
<TR>
<TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<P>
<P></P></BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?