www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/admin/bkxg.asp
<!--#include file="hs.asp"-->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<body topmargin=0>
<p align="center">
<%
xg=request("xg")
id=request("id")
%><font color="#FF0000"><span style="font-size: 20px"><b> 板块修改</b></span></font> </p>
<%
if id<>empty then
sql="select*from zwbk where ltbh='"<bh&"'and id="&id&""
set rs=conn.execute(sql)
%>
<script language=vbscript>
<!--
sub yibd(id)
if bd1.yjbk.value=empty then
window.alert"请输入一级板块名称!"
window.location="bkxg.asp?xg=bk&id="&id&""
exit sub
end if
bd1.submit
end sub
sub zibd(id)
if bd2.cnbkmc.value=empty or bd2.cnbksm.value=empty then
window.alert"子板块名称和板块说明不能为空!"
window.location="bkxg.asp?xg=zbk&id="&id&""
exit sub
end if
bd2.submit
end sub
-->
</script>
<%if xg="bk" then%>
<form action="bkxg.asp?act=yj" method=post name="bd1">
<table border="0" cellpadding="0" cellspacing="0" width="602" height="56" align=center>
<input type=hidden name="id" value="<%=id%>">
<tr>
<td valign="top" height="56" width="602">
<span style="font-size: 14px; font-weight: 700">1级板块修改:</span><p>
<span style="font-size: 14px">板块名称:</span><input type="text" name="yjbk" size="20" value="<%=rs("yjbk")%>">
<input type="button" value="修 改" name="B1" onclick="yibd('<%=id%>')"></td>
</tr>
</table>
</form>
<%end if%>
<%if xg="zbk" then%>
<form action="bkxg.asp?act=zbk" method=post name="bd2">
<input type=hidden name="id" value="<%=id%>">
<table border="0" cellpadding="0" cellspacing="0" width="602" height="56" align=center>
<tr>
<td height="28" width="602" colspan="2">
<span style="font-size: 14px; font-weight: 700">1级子板块修改:</span> </td>
</tr>
<tr>
<td valign="top" height="8" width="144">
<font face="Arial">
<span style="font-size: 14px">子板块名称:</span> </font></td>
<td valign="top" height="8" width="458">
<span style="font-size: 12px">
<input type="text" name="cnbkmc" size="20" value="<%=rs("cnbkmc")%>"></span>
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td valign="top" height="5" width="144">
<font face="Arial" style="font-size: 14px">子板块logo:</font></td>
<td valign="top" height="5" width="458">
<span style="font-size: 12px">
<input type="text" name="cnlogo" size="20" value="<%=rs("cnlogo")%>"></span></td>
</tr>
<tr>
<td height="5" width="144">
<font face="Arial" style="font-size: 14px">子板块说明:</font></td>
<td valign="top" height="5" width="458">
<span style="font-size: 12px">
<textarea rows="3" name="cnbksm" cols="39"><%=rs("cnbksm")%></textarea></span><font color="#FF0000">
*</font></td>
</tr>
<tr>
<td valign="top" height="5" width="144">
<font face="Arial" style="font-size: 14px">板块斑竹:</font></td>
<td valign="top" height="5" width="458">
<span style="font-size: 12px">
<input type="text" name="banzhu" size="20" value="<%=rs("banzhu")%>"></span><font color="#FF0000">*多个用"|"隔开</font></td>
</tr>
<tr>
<td valign="top" height="2" width="602" colspan="2">
<p align="center">
<input type="button" value="修 改" name="B2" onclick="zibd('<%=id%>')"></td>
</tr>
</table>
</form>
<%
end if
%>
<%
rs.close
set rs=nothing
end if
%>
</body>
<%
'信息修改程序
wbfz
id=request("id")
act=request("act")
if act="yj" then
yjbk=ReplaceBadChar(request("yjbk"))
sqlbk="update zwbk set yjbk='"&yjbk&"' where id="&id&""
conn.execute(sqlbk)
response.redirect"ltsj.asp"
end if
if act="zbk" then
cnbkmc=ReplaceBadChar(request("cnbkmc"))
cnlogo=request("cnlogo")
cnbksm=ReplaceBadChar(request("cnbksm"))
banzhu=ReplaceBadChar(request("banzhu"))
sqlzbk="UPDATE zwbk set cnbkmc='"&cnbkmc&"',cnlogo='"&cnlogo&"',cnbksm='"&cnbksm&"',banzhu='"&banzhu&"' where id="&id&""
conn.execute(sqlzbk)
response.redirect"ltsj.asp"
end if
dbclose
%>