📄 newadd2.asp
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<%
Mydo=trim(request.QueryString("AtionD"))
if Mydo="UpdateD" then
NewsID=trim(request.QueryString("NewsID"))
set rsw=Server.CreateObject("Adodb.Recordset")
sqlw="Select * From News where id="&NewsID
rsw.open sqlw,conn,1,3
Newtitle=rsw("Newtitle")
TreeID=Split(rsw("TreeID"),"-")
TID=UBound(TreeID)
Hot=rsw("Hot")
PutOut=rsw("PutOut")
Putman=rsw("Putman")
sContent1=rsw("Newcontent")
GroupID=rsw("GroupID")
if trim(rsw("Exclusive"))="<" then
Exclusive=true
else
Exclusive=false
end if
rsw.close
set rsw=nothing
else
Putman=session("username")
Exclusive=true
Dim TreeID(2)
Hot=false
PutOut=true
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop04.asp"-->
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#EFEBEF">
<form name="LPform" method="post" action="News_save.asp?Newsdoo=<%=Mydo%>&NewsID=<%=NewsID%>">
<tr>
<td width="9%" height="20" align="right" bgcolor="#DEDFDE">新闻标题：</td>
<td width="91%" height="20" bgcolor="#EBEBEB">
<input name="Lname" type="text" class="myput" id="Lname" value="<%=Newtitle%>" size="35">
<span class="BLUE">*</span></td>
</tr>
<tr>
<td width="9%" height="20" align="right" bgcolor="#DEDFDE">新闻目录：</td>
<td height="20" bgcolor="#EBEBEB"><select name="Lsort" class="myput" id="Lsort">
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select id,content,Pid from newtree where Pid=0 order by id desc"
rs.open rs.source,conn,1,1
if rs.recordcount=0 then
response.write("没有栏目")
end if
while not rs.eof
Bid=CInt(rs("id"))
%>
<option value="<%=Bid%>" <% if CInt(TreeID(0))=Bid then response.Write "selected" %> style="background-color:#CCCCCC;" >╋ <%=rs("content")%></option>
<%
set rss = server.createobject("adodb.recordset")
rss.source = "select id,content,Pid from newtree where Pid="&Bid
rss.open rss.source,conn,1,1
while not rss.eof
Cid=CInt(rss("id"))
%>
<option value="<%=Bid%>-<%=Cid%>" <% if TID=1 then if CInt(TreeID(1))=Cid then response.Write "selected" %> style="background-color:#DDDDDD;" > ┝ <%=rss("content")%></option>
<%
rss.movenext
wend
rss.Close
set rss=nothing
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
<span class="BLUE"> *</span>（注意目录级别）</td>
</tr>
<tr>
<td height="20" align="right" bgcolor="#DEDFDE">浏览权限：</td>
<td height="20" bgcolor="#EBEBEB"><span style="BORDER-BOTTOM:#CCCCCC 1px solid;">
<select name="GroupID" class="myput" id="GroupID">
<%
set rsUG = server.createobject("adodb.recordset")
rsUG.source = "select * from Nweb_UGroup order by GroupLevel "
rsUG.open rsUG.source,conn,1,1
if rsUG.recordcount=0 then
response.write("没有栏目")
end if
while not rsUG.eof
%>
<option value="<%=rsUG("GroupID")%>" style="background-color:#cccccc;" <%if GroupID=rsUG("GroupID") then response.write " selected" %> >┠ <%=rsUG("GroupName")%></option>
<%
rsUG.movenext
wend
rsUG.close
set rsUG=nothing
%>
</select>
<input type="radio" <%if Exclusive then response.write "checked" %> name="Exclusive" value="<">
隶属
<input type="radio" <%if Not(Exclusive) then response.write "checked" %> name="Exclusive" value="=">
专属 （隶属：权限值≥可查看，专属：权限值＝可查看） </span></td>
</tr>
<tr>
<td width="9%" height="20" align="right" bgcolor="#DEDFDE">发 布 者：</td>
<td height="20" bgcolor="#EBEBEB"><input name="LPutman" type="text" class="myput" id="LPutman" value="<%=Putman%>" size="20">
<span class="BLUE">*</span> </td>
</tr>
<tr>
<td height="20" align="right" bgcolor="#DEDFDE">新闻内容：</td>
<td height="20" bgcolor="#EBEBEB"><p><span class="BLUE">*</span>利用本编辑工具，可以编辑图文并茂的新闻内容图文，也可上传多幅图片和制作表格等。</p> </td>
</tr>
<tr valign="top" bgcolor="#EBEBEB">
<td height="20" colspan="2">
<INPUT type="hidden" name="content1" value="<%=Server.HtmlEncode(sContent1)%>">
<IFRAME ID="NwebEditor1" src="../WebEditor/eWebEditor.asp?id=content1" frameborder="0" scrolling="no" width="550" height="350"></IFRAME> </td>
</tr>
<tr>
<td width="9%" height="20" align="right" bgcolor="#DEDFDE">是否发布：</td>
<td height="20" bgcolor="#EBEBEB"><input name="LPutout" type="radio" value="1" <%if PutOut=true then response.write "checked" %>>
是
<input type="radio" name="LPutout" value="0" <%if PutOut=false then response.write "checked" %>>
否 （选 <strong>是</strong> 时表立即发布，否则暂存于数据库中）</td>
</tr>
<tr>
<td width="9%" height="20" align="right" bgcolor="#DEDFDE">是否热点：</td>
<td height="20" bgcolor="#EBEBEB"><input type="radio" name="NewsHot" value="1" <%if Hot=true then response.write "checked" %>>
是
<input name="NewsHot" type="radio" value="0" <%if Hot=false then response.write "checked" %>>
否 （选 <strong></strong><strong>是</strong> 时归类到 <strong>热点新闻</strong> 中）</td>
</tr>
<tr align="center" bgcolor="#DEDFDE">
<td height="50" style='BORDER-BOTTOM: #333333 1px solid'> </td>
<td height="30" align="left" style='BORDER-BOTTOM: #333333 1px solid'><input type="submit" name="Submit" value=" 添 加 ">
<input type="reset" name="Submit2" value=" 重 置 "></td>
</tr>
</form>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -