📄 mygojoin.asp
字号:
<!--#include file="include/Pubconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<%
username=trim(Request.Form("username"))
password=trim(Request.Form("password"))
set AdoRs=Server.CreateObject("AdoDB.RecordSet")
lcsql="select * from A_Stuffinfo where delflag<>'1' and username='"+username+"' and password='"+password+"'"
AdoRS.Open lcSql,PubConn
if not AdoRs.Eof and username<>"" then '是正确的用户
Session("username")=username
Session("UserID")=AdoRs("StuffNum") '员工编号
Session("StuffName")=AdoRs("Name") '员工姓名
Session("DepartID")=AdoRS("DepartCode")
Session("oldpass")=AdoRS("password")%>
<script language="vbScript">
w=window.screen.availWidth
h=window.screen.availHeight
window.open "frame.asp","teddy","width="&w&",height="&h&",top=0,left=0,resizable=0,scrollbars=no"
</script>
<%
else%>
<script language="vbScript">
msgbox "请输入正确的用户名和密码！"
window.location="default.asp"
</script>
<%end if
AdoRs.Close()
'PubConn.Close()
'******************************以下处理为每次刷新库存
'获取当前系统日期
curyear=year(date())
Tmonth=month(date())
Tdate=day(date())
if Tmonth<10 then
curmonth="0"&Tmonth
else
curmonth=Tmonth
end if
if Tdate<10 then
curdate="0"&Tdate
else
curdate=Tdate
end if
m_date=curyear&"-"&curmonth&"-"&curdate
set rskc=Server.CreateObject("AdoDB.RecordSet")
sql="select * from TblsysckspNowDay order by rec_id desc"
rskc.open sql,pubconn,1,3
if rskc.recordcount>0 then
for i=1 to rskc.recordcount
if rskc("rq")<>m_date then
rskc("rq")=m_date
rskc.update
'else
' response.write "已刷新了！"
end if
rskc.movenext
if rskc.eof then exit for
next
end if
'*******************************************************
%>
<title>欢迎使用嘉胜进销存系统</title>
<body>
<br><br>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="603" height="214">
<tr>
<td align="left" bgcolor="#EDEBEC" background="pic/Admin_Top.gif"></td>
</tr>
<tr>
<td align="left" height="126" bgcolor="#EDEBEC" background="pic/Admin_Top.gif"> <p align="center"> </p>
<p align="center"><font face="方正粗圆简体" color="#000080">嘉胜进销存管理程序</font></td>
</tr>
<tr>
<td align="left" bgcolor="#EDEBEC" background="pic/Admin_Bg.gif">
<p align="center"><font color="#AF9A73" size="2">版权所有:©厦门</font><font face="方正粗圆简体" color="#AF9A73" size="2">嘉胜</font><font color="#AF9A73" size="2">软件有限公司 </font></td>
</tr>
<tr>
<td align="left" bgcolor="#EDEBEC" background="pic/Admin_Bg.gif">
<p align="center"><font color="#AF9A73" size="2">电话:0592-8017435</font></td>
</tr>
<tr>
<td align="left" bgcolor="#EDEBEC" background="pic/Admin_Bg.gif"> </td>
</tr>
<tr>
<td align="left" bgcolor="#EDEBEC" background="pic/Admin_Bg.gif">
<p align="center"><font color="#AF9A73" size="2">网址:</font><font size="2"><a href="http://www.ldxm.com/bs/">http://www.ldxm.com</a></font></td>
</tr>
<tr>
<td align="left" bgcolor="#EDEBEC" background="pic/Admin_Bg.gif"> </td>
</tr>
<tr>
<td align="left" bgcolor="#EDEBEC" background="pic/Admin_Bg.gif">
<p align="center"><font color="#AF9A73">QQ:57986496</font></td>
</tr>
<tr>
<td align="left" bgcolor="#EDEBEC" background="pic/Admin_Bg.gif">
<p align="center"><font color="#AF9A73" size="2">E-mail:</font><font size="2"><a href="mailto:manyxm@163.com">manyxm@163.com</a></font></td>
</tr>
<tr>
<td width="603" align="left" bgcolor="#EDEBEC">
<table border="0" cellspacing="0" cellpadding="4" id="table1" width="605" height="80">
<tr>
<td background="pic/Admin_Bg.gif"><div align="center">
<a href="javascript:window.close()"><img src="pic/close.gif" border="0" width="60" height="24"></a>
</div></td>
</tr>
<tr>
<td background="pic/Admin_Bottom.gif"> </td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -