1.asp

来自「医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考」· ASP 代码 · 共 36 行

<Title>选择大类</Title>
<!--#include virtual="/manage/include/conn.asp"-->
<%
set Rs=conn.execute("Select * from tb_MedicineType")
if rs.eof then
    response.write "还没有大类"
else
%>   
    <form action="goodsadd.asp" method="post" target="main" name="form1">
        <table border=0 cellpadding=4 cellspacing=1 bgcolor=#999999 width='380'>
             <%do while not rs.eof%>
             <tr>
		         <td bgcolor="#ffffff"><input type="radio" value="<%=rs("TypeId")%>" name="TypeId"><%=rs("TypeName")%></td></tr>
             <%
             rs.movenext
             loop
              %>
             <tr>
                 <td bgcolor=#ffffff>
	                <input type="button" onclick="tijiao()" value="确定">&nbsp;
				    <input type="button" name="b2" value="关闭" onClick="window.close();">
	             </td>
             </tr>
        </table>
   </form>
<%	   
end if
%>
<script language="javascript">
 function tijiao(){
     document.form1.submit();
     window.close();
 }
</script>