<% Set Rs = Server.CreateObject("Adodb.Recordset") Sql = "SELECT * FROM cjbook order by id desc" Rs.Open Sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage,parent gopage="cjbook.asp?sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For %><%=i+(page-1)*PageSize%>.<%=ubb(rs("name"))%>
<% rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页>>" Else %> (没有模板) <%end if%> <% Rs.close set rs=nothing Response.Write("
[添加模板]
") end Function Function add%>

模板名称:

开始位置:

结束位置:

网页编码: utf-8 GB2312
图片相对地址:
发布
[模板管理]
<% end Function Function edit id=TRim(Request("id")) if not isnumeric(id) then id="" if id="" then%>

ID无效.
<%else Set Rs = Server.CreateObject("Adodb.Recordset") Sql = "SELECT * FROM cjbook where id="&id Rs.Open Sql,conn,1,1 if not (rs.bof and rs.eof) then %>

模板名称:
"/>
开始位置:
"/>
结束位置:
"/>
网页编码: "> utf-8 GB2312
图片相对地址:"/>
修改
[模板管理]
<%else%>

没有该模板!
<%end if Rs.close set rs=nothing end if end Function Function view id=TRim(Request("id")) if not isnumeric(id) then id="" if id="" then%>

ID无效.
<%else%>

<% Set Rs = Server.CreateObject("Adodb.Recordset") Sql = "SELECT * FROM cjbook where id="&id Rs.Open Sql,conn,1,1 if not (rs.bof and rs.eof) then %> 模板名称:<%=ubb1(rs("name"))%>
开始位置:<%=ubb1(rs("starwml"))%>
结束位置:<%=ubb1(rs("overwml"))%>
网页编码:<%=ubb1(rs("ubm"))%>
相对地址:<%=ubb1(rs("addurl"))%>
[编辑] [删除]
[模板管理]
<%else%> 暂无模板!
<%end if Rs.close set rs=nothing end if end Function Function del id=TRim(Request("id")) if not isnumeric(id) then id="" if id="" then%>

ID无效.
<%else if Request("del")="true" then set rs=server.CreateObject("adodb.recordset") Sql = "SELECT * FROM cjbook where id="&id rs.open sql,conn,1,3 if not (rs.bof and rs.eof) then rs.delete end if Rs.close set rs=nothing%>

已成功删除该模板!
[模板管理]
<%else%>

是否要删除该模板?
[确定删除]
返回上页
[模板管理]
<%end if end if end Function Function save name=Trim(Request("name")) addurl=Trim(Request("addurl")) starwml=Trim(Request("starwml")) overwml=Trim(Request("overwml")) ubm=Trim(Request("ubm")) id=TRim(Request("id")) if not isnumeric(id) then id="" if name="" then errmsg=errmsg&"模板标题不能为空
":flag=0 if starwml="" then errmsg=errmsg&"开始位置不能为空
":flag=0 if overwml="" then errmsg=errmsg&"结束位置不能为空
":flag=0 if ubm="" then errmsg=errmsg&"网页编码不能为空
":flag=0 if Request("edit")="edit" then if id="" then errmsg=errmsg&"ID无效
":flag=0 if flag<>"0" then set rs=server.CreateObject("adodb.recordset") sql="select * from cjbook where id="&id rs.open sql,conn,1,3 rs("name")=name rs("addurl")=addurl rs("starwml")=starwml rs("overwml")=overwml rs("ubm")=ubm rs.update() Rs.close set rs=nothing%>

修改模板成功

[模板管理]
<%else Response.Write("

") Response.Write(""&errmsg&"
[返回修改]
") end if else if flag<>"0" then set rs=server.CreateObject("adodb.recordset") sql="select * from cjbook" rs.open sql,conn,1,3 rs.addnew() rs("name")=name if addurl<>"" then rs("addurl")=addurl rs("starwml")=starwml rs("overwml")=overwml rs("ubm")=ubm rs.update() Rs.close set rs=nothing%>

添加模板成功

[模板管理]
<%else Response.Write("

") Response.Write(""&errmsg&"
[返回修改]
") end if END IF end Function%> [后台管理]
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>