<%
Dim Recordset1__MMColParamSession
Recordset1__MMColParam = "1"
If (Session("MM_Username") <> "") Then
Recordset1__MMColParam = Session("MM_Username")
End If
dim sql
sql="select sign_note FROM dbo.sign WHERE employee_id=" + Replace(Recordset1__MMColParam, "'", "''") + "AND DateDiff(dd,sign_in,getDate())=0"
if sql<>"" then
Response.Write "<script>alert('你已经签到过了！');location.href='jr_qd.asp';</script>"
else
end if
%>