简单ASP留言本讲解,适合新手!

答案：文件分解

总共文件包含:config.asp,gbdata.mdb,help.asp,index.asp,style.css,UBB.ASP,images
config.asp          留言本配置文件
gbdata.mdb        留言本数据库文件
help.asp            留言本帮助文档
index.asp          留言本主要文件
style.css           留言本样式表文件
UBB.ASP          留言本UBB代码转换文件
images            留言本图片文件

config.asp


  CODE: [Copy to clipboard]   
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Dim gbname,mpass,mskin,action,skinnum,i
Dim tmpname,tmptopic,id,lid,tmpinfo,tmpDefault
Dim conn,connstr,rs,sql,Datepath
Dim topic,user,wtime,word,oicq,email,islook
Dim password

'*******设置以下部分即可****************************

gbname="Freeing's Gbook!"        '留言本的名称
mpass="im286.com"                        '管理员密码
mskin=1                                '默认模板(1-7)
Datepath="gbdata.mdb"                '数据库名称的路径
'首页默认显示内容
tmpDefault="<p style='margin:5px;'><img src='images/list.gif'> 关于本子：</p>"&_
                "<p style='margin:3px;margin-left:15px;font:12px;'>"&_
                "无版权，可以任意修改。"&_
                "<br>无技术含量，简单的一个留言功能。"&_
                "<br>模板比较好看，如果你喜欢可以自己添加些功能。"&_
                "<br>我现在失业中。。。能否给偶谋份工作？"&_
                "<br>如果你需要这个本子更大的功能，请联系作者给你顶做（要米米的^_^）。"&_
                "<br><br>默认管理员密码是：im286.com"&_
                "<br><br><p style='margin:5px;'><img src='images/list.gif'> 相关连接：</p>"&_
                "<p style='margin:3px;margin-left:15px;font:12px;'>"&_
                "<a href=>                ""&_
                "<br><a href=>http://www.im286.com/' target='_blank'>落伍者论坛</a>    <font color='c3c3c3'>我还没页子^_^'(没得空间&_&)</font>"&_
                "    <a href=>http://www.xn180.com/'>咸宁桂乡</a>"&_
                ""

'************************************************
tmpname=""          '默认当前摸块名称变量
tmptopic=""           '首页临时显示主题变量
id=trim(request.querystring("id"))          '获取当前查看留言的ID
skinnum=trim(request.querystring("skin"))          '获取当前用户选择的摸板值
action=LCase(trim(request.querystring("action")))          '获取当前摸块

On Error Resume Next          '容错
Set conn = Server.CreateObject("ADODB.Connection")          '创建ADODB连接
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Datepath)
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(Datepath)          '数据库驱动
conn.Open connstr          '打开数据库

If Err Then          '如果有错误
        Err.Clear          '清除错误
        Set Conn = Nothing          '关闭数据库连接
        Response.Write "数据库连接出错，请检查连接字串。"          '输出错误信息
        Response.End          '结束输出
End If

Function post_chk()          '判断数据来源函数,返回"yes"
        Dim server_v1,server_v2
        post_chk="no"
        server_v1=Request.ServerVariables("HTTP_REFERER")
        server_v2=Request.ServerVariables("SERVER_NAME")
        If mid(server_v1,8,len(server_v2))=server_v2 then post_chk="yes":Exit Function
End Function
%> 
 

gbdata.mdb 

表:Im286_freeing_gbdata
ID,自动编号          '留言的唯一识别号,是唯一的
topic,文本,字段大小50          '留言的标题
user,文本,字段大小50          '留言者
oicq,数字,长整(PS:整数就可以了^_^)          '留言者的OICQ号码
email,文本,字段大小50          '留言这的EMAIL
islook,是否          '是否是隐藏的,隐藏的仅管理员登录后可见
word,备注          '留言的内容
rword,备注 &nb

上一个：ASP中实现对IP过滤限制
下一个：ASP分页带选择页数跳转