📄 edit_special_cv.asp

📁 1.多种查询方式
💻 ASP
字号:
<%@ LANGUAGE="VBScript"%>
<%response.buffer=true%>
<%const title="查询物品纪录"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">

<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
<SCRIPT src="../js/birthday.js"></SCRIPT>
<script language=vbscript>
<!--
Sub datacheck()
if input1.name.value=empty then
   msgbox "「数量」不得为空白！", 64, "请输入数量!"
     focusto(1)
     Exit Sub
  End if
if not isNumeric(trim(input1.name.value)) then
   msgbox "请检查数量的正确性！（要为数字）！", 64, "请输入数量!"
     focusto(1)
     Exit Sub
  end if

input1.Submit
End Sub
Sub focusto(x)
        document.input1.elements(x).focus()
End Sub
-->
</script>
</head>
<body topmargin=0 onload="javascript:form1.name.focus();">
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!-- #include file=../data/myPrg.asp-->
<!-- #include file=../data/flag.inc-->
<%
id1=request("id")

'检测ID是否为整数
if isnumeric(trim(request("id"))) = false then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""id需为整数!!!"");history.go(-1);"
	Response.Write "</script>"
	Response.End 
end if

if flag > 3 then
	call closedatabase
	Response.Write "您无权操作！！！"
	Response.End 
end if


sql="select * from stat where id= "&request("id")
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
  dc_id = rs("stat_dc_id")
  prod_id=rs("stat_prod_id")
  prod_sn1=rs("stat_prod_sn")
  end if
  rs.Close
  set rs = nothing
  
 sql="select * from product where prod_id= "&prod_id
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
  prod_pinming = rs("prod_pinming")
  prod_type=rs("prod_type")
  end if
  rs.Close
  set rs = nothing

dim action

action=request("action")
if action="add" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from cv", conn, 1, 3
rs.AddNew
rs("cv_prod_id")=request("prod_id")
rs("cv_reco_time")=trim(request("reco_time"))
rs("cv_reco_man")=trim(request("reco_man"))
rs("cv_prod_sn")=trim(request("prod_sn1"))
rs("cv_cause")=trim(request("reco_cause"))
rs("cv_reco_result")=trim(request("reco_result"))

rs.Update
rs.Close
set rs=nothing

end if

	if flag = 3 then
		sql="select * from stat where id="&request("id")&" " 
	elseif flag < 3 then
		sql="select * from stat where id="&request("id")
	else
		call closedatabase
		Response.Write "您无权限操作！"
		Response.End 
	end if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
%>
<p align=center><font color=red>请在以下的表格中修改数据</font>
<p>
<table width="201" border=0 align=center>
  

 <tr align="center">
   <td width="95" nowrap align="center"><font color=blue>物品名称：</font></td>
   <td width="71"><%=prod_pinming%> </td>
 </tr>
  
 <tr>
   <td nowrap align="center"><font color=blue>物品型号：</font></td>
   <td align="center"><%=prod_type%></td>
 </tr>
 <tr>
   <td nowrap align="center"><font color=blue>序列号：</font></td>
   <td align="center"><%=rs("stat_prod_sn")%></td>
 </tr>
 <tr>
   <td nowrap align="center"><font color=blue>物品状况：</font></td>
   <td align="center"><% if rs("stat")=1 then 
   response.Write("良好")
   else response.write("损坏")
   end if%></td>
 </tr>
 <tr>
   <td nowrap align="center"><font color=blue>入库单号：</font></td>
   <td align="center"><%=rs("stat_sia")%></td>
 </tr>
  <tr>
   <td nowrap align="center"><font color=blue>去向：</font></td>
   <td align="center"><%=rs("stat_where")%></td>
 </tr>
 <tr>
   <td>
   <td ><br>

 </tr>

</table>

   <table border="1" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
 <td height=15 border='1' align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>物品状况</td>
</tr></table>	
	<table  border="1" cellspacing="1" cellpadding="0" height="0" align=center width="100%" bgcolor="#FFFFFF">
<tr bgcolor=#0000A0>
<td width="10%" colspan="1" align="center" height="25" ><font color="#FFFFFF">序号</font></td>
<td width="20%" align="center" colspan="1"><font color="#FFFFFF">维修时间</font></td>
          <td width="15%" align="center"><font color="#FFFFFF">维修人</font></td>
		  <td width="35%" align="center"><font color="#FFFFFF">故障原因</font></td>
          <td width="25%" align="center"><font color="#FFFFFF">维修结果</font></td>
          
</tr> 
<%     dim n
		n=1
        set rs2=server.CreateObject("adodb.recordset")
        rs2.Open "select * from cv where cv_prod_id="&prod_id&" and cv_prod_sn='"&prod_sn1&"'" ,conn,1,3
        if rs2.EOF and rs2.BOF then
		  response.Write "<div align=center><font color=red>目前没有纪录</font></center>"
		  else
         do while not rs2.EOF
         %>
		 		  <tr>
		  <td  align="center"><%=n%></td>
          <td  align="center"><%=rs2("cv_reco_time")%></td>
		  <td  align="center"><%=rs2("cv_reco_man")%></td>
		  <td  align="center"><%=rs2("cv_cause")%></td>
		  <td  align="center"><%=rs2("cv_reco_result")%></td>
          </tr>		 <%n=n+1
		rs2.movenext
        loop
        rs2.close
        set rs2=nothing
		end if		%>
		 
</table>
   <table border="1" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
 <td height=15  align=center colspan=17 cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>添加维修纪录</td>
</tr></table>
	<form name="form1" method="post" action="edit_special_cv.asp?action=add"><table  border="1" cellspacing="1" cellpadding="0" height="0" align=center width="100%" bgcolor="#FFFFFF">
		<tr>
		
<td width="16%" height="25" align="center">维修时间:</td><td width="14%"><input onfocus="calendar()"  type=text name="reco_time" size="10"></td>
<td width="25%"  height="25"  align="center">维修人:</td>
      <td width="13%"><input type=text name="reco_man" size="10"></td>
<td width="18%"  height="25"  align="center">维修结果:</td>
      <td width="14%"><input type=text name="reco_result" size="10"></td>

</tr><tr class="classtd"><td height="25" align="center">故障原因:</td><td colspan="5"><input type=text name="reco_cause" size="90"></td>

</tr>
<tr class="classtd">
<td class="classtd" align="center" colspan="2">
<input type="submit" name="Submit" value="添加">
<input name="prod_id" type="hidden" value="<%=prod_id%>">
<input name="prod_sn1" type="hidden" value="<%=prod_sn1%>">
<input name="companyid" type="hidden" value="1">
<input name="id" type="hidden" value="<%=id1%>">
</td>
</tr></table></form>

<%
	rs.close
	set rs = nothing
	call closedatabase
end if%>
<!--#include file=../data/copyright.asp-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -