如何用ASP制作网络日志管理系统

如何用ASP制作网络日志管理系统 作者:郑维丰 丰琴日志管理系统 1. conn.asp <% '连接数据库 Set db = Server.CreateObject("ADODB.Connection") db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("diary.mdb") %> 2. top.asp

丰琴日志

---

3. bottom.asp
4. style.css 5. index.asp

[后台管理]

<% Dim sql Dim rs '建立 Recordset 对象并以追加记录方式打开数据库表 classmat Set rs=Server.CreateObject("ADODB.Recordset") sql="Select*from words" rs.Open sql,db,1,1 If rs.EOF Or rs.BOF Then Response.Write "数据库中暂无资料～" Else rs.Pagesize=13 Size=rs.Pagesize Pagecount=rs.Pagecount page=Int(Request.QueryString("page")) If Request.QueryString("page")="" Then page=1 If page<1 Then page=1 If page>rs.Pagecount Then page=rs.Pagecount rs.Absolutepage=page %> 作者:郑维丰 <% For i=0 to size-1 If Not rs.EOF Then %> <% rs.Movenext End If Next End If %>

	标题	发表时间	浏览
	target="_self"><%=rs("title")%>	<%=rs("time")%>	<%=rs("count")%>

---

作者:郑维丰 6. dispI.asp <% If Not IsEmpty(Request.QueryString("id")) Then id=Request.QueryString("id") Else id=1 End If %> <% Function zdp(content) zdp=content If content<>"" Then zdp=Replace(zdp,Chr(13),"
") zdp=Replace(zdp,Chr(34),""") zdp=Replace(zdp,Chr(32)," ") End If End Function %> <% Set rs=Server.CreateObject("ADOdb.Recordset") sql="select * from words where id="&id rs.Open sql,db,1,3 rs("count")=rs("count")+1 rs.Update 作者:郑维丰 %>

<%=rs("title")%>
作者:<%=rs("name")%>    该日志被浏览了<%=rs("count")%>次	返回
<%=zdp(rs("content"))%>
发表时间:<%=rs("time")%>	返回

作者:郑维丰 7. login.asp <% If Request("act")="check" Then Set rs=Server.CreateObject("ADODB.Recordset") rs.Open "select * from admin where username='"& Trim(Request.Form("username")) & "' and password='"& Trim(Request.Form("password")) & "'",db,1,1 If rs.EOF and rs.BOF Then Response.Write"" Response.End Else Session("user")=rs("username") Response.Redirect"admin.asp" End If rs.Close Set rs=Nothing db.Close Set conn=Nothing End If %> <% If Request("XHType")="" Or Request("XHType")="login" Then Call login() ElseIf Request("XHType")="logout" Then Call logout() End If 作者:郑维丰 %> <% Sub logout() Session("user")="" Call login() End Sub %> <% Sub login() %> 作者:郑维丰

管理登录
用户名:
密  码:

<% End Sub %> 8. admin.asp <% if session("user")="" then response.write"" 作者:郑维丰 response.end end if %> <% sql="select * from words order by id desc" Set rs=db.execute(sql) %>

[发表日志]   [退出管理]

<% Dim sql Dim rs '建立 Recordset 对象并以追加记录方式打开数据库表 classmat Set rs=Server.CreateObject("ADODB.Recordset") sql="Select*from words" rs.Open sql,db,1,1 If rs.EOF Or rs.BOF Then Response.Write "数据库中暂无资料～" Else rs.Pagesize=13 Size=rs.Pagesize Pagecount=rs.Pagecount page=Int(Request.QueryString("page")) If Request.QueryString("page")="" Then page=1 If page<1 Then page=1 If page>rs.Pagecount Then page=rs.Pagecount rs.Absolutepage=page %> 作者:郑维丰 <% For i=0 to size-1 If Not rs.EOF Then %> <% rs.Movenext End If Next End If %>

ID	日志标题	发表时间	操作
<%=rs("id")%>	target="_self"><%=rs("title")%>	<%=rs("time")%>	>编辑   onClick='return ConfirmDel()'>删除

---

9. dispA.asp <% If Not IsEmpty(Request.QueryString("id")) Then id=Request.QueryString("id") Else id=1 End If %> <% Function zdp(content) zdp=content If content<>"" Then zdp=Replace(zdp,Chr(13),"
") 作者:郑维丰 zdp=Replace(zdp,Chr(34),""") zdp=Replace(zdp,Chr(32)," ") End If End Function %> <% Set rs=Server.CreateObject("ADOdb.Recordset") sql="select * from words where id="&id rs.Open sql,db,1,3 rs("count")=rs("count")+1 rs.Update %> 作者:郑维丰

<%=rs("title")%>
作者:<%=rs("name")%>    该日志被浏览了<%=rs("count")%>次	返回
<%=zdp(rs("content"))%>
发表时间:<%=rs("time")%>	返回
>编辑     onClick='return ConfirmDel()'>删除

10. write.asp <% if session("user")="" then response.write"" response.end end if %>

作者:郑维丰 发表日志
录入时间:	<%=now()%>
日志标题:
日志内容:
发表作者:
作者:郑维丰

11. save.asp <% Set rs=Server.CreateObject("ADOdb.Recordset") sql="select * from words" rs.Open sql,db,1,3 rs.Addnew rs("time")=Now() rs("title")=Trim(Request.form("title")) rs("content")=Server.HTMLEnCode(Request.form("content")) rs("name")=Trim(Request.form("name")) rs("count")=0 rs.Update rs.Close Set rs=Nothing Response.Write"" %> 作者:郑维丰 12. edit.asp <% if session("user")="" then response.write"" response.end end if %> <% id=Request.QueryString("id") Set rs=Server.CreateObject("ADOdb.Recordset") editsql="select * from words where id="&id rs.Open editsql,db,1,3 %> <% If Request.form("active")="" Then Else rs("title")=Trim(Request.form("title")) rs("content")=Server.HTMLEnCode(Request.form("content")) rs("name")=Trim(Request.form("name")) rs.Update Response.Write"" End If %>

作者:郑维丰 发表日志
录入时间:	<%=now()%>
日志标题:	">
日志内容:
	<%=rs("content")%>
发表作者:	">
作者:郑维丰

13. delnew.asp <% id=Request.QueryString("id") delsql="delete * from words where id="&id db.execute(delsql) %>