📄 plan.asp
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "b"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Date.asp"-->
<!--#include file="../../inc/RightsForOne.asp"-->
<%
ID=trim(request("ID"))
LoginName=Session("LoginName")
If RightsForOne(ID,LoginName)<3 Then
Response.Write "<Script Language='JavaScript'>"
Response.Write "alert('你没有编辑此项目的权限');"
Response.Write "self.close();"
Response.Write "</Script>"
Response.End
End If
%>
<html>
<head>
<title>修改投资情况</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet href="../css/main.css" type="text/css">
</head>
<%
set rs=server.createobject("adodb.recordset")
if trim(request("Del"))="1" then
conn.execute("delete from tblPlan where ID="&trim(request("FID")))
response.redirect("Plan.asp?typet="&typet&"&ID="&trim(request("ID")))
end if
if trim(request("submit"))="确 定" then
FID=trim(request("FID"))
Name=replace(trim(request("Name")),"'","''")
ThisYear=trim(request("ThisYear"))
Money=trim(request("Money"))
if Money="" then
Money=0
end if
Content=request("Content")
ShangbaoUnit=trim(request("ShangbaoUnit"))
ShangbaoNo=replace(trim(request("ShangbaoNo")),"'","''")
ShangbaoTime=replace(trim(request("ShangbaoTime")),"'","''")
ShenpiUnit=replace(trim(request("PlanUnit")),"'","''")
ShenpiNo=replace(trim(request("PlanNo")),"'","''")
ShenpiTime=replace(trim(request("PlanTime")),"'","''")
InputDate=replace(trim(request("InputDate")),"'","''")
InputTime=now()
if trim(request("FID"))="0" then
rs.open "select * from tblPlan where ID is NULL",conn,1,2
rs.addnew
rs("ProjectID")=ID
rs("Name")=Name
rs("ThisYear")=ThisYear
rs("Money")=Money
rs("Content")=Content
rs("ShangbaoUnit")=ShangbaoUnit
rs("ShangbaoNo")=ShangbaoNo
rs("ShangbaoTime")=ShangbaoTime
rs("ShenpiUnit")=ShenpiUnit
rs("ShenpiNo")=ShenpiNo
rs("ShenpiTime")=ShenpiTime
rs("InputDate")=InputDate
rs("InputTime")=InputTime
rs.update
rs.close
response.write " 添加成功！ <a href=# onclick='javascript:window.close();'>[关闭窗口]</a> "
else
rs.open "select * from tblPlan where ID="&FID,conn,1,2
rs("Name")=Name
rs("ThisYear")=ThisYear
rs("Money")=Money
rs("Content")=Content
rs("ShangbaoUnit")=ShangbaoUnit
rs("ShangbaoNo")=ShangbaoNo
rs("ShangbaoTime")=ShangbaoTime
rs("ShenpiUnit")=ShenpiUnit
rs("ShenpiNo")=ShenpiNo
rs("ShenpiTime")=ShenpiTime
rs.update
rs.close
response.write " 修改成功！ <a href=# onclick='javascript:window.close();'>[关闭窗口]</a> "
end if
end if
rs.open "select Name from tblBase where ID="&ID,conn,1,1
if not rs.eof then
ProjectName=trim(rs("Name"))
end if
rs.close
rs.open "select * from tblPlan where ProjectID="&ID,conn,1,1
if not rs.eof then
reTotal=rs.recordcount
end if
if trim(request("num"))="" then
num=1
else
num=trim(request("num"))
end if
for i=1 to num-1
if not rs.eof then
rs.movenext
end if
next
FID=0
if trim(request("new"))<>"1" then
if not rs.eof then
FID=rs("ID")
Name=trim(rs("Name"))
ThisYear=trim(rs("ThisYear"))
Money=trim(rs("Money"))
Content=rs("Content")
ShangbaoUnit=trim(rs("ShangbaoUnit"))
ShangbaoNo=trim(rs("ShangbaoNo"))
ShangbaoTime=trim(rs("ShangbaoTime"))
ShenpiUnit=trim(rs("ShenpiUnit"))
ShenpiNo=trim(rs("ShenpiNo"))
ShenpiTime=trim(rs("ShenpiTime"))
InputDate=trim(rs("InputDate"))
InputTime=trim(rs("InputTime"))
end if
end if
rs.close
if ThisYear="" then
ThisYear=year(now())
end if
for j=1 to reTotal
if j=cint(num) then
response.write "  <a href='Plan.asp?typet="&typet&"&ID="&ID&"&num="&j&"'><font color=red>["&j&"]</font></a>"
else
response.write "  <a href='Plan.asp?typet="&typet&"&ID="&ID&"&num="&j&"'>["&j&"]</a>"
end if
next
if cint(FID)<>0 then
response.write " <a href='Plan.asp?typet="&typet&"&ID="&ID&"&FID="&FID&"&Del=1'>删除当前记录</a>"
end if
response.write " <a href='Plan.asp?typet="&typet&"&ID="&ID&"&new=1'>添加新记录</a>"
%>
<BODY bgcolor="#FFCC33" leftmargin=0 topmargin=5>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="SubmitForm" method="post" action="Plan.asp">
<tr>
<td valign="middle" align="center" style="border-left:1 solid #0047b0;border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<input type="hidden" name="ID" value="<%=ID%>">
<input type="hidden" name="FID" value="<%=FID%>">
<input type="hidden" name="num" value="<%=num%>">
<input type="hidden" name="typet" value="<%=typet%>">
<input type=hidden name=Content1 value='<%=Content%>'>
<tr valign="middle" align="left">
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">项目名称</td>
<td colspan=3 align="left" style="border-bottom:1 solid #0047b0"> <%=ProjectName%></td>
</tr>
<tr valign="middle" align="left">
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">名称</td>
<td colspan=3 align="left" style="border-bottom:1 solid #0047b0"><input type=text name=Name value="<%=Name%>" size=56></td>
</tr>
<tr>
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">当年年份</td>
<td width=160 align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><input type=text name=ThisYear value="<%=ThisYear%>" size=21></td>
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">当年投资计划</td>
<td width=160 align="left" style="border-bottom:1 solid #0047b0"><input type=text name=Money value="<%=Money%>" size=15>(万元)</td>
</tr>
<tr>
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">当年考核形象<br>进度目标</td>
<td colspan=3 align="left" style="border-bottom:1 solid #0047b0"><textarea name=Content rows=3 cols=55><%=Content%></textarea></td>
</tr>
<tr valign="middle" align="left">
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">上报单位</td>
<td width=160 align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><input type=text name=ShangbaoUnit value="<%=ShangbaoUnit%>" size=21></td>
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">上报文号</td>
<td width=160 align="left" style="border-bottom:1 solid #0047b0"><input type=text name=ShangbaoNo value="<%=ShangbaoNo%>" size=21></td>
</tr>
<tr valign="middle" align="left">
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">上报时间</td>
<td colspan=3 align="left" style="border-bottom:1 solid #0047b0"><input type=text name=ShangbaoTime value="<%if ShangbaoTime<>"" then%><%=ShangbaoTime%><%else%><%=date1%><%end if%>" size=21></td>
</tr>
<tr valign="middle" align="left">
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">审批单位</td>
<td width=160 align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><input type=text name=ShenpiUnit value="<%=ShenpiUnit%>" size=21></td>
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">审批文号</td>
<td width=160 align="left" style="border-bottom:1 solid #0047b0"><input type=text name=ShenpiNo value="<%=ShenpiNo%>" size=21></td>
</tr>
<tr valign="middle" align="left">
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">审批时间</td>
<td colspan=3 align="left" style="border-bottom:1 solid #0047b0"><input type=text name=ShenpiTime value="<%if ShenpiTime<>"" then%><%=ShenpiTime%><%else%><%=date1%><%end if%>" size=21></td>
</tr>
<tr valign="middle" align="left">
<td width=89 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">数据录入时间</td>
<td colspan=3 align="left" style="border-bottom:1 solid #0047b0"><%if InputDate<>"" then%> <%=InputDate%> <%else%> <%=date2%><input type=hidden name=InputDate value="<%=date2%>"><%end if%></td>
</tr>
<tr align="center" valign="middle">
<td colspan="2" valign="middle" align="center">
<INPUT TYPE="submit" name="submit" onclick="return checkDate();" value="确 定">
<input type="reset" name="exit" value="重 写">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<script language="JavaScript">
function checkDate(){
s=document.SubmitForm.Money.value
if(s!==''){
dot=0
for(i=0;i<s.length;i++){
if(s.charAt(i)>'9'){
alert("请输入正确的数字。");
return false;
}
else{
if(s.charAt(i)<'0'){
if(s.charAt(i)=='.'){
dot=dot+1
if(dot>1){
alert("请输入正确格式的数字。");
return false;
}
}
if(s.charAt(i)!='.'){
alert("请输入正确的数字。");
return false;
}
}
}
}
}
}
</script>
</BODY>
</HTML>
<!--#include file="../inc/close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -