WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

admin_ads.asp：源码内容
							<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<title><%=txl_info(0)%>--管理页面</title>
<!--#include file="inc/admin_css.asp"-->
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
	if not supermaster or session("flag")="" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
		call txl_error()
	else
		if request("action")="save" then
			call saveconst()
		else
			call consted()
		end if
		if founderr then call txl_error()
		conn.close
		set conn=nothing
	end if
sub consted()
dim sel
%>
<form method="POST" action=admin_ads.asp?action=save>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<tr> 
<th height="25" colspan="2" id=TableTitleLink>广告设置</th>
</tr>
<tr>
<td height="25" colspan="2" class=txlrow><b>说明：</b>这里可以对同学录页面的浮动广告和右边固定广告的设置。</td>
</tr>
<tr> 
<th height="23" colspan="2" id=TableTitleLink>广告设置</th>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>开启首页浮动广告</u></font></td>
<td width="60%" class="txlrow"> 
<input type=radio name="ads0" value=0 <%if txl_ads(0)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="ads0" value=1 <%if txl_ads(0)=1 then%>checked<%end if%>>打开&nbsp;</td>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>首页浮动广告图片地址</u></font></td>
<td width="60%" class="txlrow"> <input type="text" name="ads1" size="35" value="<%=txl_ads(1)%>"></td>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>首页浮动广告连接地址</u></font></td>
<td width="60%" class="txlrow"> <input type="text" name="ads2" size="35" value="<%=txl_ads(2)%>"></td>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>首页浮动广告图片宽度</u></font></td>
<td width="60%" class="txlrow"> <input type="text" name="ads3" size="3" value="<%=txl_ads(3)%>">&nbsp;象素</td>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>首页浮动广告图片高度</u></font></td>
<td width="60%" class="txlrow"> <input type="text" name="ads4" size="3" value="<%=txl_ads(4)%>">&nbsp;象素</td>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>开启首页右下固定广告</u></font></td>
<td width="60%" class="txlrow"> 
<input type=radio name="ads5" value=0 <%if txl_ads(5)=0 then%>checked<%end if%>>关闭&nbsp;
<input type=radio name="ads5" value=1 <%if txl_ads(5)=1 then%>checked<%end if%>>打开&nbsp;
</td>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>首页右下固定广告图片地址</u></font></td>
<td width="60%" class="txlrow"> <input type="text" name="ads6" size="35" value="<%=txl_ads(6)%>"></td>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>首页右下固定广告连接地址</u></font></td>
<td width="60%" class="txlrow"> <input type="text" name="ads7" size="35" value="<%=txl_ads(7)%>"></td>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>首页右下固定广告图片宽度</u></font></td>
<td width="60%" class="txlrow"> <input type="text" name="ads8" size="3" value="<%=txl_ads(8)%>">&nbsp;象素</td>
</tr>
<tr> 
<td width="40%" class="txlrow"><u>首页右下固定广告图片高度</u></font></td>
<td width="60%" class="txlrow"> <input type="text" name="ads9" size="3" value="<%=txl_ads(9)%>">&nbsp;象素</td>
</tr>
<tr> 
<td colspan=2 class="txlrow" align=center><input type="submit" name="Submit" value="提 交"></td>
</tr>
</table>
</form>
<%
end sub
sub saveconst()
txl_ads=request("ads0") & "$" & request("ads1") & "$" & request("ads2") & "$" & request("ads3") & "$" & request("ads4") & "$" & request("ads5") & "$" & request("ads6") & "$" & request("ads7") & "$" & request("ads8") & "$" & request("ads9")
sql = "update config set txl_ads='"&CheckStr(txl_ads)&"'"
conn.execute(sql)
response.write "设置成功。"
end sub
%>

						