?? admin_part.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body>
<center><%
p_id=Request("id")
Set rs1=Server.CreateObject("Adodb.RecordSet")
sql="select * from part"&p_id&" order by part_id desc"
rs1.Open sql,conn,1,3
%>
<form name="mainForm" enctype="multipart/form-data" action="partsave.asp" method="post">
<p>
<input type=file name="mefile">
<input type="submit" name="添加" value="添加零件圖">
</p>
</form>
</center>
<form name="delform" action="pdelsave.asp" method="post">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" class="12">
<tr>
<% i=1
do while not rs1.eof%>
<td bgcolor="#f1f3f5"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="12">
<tr>
<td><div align="center"><input name="del" type="checkbox" value="<%=rs1("part_id")%>">
<img src="showpart.asp?id=<%=rs1("part_id")%>&tbName=part"&p_id&"" width="150" height="150" border="0",height="133">
</a></div></td>
</tr>
</table></td><%if i mod 4=0 then%>
</tr>
<%end if
i=i+1
rs1.movenext
loop
%>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" class="12">
<tr>
<td> <div align="center"><input type="submit" name="刪除" value="刪除">
</div>
</td>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -