index.asp

读取磁盘序列号 读取磁盘序列号 读取磁盘序列号

<!--#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
%>