📄 listfile.asp
字号:
<%@codepage=936 language=LiveScript%>
<%KaiShi=(new Date()).getTime();
DataFile="im286.xls";
db=Server.MapPath(DataFile);
FileName=""+Request.ServerVariables("URL");
FileName=FileName.replace(/(.*)\//g,"");
conn=Server.CreateObject("ADODB.Connection");
rs=Server.CreateObject("ADODB.RecordSet");
connstr="Driver={Microsoft Excel Driver (*.xls)};DBQ="+db+";ReadOnly=0;";
conn.Open(connstr);
Response.Addheader("Content-Type","text/html;charset=gbk");
try{sql="select * from Copyright";
rs.Open(sql,conn);
WangZhan=rs(0)+"";
WangZhi=rs(1)+"";
rs.Close();}
catch(e){sql="Create table Article(BH int,BiaoTi varchar(255),NeiRong memo,ZuoZhe varchar(20),LaiYuan varchar(255),RiQi varchar(14),DianJi int,FenLei varchar(40),ShanChu bit)";
conn.Execute(sql);
sql="Create table Copyright(ZhanMing varchar(40),WangZhi varchar(255))";
conn.Execute(sql);
sql="Insert Into Copyright values('没有设置','res://mshtml.dll/about.moz')";
conn.Execute(sql);
sql="Create table User(BH int,YongHu varchar(10),MiMa varchar(20),QuanXian bit,ShanChu bit)";
conn.Execute(sql);
sql="Insert into User values(0,'admin','admin',1,0)";
conn.Execute(sql);
Response.Addheader("refresh","3;url='javascript:alert(\"Database has been created successfully.\\n\\nthe default User and Password are admin.\")'");
WangZhan="没有设置",
WangZhi="res://mshtml.dll/about.moz";}
MoKuai=""+Request.QueryString("模块");
FenLei=""+Request.QueryString("分类");
ID=parseInt(Request.QueryString("ID"));
if(FenLei=="undefined"){Title=MoKuai;}
else{Title=FenLei;}%><html><head>
<title><%if(Title=="undefined"){
if(isNaN(ID)){Response.Write("全部文章");}
else{sql="select BiaoTi from Article where ShanChu=0 and BH="+ID;
rs.Open(sql,conn);
if(rs.eof){Response.Write("找不到主题");}
else{Response.Write(rs(0));}
rs.Close();}}
else{Title=Title.replace("管理","文章管理");
Title=Title.replace("用户","用户管理");
Title=Title.replace("登录","用户登录");
Title=Title.replace("设置","版权设置");
Response.Write(Title);}%> - <%=WangZhan%></title>
<style>body{font:9pt 宋体}
a{text-decoration:none}
a:hover{text-decoration:underline overline;color:red}
table{font:9pt 宋体;table-layout:fixed;word-wrap:break-word;word-break:break-all}
</style><script></script></head>
<body link=123456 alink=green vlink=black scroll=auto leftmargin=0>
<table border=1 bordercolor=456789 bordercolordark=white cellpadding=0 cellspacing=0 align=center>
<tr bgcolor=abcdef><td width=770 height=21>
<table><tr><td>｜<a href=<%=FileName%>><b>全部文章</b></a>｜<%sql="Select distinct FenLei from Article where ShanChu=0";
rs.Open(sql,conn);
if(rs.eof){Response.Write("当前没有任何新的文章。");}
else{
while(!rs.eof){Response.Write((rs(0)+"").link(FileName+"?分类="+rs(0))+"｜");
rs.MoveNext();}}
rs.Close();%>
</td><%if(Session("Access")+""=="undefined"||Session("Access")=="Guest"){%>
<td width=50 align=center>
<tt style="cursor:hand" onClick="document.all.Login.style.display='block';document.all.Login.style.left=event.x-140;document.DengLu.YongHu.focus()">登录</tt>
<div style="position:absolute;display:none" id=Login>
<table border bordercolor=black bgcolor=menu bordercolordark=menu cellpadding=0 cellspacing=0 width=150 height=123>
<tr><td bgcolor=abcdef height=27 align=center>用户登录</td></tr>
<tr><form action=<%=FileName%>?模块=登录 method=post name=DengLu>
<td align=center>
用户：<input name=YongHu size=10><dt>
密码：<input type=password name=MiMa size=10><dt>
<input type=submit value=登录>
<input type=button value=取消 onclick="document.all.Login.style.display='none'"></td></form></tr></table></div></td><%}
else{Response.Write("<td width=60 align=center><a href="+FileName+"?模块=管理>文章管理</a></td>");}%></tr></table>
</td></tr>
<tr><td height=21>
<table><tr><td>｜<%Response.Write(WangZhan.link(WangZhi));%>＼<%switch(MoKuai){
case "登录":
Response.Write("用户登录");
break;
case "设置":
Response.Write("版权设置");
break;
case "用户":
Response.Write("用户管理");
break;
case "管理":
Response.Write("文章管理");
break;
default:
if(FenLei!="undefined"){Response.Write(FenLei);}
else if(!isNaN(ID)){
sql="select FenLei,BiaoTi from Article where ShanChu=0 and BH="+ID;
rs.Open(sql,conn);
if(rs.eof){Response.Write("找不到主题");}
else{LeiBie=rs(0)+"";
%><a href="<%=FileName%>?分类=<%=rs(0)%>"><%=rs(0)%></a>＼<%=rs(1)%><%}
rs.Close();}
else{Response.Write("全部文章");}}%></td></tr></table>
</td></tr></table>
<%switch(MoKuai){
/*********** 登录模块 **************/
case "登录":
YongHu=Request.Form("YongHu")+"";
YongHu=YongHu.replace(/'/g,"''");
MiMa=Request.Form("MiMa")+"";
MiMa=MiMa.replace(/'/g,"''");
if(YongHu+""=="undefined"){Session("Access")="Guest";
Response.Write("<Meta http-equiv=refresh content=2;url="+FileName+"><br><center><b>您已退出登录状态。</b></center><br>");}
else{
sql="select * from User where YongHu='"+YongHu+"' and MiMa='"+MiMa+"' and ShanChu=0";
rs.Open(sql,conn);
if(rs.eof){Response.Write("<Meta http-equiv=refresh content=2;url=javascript:history.go(-1)><br><center><b>对不起，您输入的用户名或者密码有误。</b></center><br>");}
else{QuanXian=""+rs(3);
if(QuanXian=="true"){QuanXian=true;}
else{QuanXian=false;}
Session("Access")=QuanXian?"Admin":"User";
Response.Write("<Meta http-equiv=refresh content=2;url="+FileName+"?模块=管理><br><center><b>登录成功。</b></center><br>");}
rs.Close();}
break;
/*********** 文章管理 **************/
case "管理":
if(Request.QueryString("操作")+""=="删除"&&Session("Access")=="Admin"){
sql="update Article set ShanChu=1 where BH="+Request.QueryString("BH");
conn.Execute(sql);}
if(Request.QueryString("操作")+""=="恢复"&&Session("Access")=="Admin"){
sql="update Article set ShanChu=0 where BH="+Request.QueryString("BH");
conn.Execute(sql);}
if(Request.QueryString("操作")+""=="添加"){
sql="select count(*) from Article";
rs.open(sql,conn);
BH=rs(0)+"";
rs.Close();
BiaoTi=Request.Form("BiaoTi")+"";
FenLei=Request.Form("FenLei")+"";
NeiRong=Request.Form("NeiRong")+"";
ZuoZhe=Request.Form("ZuoZhe")+"";
LaiYuan=Request.Form("LaiYuan")+"";
BiaoTi=BiaoTi.replace(/'/g,"''");
FenLei=FenLei.replace(/'/g,"''");
NeiRong=NeiRong.replace(/'/g,"''");
NeiRong=NeiRong.replace(/ /g," ");
NeiRong=NeiRong.replace(/\r/g,"<br>");
ZuoZhe=ZuoZhe.replace(/'/g,"''");
LaiYuan=LaiYuan.replace(/'/g,"''");
RiQi=new Date();
Nian=RiQi.getYear();
Yue=RiQi.getMonth()+1;
if(Yue<10) Yue="0"+Yue;
Ri=RiQi.getDate();
if(Ri<10) Ri="0"+Ri;
RiQi=Nian+"年"+Yue+"月"+Ri+"日";
sql="select top 1 BH from Article where ShanChu=1 order by RiQi asc";
rs.open(sql,conn);
if(!rs.eof){
sql="Update Article set BiaoTi='"+BiaoTi+"',NeiRong='"+NeiRong+"',ZuoZhe='"+ZuoZhe+"',LaiYuan='"+LaiYuan+"',RiQi='"+RiQi+"',DianJi=0,FenLei='"+FenLei+"',ShanChu=0 where BH="+rs(0);}
else{sql="insert into Article values("+BH+",'"+BiaoTi+"','"+NeiRong+"','"+ZuoZhe+"','"+LaiYuan+"','"+RiQi+"',0,'"+FenLei+"',0)";}
rs.Close();
if(Session("Access")=="User"||Session("Access")=="Admin") conn.Execute(sql);}
if(Request.QueryString("操作")+""=="修改"&&Session("Access")=="Admin"){
if(Request.Form("BH")+""!="undefined"){
BiaoTi=Request.Form("BiaoTi")+"";
FenLei=Request.Form("FenLei")+"";
NeiRong=Request.Form("NeiRong")+"";
ZuoZhe=Request.Form("ZuoZhe")+"";
LaiYuan=Request.Form("LaiYuan")+"";
BiaoTi=BiaoTi.replace(/'/g,"''");
FenLei=FenLei.replace(/'/g,"''");
NeiRong=NeiRong.replace(/'/g,"''");
NeiRong=NeiRong.replace(/ /g," ");
NeiRong=NeiRong.replace(/\r/g,"<br>");
ZuoZhe=ZuoZhe.replace(/'/g,"''");
LaiYuan=LaiYuan.replace(/'/g,"''");
RiQi=new Date();
Nian=RiQi.getYear();
Yue=RiQi.getMonth()+1;
if(Yue<10) Yue="0"+Yue;
Ri=RiQi.getDate();
if(Ri<10) Ri="0"+Ri;
RiQi=Nian+"年"+Yue+"月"+Ri+"日";
sql="Update Article set BiaoTi='"+BiaoTi+"',NeiRong='"+NeiRong+"',ZuoZhe='"+ZuoZhe+"',LaiYuan='"+LaiYuan+"',RiQi='"+RiQi+"',FenLei='"+FenLei+"' where BH="+Request.Form("BH");
conn.Execute(sql);}
else{%><div style="position:absolute;top:expression((document.body.clientHeight-320)/2+body.scrollTop);left:expression((document.body.clientWidth-400)/2)" id=XiuGai>
<table border width=400 border bordercolor=black bordercolordark=white cellpadding=0 cellspacing=0>
<tr bgcolor=000070>
<th align=center height=20><font color=white>修改文章</font></th></tr>
<tr bgcolor=menu><td>
<table><tr><%sql="select * from Article where BH="+Request.QueryString("BH");
rs.Open(sql,conn);
BH=rs(0)+"";
BiaoTi=rs(1)+"";
NeiRong=rs(2)+"";
ZuoZhe=rs(3)+"";
LaiYuan=rs(4)+"";
FenLei=rs(7)+"";
rs.Close();
BiaoTi=BiaoTi.replace(/"/g,""");
NeiRong=NeiRong.replace(/<br>\n/g,"\r\n");%>
<form action=<%=FileName%>?模块=管理&操作=修改 method=post><input type=hidden name=BH value=<%=BH%>>
<td width=77 align=center>文章标题</td><td><input size=41 name=BiaoTi value="<%=BiaoTi%>"></td></tr>
<tr><td align=center>所属分类</td>
<td><select onchange="FenLei.value=value">
<option>选择分类</option>
<%sql="Select distinct FenLei from Article where ShanChu=0";
rs.Open(sql,conn);
while(!rs.eof){%><option value="<%=rs(0)%>"><%=rs(0)%></option>
<%rs.MoveNext();}
rs.Close();%>
</select>
<input name=FenLei value="<%=FenLei%>" size="20"></td></tr>
<tr><td align=center valign=top>详细内容</td><td><textarea name=NeiRong rows=10 cols=40><%=NeiRong%></textarea></td></tr>
<tr><td align=center>作者</td><td>
<input name=ZuoZhe value="<%=ZuoZhe%>" size="20"></td></tr>
<tr><td align=center>来源</td><td><input name=LaiYuan size=41 value=<%=LaiYuan%>></td></tr>
<tr><td colspan=2 align=center><input type=button value=关闭 onclick="XiuGai.style.display='none'">
<input type=submit value=修改></td>
</form></tr></table>
</td></tr></table></div><%}
}%><br>
<table cellpadding=0 cellspacing=0 border=1 bordercolor=456789 bordercolordark=white align=center width=770>
<tr><td bgcolor=abcdef align=center valign=top width=210><br>
<p><a href=<%=FileName%>>返回首页</a></p>
<p>文章管理</p><%if(Session("Access")=="Admin"){%>
<p><a href=<%=FileName%>?模块=用户>用户管理</a></p>
<p><a href=<%=FileName%>?模块=设置>版权设置</a></p><%}%>
<p><a href=<%=FileName%>?模块=登录>退出登录</a></p>
<br></td><td valign=top>
<table width=97% align=center><tr>
<td valign=bottom>（单击标题修改文章）</td><td align=right>
<table border style="cursor:hand" width=80 height=30 onclick="WenZhang.style.display='block'">
<tr><td align=center>添加文章</td></tr></table>
</td></tr></table>
<table width=97% align=center border bordercolor=black bordercolordark=white cellpadding=0 cellspacing=0>
<%sql="select BH,BiaoTi,ShanChu from Article order by RiQi DESC";
rs.open(sql,conn,1);
rs.pagesize=17;
page=parseInt(Request.QueryString("页码"));
if(isNaN(page)||page<1) page=1;
if(page>rs.pagecount) page=rs.pagecount;
if(rs.eof){Response.Write("当前没有任何新的文章。");}
else{
rs.absolutepage=page;
for(C=0;C<rs.pagesize;C++){%><tr><td>◆
<a href=<%=FileName%>?模块=管理&操作=修改&BH=<%=rs(0)%>><%=rs(1)%></a></td>
<td width=31 align=center><%if(rs(2)==0){%><a href=<%=FileName%>?模块=管理&操作=删除&BH=<%=rs(0)%>>删除</a><%}
else{%><a href=<%=FileName%>?模块=管理&操作=恢复&BH=<%=rs(0)%>><font color=green>恢复</font></a><%}%></td></tr>
<%rs.MoveNext();
if(rs.eof) break;}}
pagecount=rs.pagecount;
recordcount=rs.recordcount;
rs.Close();%>
<tr><td height=30 colspan=2> <%if(page>1){%>[<a href=<%=FileName%>?模块=管理>首页</a>] [<a href=<%=FileName%>?模块=管理&页码=<%=page-1%>>上一页</a>] <%}%><%if(page!=pagecount){%>[<a href=<%=FileName%>?模块=管理&页码=<%=page+1%>>下一页</a>] [<a href=<%=FileName%>?模块=管理&页码=<%=pagecount%>>最后</a>] <%}%>跳转到第
<select onchange="location.replace('<%=FileName%>?模块=管理&页码='+value)">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -