?? admin_checkname.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")
if IsSqlDataBase = 2 then
SQLche="SELECT author_Name FROM author WHERE author_Name='"&key_Name&"'"
else
SQLche="SELECT author_Name FROM [author] WHERE author_Name='"&key_Name&"'"
end if
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")
if IsSqlDataBase = 2 then
SQLche="SELECT Name FROM Userinfo WHERE Name='"&key_Name&"'"
else
SQLche="SELECT Name FROM [Userinfo] WHERE Name='"&key_Name&"'"
end if
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")
if IsSqlDataBase = 2 then
SQLche="SELECT author_userName FROM author WHERE author_userName='"&key_Name&"'"
else
SQLche="SELECT author_userName FROM [author] WHERE author_userName='"&key_Name&"'"
end if
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")
if IsSqlDataBase = 2 then
SQLche1="SELECT author_Name FROM author WHERE author_Name='"&key_Names&"'"
else
SQLche1="SELECT author_Name FROM [author] WHERE author_Name='"&key_Names&"'"
end if
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
RSche1.Close
set RSche1=nothing
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%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -