📄 admin_userinfo.asp

📁 小说站源代码文件
💻 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
	ErrCodes = ErrCodes & "<li>用户不存在。</li><br>"
	FoundErr=True
End If
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close()")
else
%>
<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=300,width=550,status=no,toolbar=no,menubar=no,location=no")
	  } 
	  else {
	  	alert("请先填写好昵称！");
		user.focus();
	  }    
    }
//-->
</script>
<table cellpadding=0 cellspacing=0 border=0 width=100%  height=90% align=center><tr><td align=center valign=center>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<form action="admin_userinfo.asp?info=add_namepost&ID=<%=UserID%>" method="post" name="userinfo" onsubmit="return check(this);">
		<tr>
			<td class="thead" height="30" colspan="2"><b>用户昵称重设</b></td>
		</tr>
		<tr>
			<td height="30" class="alt2">　当前昵称</td>
			<td height="30" class="alt1"><%=rs("Name")%></td>
		</tr>
		<tr>
			<td height="30" class="alt2">　新的昵称</td>
			<td height="30" class="alt1">
			<input name="name" type="text" id="name" value="" maxlength="18" size="30" class="form"></td>
		</tr>
		<tr>
			<td height="30" colspan="2">*昵称长度<font face="Times New Roman">8</font>字符以内，可使用英文字母、数字、汉字(1汉字=2字符)</td>
		</tr>
		<tr>
			<td height="20" colspan="2" class="alt3"></td>
		</tr>
		<tr align="center">
			<td height="35" colspan="2" class="thead">
			<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></td></tr></table>
<%end if
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
	ErrCodes = ErrCodes & "<li>请输入昵称！(不能大于8) </li><br>"
	FoundErr=True
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,"
⌨️ 快捷键说明

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