📄 peditnews.asp
字号:
<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp" -->
<!--#include file="../inc/mypage.asp"-->
<%
dim newscount,pagecount,NewsID
newscount=1
pagecount=20
newsid=rst("newsid")
%>
<html>
<head>
<title><%=SYS_WEBNAME%></title>
<script language="javascript">
function check()
{
if(document.form1.title.value=="")
{
alert("信息标题不能为空");
return false;
}
if(document.form1.author.value=="")
{
alert("发布人名称不能为空");
return false;
}
if(document.form1.content.value=="")
{
alert("信息内容不能为空");
return false;
}
}
</script>
</head>
<%
With ReSponse
.Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
.Write" <tr> "& vbcrlf
.Write" <td colspan=2 width=100% align=center height=2 class=menutdbg_1></td> "& vbcrlf
.Write" </tr> "& vbcrlf
.Write" <tr height=32> "& vbcrlf
.Write" <td width=80% background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif""> <img src=""../Skins/"& Skins_Folder &"/Go.gif"" border=""0""><a href=""help.asp"" class=menuColor_1><b>后台管理</b></a>>>> <a href=""PEditNews.asp"" class=menuColor_1><b>系统信息管理</b></a> </td>"& vbcrlf
.Write" <td width=20% background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif""><img src=""../Skins/"& Skins_Folder &"/Ring.gif"" border=""0""> <a href=""PAddNews.asp"" class=menuColor_1><b>添加系统信息</b></a> </td>"& vbcrlf
.Write" </tr>"& vbcrlf
.Write"</table>" & Vbcrlf
End With
%>
<table cellpadding=0 cellspacing=1 border=0 width=98% align=center class=tablebg>
<tr class=titletd>
<td width=60% align=center>信息标题</td><td width=20% align=center>发 布 人</td><td width=10% align=center>类型</td><td align=center>操 作</td>
</tr>
<%
Dim MP
set MP= New mypage
set rs = MP.Execute("select * from news order by BBR_IsHelp Asc,updatetime DESC",conn,jsPerPage)
if rs.eof then
response.write"<tr><td width=""100%"" height=38 colspan=4 class=td>数据库中还没有信息信息数据！请先<a href=""PaddNews.asp"">添加信息</a></td></tr>" & Vbcrlf
else
Call CheckAdminFlag(TempAdminFlag,3)
With Response
Do While Not rs.eof
.write"<tr height=22 class=td>"& Vbcrlf
.write"<td width=""60%"">· <a href=""peditnews.asp?newsid="& rs("newsid") &""">"& Vbcrlf
Dim Content
content=InterCeptString(rs("newstitle"),60)
.write"<font color="&rs("newscolor")&">"&content&"</font>"
.write"</a></td>"& Vbcrlf
.write"<td width=""20%"" align=center>"& Vbcrlf
if rs("newsauthor")=0 then
response.write "管理员"
else
Dim RsSuser
set rssuser=conn.execute("select regusername from users where regid="& rs("newsauthor"))
if rssuser.eof then
response.write "没有此用户"
else
response.write rssuser("regusername")
end if
end if
.write"</td>"& Vbcrlf
.write"<td align=center>"& Vbcrlf
.Write"<select name=infotype>"& Vbcrlf
Dim Temp11,Temp12,Temp13
Temp11=Rs("BBR_IsHelp")
Temp12="0,1"
Temp13="新闻，帮助"
Call SelectOper(temp11,temp12,temp13)
.Write"</select>"& Vbcrlf
.write"</td>"& Vbcrlf
.write"<td align=center><a href=""peditnews.asp?newsid="& rs("newsid")& """>修改</a> <a href=""Del.asp?act=news&id="& rs("newsid") &""">删除</a></td>"& Vbcrlf
.write"</tr>"& Vbcrlf
rs.movenext
Loop
.Write "<tr>"& vbcrlf
.Write "<td colspan=4 width=100% align=center>"& Vbcrlf
.Write "<table cellpadding=0 cellspacing=0 width=100% align=center border=0 class=bg_aaaaaa style=""border: 1px #dfdfdf solid;"">" & vbcrlf
.Write "<tr class=titletd1><td width=100% align=center>"
.Write MP.PageDispaly()
.Write "</td></tr>" & vbcrlf
.Write "</table>" & vbcrlf
.Write "</td>"& vbcrlf
.Write "</tr>" & Vbcrlf
.Write"</table>" & vbcrlf
End With
End if
%>
</td>
</tr>
</table>
<%
if isNum(rst("newsid")) then
Dim RsID
set rsid=server.createobject("adodb.recordset")
sql="select * from news where newsid="&newsid
rsid.open sql,conn,1,3
%>
<table cellpadding=0 cellspacing=1 border=0 width=98% align=center class=tablebg>
<form action="savenews.asp?act=edit" method="post" name="form1" onsubmit="javascript:return check();"
<tr>
<td colspan=2 width=100% align=center class=titletd height=20>------->修 改 信 息<-------</td>
</tr>
<tr>
<td width=30% align=right class=td>信息标题：</td><td align=left class=td><input name=title type=text size=50 value=<%=rsid("newstitle")%> maxlength=100></td>
</tr>
<tr>
<td width=30% align=right class=td>发 布 人：</td><td align=left class=td><input name=author type=hidden value="<%=rsid("newsauthor")%>"><input name=authorname type=text size=50 value=
<%
if rsid("newsauthor")=0 then
response.write "管理员"
else
set rssuser=conn.execute("select regusername from users where regid="& rsid("newsauthor"))
if rssuser.eof then
response.write "没有此用户"
else
response.write rssuser("regusername")
end if
end if
%>
maxlength=20 ReadOnly></td>
</tr>
<tr>
<td align=right class=td>信息类型：</td>
<td align=left class=td>
<select name=infoType>
<%
Dim Temp1,Temp2,Temp3
Temp1=RsID("BBR_IsHelp")
Temp2="0,1"
Temp3="新闻，帮助"
Call SelectOper(temp1,temp2,temp3)
%>
</select>
</td>
</tr>
<tr>
<td width=30% align=right class=td>信息内容：</td><td align=left class=td><textarea name=content cols=60 rows=8><%=REHtmlEncode(rsid("newscontent"))%></textarea></td>
</tr>
<tr>
<td width=30% align=right class=td>信息着色：</td><td align=left class=td>
<select name=color>
<%
Dim Temp21,Temp22,Temp23
Temp21=RsID("Newscolor")
Temp22="blue,red,black"
Temp23="蓝色，红色，黑色"
Call SelectOper(temp21,temp22,temp23)
%>
</select>
</td>
</tr>
<tr>
<td width=100% align=center colspan=3 class=td><input name=submit type=submit value=修改> <input name=reset type=reset value=重写></td>
</tr>
<tr>
<td width=100% align=center colspan=3 class=titletd height=2> </td>
</tr>
<input type=hidden name=id value="<%=rsid("newsid")%>">
</form>
</table>
<%
rsid.close
set rsid=nothing
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -