?? userinfomanage.asp
字號:
<!--#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 + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -