📄 yongjintime.asp
字号:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>
<%dim action
action=request.QueryString("action")
'//保存信息
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select year1,year2,month1,month2,day1,day2 from shop_config ",conn,1,3
rs("year1")=request("year1")
rs("year2")=request("year2")
rs("month1")=request("month1")
rs("month2")=request("month2")
rs("day1")=request("day1")
rs("day2")=request("day2")
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('网站资料修改成功！');history.go(-1);</script>"
end if%>
<html><head><title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" method="post" action="yongjintime.asp?action=save">
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select year1,year2,month1,month2,day1,day2 from shop_config",conn,1,1%>
<tr>
<td colspan="2" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">佣金时间设置</font></b></td>
</tr>
<tr bgcolor="#E8F1FF">
<td colspan="2"><table width="400" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td>开始日期：</td>
<td><select name="year1" size="1">
<option value="<%=rs("year1")%>"><%=rs("year1")%></option>
<%for i=2003 to 2100%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
年
<select name="month1" size="1">
<option value="<%=rs("month1")%>"><%=rs("month1")%></option>
<%for i=1 to 12%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
月
<select name="day1" size="1">
<option value="<%=rs("day1")%>"><%=rs("day1")%></option>
<%for i=1 to 31%>
<option value="<%=i%>" ><%=i%></option>
<%next%>
</select>
日 </td>
</tr>
<tr>
<td width="70">结束日期：</td>
<td width="278"><select name="year2" size="1">
<option value="<%=rs("year2")%>"><%=rs("year2")%></option>
<%for i=2004 to 2100%>
<option value="<%=i%>" ><%=i%> </option>
<%next%>
</select>
年
<select name="month2" size="1">
<option value="<%=rs("month2")%>"><%=rs("month2")%></option>
<%for i=1 to 12%>
<option value=<%=i%> ><%=i%> </option>
<%next%>
</select>
月
<select name="day2" size="1">
<option value="<%=rs("day2")%>"><%=rs("day2")%></option>
<%for i=1 to 31%>
<option value=<%=i%> ><%=i%> </option>
<%next%>
</select>
日 </td>
</tr>
</table> </td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="30%"></td>
<td width="70%" style="PADDING-LEFT: 10px">
<input type="submit" name="Submit" value=" 修改保存 ">
<input type="reset" name="Submit2" value=" 重新添写 ">
</td>
</tr>
</form>
</table>
<%rs.Close
set rs=nothing
%>
<!--#include file="copyright.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -