ADO-ODBC

Development Platform:

ASP/ASPX

CheckName.asp：Code Content

							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="Cls_user.asp" -->
<link href="../images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<%
Dim Conn,User_Conn
MF_Default_Conn
MF_User_Conn
Dim ReturnValue,Username
Username=Replace(replace(trim(Request("Username")),"'","''"),Chr(39),"")
If len(Username)<3 then 
	Response.Write("用户名不能少于3位")
	Response.end
End if
If Username="" then 
	Response.Write("请填写用户名")
	Response.end
End if
dim Fs_User
Set Fs_User = New Cls_User
ReturnValue = Fs_User.checkName(Username)
if ReturnValue then
	Response.Write(""& Username &" 此用户可以注册")
	Response.end
Else
		Response.Write(""& Username &" 已经被注册")
		Response.end
End if
set Fs_User=nothing
%>

						