addadmingo.asp

来自「我的课程设计」· ASP 代码 · 共 19 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
	'if  (session("userright")<>"1") then 
	'	response.Redirect("../../error.asp?err_on=5")
	'end if
%>
<%
    Dim strName,password,userright,strSQL
	strName=trim(request.Form("username"))	
	password=trim(request.Form("password"))
		if(strName="" or password="") then
		response.Redirect("error.asp?err_on=1")
    end if	
	strSQL ="insert into admin(admin,psw) values('"&strName&"','"&password&"')"	
	db.execute(strSQL)
	response.Redirect("addadmin.asp")
	
%>