zblog微博客的插件制作思路 - 建站技术

zblog微博客的插件制作思路【建站技术】

今天有空,就仔细地写了一上Zblog的微博客制作过程,以下为本人写的代码,有兴趣的朋友可以参考一下.因为涉及到代码安全,下面的一些变量有可能会出现对不上的现象,如果有BUG的话,欢迎提出来我再及时改正.

总体的思路是前台是静态页面,利用js调用asp页面,调出数据及输入框,后台处理数据并传递到前台显示.

1、数据库字段的设计
基于access数据库,表名为tblog
id,自增,
content,备注
pubtime,备注,默认值为now();

2、数据库连接驱动
asp连接access的驱动,因为编码为UTF-8,所以要特别注意编码,文件名保存为conn.asp,代码如下：

<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%
dim conn,mdbpath,connstr
mdbpath="tinyblog.mdb"
set tiny_conn=server.createobject("adodb.connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbpath)
conn.open connstr
%>

3、前台页面的设计,前台数据的调用
前台页面的代码:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-CN" lang="zh-CN">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<meta http-equiv="Content-Language" content="zh-CN" />
<script src="/THEMES/模板名称/PLUGIN/showajax.js"></script>
<title>Zblog微博客</title>
</head>
<body>
<script src="/THEMES/模板名称/PLUGIN/showdata.asp"></script>
</body>
</html>

先说一下前台数据的调用,就是从数据库中读取数据并展现出来,此段代码和上面的代码可共同保存为showdata.asp,代码如下:

<!--#include file="conn.asp"-->
<%
response.Write "document.write('<table width=""660"" align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"">');"
response.Write "document.write('<tr><td id=""myshow"">');"

set rs=server.CreateObject("adodb.recordset")
sql="select * from tblog order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "document.write('I want to say nothing!');"
else
  do while not rs.eof
  pubtime=formatdatetime(rs("pubtime"),2)
response.Write "document.write('<li><span>["&pubtime&"]</span>  "&rs("content")&"</li>');"
  rs.movenext
  loop
end if
rs.close
set rs=nothing

response.Write "document.write('</td></tr>');"
response.Write "document.write('</table>');"
%>

为什么要用document.write呢?因为前台我做的是静态页面,用js来调用asp,这样的好处是只需要维护一个文件(如果考虑收录的话,前台就用动态页面调用)
再说一下界面的设计元素,前台需要展现的元素有：输入框(textarea),密码框(text,为了防止别人随意提交,如果放在后台,此可省去此输入框),一个提交按钮,用来触发校验,还有一个隐藏的span,赋值一个id,用来接收Ajax处理数据返回的提示信息,文件名保存为showdata.asp,代码如下：

<%
response.Write "document.write('<div id=""showblog""><h3>请在下面叨唠！</h3>');"
response.Write "document.write('<textarea id=""scontent"" style=""width:500px;height:100px;""></textarea><br />');"
response.Write "document.write('<input type=""text"" id=""spassword"" />');"
response.Write "document.write('  <input type=""submit"" id=""ssubmit"" value=""发表"" onclick=""Check()"" />');"
response.Write "document.write('  <span id=""msg""></span></div>');"
%>

4、js处理数据提交到后台,文件名为showajax.js,代码如下:

function GE(a){return document.getElementById(a);}
function Check(){
 if(GE('scontent').value==''){GE('msg').innerHTML='内容不能为空';return false}
 if(GE('scontent').value.length<10){GE('msg').innerHTML='兄弟，你说的是不是太少了啊？';return false}
 if(GE('scontent').value.length>100){GE('msg').innerHTML='兄弟，你的话太多了，可以分段说的！';return false}
 if(GE('spassword').value==''){GE('msg').innerHTML='password 不能为空';return false}
 var X;
  try {
  X=new ActiveXObject("Msxml2.XMLHTTP");
  } catch (e) {
  try {
  X=new ActiveXObject("Microsoft.XMLHTTP");
  } catch (e) {
  X=false;
  }
  }
  if(!X&&typeof XMLHttpRequest!='undefined') {
  X=new XMLHttpRequest();
  }
  
 if(X){
  GE('ssubmit').disabled=true;
  X.onreadystatechange=function(){
   if(X.readyState==4){
    if(X.status==200){
     eval(X.responseText);
    }
    else{GE('msg').innerHTML=X.statusText}
   }
   else{GE('msg').innerHTML="正在提交数据..."}
  };
  X.open('POST','/THEMES/模板名称/PLUGIN/dealdata.asp',true);
  X.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
  var SendData = 'scontent='+GE('scontent').value+'&spassword='+GE('spassword').value
  X.send(SendData)
 }
 else{
 GE('msg').innerHTML='你的浏览器不支持XMLHttpRequest'
 }
}

5、后台处理数据,完毕后处理两件事,先清空前台提交的数据,再读取数据并赋值到前台ID,文件名为dealdata.asp,代码如下:

<!--#include file="conn.asp"-->
<%
dim scontent, spassword, str1, str2
scontent=trim(Request.Form("scontent"))
spassword=trim(Request.Form("spassword"))
str1=""
str2=""

If scontent="" or len(scontent)<10 or len(scontent)>100 then
   str1 = "你是不是没有写点什么？还是写的太少，或者写的太多？（10-100字）"
   Response.Write "GE('msg').innerHTML='" & str1 & "';GE('ssubmit').disabled=false"
elseif spassword<>"admin" then '密码为admin,可自己修改
   str1 = "密码不正确，请确认你的密码！"
   Response.Write "GE('msg').innerHTML='" & str1 & "';GE('ssubmit').disabled=false"
else
    '处理数据入库
    set insert_rs=server.CreateObject("adodb.recordset")
    insert_sql="insert into tblog (content,pubtime) values ('"®id&"','"&now()&"')"
    conn.execute(insert_sql)
    
    '读取数据,前台调用
    set rs=server.CreateObject("adodb.recordset")
    sql="select * from tinyblog order by id desc"
    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
      str2=str2&"No Data"
    else
      do while not rs.eof
      str2=str2&"<li>"&rs("content")&"</li>"
      rs.movenext
      loop
    end if
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    
    str1="恭喜您，成功地唠叨了一下！"    
  Response.Write "GE('msg').innerHTML='" & str1 & "';"
  Response.Write "GE('myshow').innerHTML='" & str2 & "';"
  Response.Write "GE('scontent').value='';"
  Response.Write "GE('spassword').value='';"
  Response.Write "GE('ssubmit').disabled=false"
 
end if
Response.End
%>

流行热度：超过人阅读
关键词：zblog微博客 zblog插件 zblog
发布日期：daniel 发表于 2010-2-7 22:50:17
所属分类：【网站SEO - WEB标准】 - 【建站技术】
文章链接：http://www.cookseo.com/blog/web/225/ [点击复制] (转载时请注明本文出处及文章链接)
引用地址：点击这里获取该日志的TrackBack引用地址

开发Zblog微博客插件叨唠功能已实现 js+css实现图片横向左右滚动并悬停的效果，兼容主流浏览器

您或许对与建站技术相关的文章感兴趣：

开发Zblog微博客插件叨唠功能已实现 (2010-2-6 22:1:33)

网站改版后在百度表现良好，旧版皮肤作者网站被K (2009-12-23 22:19:15)

Zblog皮肤制作初步完工，插件开发考虑中 (2009-12-22 15:23:0)

正在制作一款Zblog皮肤 (2009-12-16 14:8:0)

这是我用Windows Live Writer写的第一篇Zblog文章 (2009-7-29 4:52:0)

PJblog的404和Zblog的404页面设置 (2009-7-28 13:22:28)

zblog插件Ping中心常用网址 (2009-6-28 21:20:25)

友情链接还能搞成这个样子啊，长见识了！ (2009-6-27 13:46:36)

本文被踩了(7)次, 既然来了，我也要踩一脚