<!--#include file="database.ini"-->
<%
dim strusername,struserpass,strno,strxlh,strxh,strxdh
strusername=trim(request("username"))
struserpass=trim(request("userpass"))
strxlh=trim(request("xlh"))
strxh=trim(request("xh"))
strxdh=trim(request("xdh"))
strno=trim(request("no"))

if strusername="housesoft" and struserpass="welcome" then
	sql="select * from zu where jhh='" & strno & "'"
	adata rs,sql
	if not(rs.eof) then
		sql="select * from fu where xlh='" & strxlh & "' and xh='" & strxh & "' and xdh='" & strxdh & "' and id='" & rs("id") & "'"
		adata rs1,sql
		if not(rs1.eof) then
			response.write "ok"
		else
			sql="select * from fu where id='" & rs("id") & "'"
			adata rs2,sql
			if rs2.recordcount>=cint(rs("times")) then
				response.write "此序列號已經在" & rs("times") & "臺計算機上安裝并激活此系統了，此次激活已無效！" & vbcrlf
				response.write "請重新輸入新的激活序列號！" & vbcrlf
			else
				sql="insert into fu (xlh,xh,xdh,id) values ('" & strxlh & "','" & strxh & "','" & strxdh & "','" &  rs("id") & "')"
				adata rs3,sql
				response.write "ok"
			end if
			rs2.close
		end if
		rs1.close
	else
		response.write "序列號錯誤，請重新輸入后再次激活！"
	end if
	rs.close
	set conn=nothing
	'response.write "激活序列號:" & strno & vbcrlf
	'response.write "序列號:" & strxlh & vbcrlf
	'response.write "型號:" & strxh & vbcrlf
	'response.write "修訂號:" & strxdh & vbcrlf
else
	response.write "驗證不通過！"
end if
%>