admin_pic.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
cat_id=checksql("分类ID",request.querystring("id"),0,8)
sql="select * from wapls_pic_cat where cat_id="&cat_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td   class="td_title" colspan="2">修改分类</td>
	</tr>
	<tr class="tablebody">
		<td align="center">名 称</td>
		<td><input type="text" name="cat_name" size="20" maxlength="20" value="<%=rs("cat_name")%>"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">排 序</td>
		<td><input type="text" name="cat_num" size="5" maxlength="5" value="<%=rs("cat_num")%>"> 排列顺序 <span class="disable_font">[5个字以内.小，靠前排列]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">换 行</td>
<td><input type="checkbox" name="cat_br" <%if rs("cat_br")=1 then%> checked <%end if%> value="1"> 是否换行 <span class="disable_font">[栏目自动排版]</span></td>
	</tr>
<tr class="tablebody">
		<td align="center" valign="top">说 明</td><td><textarea name="cat_title" style="overflow:auto;width:96%;"  rows="15" ><%=rs("cat_title")%></textarea>
</td>
</tr>
	<tr class="tablebody">
		<td height="30" align="center" colspan="2">
		<input type="submit" name="Submit3" value="确定修改">
		<input type="reset" name="Reset3" value="取消重填">
		<input type="hidden" name="id" value="<%=request.querystring("id")%>">
		<input type="hidden" name="editcat" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：delcat()
'=功    能：删除大分类
'==================================
sub delcat()
if request.form("delcat")="true" then
	cat_id=checksql("文件分类ID",request.form("id"),0,4)
	dim datainthiscat
	datainthiscat=conn.Execute("select count(*) from wapls_pic where cat_id="&cat_id)(0)
	if datainthiscat<>0 then
		response.write "<script>window.alert('此分类下有"&datainthiscat&"条数据，不能删除此分类！如真要删除此分类，请先转移此分类下的数据，再进行删除分类操作！');window.location='javascript:history.go(-1);';</script>"
		response.End
	end if
	sql="select * from wapls_pic_cat where cat_id="&cat_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.delete
	rs.update
	rs.close
	set rs=nothing
	sql="select * from wapls_pic_class where cat_id="&cat_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	do while not rs.eof
	rs.delete
	rs.update
	rs.movenext
	loop
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title">删除分类</td>
	</tr>
	<tr class="tablebody">
		<td height="50" align="center">分类名称：<input type="text" name="cat_name" size="20" maxlength="10" value="<%=request.querystring("name")%>" disabled>&nbsp;<span class="disable_font">[最多10字符]</span></td>
	</tr>
	<tr class="tablebody">
		<td height="30" align="center">
		<input name="Submit" type="submit" id="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=request.querystring("name")%>』这个文件大分类吗?\n\n注意：删除后不可恢复！处于该分类下的文件需要重新进行归类操作！')){return true;}return false;}">
		<input type="hidden" name="id" value="<%=request.querystring("id")%>">
		<input type="hidden" name="delcat" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：addclass()
'=功    能：新添子分类
'==================================
sub addclass()
if request.form("addclass")="true" then
	cat_id=checksql("文件分类ID",request.form("cat_id"),0,4)
	class_name=checksql("文件子类名称",request.form("class_name"),1,20)
	class_title=checksql("栏目说明",request.form("class_title"),1,0)
	class_num=checksql("分类排序",request.form("class_num"),1,5)
	if request.form("class_br")="" then
		class_br=0
	elseif request.form("class_br")=1 then
		class_br=1
	else
		class_br=0
	end if
	sql="select * from wapls_pic_class"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("cat_id")=cat_id
	rs("class_name")=class_name
	rs("class_br")=class_br
	rs("class_num")=class_num
	rs("class_title")=class_title
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">新建子分类</td>
	</tr>
	<tr class="tablebody">
		<td align="center">名 称</td>
		<td><input type="text" name="class_name" size="20" maxlength="20"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">排 序</td>
		<td><input type="text" name="class_num" size="5" maxlength="5" value="1"> 排列顺序 <span class="disable_font">[5个字以内.小，靠前排列]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">换 行</td>
		<td><input type="checkbox" name="class_br" value="1"> 是否换行 <span class="disable_font">[栏目自动排版]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">说 明</td><td><textarea name="class_title" style="overflow:auto;width:96%;"  rows="15" ></textarea>
</td>
	</tr>

	<tr class="tablebody">
		<td align="center">所属分类</td><td>
		<select name="cat_id">
		<%
		sql="select * from wapls_pic_cat"
		set rs=conn.execute(sql)
		do while not rs.eof
		%>
		<option value="<%=rs("cat_id")%>" <%if rs("cat_name")=request.querystring("catname") then%>selected <%end if%>><%=rs("cat_name")%></option>
		<%
		rs.movenext
		loop
		if rs.eof and rs.bof then
		response.write"<option>暂无分类</option>"
		end if
		rs.close
		set rs=nothing
		%>
		</select></td>
	</tr>
	<tr class="tablebody">
		<td height="30" align="center" colspan="2">
		<input type="submit" name="Submit2" value="确定新增">
		<input type="reset" name="Reset2" value="取消重填">
		<input type="hidden" name="addclass" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：editclass()
'=功    能：编辑子分类
'==================================
sub editclass()
if request.form("editclass")="true" then
	class_id=checksql("",request.form("id"),0,4)
	cat_id=checksql("文件分类ID",request.form("cat_id"),0,4)
	class_name=checksql("文件子类名称",request.form("class_name"),1,20)
	class_title=checksql("栏目说明",request.form("class_title"),1,0)
	class_num=checksql("分类排序",request.form("class_num"),1,5)
	if request.form("class_br")="" then
		class_br=0
	elseif request.form("class_br")=1 then
		class_br=1
	else
		class_br=0
	end if
	sql="select * from wapls_pic_class where class_id="&class_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("cat_id")=cat_id
	rs("class_name")=class_name
	rs("class_br")=class_br
	rs("class_num")=class_num
	rs("class_title")=class_title
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
class_id=checksql("分类ID",request.querystring("id"),0,8)
sql="select * from wapls_pic_class where class_id="&class_id
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">修改子分类</td>
	</tr>
	<tr class="tablebody">
<tr class="tablebody">
		<td align="center">名 称</td>
		<td><input type="text" name="class_name" size="20" maxlength="20" value="<%=rs3("class_name")%>"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">排 序</td>
		<td><input type="text" name="class_num" size="5" maxlength="5" value="<%=rs3("class_num")%>"> 排列顺序 <span class="disable_font">[5个字以内.小，靠前排列]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">换 行</td>
		<td><input type="checkbox" name="class_br" <%if rs3("class_br")=1 then%> checked <%end if%> value="1"> 是否换行 <span class="disable_font">[栏目自动排版]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">说 明</td><td><textarea name="class_title" style="overflow:auto;width:96%;"  rows="15"><%=rs3("class_title")%></textarea>
</td>
	</tr>
	<tr class="tablebody">
		<td align="center">所属分类</td><td>
		<select name="cat_id">
		<%
		sql="select * from wapls_pic_cat"
		set rs=conn.execute(sql)
		do while not rs.eof
		%>
		<option value="<%=rs("cat_id")%>" <%if rs("cat_id")=cint(request.querystring("catid")) then response.write "selected" end if%>><%=rs("cat_name")%></option>
		<%
		rs.movenext
		loop
		if rs.eof and rs.bof then
		response.write"<option>暂无分类</option>"
		end if
		rs.close
		set rs=nothing
		%>
		</select></td>
	</tr>
	<tr class="tablebody">
		<td height="30" align="center" colspan="2">
		<input type="submit" name="Submit" value="确定修改">
		<input type="reset" name="Reset" value="取消重填">
		<input type="hidden" name="id" value="<%=request.querystring("id")%>">
		<input type="hidden" name="editclass" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：delclass()
'=功    能：删除子分类
'==================================
sub delclass()
if request.form("delclass")="true" then
	class_id=checksql("",request.form("id"),0,4)
	dim datainthiscat
	datainthiscat=conn.Execute("select count(*) from wapls_pic where class_id="&class_id)(0)
	if datainthiscat<>0 then
		response.write "<script>window.alert('此分类下有"&datainthiscat&"条数据，不能删除此分类！如真要删除此分类，请先转移此分类下的数据，再进行删除分类操作！');window.location='javascript:history.go(-1);';</script>"
		response.End
	end if
	sql="select * from wapls_pic_class where class_id="&class_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.delete
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form2" method="post" action="">
	<tr class="tablebody">
		<td class="td_title">删除子分类</td>
	</tr>
	<tr class="tablebody">
		<td height="50">
		子分类名称：<%=request.querystring("name")%><br>
		所属分类：
		<%
		sql="select * from wapls_pic_cat where cat_id="&cint(request.querystring("catid"))
		set rs=conn.execute(sql)
		%>
		<%=rs("cat_name")%>
		</td>
	</tr>
	<tr class="tablebody">
		<td height="30" align="center"><input name="Submit" type="submit" id="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=request.querystring("name")%>』这个子分类吗?\n\n注意：删除后不可恢复！处于该分类下的文件需要重新进行归类操作！')){return true;}return false;}">
		<input type="hidden" name="id" value="<%=request.querystring("id")%>">
		<input type="hidden" name="delclass" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：addpic()
'=功    能：新添文件
'==================================
sub addpic()
if request.Form("addpic")="true" then
	pic_title=checksql("文件名称",request.form("pic_title"),1,100)
	if len(request.form("pic_keyword"))>20 then
		keyword=checksql("文件关键词",left(request.form("pic_keyword"),20),1,20)
	else
		keyword=checksql("文件关键词",request.form("pic_keyword"),1,20)
	end if
	keyword=replace(keyword,"[","")
	pic_size=checksql("文件大小",request.form("size"),1,10)
	gs=checksql("文件格式",request.form("gs"),1,10)
	fl=checksql("下载分类",request.form("fl"),1,10)
	commend=checksql("推荐程度",request.form("commend"),0,1)
	if request.form("showpic")="" then
		showpic=""
	else
		showpic=checksql("文件图片",request.form("showpic"),1,200)
	if left(showpic,7)="http://" and request.form("save")="true" then
		showpic=saveimgfile(showpic)
		showpic=showpic
	end if
	end if
	if request.form("istop")="" then
		istop=0
	elseif request.form("istop")=1 then
		istop=1
	else
		istop=0
	end if
	userview=checksql("会员文件",request.form("userview"),0,1)
	moneypay=checksql("会员消费金币数",request.form("moneypay"),0,10)
	picgood=checksql("文件等级",request.form("pic_good"),0,1)
	content=checksql("文件介绍",request.form("content"),1,0)
	content=replace(content,replaceurl,"")
	url1_name=checksql("下载地址名称1",request.form("url1_name"),1,10)
	
	if request.form("url2_name")="" then
		url2_name=""
	else
		url2_name=checksql("下载地址名称2",request.form("url2_name"),1,10)
	end if
	if request.form("url3_name")="" then
		url3_name=""
	else
		url3_name=checksql("下载地址名称3",request.form("url3_name"),1,10)
	end if
	if request.form("url4_name")="" then
		url4_name=""
	else
		url4_name=checksql("下载地址名称4",request.form("url4_name"),1,10)
	end if
	url1=checksql("下载地址1",request.form("url1"),1,200)
	if left(url1,7)="http://" and request.form("saveurl1")="true" then
		url1=saveimgfile(url1)
		url1=url1
	end if
	if request.form("url2")="" then
		url2=""
	else
		url2=checksql("下载地址2",request.form("url2"),1,200)
	if left(url2,7)="http://" and request.form("saveurl2")="true" then
		url2=saveimgfile(url2)
		url2=url2
	end if
	end if
	if request.form("url3")="" then
		url3=""
	else
		url3=checksql("下载地址3",request.form("url3"),1,200)
	if left(url3,7)="http://" and request.form("saveurl3")="true" then
		url3=saveimgfile(url3)
		url3=url3
	end if
	end if
	if request.form("url4")="" then
		url4=""
	else
		url4=checksql("下载地址4",request.form("url4"),1,200)