check.asp

用asp做的一个小的聊天程序

<!--#include file=cn.asp   -->

<%
		
		dim username
		username=Request.Form("txtusername")
		str="select * from leaguer where em_name='"& username &"'"
		rs.open str,cn,1,3
		if rs.recordcount<>0 then
			Response.Write "<script language=vbscript>msgbox" & """该用户已经存在""</script>"
			else
			Response.Write "<script language=vbscript>msgbox" & """恭喜您,您可以使用该帐号""</script>"
		end if
		server.Transfer "enroll.asp"
		
		%>