type.asp

asp+access开发的网上购物程序

<%@ codepage ="936" %>
<%
if instr(session("flag"),"71")=0 then
response.redirect "../login.asp"
response.end
end if
if not isEmpty(request("sortid")) then
sortid=request("sortid")
else
Response.Redirect "type.asp"
Response.End
end if
%>
<script language="javascript">
function confirmdel(id){
if (confirm("真的要删除这个分类吗?")) 
window.location.href="Admin_class_ok.asp?action=del_class_2&id="+id+""
} 
</script>
<!--#include file="../../conn/dbconn2.asp" -->
<%
dim rssort,sortsql
dim body
dim rstype,typesql
dim sortname
dim sortid
dim totle
Set rssort= Server.CreateObject("ADODB.Recordset") 
sortsql="select * from class_1 where sortid="&sortid&"" 
rssort.open sortsql,conn,1,1
sortname=rssort("sort")
If rssort.eof and rssort.bof then 
response.write"<SCRIPT language=JavaScript>alert('对不起，参数有误!');"
response.write"this.location.href='javascript:history.back();'</SCRIPT>"
End if
rssort.close
set rssort=nothing
set rstype=server.createobject("adodb.recordset") 
typesql="select * from class_2 where sortid="&sortid&"" 
rstype.open typesql,conn,1,1 
%>
<CENTER>
<LINK href="../style.css" rel=stylesheet type=text/css>
<TABLE border=0 cellPadding=5 cellSpacing=0 width="100%">
<TBODY>
<TR !bgcolor="#f5f5f5">
<TD class=f2>行业小类管理-- <a href="admin_class_ok.asp?action=add_class_2">添加行业小类</a></TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=3 cellSpacing=0 width=100%>
<TBODY>
<TR>
<TD align=middle vAlign=top>
<TABLE border="0" width="98%" cellpadding="0"> 
<TR height=22>
<%j=1
do while not rstype.eof%> 
<td width="33%" align="left" height=24>
<IMG src="../images/list.gif"> <%=rstype("typename")%>〖<a href=Admin_class_ok.asp?action=edit_class_2&id=<%=rstype("typeid")%>><font color=#ff0000>修改</font></a>&nbsp;&nbsp;<a href='javascript:confirmdel(<%=rstype("typeid")%>)'><font color=#ff0000>删除</font></a>〗
</td>
<%if j mod 3 = 0 then %></tr><tr ><%end if%>
<% rstype.movenext 
j=j+1 
loop 
rstype.close
set rstype=nothing 
%> 
</tr>
</TABLE>
</TD>
</TR>
</TABLE>
</BODY></HTML>