look.asp

易语言写的网络验证,可以用于软件注册.不过封包部分没有加密.

<%
DBPath=Server.MapPath("/database#.asp") 
set conn=Server.CreateObject("ADODB.Connection") 
connstr="provider=microsoft.jet.oledb.4.0;data source=" & DBPath 
conn.open connstr

action=Trim(Request.QueryString("action"))
If action="now" Then
	response.write Now
ElseIf action="chk" Then
	Num=Trim(Request.QueryString("num"))
	Num=Replace(Num,"'","")
	Num=Replace(Num,"and","")
	Num=Replace(Num,"or","")
	Num=Replace(Num," ","")
	If Num<>"" Then
		sql="select * from Data where Num='" & Num & "'"
		set rs=conn.execute(sql)
		If Not rs.eof Then
			response.write rs("EndDate")
		Else
			response.write "错误：没有此用户！"
		End If
		rs.close
	Else
		response.write "错误：错误的编号！"
	End If
ElseIf action="view" Then
	PassWord=Trim(Request.Form("password"))
	If PassWord="" and Session("go")<>"on" Then
		Response.Write "<form action=look.asp?action=view method=post>" _
		& "请输入查看的密码：" _
		& "<input type=password name=password>" _
		& "<input type=submit value=""进入"">" _
		& "</form>"
	ElseIf PassWord="123123" or Session("go")="on" Then
		Session("go")="on"
		sql="select * from Data"
		set rs=conn.execute(sql)
%>
<table width=100% bgcolor=#0099ff>
	<tr>
	<td>ID</td>
	<td>机器码</td>
	<td>使用结束时间</td>
	<td>操作</td>
	</tr>
<%
		If Not rs.eof Then
		While Not rs.eof
%>
	<tr>
	<td><%=rs(0)%></td>
	<td><%=rs(1)%></td>
	<td><%=rs(2)%></td>
	<td><a href="look.asp?action=add&Num=<%=rs("Num")%>">编辑</a> <a href="look.asp?action=delete&ID=<%=rs(0)%>">删除</a></td>
	</tr>
<%
		rs.MoveNext
		Wend
%>
</table>
<%
		Else
%>
	<tr><td>暂时没有用户</td></tr>
<%
		End If
%>
</table>
<p><a href="look.asp?action=add">添加</a></p>
<%
	Else
%>
<script>alert("密码错误！请重试！");history.back();</script>
<%
	End If
ElseIf action="add" Then
	Num2=Trim(Request.QueryString("num"))
	Num2=Replace(Num2,"'","")
	Num2=Replace(Num2,"and","")
	Num2=Replace(Num2,"or","")
	Num2=Replace(Num2," ","")
	Num=Trim(Request.Form("num"))
	Num=Replace(Num,"'","")
	Num=Replace(Num,"and","")
	Num=Replace(Num,"or","")
	Num=Replace(Num," ","")
	EndDate=Trim(Request.Form("enddate"))
	EndDate=Replace(EndDate,"'","")
	EndDate=Replace(EndDate,"and","")
	EndDate=Replace(EndDate,"or","")
	EndDate=Replace(EndDate," ","")
	If Num<>"" and EndDate<>"" Then
		sql="select Num from Data where Num='" & Num & "'"
		set rs=conn.execute(sql)
		If rs.eof Then
			sql="insert into Data (Num,EndDate) VALUES('" & Num & "','" & EndDate & "')"
			conn.execute sql
		Else
			sql="update Data set EndDate='" & EndDate & "' where Num='" & Num & "'"
			conn.execute sql
		End If
%>
添加成功！<a href="javascript:location.href='look.asp?action=view';">返回</a>
<%
	Else
%>
<form action="look.asp?action=add" method=post>
<p>请输入机器码：<input type=text name=num value="<%=Num2%>"></p>
<p>请输入结束日期：<input type=text name=enddate value="2008-8-8"></p>
<p><input type="submit" value="添加"></p>
</form>
<%
	End If
ElseIf action="delete" Then
		ID=CInt(Trim(Request.QueryString("ID")))
		sql="delete from Data where ID=" & ID
		conn.execute sql
%>
删除成功！<a href="javascript:location.href='look.asp?action=view';">返回</a>
<%
End If
conn.close
set conn=nothing
%>