admin_style.asp

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

		<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_user()
'=功    能：编辑会员风格模板
'==================================
sub edit_user()
if request.form("styleother")="true" then
	mbid=checksql("编辑模板ID",request.form("mbid"),0,8)
	mbuser=checksql("会员注册表单",request.form("mbuser"),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_user")=mbuser
	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
mbuser=rs(4)
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>user</td>
		<td width="82%"><textarea name="mbuser"  style="width:98%" rows="15"><%=mbuser%></textarea><br><a href="javascript:change(document.all.mbuser,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.mbuser,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="styleother" value="true">
	    </td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：edit_link()
'=功    能：编辑链接风格模板
'==================================
sub edit_link()
if request.form("stylelink")="true" then
	mbid=checksql("编辑链接风格模板ID",request.form("mbid"),0,8)
	mblink0=checksql("链节主页",request.form("mblink0"),1,0)
	mblink1=checksql("加入说明",request.form("mblink1"),1,0)
	mblink=Encode(mblink0&"|||@@@|||"&mblink1)
	sql = "select * from wapls_mb where mb_id="&mbid
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("mb_link")=mblink
	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
mblink=rs(6)
rs.close
set rs=nothing
dim strtemp
strtemp=split(mblink,"|||@@@|||")
%>
<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>link(0)</td>
		<td width="82%"><textarea name="mblink0" style="width:98%" rows="30"><%=strtemp(0)%></textarea><br><a href="javascript:change(document.all.mblink0,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.mblink0,100)"><img src="images/post/plus.gif" border="0" title="放大文本框"></a></td>
	</tr>	

	<tr class="tablebody">
		<td width="18%" align="center">链接说明<br>link(1)</td>
		<td width="82%"><textarea name="mblink1" style="width:98%" rows="30"><%=strtemp(1)%></textarea><br><a href="javascript:change(document.all.mblink1,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.mblink1,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="stylelink" value="true">
	    </td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：edit_gb()
'=功    能：编辑留言风格模板
'==================================
sub edit_gb()
if request.form("styleother")="true" then
	mbid=checksql("编辑模板ID",request.form("mbid"),0,8)
	mbgb=checksql("留言模板",request.form("mbgb"),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_gb")=mbgb
	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
mbgb=rs(7)
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 align="center" width="18%">查看留言<br>gb</td>
		<td width="82%"><textarea name="mbgb"  style="width:98%" rows="15"><%=mbgb%></textarea><br><a href="javascript:change(document.all.mbgb,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.mbgb,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="styleother" value="true">
	    </td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：edit_search()
'=功    能：编辑搜索风格模板
'==================================
sub edit_search()
if request.form("styleother")="true" then
	mbid=checksql("编辑模板ID",request.form("mbid"),0,8)
	mbsearch=checksql("搜索内容",request.form("mbsearch"),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_search")=mbsearch
	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
mbsearch=rs(8)
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 align="center" width="18%">搜索内容<br>search</td>
		<td width="82%"><textarea name="mbsearch"  style="width:98%" rows="15"><%=mbsearch%></textarea><br><a href="javascript:change(document.all.mbsearch,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.mbsearch,100)"><img src="images/post/plus.gif" border="0" title="放大文本框"></a></td>
	</tr>
		</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="styleother" value="true">
	    </td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：edit_other()
'=功    能：编辑其它风格模板
'==================================
sub edit_other()
if request.form("styleother")="true" then
	mbid=checksql("编辑模板ID",request.form("mbid"),0,8)
	mbother=checksql("影音播放",request.form("mbother"),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_other")=mbother
	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
mbother=rs(9)
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>channel(0)<br></td>
<td width="82%"><textarea name="mbother" style="width:98%" rows="15"><%=mbother%></textarea><br><a href="javascript:change(document.all.mbother,-100)"><img src="images/post/minus.gif" border="0" title="缩小文本框"></a>&nbsp;&nbsp;<a href="javascript:change(document.all.mbother,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="styleother" value="true">
	    </td>
	</tr>
	</form>
</table>
<%end sub%>
<!--#include file="wapls_admin_bottom.asp"-->