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 ><font color=#cc0000>目前还没有模版！</font></td></tr></table>"
else%>
<tr bgcolor="#73A2D6">
<td ALIGN="center"><b class="font_title_2">ID</b></td>
<td bgcolor="#73A2D6"><b class="font_title_2">模版名称</b></td>
<td bgcolor="#73A2D6"><b class="font_title_2">模版介绍</b></td>
<td bgcolor="#73A2D6"><b class="font_title_2">最后修改日期</b></td>
<td bgcolor="#73A2D6" ALIGN="center"><b class="font_title_2">修改</b></td>
<td bgcolor="#73A2D6" ALIGN="center"><B class="font_title_2">删除</B></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"><b><%=rs("demoid")%></b></td>
<td><font color=#0033cc><%=rs("demoname")%></font></td>
<td> <font color=#666666><%=rs("demoinfo")%></font></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"))%>><FONT COLOR=#0000ff>是</FONT></A>
<%else%>
<A HREF=admin_demo.asp?action=demoyes&demoid=<%=cstr(rs("demoid"))%>
首页 上一页 9 10 11 12 13 14 15 下一页 尾页 12/15/15
个人网站设计之上网导航设计(十二)由毕业论文网（www.huoyuandh.com）会员上传。
