st_shqok.asp

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

<%
if request.Cookies("user")="" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<!--#include file="conn.asp" -->
<!--#include file="char.asp"-->
<%
  strname=trim(request("txt_name"))
	set rsst=server.createobject("adodb.recordset")
	sqltext="select * from stinfor where st_name='"&strname&"'"
	rsst.open sqltext,conn,3,3
	if rsst.recordcount > 0 then
		response.write "<script language=JavaScript>{window.alert('此协会已经注册!');window.history.go(-1)}</script>"
	    response.end
	else
	'添加一条记录到数据库
		rsst.addnew
		'必添项
		rsst("st_name")=Request("txt_name")
		rsst("st_jj")=Request("txt_jj")
		rsst("st_ren")=Request("txt_ren")
		rsst("st_sex")=Request("txt_sex")
		rsst("st_pwd")=Request("txt_pwd")
		rsst("st_phone")=Request("txt_phone")
		rsst("st_address")=Request("txt_address")
		rsst("st_zhy")=Request("txt_zhy")
		rsst("st_email")=Request("txt_email")
		rsst("st_date")=date()
		rsst("st_state")=0

		rsst.update
		rsst.close
		conn.close
		
		response.write "<script language=JavaScript>{window.alert('注册成功!请等待管理员为您开通账号！');window.location.href='right.asp'}</script>"
	      response.end
	end if

%>