📄 week_mod.asp
字号:
<!--#include file="include/conn.asp"-->
<%
response.Clear()
id=request.QueryString("id")
myActionStr="添加"
if id<>"" then
usql="select * from Taweeks where 序号="&id
set urs=server.CreateObject("adodb.recordset")
urs.open usql,conn,1,1
if not urs.eof then
id=urs("序号")
WeekCode=urs("星期代号")
WeekName=urs("星期名称")
updatetime=now()
end if
urs.close
set urs=nothing
myActionStr="更新"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理机票系统</title>
<link href="include/css.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=javascript>
<!--
function isWeekCode(s)
{
var patrn=/^[a-zA-Z]{2,6}$/;
if (!patrn.exec(s))
return false;
else
return true;
}
/*function isenglishcity(s)
{
var patrn=/^[0-9a-zA-Z]{0,50}$/;
if (!patrn.exec(s))
return false;
else
return true;
}*/
function checkinput()
{
if (!isWeekCode(ZXLform.WeekCode.value)){
alert("星期代号不规范！必须为字母，不区分大小写；\n");
ZXLform.WeekCode.focus();
return false;
}
if (ZXLform.WeekName.value=="")
{
alert("星期名称不能为空!");
ZXLform.WeekName.focus();
return false;
}
/*if (!isenglishcity(ZXLform.englishcity.value)){
alert("公司英文名不规范！必须为字母或数字，不区分大小写；\n");
ZXLform.englishcity.focus();
return false;
}*/
return true;
//-->
}
</SCRIPT>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<table width="770" height="203" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=1 bgcolor="#999999" id=TABLE1 style="FONT-SIZE: 9pt">
<form name="ZXLform" action="week_mod.asp" method="post" onsubmit="return checkinput();">
<TR bgColor=#C3E7F9>
<TH width="203" height="30">星期代号 </TH>
<TH width="215" height="30"> 星期名称</TH>
<TH width="182">更新时间</TH>
</TR>
<TR bgcolor="#FFFFFF" >
<TD height="25" align=center>
<%if id="" then%>
<input type="hidden" name="MyAction" value="AddNew">
<%end if%>
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="myActionStr" value="<%=myActionStr%>">
<input name="WeekCode" type="text" value="<%=WeekCode%>" size="10" maxlength="10"> </TD>
<TD height="25"><div align="center">
<input name="WeekName" type="text" value="<%=WeekName%>" size="15" maxlength="10">
</div> </TD>
<TD height="25" nowrap><div align="center">
<%if id<>"" then%>
<%=Updatetime%>
<input name="Updatetime" type="hidden" value="<%=Updatetime%>" size="10">
<%else%>
<%=now()%>
<input name="Updatetime" type="hidden" value="<%=date()%>" size="10">
<%end if%>
</div></TD>
</TR>
<TR bgColor=#EEEEEE>
<TH height="30" colspan="4">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="48%" height="25" align="right">
<input type="submit" name="AddNow" value="确认">
<input type="button" value="返回" name="CancelRow" onClick="javascript:window.location.href='week.asp';">
</td>
</tr>
</table></TH>
</TR>
</form>
</TABLE></td>
</tr>
</table>
</body>
</html>
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
set rs=server.createobject("adodb.recordset")
MyAction=request.form("MyAction")'标志变量，判断是更新还是添加
myActionStr=request.form("myActionStr")
id=request.form("id")
WeekCode=request.form("WeekCode")
WeekName=request.form("WeekName")
updatetime=request.form("updatetime")
'----------------执行更行
if MyAction<>"AddNew" then
sql="select * from TAWeeks where 序号="&id
rs.open sql,conn,1,3
rs("星期代号")=WeekCode
rs("星期名称")=WeekName
rs("updatetime")=updatetime
rs.update
else
sqlid="select distinct max(序号) as id from Taweeks"
set rsid=conn.execute(sqlid)
id=rsid("id")
if id="" then
id=1
else
id=id+1
end if
sql="select * from Taweeks"
rs.open sql,conn,1,3
rs.addnew
rs("序号")=id
rs("星期代号")=WeekCode
rs("星期名称")=WeekName
rs("updatetime")=updatetime
rs.update
end if
rs.close:set rs=nothing
response.write"<script language=javascript>alert('记录已经"&myActionStr&"成功!\n');window.location.href='week_mod.asp';</script>"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -