📄 admin_checkname.asp

📁 功能介绍：一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

💻 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>
</head>

<body>
<%Select Case request.querystring("info")
	Case "author"
		Call author()
	Case "user"
		Call user()
	Case "authoradd"
		Call authoradd()
end select 

Sub author()
key_Name=CheckSql(request("Name"))
	if key_Name="" then
		FoundErr=True
		ErrCodes = ErrCodes & "<li>您查寻的输入内容为空！</li><br>"
	end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close()")
else
	Set RSche=Server.CreateObject("ADODB.RecordSet")
	SQLche="SELECT author_Name FROM [author] WHERE author_Name='"&key_Name&"'"
	RSche.Open SQLche,Conn,1,1
	If Not RSche.BOF Or Not RSche.BOF Then
		ErrCodes = ErrCodes & "<li>您所输入的笔名已存在，请更换重新注册！</li><br>"
		FoundErr=True
	Else
		SuccessCodes = " 您所输入的笔名 "&key_Name&" 还没有被注册，您可以使用！</li><br>"
	End If
	RSche.Close
	set RSche=nothing
conn.close
set conn=nothing
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close()")
else
	Call ShowAdminSuccessMsg(SuccessCodes,"javascript:window.close()")
end if
end if
end sub

sub user()
key_Name=CheckSql(request("Name"))
	if key_Name="" then
		FoundErr=True
		ErrCodes = ErrCodes & "<li>您查寻的输入内容为空！</li><br>"
	end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close()")
else
	Set RSche=Server.CreateObject("ADODB.RecordSet")
	SQLche="SELECT Name FROM [Userinfo] WHERE Name='"&key_Name&"'"
	RSche.Open SQLche,Conn,1,1
	If Not RSche.BOF Or Not RSche.BOF Then
		ErrCodes = ErrCodes & "<li>您所输入的昵称已存在，请更换重新注册！ </li><br>"
		FoundErr=True
	Else
		SuccessCodes = "您所输入的昵称 "&key_Name&" 还没有被注册，您可以使用！ </li><br>"
	End If
	RSche.Close
	set RSche=nothing
conn.close
set conn=nothing
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close()")
else
	Call ShowAdminSuccessMsg(SuccessCodes,"javascript:window.close()")
end if
end if
end sub

sub authoradd()
key_Name=CheckSql(request("a"))
key_Names=CheckSql(request("b"))
	if key_Name="" or key_Names="" then
		FoundErr=True
		ErrCodes = ErrCodes & "<li>您查寻的输入内容为空！</li><br>"
	end if
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close()")
else
	Set RSche=Server.CreateObject("ADODB.RecordSet")
	SQLche="SELECT author_userName FROM [author] WHERE author_userName='"&key_Name&"'"
	RSche.Open SQLche,Conn,1,1
	If Not RSche.BOF Or Not RSche.BOF Then
		ErrCodes = ErrCodes & "<li>您所输入的登陆名已存在，请更换重新注册！ </li><br>"
		FoundErr=True
	Else
	Set RSche1=Server.CreateObject("ADODB.RecordSet")
	SQLche1="SELECT author_Name FROM [author] WHERE author_Name='"&key_Names&"'"
	RSche1.Open SQLche1,Conn,1,1
	If Not RSche1.BOF Or Not RSche1.BOF Then
		ErrCodes = ErrCodes & "<li>您所输入的笔名已存在，请更换重新注册！ </li><br>"
		FoundErr=True
	Else
		SuccessCodes = " 您所输入的登陆名 "&key_Name&" 和笔名 "&key_Names&" 还没有被注册，您可以使用！  </li><br>"
	End If
	End If
	RSche1.Close
	set RSche1=nothing
	RSche.Close
	set RSche=nothing
	conn.close
set conn=nothing
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close()")
else
	Call ShowAdminSuccessMsg(SuccessCodes,"javascript:window.close()")
end if
end if
end sub%>
</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -