?? addnewuser.asp
字號(hào):
<%@ Language=VBScript %>
<!--#include file="../conn.asp"-->
<%
'判斷用戶是否登錄以及具有系統(tǒng)管理員身份
if isempty(Session("ID")) or Session("IsSystemManager")=false then
Response.Redirect "../index.asp"
end if
'連接系統(tǒng)數(shù)據(jù)庫
'set conn = server.createobject ("adodb.connection")
'conn.open "ASPData", "sa", ""
set RSDepartments = conn.Execute("select DepartmentName from Departments " _
& "order by DepartmentName")
set EmployeeInformation = conn.Execute(" select * from UserInfo order by Name ")
'添加新用戶
if not IsEmpty(Request.Form("Add")) then
TheLoginID=Request.Form("LoginID")
TheName=Request.Form("Name")
TheEmailAddress=Request.Form("EmailAddress")
ThePassword=Request.Form("Password")
TheDepartment=Request.Form("Department")
ThePosition=Request.Form("Position")
TheInternalPhone=Request.Form("InternalPhone")
TheHomePhone=Request.Form("HomePhone")
TheMobilePhone=Request.Form("MobilePhone")
TheQQ=Request.Form("QQ")
TheHomeAddress=Request.Form("HomeAddress")
TheIsSystemManager=Request.Form("IsSystemManager")
TheBirthday=Request.Form("BirthdayYear") & "-" _
& Request.Form("BirthdayMonth") & "-" & Request.Form("BirthdayDay")
TheIsFinancialManager=Request.Form("IsFinancialManager")
'對(duì)用戶輸入進(jìn)行校驗(yàn)，合格則添加新用戶信息
if len(ThePassword)=0 or len(TheName)=0 or len(TheLoginID)=0 then
TheMessage="登錄名，姓名，密碼不能為空，無法添加新用戶"
else
conn.Execute " insert into UserInfo (LoginID, Name, Password, EmailAddress, " _
& "Department, Position, Birthday, HomePhone, QQ, HomeAddress," _
& "InternalPhone, MobilePhone) values (" _
& "'" & TheLoginID &"', " _
& "'" & TheName &"', " _
& "'" & ThePassword &"', " _
& "'" & TheEmailAddress &"', " _
& "'" & TheDepartment &"', " _
& "'" & ThePosition &"', " _
& "'" & TheBirthday &"', " _
& "'" & TheHomePhone &"', " _
& "'" & TheQQ &"', " _
& "'" & TheHomeAddress &"', " _
& "'" & TheInternalPhone &"', " _
& "'" & TheMobilePhone & "') "
TheMessage="新用戶添加成功"
end if
else
TheMessage = "請?jiān)谙旅嫣砑有掠脩?quot;
end if
%>
<HEAD>
<TITLE>添加新的用戶</TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows">
</HEAD>
<BODY BGCOLOR="">
<table width=800 border=0 bgcolor=#16A84D cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td valign=center ><img src="../ASPLogo3.jpg" width=796 height=100></td></tr>
</table>
<table width="800" border="0" bordercolor="#16A84D" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr>
</table>
<br>
<table WIDTH=800 border=0 bgcolor=#16A84D cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3><font color=white><P ALIGN="CENTER">清華同方能源環(huán)境公司內(nèi)網(wǎng)->員工信息查詢->系統(tǒng)管理員選項(xiàng)->增加新用戶 [當(dāng)前用戶-<% response.write Session("Name") %>]</FONT></font></td></tr>
<tr bgcolor=white >
<td><a href="../.././html/home.asp"><font color="#16A84D">返回內(nèi)網(wǎng)主頁</font></a></td>
<td align=center> <font color="#16A84D" ><% response.write TheMessage %></FONT></td>
<td align=right><a href="SystemManager.asp"><font color="#16A84D">返回上一級(jí)網(wǎng)頁</font></a></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#16A84D" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr></table>
<br>
<FORM ACTION="AddNewUser.asp" METHOD=POST>
<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=1 bordercolor="#16A84D" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=30% bgcolor=#B5EFC7><img src="../image/employee1.jpg"></td>
<td>
<br>
<table CELLPADDING=0 CELLSPACING=1 BORDER=1 align=center width=100%>
<tr><td width=25%><font color="#16A84D">登錄名</font></td><td><INPUT TYPE="text" NAME="LoginID" VALUE="" SIZE=50 MAXLENGTH=50 ></td></tr>
<tr><td width=25%><font color="#16A84D">姓名</font></td><td><INPUT TYPE="text" NAME="Name" VALUE="" SIZE=50 MAXLENGTH=50 ></td></tr>
<tr><td width=25%><font color="#16A84D">輸入新密碼</font></td><td><INPUT TYPE="text" NAME="Password" VALUE="" SIZE=50 MAXLENGTH=50 ></td></tr>
<tr><td width=25%><font color="#16A84D">部門</font></td><td>
<SELECT NAME="Department" size=1 width=10 >
<%
Do Until RSDepartments.EOF
%>
<OPTION VALUE="<% Response.Write RSDepartments("DepartmentName") %>"> <% Response.Write RSDepartments("DepartmentName") %> </OPTION>
<%
RSDepartments.Movenext
loop
%>
</SELECT>
</td></tr>
<tr><td width=25%><font color="#16A84D">職位</font></td><td>
<select name="Position" size=1>
<option value="普通">  普通  </option>
<option value="主管">  主管  </option>
<option value="經(jīng)理">  經(jīng)理  </option>
</select>
</td></tr>
<tr><td width=25%><font color="#16A84D">電子郵件地址</font></td><td><INPUT TYPE="text" NAME="EmailAddress" VALUE="" SIZE=50 MAXLENGTH=50 ></td></tr>
<tr><td width=25%><font color="#16A84D">內(nèi)部分機(jī)電話</font></td><td><INPUT TYPE="text" NAME="InternalPhone" VALUE="" SIZE=50 MAXLENGTH=50 ></td></tr>
<tr><td width=25%><font color="#16A84D">移動(dòng)電話</font></td><td><INPUT TYPE="text" NAME="MobilePhone" VALUE="" SIZE=50 MAXLENGTH=50 ></td></tr>
<tr><td width=25%><font color="#16A84D">家庭電話</font></td><td><INPUT TYPE="text" NAME="HomePhone" VALUE="" SIZE=50 MAXLENGTH=50 ></td></tr>
<tr><td width=25%><font color="#16A84D">QQ號(hào)</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE="" SIZE=50 MAXLENGTH=50 ></td></tr>
<tr><td width=25%><font color="#16A84D">家庭住址</font></td><td><INPUT TYPE="text" NAME="HomeAddress" VALUE="" SIZE=50 MAXLENGTH=50 ></td></tr>
<tr><td width=25%><font color="#16A84D">是否系統(tǒng)管理員</font></td><td>
<select name="IsSystemManager" size=1>
<option value="False">   否   </option>
<option value="True">   是   </option>
</select>
</td></tr>
<tr><td width=25%><font color="#16A84D">生日</font></td>
<td>
<select name="BirthdayYear" size=1>
<%
YearCounter = 2000
Do until YearCounter <=1900
%>
<OPTION VALUE="<% Response.Write YearCounter %>">  <% Response.Write YearCounter %>  </OPTION>
<%
YearCounter = YearCounter-1
loop
%>
</select> 年  
<select name="BirthdayMonth" size=1>
<%
MonthCounter = 1
Do until MonthCounter >12
%>
<OPTION VALUE="<% Response.Write MonthCounter %>">  <% Response.Write MonthCounter %>  </OPTION>
<%
MonthCounter = MonthCounter+1
loop
%>
</select> 月  
<select name="BirthdayDay" size=1>
<%
DayCounter = 1
Do until DayCounter >31
%>
<OPTION VALUE="<% Response.Write DayCounter %>">  <% Response.Write DayCounter %>  </OPTION>
<%
DayCounter = DayCounter+1
loop
%>
</select> 日  
</td></tr>
<tr><td width=25%><font color="#16A84D">是否財(cái)務(wù)管理員</font></td><td>
<select name="IsFinancialManager" size=1>
<option value="False">   否   </option>
<option value="True">   是   </option>
</select>
</td></tr>
</table>
<br>
</td>
</TR>
</table>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=800 align=center>
<TR VALIGN="top" ALIGN="center">
<TD WIDTH=100% align=center >
<INPUT TYPE="submit" NAME="Add" VALUE="添加新用戶信息" style="border: 1px solid #34BB66; background-color: #B6EBCA; color: #34BB66"></TD>
</TD>
</TR>
</table>
</form>
</body>
</html> ?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -