📄 scrap.asp
字号:
<%
pathlevel="../"
%>
<!--#include file="../database/conn.asp" -->
<!--#include file="../share/checkinput.asp" -->
<!--#include file="../share/checklogin.asp" -->
<script language="javascript">
function del(id,sid,item_id)
{
if(window.confirm("确定要删除此项目吗？"))
{
mystring="del.asp?id="+id+"&sid="+sid+"&item_id="+item_id
setTimeout('location.href=mystring',1)
location.href=mystring
}
}
</script>
<%
mess=request("mess")
select case mess
case 1
message="请输入报废原因"
case 2
message="请输入审批结果"
case 3
message="请输入负责人姓名"
case 4
message="数据出错！"
case 10
message="添加成功！"
case 11
message="修改成功！"
end select
%>
<table width="100%" border="0" valign=top cellpadding="0" cellspacing="0">
<tr>
<td height="25" valign="middle" bgcolor="#C8E0FB"> <span class="redfont"><strong>设备报废信息库</strong></span></td>
</tr>
<tr>
<form action="index.asp?id=<%=id%>&sid=<%=sid%>" method="post" name="myform" id="myform" onSubmit="return checkinput()">
<td height="36" valign=middle class=blackfont>
报废设备编号：<input name="query_eq_id" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="" maxlength="20">
报废设备名称：<input name="query_eq_name" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="" maxlength="20">
负责人姓名：<input name="query_principal_name" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="" maxlength="20">
<input type="submit" name="Submit" value="查 询"><span class=redfont> ( 输入关键字查询 )</span>
</td>
</form>
</tr>
<tr>
<td height="2" valign="middle" bgcolor="#666666"></td>
</tr>
<tr>
<td height=200 valign="top" bgcolor="#C8E0FB">
<table width="100%" border="0" valign=top align="center" cellpadding="0" cellspacing="0" bgcolor="#f0f0f0" class="blackfont">
<tr bgcolor="#8CBDFF">
<td width="10%" align=center height="25"><strong>报废设备编号</strong></td>
<td width="12%" align=center><strong>报废设备名称</strong></td>
<td width="30%" align=center nowrap><strong>报废原因</strong></td>
<td width="8%" align=center nowrap><strong>报废时间</strong></td>
<td width="12%" align=center nowrap><strong>负责人姓名</strong></td>
<td width="18%" align=center nowrap><strong>审批结果</strong></td>
<td width="10%" align=center nowrap><div align="center"><strong>操 作</strong></div></td>
</tr>
<%
query_eq_id=request("query_eq_id")
query_eq_name=request("query_eq_name")
query_principal_name=request("query_principal_name")
spage=request("page")
call checkinput(query_eq_id)
call checkinput(query_eq_name)
call checkinput(query_principal_name)
if not Isnumeric(spage) then
response.redirect"error.asp?err=2"
end if
sql="select * from scrap"
if len(query_eq_id)>0 then
sql=sql&" where eq_id like '%"&query_eq_id&"%'"
if len(query_eq_name)>0 then
sql=sql&" and eq_name like '%"&query_eq_name&"%'"
if len(query_principal_name)>0 then
sql=sql&" and principal_name like '%"&query_principal_name&"%'"
end if
else
if len(query_principal_name)>0 then
sql=sql&" and principal_name like '%"&query_principal_name&"%'"
end if
end if
else
if len(query_eq_name)>0 then
sql=sql&" where eq_name like '%"&query_eq_name&"%'"
if len(query_principal_name)>0 then
sql=sql&" and principal_name like '%"&query_principal_name&"%'"
end if
else
if len(query_principal_name)>0 then
sql=sql&" where principal_name like '%"&query_principal_name&"%'"
end if
end if
end if
set rs=server.CreateObject("adodb.recordset")
rs.Cursorlocation=3
rs.open sql,cn,1,3
if rs.eof then
response.write " <span class='redfont'>查询不到或无任何项目</span>"
else
rs.PageSize=10
pagesize=rs.pagesize
pagecount=rs.PageCount
allcount=rs.RecordCount
if cint(spage)<=pagecount and spage>0 then
rs.AbsolutePage=cint(spage)
else
spage="1"
rs.AbsolutePage=cint(spage)
end if
for i=1 to rs.PageSize
%>
<tr bgcolor="eeeeee">
<td height="25" align=center><%=rs("eq_id")%></td>
<td align=center><%=rs("eq_name")%></td>
<td align=center nowrap><%=rs("scrap_reason")%></td>
<td align=center nowrap><%=rs("scrap_time")%></td>
<td align=center nowrap><%=rs("principal_name")%></td>
<td align=center nowrap><%=rs("approve_result")%></td>
<td align=center><div align="center">
<%
link="index.asp?id="&id&"&sid="&sid&"&seq_id="&rs("id")&""
str="<a class=right_white href="&link&" title='修改项目 "&rs("eq_name")&"'>修改</a> | <a class=right_white href='javascript:del("&id&","&sid&","&rs("id")&")' title='删除项目 "&rs("eq_name")&"'>删除</a>"
response.write str
%>
</td>
</tr>
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
<tr bgcolor="#8CBDFF">
<td width="100%" height=20 colspan=7 align=center nowrap><div align="right">
共 <%=pagecount%> 页,<%=allcount%> 条记录,每页 <%=pagesize%> 条记录,本页是第 <%=spage%> 页. <a class=right_white href='index.asp?id=<%=id%>&sid=<%=sid%>&page=1&query_eq_id=<%=query_eq_id%>&query_eq_name=<%=query_principal_name%>&query_eq_name=<%=cstr(query_principal_name)%>'>首页</a>
<% if cint(spage)>1 then
Response.write "<a class=right_white href='index.asp?id="&id&"&sid="&sid&"&page="&cstr(spage-1)&"&query_eq_id="&cstr(query_eq_id)&"&query_eq_name="&cstr(query_eq_name)&"&query_principal_name="&cstr(query_principal_name)&"'>上一页</a> "
end if
if cint(spage)<pagecount then
Response.write "<a class=right_white href='index.asp?id="&id&"&sid="&sid&"&page="&cstr(spage+1)&"&query_eq_id="&query_eq_id&"&query_eq_name="&query_eq_name&"&query_principal_name="&cstr(query_principal_name)&"'>下一页</a> "
Response.write "<a class=right_white href='index.asp?id="&id&"&sid="&sid&"&page="&pagecount&"&query_eq_id="&query_eq_id&"&query_eq_name="&query_eq_name&"&query_principal_name="&cstr(query_principal_name)&"'>尾页</a> "
end if
end if
%> </div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="2" valign="middle" bgcolor="#999999"></td>
</tr>
<%
seq_id=request("seq_id")
if not Isnumeric(seq_id) then
response.redirect"error.asp?err=2"
end if
if seq_id>0 then
rs.close
sql="select * from scrap where id="&seq_id
rs.open sql,cn,1,3
if rs.eof then
response.redirect"error.asp?err=1"
else
n=1
end if
end if
%>
<tr>
<td height="25" valign="middle" bgcolor="#C8E0FB"> <span class="redfont"><strong><% if n=1 then response.write "修改" else response.write "添加" end if%>报废设备信息</strong> *标记为必填项</span></td>
</tr>
<tr>
<td height=200 valign="top" bgcolor="#C8E0FB">
<form action="<% if n=1 then response.write "eq_edit" else response.write "eq_add" end if%>.asp?id=<%=id%>&sid=<%=sid%><%if n=1 then response.write "&seq_id="&rs("id")%>" method="post" name="myform" id="myform" onSubmit="return checkinput()">
<table width="500" border="0" valign=top align="center" cellpadding="0" cellspacing="0" bgcolor="#C8E0FB" class="blackfont">
<tr>
<td height="36" valign=middle class=blackfont>
设 备 编 号 ：
<%
if n=1 then
%>
<%=rs("eq_id")%> 报废时间:<%=rs("scrap_time")%><input name="eq_id" type="hidden" value="<%=rs("eq_id")%>" maxlength=20>
<%
else
rs.close
sql="select eq_id from equipment"
rs.open sql,cn,1,1
if rs.eof then
response.write "设备资料库中无记录"
else
%>
<select name="eq_id" type="select" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="">
<%
for i=1 to rs.recordcount
%>
<option><%=rs("eq_id")%></option>
<%
rs.movenext
next
end if
end if
%>
</select><span class="redfont"> *</span>
</td>
</tr>
<tr>
<td height="20" valign=middle colspan=2 class=blackfont>
报 废 原 因 ：
</td>
</tr>
<tr>
<td height="36" valign=middle colspan=2 align=center class=blackfont>
    <textarea name="scrap_reason" type="text" cols=50 rows=5 style="border: 1px solid #CCCCCC;"><% if n=1 then response.write rs("scrap_reason") end if%></textarea>
</td>
</tr>
<tr>
<td height="20" valign=middle colspan=2 class=blackfont>
审 批 结 果 ：
</td>
</tr>
<tr>
<td height="36" valign=middle colspan=2 align=center class=blackfont>
    <textarea name="approve_result" type="text" cols=50 rows=3 style="border: 1px solid #CCCCCC;"><% if n=1 then response.write rs("approve_result") end if%></textarea>
</td>
</tr>
<tr>
<td height=36 valign=middle colspan=2 class=blackfont>
审 批 人姓名 ：<input name="principal_name" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("principal_name") end if%>" maxlength=20>
</td>
</tr>
<tr>
<td height="36" valign=middle align=right class=blackfont>
<input type="submit" name="Submit" value="<% if n=1 then response.write "修 改" else response.write "添 加" end if%>">
</td>
<td valign=middle align=left class=blackfont>
<input type="reset" name="reset" value="重 置">
</td>
</tr>
<tr>
<td height="20" valign=middle colspan=2 class=blackfont><span class="redfont"><b><%=message%></b></span>
</td>
</tr>
<% if n=1 then
%>
<tr>
<td height="20" colspan=2 valign=middle class=blackfont>
<input name="h_id" type="hidden" value="<%=rs("id")%>" maxlength="20">
</td>
</tr>
<% end if %>
</table>
</form>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
cn.close
set cn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -