📄 admin_authorinfo.asp

📁 小说站源代码文件
💻 ASP
字号:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="javaScript" src="../js/js.js"></script>
<style type="text/css">
<!--
.style2 {
	font-family: "隶书";
	color: #FF0000;
	font-size: 24px;
}
.style3 {color: #FF0000}
-->
</style>
</head>

<body>

<%

Select Case request.querystring("info")
	Case "addname"
		Call addname()
	Case "addnamepost"
		Call addnamepost()
	Case "modpassword"
		Call modpassword()
	Case "modpasswordpost"
		Call modpasswordpost()
end select 

Sub addname()
authorID=CheckSql(request("ID"))
CheckSqlnum(authorID)
authorID=int(authorID)
set rs=server.createobject("adodb.recordset")
sql="select author_Name from author where author_ID="&authorID&""
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.author_Name;
      if (user.value) {
	  	window.open("admin_checkname.asp?info=author&name="+user.value,"_blank","top=60,left=80,height=300,width=550,status=no,toolbar=no,menubar=no,location=no")
	  } 
	  else {
	  	alert("CnEndWeb（终点）提醒：\n\n请先填写好昵称！");
		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_authorinfo.asp?info=addnamepost&ID=<%=authorID%>" method="post" name="userinfo" onsubmit="return check(this);">
		<tr align="center">
			<td class="thead" height="30" colspan="2">作 家 笔 名 重 设</font></b></td>
		</tr>
		<tr>
			<td height="30" class="alt2">　当前笔名</td>
			<td height="30" class="alt1"><%=rs("author_Name")%></td>
		</tr>
		<tr>
			<td height="30" class="alt2">　新的笔名</td>
			<td height="30" class="alt1">
			<input name="author_Name" type="text"  value="<%=rs("author_Name")%>" maxlength="18" size="40" 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="25" class="thead" colspan="2">
			<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 addnamepost()
'判断名字是否超限
authorID=CheckSql(request("ID"))
CheckSqlnum(authorID)
authorID=int(authorID)
Name=trim(request("author_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 + -