📄 matrix3_newf.asp
字号:
<!-- #include file="const.asp" -->
<%
dim sql,rs,CID,FID,ftitle,fadmin,fprofile,fpic,authent,authentlist,Fvalid
CID=nrequest("CID")
FID=nrequest("FID")
if CID="" then CID="0"
authent=0
Fvalid=1
call opendb()
checkadmin()
if FID<>"" then
sql="select * from m3_forum where FID="&FID&""
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
FID=""
else
CID=cint(rs("CID"))
ftitle=server.HTMLEncode(rs("FTitle"))
fadmin=rs("FAdmin")
fprofile=server.HTMLEncode(rs("FProfile"))
fpic=rs("FPic")
authent=cint(rs("authent"))
authentlist=rs("authentlist")
Fvalid=cint(rs("Fvalid"))
end if
rs.close
set rs=nothing
end if
if fpic="" then fpic="images/forum1.gif"
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function clickauthent(b)
{
if(b==1)
{
document.form1.authentlist.disabled=false;
}else
{
document.form1.authentlist.disabled=true;
}
}
function fp(src,win_width,win_height)
{
window.open(src,'','width='+win_width+',height='+win_height+',resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');
return false;
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" align="center" valign="top">
<!-- #include file="topbar.asp" -->
</td>
</tr>
<tr>
<td align="center" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12" bgcolor="#ECE9D9"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="10"> </td>
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" colspan="3" class=v7><img src="images/btn_face.gif" width="10" height="7">
<a href="index.asp"><%=sitename%></a> <FONT face=Webdings color="#660000">8</FONT>
<a href="matrix3_admin.asp">BBS管理</a> <FONT face=Webdings color="#660000">8</FONT>
<a href="matrix3_admin.asp">分区&论坛</a> <FONT face=Webdings color="#660000">8</FONT>
<%
if FID<>"" then
response.Write("修改论坛信息")
else
response.Write("建立新论坛")
end if
%>
</td>
</tr>
<tr>
<td colspan="3" height="2" bgcolor="#ECE9D9"></td>
</tr>
<tr>
<td width="18%" height="12" bgcolor="#CC9900"> <span class="v8b"><img src="images/fang-1.gif" width="7" height="7" align="absmiddle">
</span><span class="v7b"><font color="#FFFFFF">填写信息</font></span></td>
<td width="47%" height="12" nowrap bgcolor="#DDDDDD" class="v8b"> </td>
<td width="35%" height="12" align="center" nowrap bgcolor="#DDDDDD" class="v7b">
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/blank.gif" width="1" height="3"></td>
</tr>
</table>
<br> <form name="form1" method="post" id="form1" action="matrix3_newf_save.asp">
<table width="450" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#E8E4D0">
<tr>
<td bgcolor="#D9D3B4" colspan="2" height="1"></td>
</tr>
<tr>
<td height="35" colspan="2" bgcolor="#FFFFFF"><br>
</td>
</tr>
<tr>
<td width="135" align="right" nowrap bgcolor="#FFFFFF" class=v7b>论坛名字</td>
<td width="296" bgcolor="#FFFFFF"> <input name="ftitle" type="text" class="input1" id="ftitle" value="<%=ftitle%>" size="20" maxlength="255">
</td>
</tr>
<tr>
<td align="right" nowrap bgcolor="#FFFFFF" class=v7b>版主</td>
<td height="24" bgcolor="#FFFFFF"> <input name="fadmin" type="text" class="input1" id="fadmin" value="<%=fadmin%>" size="20" maxlength="255">
<span class="v7">(多个帐号用","分开)</span></td>
</tr>
<tr>
<td align="right" nowrap bgcolor="#FFFFFF" class=v7b>话题</td>
<td height="24" bgcolor="#FFFFFF"> <input name="fprofile" type="text" class="input1" id="fprofile" value="<%=fprofile%>" size="40" maxlength="255">
</td>
</tr>
<tr>
<td align="right" nowrap bgcolor="#FFFFFF" class=v7b>图片</td>
<td height="24" bgcolor="#FFFFFF"> <input name="fpic" type="text" class="input1" id="fpic" value="<%=fpic%>" size="36" maxlength="255">
<a href="#" onClick="fp('forumpic.asp',550,600)"><font color="#FF0000"><u>
选择图标</u></font></a> </td>
</tr>
<tr>
<td align="right" nowrap bgcolor="#FFFFFF" class=v7b>所属分区</td>
<td height="24" bgcolor="#FFFFFF"><select name="CID" id="CID" class="input1">
<%
sql="select CID,CTitle from m3_category order by CIndex asc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<option value=0> No Category Yet ...</option>"
else
do while not rs.eof
response.write"<option value="&rs("CID")&""
if cint(CID)=cint(rs("CID")) then response.Write(" selected")
response.write ">"&rs("CTitle")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
call closedb()
%>
</select> </td>
</tr>
<tr>
<td align="right" nowrap bgcolor="#FFFFFF" class=v7b>属性</td>
<td height="24" bgcolor="#FFFFFF"><input type="radio" name="Fvalid" value="1" <%if Fvalid=1 then response.Write("checked")%>>
正常
<input type="radio" name="Fvalid" value="0" <%if Fvalid=0 then response.Write("checked")%>>
隐藏</td>
</tr>
<tr>
<td align="right" nowrap bgcolor="#FFFFFF" class=v7b>类别</td>
<td height="24" bgcolor="#FFFFFF"><input type="radio" name="authent" value="0" <%if authent=0 then response.write("checked")%> onClick="clickauthent(0);">
普通论坛
<input type="radio" name="authent" value="1" <%if authent=1 then response.write("checked")%> onClick="clickauthent(1);">
认证论坛
<input type="radio" name="authent" value="2" <%if authent=2 then response.write("checked")%> onClick="clickauthent(2);">
仅注册用户访问</td>
</tr>
<tr>
<td align="right" nowrap bgcolor="#FFFFFF" class=v7><strong>认证帐号列表</strong><br>
(多帐号用,分隔) </td>
<td height="24" bgcolor="#FFFFFF"> <textarea name="authentlist" cols="40" rows="5" class="input1" id="authentlist" <%if authent=0 then response.write("disabled=true")%>><%=authentlist%></textarea>
</td>
</tr>
<tr>
<td width="135" bgcolor="#FFFFFF"> </td>
<td width="296" height="40" bgcolor="#FFFFFF"> <input name="imageField" type="image" src="images/submit.jpg" width="60" height="18" border="0">
<img src="images/cancel.jpg" align="absmiddle" onClick="location.href='matrix3_admin.asp'" style="CURSOR:hand;">
<input type="hidden" id="FID" name="FID" value="<%=FID%>">
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9D3B4" height="1"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="10" colspan="2"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
<td height="18" bgcolor="#FFFFFF" class="v8"><img src="images/btn_face.gif" width="10" height="7"><a href="javascript:history.back()">后退</a></td>
</tr>
<tr>
<td> </td>
<td height="18" class="v8"> <img src="images/btn_face.gif" width="10" height="7">当前时间
: <%=now%></td>
</tr>
</table>
<br>
</form></td>
<td width="10"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="100" bgcolor="#ECE9D9" valign="top"> <!-- #include file="matrix3_right.asp" --></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="10" align="center" valign="bottom">
<!-- #include file="bottombar.asp" -->
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -