admin_style.asp

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

	id =checksql("风格模板ID",request.Form("id"),0,8)
	if id=mb then
		response.write"<script>alert('不能删除正在使用的模板');location.href='admin_style.asp';</script>"
		response.end
	end if
	sql = "delete from wapls_mb where mb_id ="&id
	conn.execute(sql)
	response.write"<script>alert('模板删除成功');location.href='admin_style.asp';</script>"
	response.end
end sub	
'==================================
'=过 程 名：edit()
'=功    能：编辑风格模板
'==================================
Sub edit()
	Select case request.QueryString("flag")
	case "err" 		'编辑出错风格模板
		call edit_err()
	case "column" 		'编辑部分栏目风格模板
		call edit_column()
	case "user" 		'编辑用户风格模板
		call edit_user()
	case "diary" 		'编辑公告栏目风格模板
		call edit_diary()
	case "link" 		'编辑友情链接风格模板
		call edit_link()
	case "gb" 		'编辑留言风格模板
		call edit_gb()
	case "search" 		'编辑搜索风格模板
		call edit_search()
	case "other" 		'编辑其它风格模板
		call edit_other()
	case else 		'编辑总风格图标模板
		call edit_logo()
	end select
end sub
'==================================
'=过 程 名：edit_logo()
'=功    能：编辑风格图标目录模板
'==================================
sub edit_logo()
if request.form("stylemain")="true" then
	mbid=checksql("编辑模板ID",request.form("mbid"),0,8)
	mb_logo=checksql("编辑图标目录",request.form("mb_logo"),1,50)
	sql = "select * from wapls_mb where mb_id="&mbid
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("mb_logo")=mb_logo
	rs.update
	response.write"<script>alert('图标风格模板目录编辑成功');location.href='admin_style.asp';</script>"
	rs.close
	set rs=nothing
end if
mbid=checksql("编辑模板ID",request.querystring("id"),0,8)
sql = "select * from wapls_mb where mb_id="&mbid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
mblogo=rs(10)
rs.close
set rs=nothing
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td colspan="2" class="td_title">图标风格模板管理 - [<font color="#ffff00"><%=mbname%></font>]</td>
	</tr>
	<tr class="tablebody">
		<td colspan="2" height="30">&nbsp;图标风格模板管理，用于管理网站的各页面图标目录部分。 [ <a href="#" onclick="history.go(-1);">返 回</a> ]</td>
	</tr>
	<form action="" method="post">
	<tr class="tablebody">
		<td width="18%" align="center">图标<br>LOGO<br></td>
<td width="82%">

<input type="txt" name="mb_logo" style="width:150px;height:20px;" maxlength="50" value="<%=mblogo%>"></td>
	</tr>
	<tr class="tablebody">
		<td colspan="2" align="center">
		<input type="submit" name="Submit" value="提交">
		<input type="hidden" name="mbid" value="<%=mbid%>">
		<input type="hidden" name="stylemain" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：edit_column()
'=功    能：编辑栏目风格模板
'==================================
sub edit_column()
if request.form("stylenews")="true" then
	mbid=checksql("编辑模板ID",request.form("mbid"),0,8)
	content0=checksql("新闻频道",request.form("content0"),1,0)
	content1=checksql("软件频道",request.form("content1"),1,0)
	content2=checksql("图象频道",request.form("content2"),1,0)
	content3=checksql("影音频道",request.form("content3"),1,0)
	content4=checksql("图书频道",request.form("content4"),1,0)
mbcolumn=Encode(content0&"|||@@@|||"&content1&"|||@@@|||"&content2&"|||@@@|||"&content3&"|||@@@|||"&content4)
	sql = "select * from wapls_mb where mb_id="&mbid
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("mb_column")=mbcolumn
	rs.update
	response.write"<script>alert('栏目风格模板编辑成功');location.href='admin_style.asp';</script>"
	rs.close
	set rs=nothing
end if
mbid=checksql("编辑模板ID",request.querystring("id"),0,8)
sql = "select * from wapls_mb where mb_id="&mbid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
mbcolumn=rs(3)
rs.close
set rs=nothing
set rs=nothing
dim strtemp
strtemp=split(mbcolumn,"|||@@@|||")
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td colspan="2" class="td_title">栏目风格模板管理 - [<font color="#ffff00"><%=mbname%></font>]</td>
	</tr>
	<tr class="tablebody">
		<td colspan="2" height="30">&nbsp;栏目风格模板管理，用于管理网站的栏目列表查看页面。 [ <a href="#" onclick="history.go(-1);">返 回</a> ]</td>
	</tr>
	<form action="" method="post">

<tr class="tablebody">
<td width="18%" align="center">新闻频道<br>news(0)</td>
<td width="82%"><textarea name="content0" style="width:98%" rows="15"><%=strtemp(0)%></textarea><br>
<a href="javascript:change(document.all.content0,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.content0,100)"><img src="images/post/plus.gif" border="0" title="放大文本框"></a>
</td>
</tr>

<tr class="tablebody">
<td align="center">软件频道<br>soft(1)</td>
<td><textarea name="content1" style="width:98%" rows="15"><%=strtemp(1)%></textarea><br>
<a href="javascript:change(document.all.content1,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.content1,100)"><img src="images/post/plus.gif" border="0" title="放大文本框"></a>
</td>
</tr>
<tr class="tablebody">
<td align="center">图象频道<br>pic(2)</td>
<td><textarea name="content2" style="width:98%" rows="15"><%=strtemp(2)%></textarea><br>
<a href="javascript:change(document.all.content2,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.content2,100)"><img src="images/post/plus.gif" border="0" title="放大文本框"></a>
</td>
</tr>
<tr class="tablebody">
<td align="center">影音频道<br>music(3)</td>
<td><textarea name="content3" style="width:98%" rows="15"><%=strtemp(3)%></textarea><br>
<a href="javascript:change(document.all.content3,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.content3,100)"><img src="images/post/plus.gif" border="0" title="放大文本框"></a>
</td>
</tr>
<tr class="tablebody">
<td align="center">图书频道<br>atr(4)</td>
<td><textarea name="content4" style="width:98%" rows="15"><%=strtemp(4)%></textarea><br>
<a href="javascript:change(document.all.content4,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.content4,100)"><img src="images/post/plus.gif" border="0" title="放大文本框"></a>
</td>
</tr>
	<tr class="tablebody">
		<td colspan="2" align="center">
		<input type="submit" name="Submit" value="提交">
		<input type="hidden" name="mbid" value="<%=mbid%>">
		<input type="hidden" name="stylenews" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：edit_err()
'=功    能：编辑错误风格模板
'==================================
sub edit_err()
if request.form("stylenews")="true" then
	mbid=checksql("编辑模板ID",request.form("mbid"),0,8)
	mb_err=checksql("错误风格",request.form("mb_err"),1,0)
	sql = "select * from wapls_mb where mb_id="&mbid
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("mb_err")=mb_err
	rs.update
	response.write"<script>alert('错误风格模板编辑成功');location.href='admin_style.asp';</script>"
	rs.close
	set rs=nothing
end if
mbid=checksql("编辑模板ID",request.querystring("id"),0,8)
sql = "select * from wapls_mb where mb_id="&mbid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
mberr=rs(2)
rs.close
set rs=nothing
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td colspan="2" class="td_title">错误风格模板管理 - [<font color="#ffff00"><%=mbname%></font>]</td>
	</tr>
	<tr class="tablebody">
		<td colspan="2" height="30">&nbsp;错误风格模板管理，用于管理网站的错误提示查看页面。 [ <a href="#" onclick="history.go(-1);">返 回</a> ]</td>
	</tr>
	<form action="" method="post">
	<tr class="tablebody">
		<td width="18%" align="center">错误提示<br>err</td>
		<td width="82%"><textarea name="mb_err" style="width:98%" rows="20"><%=mberr%></textarea><br><a href="javascript:change(document.all.mb_err,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.mb_err,100)"><img src="images/post/plus.gif" border="0" title="放大文本框"></a></td>
	</tr>
	<tr class="tablebody">
		<td colspan="2" align="center">
		<input type="submit" name="Submit" value="提交">
		<input type="hidden" name="mbid" value="<%=mbid%>">
		<input type="hidden" name="stylenews" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：edit_diary()
'=功    能：编辑网站公告风格模板
'==================================
sub edit_diary
if request.form("stylenews")="true" then
	mbid=checksql("编辑新闻模板ID",request.form("mbid"),0,8)
	mbdiary=checksql("软件列表页面",request.form("mbdiary"),1,0)
	sql = "select * from wapls_mb where mb_id="&mbid
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("mb_diary")=mbdiary
	rs.update
	response.write"<script>alert('公告风格模板编辑成功');location.href='admin_style.asp';</script>"
	rs.close
	set rs=nothing
end if
mbid=checksql("编辑模板ID",request.querystring("id"),0,8)
sql = "select * from wapls_mb where mb_id="&mbid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
mbdiary=rs(5)
rs.close
set rs=nothing
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td colspan="2" class="td_title">公告风格模板管理 - [<font color="#ffff00"><%=mbname%></font>]</td>
	</tr>
	<tr class="tablebody">
		<td colspan="2" height="30">&nbsp;公告风格模板管理，用于管理网站的公告查看页面。 [ <a href="#" onclick="history.go(-1);">返 回</a> ]</td>
	</tr>
	<form action="" method="post">
	<tr class="tablebody">
		<td width="18%" align="center">公告模板<br>diary</td>
		<td width="82%"><textarea name="mbdiary" style="width:98%" rows="20"><%=mbdiary%></textarea><br><a href="javascript:change(document.all.mbdiary,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.mbdiary,100)"><img src="images/post/plus.gif" border="0" title="放大文本框"></a>
</td>
	</tr>
	<tr class="tablebody">
		<td colspan="2" align="center">