yz.asp

来自「网上报名系统!用于 电脑学校(院)」· ASP 代码 · 共 21 行

<!--#include file="conn.asp" -->
<%
uname=request("uname")
%>
<%
exec="select * from user where uname='"&uname&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open exec,conn,1,1
%>


<%
if not (rs.eof and rs.bof) then
response.write"<SCRIPT language=JavaScript>alert('用户名重复!  请重新选择一个用户名！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
response.write"<SCRIPT language=JavaScript>alert('- 恭喜您,用户名可以使用！ -');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
%>