hy_join_ok.asp

来自「一、一般游客： 1.查看论坛资料 二、注册会员： 1.修改本人资料 」· ASP 代码 · 共 68 行

<%
if request.Cookies("user")="" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<!--#include file="conn.asp" -->
<%
keywords=request("txtst")
	UserId=request.Cookies("user")
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from hyinfor where hy_nch='"&UserId&"'"
	rsUser.open sqltext,conn,3,3
	if rsUser.recordcount >= 1 then 
	kw=rsUser("hy_st")
	if instr(1,kw,keywords,1)>=1  then 
		rsUser.close
		response.write "<script language=JavaScript>{window.alert('你本来就是此协会的成员!');window.history.go(-1)}</script>"
	    response.end

	else
		rsUser.close
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from hydsh where hy_nch='"&UserId&"'"
	rsUser.open sqltext,conn,3,3
			kw=rsUser("hy_st")	
	if instr(1,kw,keywords,1)>=1  then 
		rsUser.close
		response.write "<script language=JavaScript>{window.alert('你已经提交过参加此协会的申请了!');window.history.go(-1)}</script>"
	    response.end

	else
	
		rsUser("hy_st")=rsUser("hy_st")&","&keywords

		rsUser.update
		rsUser.close


		response.write "<script language=JavaScript>{window.alert('申请已提交，请耐心等待通知!');window.history.go(-1)}</script>"
	    response.end
	end if
	end if
	else 
			rsUser.close
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from hydsh where hy_nch='"&UserId&"'"
	rsUser.open sqltext,conn,3,3
			kw=rsUser("hy_st")	
	if instr(1,kw,keywords,1)>=1  then 
		rsUser.close
		response.write "<script language=JavaScript>{window.alert('你已经提交过参加此协会的申请了!');window.history.go(-1)}</script>"
	    response.end

	else
	
		rsUser("hy_st")=rsUser("hy_st")&","&keywords

		rsUser.update
		rsUser.close


		response.write "<script language=JavaScript>{window.alert('申请已提交，请耐心等待通知!');window.history.go(-1)}</script>"
	    response.end
	end if
		conn.close
	end if
%>