access_edit.asp

oa办公系统asp程序

<!--#include file="../title.asp"-->

<%
id=request("id")
types=request("types")
if types = "edit" then
sql="select * from cloth_access_2 where id = "&id&" "
rs.open sql,conn,1,3
%>
    <form method="POST" action="rs_access_edit.asp?id=<%=rs("id")%>">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%" align="center"><b><font size="5">PURCHASE ORDER<br>
	</font></b></td><tr>
<%
sql3="select * from accessories where id = "&rs("access_id")&" "
rs3.open sql3,conn,1,3
%>
    <tr><td width="100%" align="center"><%=rs3("name")%></TD></tr>
<%
rs3.close
%>
	<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111"  id="AutoNumber2" height="119" width="471">
      <tr>
        <td width=70 height="21">
    <span lang="zh-cn">REF NO:</span></td>
        <td width=163 height="21"><%=rs("ref_no")%>
        <input type="text" name="ref_no" size="20" tabindex="1" value="<%=rs("ref_no")%>
"></td>
        <td width=60 height="21">Etd_Date</td>
        <td width=150 height="21">
        <input type="text" name="etd_date" size="20" tabindex="8" value="<%=rs("etd_date")%>"></td>
      </tr>
      <tr>
        <td width=61 height="11">Name:</span></td>
        <td width=163 height="11">
        <input type="text" name="name" size="20" tabindex="2" value="<%=rs("name")%>"></td>
        <td width=243 height="70" rowspan="6" colspan="2">
        <textarea rows="10" name="meno" cols="29" tabindex="9"><%=rs("meno")%></textarea></td>
      </tr>
      <tr>
        <td width=61 height="13">Size:</td>
        <td width=163 height="13"><input type="text" name="size" size="20" tabindex="3" value="<%=rs("size")%>"></td>
      </tr>
      <tr>
        <td width=61 height="10">Color:</td><td width=163 height="10">
<select size="1" name="access_id">
<%
sql2="select * from fabric_color"
rs2.open sql2,conn,1,3
do while not rs2.eof
%>
<option value="<%=rs2("id")%>" <%if rs2("id")=rs("color") then%>selected<%end if%> ><%=rs2("en_name")%></option>
<%
rs2.movenext
loop
rs2.close
%>
</select></td>
      </tr>
      <tr>
        <td width=61 height="14">Quantity:</td>
        <td width=163 height="14">
        <input type="text" name="quantity" size="20" tabindex="5" value="<%=rs("quantity")%>"></td>
      </tr>
      <tr>
        <td width=61 height="8">Destination:</td>
        <td width=163 height="8">
        <input type="text" name="destinationn" size="20" tabindex="6" value="<%=rs("destination")%>" ></td>
      </tr>
      <tr>
        <td width=61 height="14">Unit Price:</td>
        <td width=163 height="14">
        <input type="text" name="unit_p" size="20" tabindex="7" value="<%=rs("unit_p")%>"></td>
      </tr>
      <tr>
        <td width="469" colspan="4" height="21">
        <p align="center">
        <input type="submit" value="Submit" name="B1" tabindex="10"><input type="reset" value="Reset" name="B2" tabindex="11"></td>
      </tr>
    </table>
</td>
  </tr>
</table>
   </form>
   <%
   rs.close
   end if
   %>
<%
if types="del" then
sql4="select * from cloth_access_2 where id = "&id&" "
rs4.open sql4,conn,1,3
ref_no=rs4("ref_no")
rs4.delete
rs4.close
%>
<br>辅料修改完毕!
<meta http-equiv="refresh" content='2; URL="edit_access.asp?ref=<%=ref_no%>"'>
<%end if%><!--#include file="../copyright.asp"-->