⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_user.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">真实姓名：</td>" & vbCrLf
	Response.Write " <td class=""forumRow"">"
	Response.Write Rs("truename")
	Response.Write " 　"
	Response.Write Rs("JobTitle")
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">性别：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	if Rs("sex")=0 then
	Response.Write "男"
	else
	Response.Write "女"
	end if
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">联系电话：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs("PhoneCountry")
	Response.Write -Rs("PhoneArea")
	Response.Write -Rs("usertel")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">城市：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs4("Description")
	Response.Write " - "
	Response.Write    Rs5("Description")
	Response.Write "省  -  "
	Response.Write    Rs6("Description")
	Response.Write "市"
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">街道地址：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs("address")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">邮政编码：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs("postcode")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">传真：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs("FaxCountry")
	Response.Write -Rs("FaxArea")
	Response.Write -Rs("FaxNumber")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">手机：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs("MobileNo")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">公司名称：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs("Company")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">网址：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs("home")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">主营行业：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs3("sortname")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">销售：</td>" & vbCrLf
	Response.Write " <td width=""75%"" class=""forumRow"">"
	Response.Write Rs("SaleKeywords")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	
	
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">登陆次数： </td>" & vbCrLf
	Response.Write " <td class=""forumRow"">　<font COLOR=#FF0000>"
	Response.Write Rs("loginum")
	Response.Write "</font> 次</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">最后登陆IP地址： </td>" & vbCrLf
	Response.Write " <td class=""forumRow"">　<font COLOR=#FF0000>"
	Response.Write Rs("userip")
	Response.Write "</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">最后登陆时间： </td>" & vbCrLf
	Response.Write " <td class=""forumRow"">　<font COLOR=#FF0000>"
	Response.Write Rs("logintime")
	Response.Write "</font> </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户注册时间： </td>" & vbCrLf
	Response.Write " <td class=""forumRow"">　"
	Response.Write Rs("regtime")
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户状态： </td>" & vbCrLf
	Response.Write " <td class=""forumRow"">　<font COLOR=#FF0000>"
	If Rs("islock") = 0 Then
		Response.Write "<B>正常</B>"
	Else
		Response.Write "<B>锁定</B>"
	End If
	Response.Write "</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <th colspan=""2"">修改 "
	Response.Write Rs("username")
	Response.Write " 的相关资料 如果不修改的部分请留空</th>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">账户身份： </td>" & vbCrLf
	Response.Write " <td class=""forumRow"">　<select name=""grade"">" & vbCrLf
	Set Rs1 = Server.CreateObject("adodb.recordset")
	Set Rs1 = conn.Execute("select * from NC_UserGroup order by groupid")
	Do While Not Rs1.EOF
		Response.Write "<option value="""
		Response.Write Rs1("Grades")
		Response.Write """ "
		If Trim(Rs1("grades")) = "" & Rs("Grade") & "" Then
			Response.Write " selected"
		End If
		Response.Write ">"
		Response.Write Rs1("GroupName")
		Response.Write "</option>" & vbCrLf
		Rs1.movenext
	Loop
	Rs1.Close
	Rs3.Close
	Rs4.Close
	Rs5.Close
	Rs6.Close
	Set Rs1 = Nothing
	Response.Write " </select></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	'Response.Write " <tr> " & vbCrLf
	'Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">账户点数： </td>" & vbCrLf
	'Response.Write " <td class=""forumRow"">　<input name=""money"" type=""text"" size=""10"" value="""
	'Response.Write Rs("money")
	'Response.Write """></td>" & vbCrLf
	'Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户邮箱：</td>" & vbCrLf
	Response.Write " <td class=""forumRow"">　<input name=""usermail"" type=""text"" size=""25"" value="""
	Response.Write Rs("usermail")
	Response.Write """></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户答案：</td>" & vbCrLf
	Response.Write " <td class=""forumRow"">　<input name=""answer"" type=""text"" size=""25"" value=""""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户密码：</td>" & vbCrLf
	Response.Write " <td class=""forumRow"">　<input name=""password"" type=""text"" size=""25"" value=""""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""center"" colspan=""2"" class=""forumRow"">" & vbCrLf
	Response.Write "<INPUT type=hidden name=userid value="""
	Response.Write Rs("userid")
	Response.Write """>" & vbCrLf
	Response.Write "<INPUT type=hidden name=username value="""
	Response.Write Rs("username")
	Response.Write """>　" & vbCrLf
	Response.Write "<INPUT onclick=javascript:history.go(-1) type=button value="" 返回上一页"" class=button>　" & vbCrLf
	Response.Write "<input type=""submit"" name=""Submit"" class=button value=""确认修改""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table></form>" & vbCrLf
	Rs.Close
End Sub

Private Sub saveModify()
	If founderr = False Then
		SQL = "select * from [NC_user] where userid=" & Request("userid")
		Rs.Open SQL, conn, 1, 3
		If Request.Form("password") <> "" Then
			Rs("password") = md5(Request.Form("password"))
		End If
		If Request.Form("grade") <> "" Then
			Rs("grade") = Request.Form("grade")
		End If
		If Request.Form("money") <> "" Then
			Rs("money") = Request.Form("money")
		End If
		If Request.Form("usermail") <> "" Then
			Rs("usermail") = Request.Form("usermail")
		End If
		If Request.Form("answer") <> "" Then
			Rs("answer") = md5(Request.Form("answer"))
		End If
		Rs.update
		Rs.Close
		Set Rs = Nothing
		NC_Admin.Succeed_Msg ("<li>用户 " & Request.Form("username") & " 的资料已经修改成功!</li>")
		Err.Raise -19691969
	End If
End Sub

Private Sub addMoney()
	If founderr = False Then
		SQL = "select * from [NC_user] where userid=" & Request("userid")
		Rs.Open SQL, conn, 1, 3
		If Request.Form("money") <> "" Then
			Rs("money") = Request.Form("money")
		End If
		Rs.update
		Rs.Close
		Set Rs = Nothing
		NC_Admin.Succeed_Msg ("<li>您已经在 " & Request.Form("username") & " 的账户上面成功添加点数:" & Request.Form("money") & " </li>")
		Err.Raise -19691969
	End If
End Sub

Private Sub userMoney()
	SQL = "select * from [NC_user] where userid=" & Request("userid")
	Rs.Open SQL, conn, 1, 1
	Response.Write "<form method=Post name=""myform"" action=""admin_user.asp?action=add"">" & vbCrLf
	Response.Write "<table width=""85%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""tableBorder"">" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <th colspan=""2"">为 "
	Response.Write Rs("username")
	Response.Write " 增加点数</th>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td width=""30%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">请输入要添加的金钱数</td>" & vbCrLf
	Response.Write " <td width=""70%"" class=""forumRow"">　<input name=""money"" type=""text"" size=""10"" value="""
	Response.Write Rs("money")
	Response.Write """> 元</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""center"" colspan=""2"" class=""forumRow"">" & vbCrLf
	Response.Write "<INPUT type=hidden name=userid value="""
	Response.Write Rs("userid")
	Response.Write """>" & vbCrLf
	Response.Write "<INPUT type=hidden name=username value="""
	Response.Write Rs("username")
	Response.Write """>　" & vbCrLf
	Response.Write "<INPUT onclick=javascript:history.go(-1) type=button value="" 返回上一页"" class=button>　" & vbCrLf
	Response.Write "<input type=""submit"" name=""Submit"" class=button value=""确认添加""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table></form>" & vbCrLf
	Rs.Close
End Sub
%>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -