📄 admin.asp
字号:
<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.12 {
font-size: 12px;
}
-->
</style>
</head>
<body bgcolor="CAD7F7" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" scroll=yes>
<center>
<form name="mainForm" enctype="multipart/form-data" action="save.asp" method="post">
<p>
<input type=file name="mefile">
<input type="submit" name="添加" value="添加装配图">
</p>
</form>
</center>
<%
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from img order by id desc"
rs.Open sql,conn,1,3
%>
<form name="delform" action="delsave.asp" method="post">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" class="12">
<tr>
<% i=1
do while not rs.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="<%=rs("id")%>">
<A href="admin_part.asp?id=<%=rs("id")%>">
<img src="show.asp?id=<%=rs("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
rs.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 + -