个人网站设计之上网导航设计

t_Classlist
End Function

3．3．5 模版管理
a.界面

b.功能说明：模版基本采用标签化，有利自由开发。
c.部分代码如下（生成函数，后台代码基本模块化了）
<%sub main()
dim action
action=trim(Request("action"))
select case action
 case "adddemo"
call adddemo()
 case "savedemo"
call savedemo()
 case "deldemo"
call deldemo()
 case "editdemo"
call editdemo()
 case "saveeditdemo"
call saveeditdemo()
 case "demono"
call demono()
 case "demoyes"
call demoyes()
 case ""
call demolist()
end select
end sub
sub demolist()%>
<table width="100%" cellspacing="1" cellpadding="3" bgcolor="#ACC1FF" ALIGN="CENTER">
<%set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from www654cn_DEMO order by demoid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<tr bgcolor=#ffffff height=20><td colspan=5 >目前还没有模版！</td></tr></table>"
else%>
<tr bgcolor="#73A2D6">
 <td ALIGN="center">ID</td>
 <td bgcolor="#73A2D6">模版名称</td>
 <td bgcolor="#73A2D6">模版介绍</td>
 <td bgcolor="#73A2D6">最后修改日期</td>
 <td bgcolor="#73A2D6" ALIGN="center">修改</td>
 <td bgcolor="#73A2D6" ALIGN="center">删除</td>
 <td ALIGN="center" bgcolor="#73A2D6" class="font_title_2">启用</td>
</tr>
<%do while not rs.EOF%>
<tr bgcolor="#EBF2F9">
 <td bgcolor="#73A2D6" align="center"><%=rs("demoid")%></td>
 <td><%=rs("demoname")%></td>
 <td>    <%=rs("demoinfo")%></td>
 <td><%=rs("addtime")%></td>
 <td ><a href=admin_demo.asp?action=editdemo&demoid=<%=rs("demoid")%>>修改</a></td>
 <td><A HREF=admin_demo.asp?action=deldemo&demoid=<%=rs("demoid")%> onclick="{if(confirm('你确定删除吗?请小心')){return true;}return false;}">删除</A></td>
 <td ><%if rs("ifuse")=1 then%>
 <A HREF=admin_demo.asp?action=demono&demoid=<%=cstr(rs("demoid"))%>>是</A>
 <%else%>
 <A HREF=admin_demo.asp?action=demoyes&demoid=<%=cstr(rs("demoid"))%>

首页上一页 9 10 11 12 13 14 15 下一页尾页 12/15/15

个人网站设计之上网导航设计(十二)