📄 admin_userinfo.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。本人仅提供本系统相关的一些技术问题的解释、解答。

💻 ASP

字号:

<!--#include file="../conn.asp"-->
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body>

<%Select Case request.querystring("info")
	Case "add_name"
		Call add_name()
	Case "modpassword"
		Call modpassword()
	Case "modmo"
		Call modmo()
	Case "vipUser_modmo"
		Call vipUser_modmo()
	Case "add_namepost"
		Call add_namepost()
	Case "modpasswordpost"
		Call modpasswordpost()
	Case "modmopost"
		Call modmopost()
	Case "vipUser_modmopost"
		Call vipUser_modmopost()
end select 

Sub add_name()
UserID=replace(trim(request("ID")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select Name from userinfo where ID="&UserID&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function checkuser()
    {	  
	  var user = document.userinfo.name;
      if (user.value) {
	  	window.open("admin_checkname.asp?info=user&name="+user.value,"_blank","top=100,left=100,height=185,width=320,status=no,toolbar=no,menubar=no,location=no")
	  } 
	  else {
	  	alert("请先填写好昵称！");
		user.focus();
	  }    
    }
//-->
</script>
<table width="365" border="0" cellspacing="1" cellpadding="4" align="center">
	<form action="admin_userinfo.asp?info=add_namepost&ID=<%=UserID%>" method="post" name="userinfo" onsubmit="return check(this);">
		<tr>
			<td height="30" bgcolor="#1C3566" colspan="3"><b>
			<font color="#FFFFFF">用户昵称重设</font></b></td>
		</tr>
		<tr bgColor="#dfefff">
			<td height="30">　请填写新昵称</td>
			<td height="30">
			<input name="name" type="text" id="name" value="<%=rs("Name")%>" maxlength="18" size="30" class="form"></td>
		</tr>
		<tr bgColor="#dfefff">
			<td height="30" colspan="2">*昵称长度<font face="Times New Roman">8</font>字符以内，可使用英文字母、数字、汉字(1汉字=2字符)</td>
		</tr>
		<tr bgColor="#dfefff">
			<td height="20" colspan="2"></td>
		</tr>
		<tr align="center" bgcolor="#1C3566">
			<td height="35" colspan="3">
			<input name="submit" type="submit" value="确认提交" class="button">
			<input name="reset" type="reset" value="清除重写" class="button">
			<input name="checkacc" type="button" value="昵称检验" onclick="checkuser();" class="button"></td>
		</tr>
	</form>
</table>

</body>

</html>
<%rs.close
set rs=nothing 
end sub

Sub add_namepost()
'判断名字是否超限
UserID=replace(trim(request("ID")),"'","")
Name=trim(request("Name"))
if Name="" or strLength(Name)>8 then
		Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n请输入昵称！(不能大于8) ');javascript:window.close();</script>")
		Response.End
else
	if Instr(Name,"=")>0 or Instr(Name,"%")>0 or Instr(Name,chr(32))>0 or Instr(Name,"?")>0 or Instr(Name,"&")>0 or Instr(Name,";")>0 or Instr(Name,",")>0 or Instr(Name,"'")>0 or Instr(Name,",")>0 or Instr(Name,chr(34))>0 or Instr(Name,chr(9))>0 or Instr(Name,"

💿 文件大小 542 K

👤 上传用户 foreverlovely

📂 所属分类 Internet/网络编程

🏷️ 相关标签

#MSSQL #MySQL #ASP #系统设计

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -