jbsz.asp 超文本多用户论坛程序 1.1 - ASP源码程序

www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/admin/jbsz.asp
    <!--#include file="hs.asp"-->

<head>
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<script language=vbscript>
<!--
sub biaodan

if bd1.ltmc.value=empty then
window.alert"请输入论坛名称"
window.location="jbsz.asp"
exit sub
end if

bd1.submit
end sub
-->
</script>
<%
sql="select * from zwmb"
set rs=conn.execute(sql)

sql2="select ltmc,gjz from zwltpz where ltbh='"&ltbh&"'"
set rs2=conn.execute(sql2)
%>
<body topmargin=0>
<form action="jbsz.asp" method=post name="bd1">
<table cellpadding="0" cellspacing="0" width="668" align=center height="127">
	<tr>
		<td height="127" valign="top">
		<p align="center"><font color="#FF0000"><span style="font-size: 20px">
		<b>论坛基本配置</b></span></font><p align="center">
		<span style="font-size: 12px">论坛模板:
		
		<select size="1" name="ltmb">
		<%do while not rs.eof%>
		<option value="<%=rs("ids")%>" selected><%=rs("mbmc")%></option>
		<%
		rs.movenext
		loop
		rs.close
		set rs=nothing
		%>
		</select>
		
		</span><p align="center">
		<span style="font-size: 12px">论坛名称:<input type="text" name="ltmc" size="20" value="<%=rs2("ltmc")%>"></span><p align="center">
		<span style="font-size: 12px">论坛关键字:</span><textarea rows="4" name="gjz" cols="27"><%=rs2("gjz")%></textarea><font color="#FF0000" style="font-size: 12px">*50字以内</font><p align="center">
		<input type="button" value="提 交" name="B1" onclick="biaodan"></td>
	</tr>
</table>
</form>

<%	
		rs2.close
		set rs2=nothing

wbfz
ltmb=request("ltmb")
ltmc=ReplaceBadChar(request("ltmc"))
gjz=trim(left(ReplaceBadChar(request("gjz")),50))
if ltmc<>empty then
sqltj="update zwltpz set ltmb='"&ltmb&"',ltmc='"&ltmc&"',gjz='"&gjz&"' where ltbh='"&ltbh&"'"
conn.execute(sqltj)
dbclose
%>
<script language=vbscript>

<!--
window.alert"修改成功!"
window.location="jbsz.asp"
-->
</script>
<%end if%>
</body>