?? main.asp
字號:
If (isEnd = 1) Then
Exit Do
End If
m = m + 1
Loop
curYear = 1921 + m
curMonth = k - n + 1
curDay = TheDate
If (k = 12) Then
If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then
curMonth = 1 - curMonth
ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then
curMonth = curMonth - 1
End If
End If
'生成農(nóng)歷天干、地支、屬相 ==> NongliStr
NongliStr = "農(nóng)歷" & TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12) & "年"
NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ")"
'生成農(nóng)歷月、日 ==> NongliDayStr
If (curMonth < 1) Then
NongliDayStr = "閏" & MonName(-1 * curMonth)
Else
NongliDayStr = MonName(curMonth)
End If
NongliDayStr = NongliDayStr & "月"
NongliDayStr = NongliDayStr & DayName(curDay)
if nowchu="1" then
WDateToEDate = curMonth
elseif nowchu="2" then
WDateToEDate = curDay
end if
End Function
%>
<%
if session("username")="" then
response.Redirect "login.asp"
end if
%>
<!-- #include file="conn.asp" -->
<!-- #include file="const.asp" -->
<html>
<head>
<title><%=dianming%> - 系統(tǒng)管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function about() {
showModalDialog('about/about.htm',window,'dialogHeight:250px;dialogWidth:360px;dialogleft:200px;help:no;status:no;scroll:no');
}
function menu(t){
var aChildren = eval("lMenu");
for(i=0; i < aChildren.length; i++) {
aChildren[i].className = t;
}
}
function tick() {
var hours, minutes, seconds;
var intHours, intMinutes, intSeconds;
var today;
today = new Date();
intHours = today.getHours();
intMinutes = today.getMinutes();
intSeconds = today.getSeconds();
if (intHours == 0) {
hours = "00:";
} else if (intHours < 10) {
hours = "0" + intHours+":";
} else {
hours = intHours + ":";
}
if (intMinutes < 10) {
minutes = "0"+intMinutes+":";
} else {
minutes = intMinutes+":";
}
if (intSeconds < 10) {
seconds = "0"+intSeconds+" ";
} else {
seconds = intSeconds+" ";
}
timeString = hours+minutes+seconds;
Clock.innerHTML = timeString;
window.setTimeout("tick();", 1000);
}
window.onload = tick;
//-->
</script>
</head>
<body oncontextmenu="return false">
<%
sql="select * from produit"
set rs_produit=conn.execute(sql)
nowbaojin=""
do while rs_produit.eof=false
sql="select * from produit where huohao='"&rs_produit("huohao")&"'"
set rs_shulian=conn.execute(sql)
nowshulian=0
do while rs_shulian.eof=false
nowshulian=nowshulian+rs_shulian("shulian")
rs_shulian.movenext
loop
if nowshulian<rs_produit("baojin") then
nowbaojin=nowbaojin&"<tr bgcolor=#ececec onMouseOver=this.bgColor='#ffffff' onMouseOut=this.bgColor='#ececec'><td align=center height=25>"&rs_produit("title")&"</td><td>"&rs_produit("huohao")&"</td><td>"&nowshulian&"</td></tr>"
end if
rs_produit.movenext
loop
sql="select * from huiyuan where (month(shenri)="&month(date())&" and day(shenri)="&day(date())&" and year(wenhou)<>"&year(date())&" and yinyan='陽') or (month(shenri)="&WDateToEDate(now(),"1")&" and day(shenri)="&WDateToEDate(now(),"2")&" and year(wenhou)<>"&year(date())&" and yinyan='陰')"
set rs_baojin2=conn.execute(sql)
if nowbaojin<>"" and baojin="yes" then
%>
<script language="javascript">
window.open('baojin.asp','庫存報警','width=895,height=253,top=142,left=115,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes');
</script>
<%
end if
if rs_baojin2.eof=false and baojin2="yes" then
%>
<script language="javascript">
window.open('baojin2.asp','會員生日報警','width=895,height=250,top=395,left=115,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes');
</script>
<%
end if
%>
<SCRIPT src="js/myjs.js" language="JavaScript"></SCRIPT>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="112" height="26"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="24" align="center"><a href="http://www.7fbbs.com" target="_blank"><font size="+1" face="Arial Black" color="#5858E6">7FBBS</font></a></td>
</tr>
</table></td>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="TableMenu">
<tr>
<td width="6" height="24" align="center"><img src="images/Menu_Line2.gif" hspace="2"></td>
<td width="80"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" nowrap class="coolbutton" name="r1" buttontype="radio" onClick="ListMenu(1);" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/menu_img_1.gif" width="14" height="14" hspace="2" align="absmiddle">入庫管理</td>
</tr>
</table></td>
<td width="80"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" nowrap class="coolbutton" name="r1" buttontype="radio" onClick="ListMenu(2);" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/menu_img_2.gif" width="14" height="14" hspace="2" align="absmiddle">庫存管理</td>
</tr>
</table></td>
<td width="80"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" nowrap class="coolbutton" name="r1" buttontype="radio" onClick="ListMenu(3);" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/menu_img_3.gif" width="14" height="14" hspace="2" align="absmiddle">出庫管理</td>
</tr>
</table></td>
<td width="80"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" nowrap class="coolbutton" name="r1" buttontype="radio" onClick="ListMenu(12);" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/new.gif" width="14" height="14" hspace="2" align="absmiddle">統(tǒng)計報表</td>
</tr>
</table></td>
<td width="80"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" nowrap class="coolbutton" name="r1" buttontype="radio" onClick="ListMenu(8);" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/menu_img_4.gif" width="14" height="14" hspace="2" align="absmiddle">會員管理</td>
</tr>
</table></td>
<td width="80"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" nowrap class="coolbutton" name="r1" buttontype="radio" onClick="ListMenu(5,4,9,10,11,6);" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/menu_img_5.gif" width="14" height="14" hspace="2" align="absmiddle">系統(tǒng)設(shè)置</td>
</tr>
</table></td>
<td width="13" height="24" align="right" background="images/Menu_Line1.gif"><img src="images/Menu_Line2.gif" hspace="2"></td>
<td width="50"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" class="coolbutton" nowrap onClick="OfficeMain.history.go(-1);" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/back.gif" width="14" height="14" hspace="2" align="absmiddle">后退</td>
</tr>
</table></td>
<td width="50"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" class="coolbutton" nowrap onClick="OfficeMain.history.go(1);" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/forward.gif" width="14" height="14" hspace="2" align="absmiddle">前進</td>
</tr>
</table></td>
<td width="50"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" class="coolbutton" nowrap onClick="OfficeMain.location.reload();" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/ref.gif" width="16" height="16" hspace="2" align="absmiddle">刷新</td>
</tr>
</table></td>
<td width="13" height="24" align="right" background="images/Menu_Line1.gif"><img src="images/Menu_Line2.gif" hspace="2"></td>
<td width="20"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" class="coolbutton" onClick="OfficeMain.location.href='Desk.asp';" nowrap title="桌面" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="Images/desktop.gif" width="16" height="16" hspace="2" align="absmiddle"></td>
</tr>
</table></td>
<td width="20"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" class="coolbutton" onClick="if (this.value){menu('hidden');}else{menu('');}" id="b2" nowrap buttontype="radio" value="true" title="顯示/隱藏菜單" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/menu_img_6.gif" width="14" height="14" hspace="2" align="absmiddle"></td>
</tr>
</table></td>
<td width="13" height="24" align="right" background="images/Menu_Line1.gif"><img src="images/Menu_Line2.gif" hspace="2"></td>
<td width="50"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" class="coolbutton" onClick="about();" nowrap title="關(guān)于系統(tǒng)" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/menu_img_7.gif" width="14" height="14" hspace="2" align="absmiddle">關(guān)于</td>
</tr>
</table></td>
<%if request("w")<>1 then%>
<td width="50" > <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" nowrap class="coolbutton" onClick="if (confirm('你確定要退出系統(tǒng)嗎？')){window.location.href='exit.asp';}" title="退出系統(tǒng)" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#D6D3CE'" style="cursor:hand"><img src="images/menu_img_8.gif" width="14" height="14" hspace="2" align="absmiddle">退出</td>
</tr>
</table></td>
<%end if%>
<td width="13" height="24" align="right" background="images/Menu_Line1.gif"><img src="images/Menu_Line2.gif" hspace="2"></td>
<td> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="110" id="lMenu"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" nowrap class="HollowField" id="NavMenu"></td>
</tr>
</table>
<script>ListMenu(1);</script> </td>
<td valign="top" nowrap class="HollowField" style="height:expression(document.body.offsetHeight-65)"><iframe src="Desk.asp" name="OfficeMain" width="100%" height="100%" scrolling="yes" marginwidth=0 marginheight=0 frameborder=0 vspace=0 hspace=0 ></iframe>
<%
Response.Write "<span class=""hidden""><iframe name=""getinfo""></iframe><iframe name=""getinfo1""></iframe></span>"
%> </td>
</tr>
<tr>
<td width="110" id="lMenu"><table width="100%" border="0" cellspacing="0" cellpadding="0" class="TableMenu">
<tr>
<td height="26" align="center"><font color="#333333"> </font><span id="Clock"></span></font></td>
</tr>
</table></td>
<td height="28" align="right" valign="top" nowrap><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><table width="100%" border="0" cellspacing="0" cellpadding="1" class="TableMenu">
<tr>
<td height="26" align="center"><font color="#0000FF">歡迎您:<span id="username"><%=session("username")%></span>
<font color="#999999">您的登錄時間:<%=Now%></font></font></td>
</tr>
</table></td>
<td align="right"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"> <span disabled style="font-size:9pt;">程序開發(fā)：石頭<br>
QQ：365167311 E-mail：chinashiwei007@yahoo.com.cn</span></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -