📄 admin_i.asp
字号:
sql="delete from link where id="&request("id")
conn.execute(sql)
response.redirect "admin_i.asp?flag=linkman&pageno="&request("pageno")
response.end
end if
%>
<br>
<div align="center">
<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table3">
<tr height =30>
<td bgcolor="#C0C0C0"> 管理链接</td>
</tr>
<%
pageno=request.querystring("pageno")
if pageno=0 then pageno=1
set rs=server.createobject("adodb.recordset")
sql="select * from link order by id desc"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=12
rs.absolutepage=pageno
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr height =30>
<td bgcolor="#EAEAEA">·<b><font color="#0000FF"><%=rs("title")%></font></b><span style="font-size: 7pt"><font color="#FF0000">
</font></span><a onClick="return confirm('确定要删除此条记录吗？');" href="admin_i.asp?flag=linkman&zt=del&id=<%=rs("ID")%>&pageno=<%=pageno%>">
<font color="#575757">删除</font></a><font color="#575757">
<a href="admin_i.asp?flag=linkedit&id=<%=rs("id")%>&pageno=<%=pageno%>">修改</a></font></td>
</tr>
<%
rs.movenext
next
%>
<tr height =30>
<td bgcolor="#EAEAEA">
<%
tj="flag=linkman"
page "admin_i.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount
%></td>
</tr>
<%else%>
<tr height =30>
<td bgcolor="#EAEAEA">暂无内容</td>
</tr>
<%end if%>
</table>
</div>
<%end if%>
<%
if flag="mbman" then
zt=request("zt")
if zt="add" then
mb=request("mb")
set rs=server.createobject("adodb.recordset")
sql="select * from mb where id=1"
rs.open sql,conn,1,2
rs("mb")=mb
rs.update
response.redirect "admin_i.asp?flag=mbman"
response.end
end if
%>
<br>
<div align="center">
<script language="vbscript">
sub chat()
if formadd.mb.value="" then
msgbox "请输入模版内容！",48,"注意！"
formadd.mb.focus()
exit sub
end if
formadd.submit()
end sub
-->
</script>
<form method="POST" action="admin_i.asp?flag=mbman&zt=add" name="formadd">
<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table2">
<tr height =30>
<td bgcolor="#EAEAEA" width="77">
模版内容：</td>
<td bgcolor="#EAEAEA" width="405">
<%
set rs=conn.execute("select * from mb")
mb=rs("mb")
rs.close
%>
<textarea rows="26" name="mb" cols="65"><%=mb%></textarea></td>
</tr>
<tr height =30>
<td bgcolor="#EAEAEA" width="77">
相关操作：</td>
<td bgcolor="#EAEAEA" width="405">
<input type="button" value="确定" name="B1" onClick="chat()"></td>
</tr>
</table>
</form>
</div>
<%end if%>
<%
if flag="edit" then
id=cint(request.querystring("id"))
set rs=conn.execute("select * from zhai where id="&id)
Title=rs("title")
FromURL=rs("FromURL")
Intro=rs("Intro")
Sort=rs("Sort")
XSort=rs("XSort")
IsPub=rs("IsPub")
Img=rs("Img")
HtmUrl=rs("HtmUrl")
filepath=rs("filepath")
rs.close
zt=trim(request("zt"))
if zt="edit" then '保存
id=cint(request("id"))
Title=HTMLcode(trim(Request.Form("Title")))
FromURL=HTMLcode(Trim(Request.Form("FromURL")))
Review=""
Intro=HTMLEncode(Trim(Request.Form("Intro")))
Sort=HTMLcode(Trim(Request.Form("Sort")))
set rssort=conn.execute("select Sortid,SortName from sort where Sortid='"&sort&"'")
sortname=rssort("SortName")
rssort.close
Rank=HTMLcode(Trim(Request.Form("Rank")))
IsPub=Trim(Request.Form("IsPub"))
Img=HTMLcode(Trim(Request.Form("Img")))
XSort=HTMLcode(Trim(Request.Form("XSort")))
set rsmb=server.createobject("ADODB.recordset")
rsmb.Open "mb",conn,1,1
mbcontent=rsmb("mb")
rsmb.close
path="../article/"&filepath
pencat=mbcontent
set rsadd=server.createobject("ADODB.recordset") '写入数据
Application.Lock()
rsadd.Open "select * from zhai where id="&id,conn,3,3
rsadd("Title")=Title
rsadd("FromURL")=FromURL
rsadd("Intro")=Intro
rsadd("Sort")=Sort
rsadd("IsPub")=IsPub
rsadd("Img")=Img
if XSort<>"" then
rsadd("XSort")=XSort
end if
rsadd.Update
ID=rsadd("ID")
HtmUrl=rsadd("HtmUrl")
rsadd.close
dddd = year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now())
pencat=replace(pencat,"HtmTitle",title)
pencat=replace(pencat,"HtmGjz",XSort)
pencat=replace(pencat,"HtmUpdate",dddd)
pencat=replace(pencat,"HtmContent",Intro)
pencat=replace(pencat,"栏目",sortname)
pencat=replace(pencat,"sdfsdf",sort)
pencat=replace(pencat,"HtmUrl",FromURL)
pencat=replace(pencat,"原文地址",FromURL)
pencat=replace(pencat,"Htmfname",fname)
pencat=replace(pencat,"网摘编号",id)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.folderexists(server.mappath(path)) then
dd=1
else
Set fout1 = fso.CreateFolder(server.mappath(path))
end if
filename=path&"/"&HtmUrl
if fso.fileexists(server.mappath(filename)) then
fso.DeleteFile(server.mappath(filename))
Set fout = fso.CreateTextFile(server.mappath(filename))
fout.WriteLine pencat
else
Set fout = fso.CreateTextFile(server.mappath(filename))
fout.WriteLine pencat
end if
fout.close
set fso=nothing
response.redirect "admin_i.asp?flag=man&pageno="&request("pageno")
response.end
end if
%>
<br>
<div align="center">
<form method="POST" action="admin_i.asp?flag=edit&zt=edit&id=<%=id%>&pageno=<%=pageno%>" name="formadd">
<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table2">
<tr height =30>
<td bgcolor="#EAEAEA" width="77">
标 题：</td>
<td bgcolor="#EAEAEA" width="405">
<input
name=Title id="Title" style="width: 500; height:20" size=40 value="<%=title%>"></td>
</tr>
<tr height =30>
<td bgcolor="#EAEAEA" width="102">
网 址：</td>
<td bgcolor="#EAEAEA" width="530">
<input
name=FromURL id="FromURL" style="width: 498; height:21" size=40 value="<%=FromURL%>"></td>
</tr>
<tr height =30>
<td bgcolor="#EAEAEA" width="102">
简 介：</td>
<td bgcolor="#EAEAEA" width="530">
<textarea name="Intro" cols=39 rows=4 id="Intro" style="width: 450; height:234"><%=Intro%></textarea></td>
</tr>
<tr height =30>
<td bgcolor="#EAEAEA" width="102">
图 片：</td>
<td bgcolor="#EAEAEA" width="530">
<input
name=Img id="Title0" style="width: 280px" size=40 value="<%=Img%>"></td>
</tr>
<tr height =30>
<td bgcolor="#EAEAEA" width="102">
分 类：</td>
<td bgcolor="#EAEAEA" width="530">
<select name="Sort" id="Sort">
<%
set rs=conn.execute("select sortid,SortName from sort order by sortid asc")
do while not rs.eof
%>
<option value=<%=rs("sortid")%> <%if cint(sort)=cint(rs("sortid")) then response.write " selected"%>><%=rs("SortName")%></option>
<%
rs.movenext
loop
rs.close
%>
</select></td>
</tr>
<tr height =30>
<td bgcolor="#EAEAEA" width="102">
关 键 字：</td>
<td bgcolor="#EAEAEA" width="530">
<input
name=XSort id="Title1" style="width: 112; height:18" size=40 value="<%=XSort%>"></td>
</tr>
<tr height =30>
<td bgcolor="#EAEAEA" width="102">
</td>
<td bgcolor="#EAEAEA" width="530">
<input type=radio <%if IsPub=true then response.write "checked"%> value=1 name=IsPub>
公开(大家都可见) <input
type=radio <%if IsPub=flase then response.write "checked"%> value=0 name=IsPub>
私有</td>
</tr>
<tr height =30>
<td bgcolor="#EAEAEA" width="102">
</td>
<td bgcolor="#EAEAEA" width="530">
<input name="zhai" type="submit" class="button" id="zhai" value="修改"></td>
</tr>
<tr height =30>
<td bgcolor="#EAEAEA" width="102">
</td>
<td bgcolor="#EAEAEA" width="530">
</td>
</tr>
</table>
</form>
</div>
<%end if%>
<%
if flag="sh" then
zt=request("zt")
if zt="sh" then
sql="update zhai set ispub=1 where id="&request("id")
conn.execute(sql)
response.redirect "admin_i.asp?flag=man&pageno="&request("pageno")
response.end
end if
%>
<br>
<div align="center">
<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table3">
<tr height =30>
<td bgcolor="#C0C0C0"> 审核网摘
</td>
</tr>
<%
pageno=request.querystring("pageno")
if pageno=0 then pageno=1
sort=trim(request.querystring("sort"))
set rs=server.createobject("adodb.recordset")
if sort="" then
sql="select * from zhai where ispub=0 order by ispub desc,id desc"
else
sql="select * from zhai where sort='"&sort&"' and ispub=0 order by ispub desc,id desc"
end if
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=12
rs.absolutepage=pageno
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr height =30>
<td bgcolor="#EAEAEA">·<b><a target="_blank" href="<%=rs("FromURL")%>"><font color="#0000FF"><%=rs("title")%></font></a></b><span style="font-size: 7pt"><font color="#FF0000">
</font></span>
<a onClick="return confirm('确定要删除此条记录吗？');" href="admin_i.asp?flag=man&zt=del&id=<%=rs("ID")%>&pageno=<%=pageno%>&htmurl=<%=rs("htmurl")%>&filepath=<%=rs("filepath")%>">
<font color="#575757">删除</font></a>
<font color="#575757">
<a href="admin_i.asp?flag=edit&id=<%=rs("id")%>&pageno=<%=pageno%>">修改</a>
<%if rs("ispub")=False then%><a href="admin_i.asp?flag=man&zt=sh&id=<%=rs("ID")%>&pageno=<%=pageno%>">审核</a><%end if%>
<%if rs("hot")=0 then%><a href="admin_i.asp?flag=man&zt=tj&id=<%=rs("ID")%>&pageno=<%=pageno%>">推荐</a><%else%><a href="admin_i.asp?flag=man&zt=btj&id=<%=rs("ID")%>&pageno=<%=pageno%>">不推荐</a><%end if%> </font></td>
</tr>
<%
rs.movenext
next
%>
<tr height =30>
<td bgcolor="#EAEAEA">
<%
tj="flag=man"
page "admin_i.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount
%></td>
</tr>
<%else%>
<tr height =30>
<td bgcolor="#EAEAEA">暂无内容</td>
</tr>
<%end if%>
</table>
</div>
<%end if%>
<%
if flag="so" then
zt=request("zt")
if zt="del" then
sql="delete from zhai where id="&request("id")
filename="../article/"&trim(request("filepath"))&"/"&trim(request("htmurl"))
conn.execute(sql)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists(server.mappath(filename)) then
fso.DeleteFile(server.mappath(filename))
end if
response.redirect "admin_i.asp?flag=man&pageno="&request("pageno")
response.end
end if
if zt="sh" then
sql="update zhai set ispub=1 where id="&request("id")
conn.execute(sql)
response.redirect "admin_i.asp?flag=man&pageno="&request("pageno")
response.end
end if
%>
<br>
</p>
<div align="center">
<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table3">
<tr height =30>
<td bgcolor="#C0C0C0"> 搜索网摘
</td>
</tr>
<%
pageno=request.querystring("pageno")
if pageno=0 then pageno=1
key=trim(request("key"))
if key="" then
response.write "查询关键字不能为空！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from zhai where title like '%"&key&"%' order by ispub desc,id desc"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=12
rs.absolutepage=pageno
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr height =30>
<td bgcolor="#EAEAEA">·<b><a target="_blank" href="<%=rs("FromURL")%>"><font color="#0000FF"><%=rs("title")%></font></a></b><span style="font-size: 7pt"><font color="#FF0000">
</font></span>
<a onClick="return confirm('确定要删除此条记录吗？');" href="admin_i.asp?flag=so&zt=del&id=<%=rs("ID")%>&pageno=<%=pageno%>&htmurl=<%=rs("htmurl")%>&filepath=<%=rs("filepath")%>">
<font color="#575757">删除</font></a>
<font color="#575757">
<a href="admin_i.asp?flag=edit&id=<%=rs("id")%>&pageno=<%=pageno%>">修改</a>
<%if rs("ispub")=False then%><a href="admin_i.asp?flag=so&zt=sh&id=<%=rs("ID")%>&pageno=<%=pageno%>">审核</a><%end if%>
<%if rs("hot")=0 then%><a href="admin_i.asp?flag=man&zt=tj&id=<%=rs("ID")%>&pageno=<%=pageno%>">推荐</a><%else%><a href="admin_i.asp?flag=man&zt=btj&id=<%=rs("ID")%>&pageno=<%=pageno%>">不推荐</a><%end if%> </font></td>
</tr>
<%
rs.movenext
next
%>
<form method="POST" action="admin_i.asp?flag=so">
<tr height =30>
<td bgcolor="#EAEAEA">
<p> 查询关键字：<input type="text" name="key" size="20">
<input type="submit" value="查询" name="B2"></p>
</td>
</tr>
</form>
<tr height =30>
<td bgcolor="#EAEAEA">
<%
tj="flag=so&key="&key
page "admin_i.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount
%></td>
</tr>
<%else%>
<tr height =30>
<td bgcolor="#EAEAEA">暂无内容</td>
</tr>
<%end if%>
</table>
</div>
<%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -