ndb my
'定义SQL查询
sql="select * from main where user_id =" & id
'打开表用于写
changetable my,sql,rs
'删除贴
rs.delete
rs.update
'关闭表和数据库连接
closetable rs
closedb my
'转到初始页面
response.redirect "index.asp"
end sub
'加新贴子程序
sub addrec()
'打开数据库连接
opendb my
'定义SQL查询
sql="select * from main where user_id is null"
'打开
changetable my,sql,rs
'加入新记录
rs.addnew
rs("user_ip")=request.servervariables("remote_addr")
rs("user_name")=request.form("name")
rs("user_email")=request.form("email")
rs("user_oicq")=request.form("oicq")
rs("user_from")=request.form("from")
rs("user_http")=request.form("http")
rs("user_face")=request.form("face")
'留言的内容要处理一下再入库
rs("user_ly")=pro(request.form("ly"))
rs.update
'关闭表和数据库连接
closetable rs
closedb my
end sub
%>
四、在<html>标签之前，还要加入读取留言本信息的程序段，用来显示导航条
<%
opendb my
opentable my,"main",rs
homepage=rs("user_homepage")
name=rs("user_nick")
user=rs("user_name")
perpage=rs("user_perpage")
closetable rs
closedb my
%>
五、现在来完成最重要的几个部份，也就是在<html></html>之间的部份。
有这么几个：
最开始是显示一个简单的导航条
<A HREF="#top"></A>
<TABLE cellSpacing=0 cellPadding=1 width=650 align=center bgColor=#000000
border=0>
<TBODY>
<TR>
<TD>
<TABLE class=table002 cellSpacing=0 cellPadding=4 width=650 border=0>
<TBODY>
<TR>
<TD class=jnfont5 vAlign=center align=left><B>>> </B><A
href="<%=homepage%>" title=返回主页>主页</A> | <A
href="index.asp?action=showmodify" title=编辑你的个人资料>修改资料</A> |
<%if session("lybmanage")="" then%>
<A href="index.asp?action=manage" title=回复或删除留言>留言管理</A>
<%else%>
<a href="index.asp?action=logout" title=退出管理模式>退出管理</a>
<%end if%>
</TD>
<TD class=jnfont5 vAlign=center align=right>
<%=name&"留言薄"%>
</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<br>
然后根据参数选择后面要显示的部份
<%action=request("action")
select case action
case ""
showadd
showrec
case "showmodify"
if session("lybmanage")="" then
showlogin
else
showmodify
end if
case "manage"
if session("lybmanage")="" then
showlogin
else
showadd
showrec
end if
end select%>
下面是这几个子程序：
showadd 显示加新贴表单子程序
<%sub showadd()%>
<DIV align=center>
<FORM onsubmit="return Juge(this)" action="index.asp" method="post">
<TABLE cellSpacing=1 cellPadding=3 width=650 bgColor=#000000 border=0>
<TBODY>
<TR>
<TD class=table001 vAlign=top width=300 height=170>
<TABLE cellSpacing=2 cellPadding=2 width="95%" bo
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
