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