ajax.asp

一个asp写的论坛源代码,论坛所需要的功能都有

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
If Request("checksubmit")="yes" Then
	Select Case Request("action")
		Case "checkusername"
			Call checkusername
		Case "checkseccode"
			Call checkseccode
		Case "checkemail"
			Call checkemail
	End Select
	Sub checkusername
		dim username,Rs,SQL
		UserName=HRF(1,1,"username")
		Set Rs =team.execute( "Select * from [user] where username='"&UserName&"'")
		if rs.eof and rs.bof then
			Echo "<script>"
			Echo "	parent.document.getElementById('checkusername').innerHTML ='  <img src=""images/success.gif"" align=""absmiddle"">恭喜，您输入的用户名 "&UserName&" 可以使用，请继续填写其他选项。' "
			Echo "	parent.document.getElementById('checkusername').style.color = 'red'	"
			Echo "	parent.document.register.regsubmit.disabled=false;	"
			Echo "</script>"
		else
			Echo "<script>"
			Echo "	parent.document.getElementById('checkusername').innerHTML =' 对不起，您输入的用户名 "&UserName&" 已经被他人使用，请选择其他名字后再试。' "
			Echo "	parent.document.getElementById('checkusername').style.color = 'green'	"
			Echo "	parent.document.register.regsubmit.disabled=true;	"
			Echo "</script>"
		end if
		rs.close:set rs=nothing
	End Sub

	Sub checkemail
		dim UserMail,Rs
		UserMail=HRF(1,1,"email")
		Set Rs =team.execute( "Select * from [user] where usermail='"&UserMail&"'")
		if rs.eof and rs.bof then
			Echo "<script>"
			Echo "	parent.document.getElementById('checkemail').innerHTML ='  <img src=""images/success.gif"" align=""absmiddle""> 恭喜，您输入的邮件地址 "&UserMail&" 可以使用，请继续填写其他选项。' "
			Echo "	parent.document.getElementById('checkemail').style.color = 'red'	"
			Echo "	parent.document.register.regsubmit.disabled=false;	"
			Echo "</script>"
		else
			Echo "<script>"
			Echo "	parent.document.getElementById('checkemail').innerHTML =' 对不起，您输入的邮件地址 "&UserMail&" 已经被他人使用，请选择其他邮件地址后再试。' "
			Echo "	parent.document.getElementById('checkemail').style.color = 'green'	"
			Echo "	parent.document.register.regsubmit.disabled=true;	"
			Echo "</script>"
		end if
		rs.close
		set rs=nothing
	End Sub

	Sub checkseccode
		Dim Code
		If team.Forum_setting(48)>=1 Then
			Code=HRF(1,1,"seccodeverify")
			if Team.CodeIsTrue(Code) Then
				Echo "<script>"
				Echo "	parent.document.getElementById('checkseccode').innerHTML =' <img src=""images/success.gif"" align=""absmiddle""> ' "
				Echo "	parent.document.getElementById('checkseccode').style.color = 'red'	"
				Echo "	parent.document.register.regsubmit.disabled=false;	"
				Echo "</script>"
			Else
				Echo "<script>"
				Echo "	parent.document.getElementById('checkseccode').innerHTML =' 验证码错误,请刷新后重新填写 ' "
				Echo "	parent.document.getElementById('checkseccode').style.color = 'green'	"
				Echo "	parent.document.register.regsubmit.disabled=true;	"
				Echo "</script>"
			End if
		End If
	End Sub

End If
%>