<%@ Language=VBScript %> <% intSysID = Request.QueryString ("id") If intSysID = "" Then Response.Write "" End If intSysID = CInt (intSysID) If Request.Form ("modify") <> "" Then strPassword = FormatSQL (Request.Form ("password")) strTrueName = FormatSQL (Request.Form ("truename")) strPhone = FormatSQL (Request.Form ("phone")) strEmail = FormatSQL (Request.Form ("email")) If strError <> "" Then Response.Write "" Else Call SetConn () sql = "Update tSysUser set tPassword = '" & strPassword & "', tTrueName = '" & strTrueName & "', tPhone = '" & strPhone & "'," sql = sql & "tEmail = '" & strEmail & "' where SysID = " & intSysID & "" Conn.Execute (sql) If Err.number <> 0 Then Call ClearConn Response.Write "" Else Response.Write "" Call ClearConn () Response.Redirect "ListSystem.asp" End If End If End If If Request.Form ("forbid") <> "" Then sql = "Update tSysUser set mDel = 1 where SysID = " & intSysID & "" Conn.Exeucte (sql) Response.Redirect "ListSystem.asp" End If Call SetConn () sql = "Select * from tSysUser where SysID = " & intSysID & "" Set objTemp = Conn.Execute (sql) If not objTemp.Eof Then strUserName = objTemp ("tUserName") strPassword = objTemp ("tPassword") strTrueName = objTemp ("tTrueName") strPhone = objTemp ("tPhone") strEmail = objTemp ("tEmail") End If objTemp.close Set objTemp = Nothing %>

开设系统管理员账号

请填写下面表单

用户名：	<% = strUserName %>
密码：	*长度4-16个字符(A-Z， a-z， 0-9)
密码确认：	*再输一遍密码，避免输入错误
姓名：	*请输入管理员的姓名
电　　话：	*（请检查是否正确，以便客户和您联系）
电子邮件：	*(请检查您的e-mail拼写是否正确)

<% Call ClearConn () %>