微信扫码签到系统asp源码2.0示例

asp写的微信扫码签到系统，代码简单。
不管是工作会议，还是员工活动，每次集会基本都需要签到。传统的纸质签到效率低下，找名字费时，排队费时，更可怕的是好不容易轮到了你，却发现你的名字在隔壁人堆里那张纸上。
此代代码的功能是，集会现场只需贴出一个二维码，成员打开表单扫一扫直接签到。提交的签到数据还可以直接生成报表，后期统计一步到位。

<% if request("action")="" then %>
<div class="content">
	<div class="hy_100">
	<!--start-->
<%
'查查在库中有没有
sqlfg="select * from yuyue where openid='"&newopenid&"'"
set rsfg=conn.execute (sqlfg)
if not rsfg.eof then'已经有了
%>
<div class="hytx">
	<img src="<%=rsfg("hypic")%>" style="border-radius:50%" width="60" height="60" border="0">
	<p><%=rsfg("hyname")%></p>
	<p><b>签到时间</b></p>
	<p><span><%=rsfg("qd_date")%></span></p>
</div>
<% else %>
<div class="qiandao">
<form name="form1" action="?action=save" method="post">
<input name="userID" type="hidden" value="<%=newuserID%>">
<input name="wx_name" type="hidden" value="<%=newname%>">
<input name="hyname" type="hidden" value="<%=newwxname%>">
<input name="hypic" type="hidden" value="<%=newwxpic%>">
<input name="openid" type="hidden" value="<%=newopenid%>">
<input type="submit" name="Submit" value="签到" class="bnt_save"></dl>
</form>
</div>
<%
end if
rsfg.close
set rsfg=nothing
'查有没有结束
%>
	<!--end-->
	</div>
</div>
<%
conn.close
set conn=nothing
%>
<% elseif request("action")="save" then%>
<%
userID=request.Form("userID")
wx_name=request.Form("wx_name")
hyname=request.Form("hyname")
hypic=request.Form("hypic")
qd_date=now()
openid=request.Form("openid")

Values = Array(userID,wx_name,hyname,hypic,qd_date,openid)
Sql = "Insert Into [yuyue](userID,wx_name,hyname,hypic,qd_date,openid) values(?,?,?,?,?,?)"
call SqlHelper(Sql,Values)

conn.close
set conn=nothing
call infoopen("签到成功","index.asp")
%>
<% end if %>