如何用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) %>