sort.asp

三鸟个人网站源码。

<!--#include file="users.asp" -->
<%
if session("user")="" then
	Response.redirect "index.asp"
	response.end
else
	Set admin = Server.CreateObject("ADODB.Recordset")
	asql="SELECT * FROM admin where admin='"&session("user")&"'"
	admin.OPEN asql, Conn,1,1
	if admin.eof and admin.bof then
		Response.redirect "index.asp"
		response.end
	else
		if session("pas")<>admin("pws") then
			Response.redirect "index.asp"
			response.end
		else
			if session("qx")<"2" then
				Response.redirect "index.asp"
				response.end
			end if
		end if
	end if
	admin.close
	set admin=nothing
end if
function strLength(str)
       ON ERROR RESUME NEXT
       dim WINNT_CHINESE
       WINNT_CHINESE    = (len("论坛")=2)
       if WINNT_CHINESE then
          dim l,t,c
          dim i
          l=len(str)
          t=l
          for i=1 to l
             c=asc(mid(str,i,1))
             if c<0 then c=c+65536
             if c>255 then
                t=t+1
             end if
          next
          strLength=t
       else 
          strLength=len(str)
       end if
       if err.number<>0 then err.clear
end function
if request("sort")<>"" then
	call sort()
	response.end
elseif request("small")<>"" then
	call small()
	response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM download"
rs.OPEN sql, Conn,1,1
%>
<!--#include file="code.asp" -->
<!--#include file="first.asp" -->
<table border=0 cellspacing=0 style='border-collapse:collapse' width=735 height=233 cellpadding=3>
<tr>
<td width=185 valign=top>
<!--#include file="inc.asp" -->
</td>
<td width=550 valign=top>
<center><table border=0 cellspacing=0 width=90% cellpadding=3>
<tr>
<td class=shadow2 align=center>
<b>--==分类管理==--</b></td>
</tr>
<tr>
<td class=shadow2>
<br><b>添加分类：</b></td>
</tr>
<tr>
<form method=POST action=sort.asp?sort=add>
<td>
大类：名称 <input type=text name=newsort1 size=12 class=border style='color:#000000; background-color:#efefef'>
 描述 <input type=text name=adddescription1 size=12 class=border style='color:#000000; background-color:#efefef'> 
<input type=submit value=添加 name=addsort1 class=border style='color: #000000; background-color: #efefef'>
</td>
</form></tr>
<tr>
<form method=POST action=sort.asp?small=add>
<td>
小类：名称 <input type=text name=newsort2 size=12 class=border style='color:#000000; background-color:#efefef'>
 描述 <input type=text name=adddescription2 size=12 class=border style='color:#000000; background-color:#efefef'> 
<select size=1 name=addsort1id style='color:#000000; border-style:solid; border-width:1; background-color:#efefef'>
<option value='' selected>所属大类</option>
<%
Set rssort = Server.CreateObject("ADODB.Recordset")
sqlsort="SELECT * FROM sort"
rssort.OPEN sqlsort, Conn,1,1
if not (rssort.eof and rssort.bof) then
	do while not rssort.eof
%>
<option value='<%=rssort("id")%>'><%=rssort("sort")%></option>
<%
		rssort.movenext
	loop
end if
%>
</select> 
<input type=submit value=添加 name=addsort2 class=border style='color: #000000; background-color: #efefef'>
</td>
</form></tr>
<tr>
<td class=shadow2>
<br><b>编辑分类：</b></td>
</tr>
<tr>
<form method=POST action=sort.asp?sort=edit>
<td>
大类：<select size=1 name=sortid style='color:#000000; border-style:solid; border-width:1; background-color:#efefef'>
<option value='' selected>选择大类</option>
<%
if not (rssort.eof and rssort.bof) then
	rssort.movefirst
	do while not rssort.eof
%>
<option value='<%=rssort("id")%>'><%=rssort("sort")%></option>
<%
		rssort.movenext
	loop
end if
%>
</select> 
<input type=submit value=编辑 name=editsort1 class=border style='color: #000000; background-color: #efefef'>
</td>
</form></tr>
<tr>
<form method=POST action=sort.asp?small=edit>
<td>
小类：<select size=1 name=smallid style='color:#000000; border-style:solid; border-width:1; background-color:#efefef'>
<option value='' selected>选择小类</option>
<%
Set rw = Server.CreateObject("ADODB.Recordset")
sqw="SELECT * FROM small"
rw.OPEN sqw, Conn,1,1
if not (rw.eof and rw.bof) then
	do while not rw.eof
%>
<option value='<%=rw("id")%>'><%=rw("small")%></option>
<%
		rw.movenext
	loop
end if
%>
</select> 
<input type=submit value=编辑 name=editsort2 class=border style='color: #000000; background-color: #efefef'>
</td>
</form></tr>
<tr>
<td class=shadow2>
<br><b>删除分类：</b></td>
</tr>
<tr>
<form method=POST action=sort.asp?sort=del>
<td>
大类：<select size=1 name=sortdelid style='color:#000000; border-style:solid; border-width:1; background-color:#efefef'>
<option value='' selected>选择大类</option>
<%
if not (rssort.eof and rssort.bof) then
	rssort.movefirst
	do while not rssort.eof
%>
<option value='<%=rssort("id")%>'><%=rssort("sort")%></option>
<%
		rssort.movenext
	loop
end if
%>
</select> 
<input type=submit value=删除 name=delsort1 class=border style='color: #000000; background-color: #efefef'>
</td>
</form></tr>
<tr>
<form method=POST action=sort.asp?small=del>
<td>
小类：<select size=1 name=smalldelid style='color:#000000; border-style:solid; border-width:1; background-color:#efefef'>
<option value='' selected>选择小类</option>
<%
if not (rw.eof and rw.bof) then
	rw.movefirst
	do while not rw.eof
%>
<option value='<%=rw("id")%>'><%=rw("small")%></option>
<%
		rw.movenext
	loop
end if
rw.close
set rw=nothing
%>
</select> 
<input type=submit value=删除 name=delsort2 class=border style='color: #000000; background-color: #efefef'>
</td>
</form></tr>
<tr>
<td class=shadow2><br><p style='line-height:150%'>
<img src=../images/note.gif> <b><font color=#000000>注意：</font></b>"删除分类"将删除大分类下所有小分类和小分类下的所有记录，如果该分类下的记录仍然有用，请先利用"编辑分类"功能将该分类下的记录转移到其他分类！</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
sub sort()
sortl=request("sort")
Set ra = Server.CreateObject("ADODB.Recordset")
if sortl="add" then
	sqb="SELECT * FROM sort where sort='"&trim(request("newsort1"))&"'"
elseif sortl="edit" then
	if request("up")<>"" then
		sqb="SELECT * FROM sort where id="&request("ids")
	else
		sqb="SELECT * FROM sort where id="&request("sortid")
	end if
elseif sortl="del" then
	sqb="SELECT * FROM sort"
end if
ra.OPEN sqb, Conn,1,3
if sortl="add" then
	if trim(request("newsort1"))<>"" then
		if not ra.eof then
			response.write "已有该分类，请重新输入分类名"
			response.end
		end if
		if strLength(trim(request("newsort1")))>40 then
			response.write "输入的字符串太长"
			response.end
		else
			ra.addnew
			ra("sort")=trim(request("newsort1"))
		end if
	else
		response.write "请输入添加分类的名称"
		response.end
	end if
	if trim(request("adddescription1"))<>"" then
		ra("ms")=trim(request("adddescription1"))
		ra.Update
		response.write "添加完成"
		response.write "<a href=""sort.asp"">返回</a>"
	else
		ra.Update
		response.write "添加完成"
		response.write "<a href=""sort.asp"">返回</a>"
	end if
elseif sortl="edit" then
	if request("up")="" then
%>
<form method="POST" action="sort.asp?sort=edit&up=yes">
<p>编号：<input type="text" name="ids" size="3" readonly style="background-color: #C0C0C0; border: 1 solid #000000" value="<%=ra("id")%>"> 
名称：<input type="text" name="idsname" size="10" style="border: 1 solid #000000" value="<%=ra("sort")%>"> 
简介：<input type="text" name="idsjj" size="15" style="border: 1 solid #000000" value="
<%
if ra("ms")<>"" then
	response.write ra("ms")
end if
%>"> 
<input type="submit" value="提交" name="B1" style="border: 1 solid #000000"></p>
</form>
<%
	else
		if trim(request("idsname"))<>"" then
			Set rew = Server.CreateObject("ADODB.Recordset")
			sqe="SELECT * FROM sort where sort='"&trim(request("idsname"))&"'"
			rew.OPEN sqe, Conn,1,1
			if not rew.eof then
				response.write "已有该分类，请重新输入分类名"
				response.end
			end if
			rew.close
			set rew=nothing
			if strLength(trim(request("idsname")))>40 then
				response.write "输入的字符串太长"
				response.end
			else
				Set rg = Server.CreateObject("ADODB.Recordset")
				sqg="SELECT * FROM small where sortid='"&ra("sort")&"'"
				rg.OPEN sqg, Conn,3,3
			if not (rg.eof and rg.bof) then
				rg.movefirst
				do while not rg.eof
					rg("sortid")=trim(request("idsname"))
					rg.update
					alll=rg.recordcount
					il=il+1
					if il>=alll then exit do
						rg.movenext
					loop
			end if
				rg.close
				set rg=nothing
				Set rf = Server.CreateObject("ADODB.Recordset")