<%@ Language=VBScript codepage=936%> <% if admindj="3" then Response.Write "



权限不足,你没有此功能的管理权限" Response.end end if %> <% Delid=trim(chkhtm(request("Delid"))) if Delid<>"" then conn.Execute "delete from [xsProMB] where ID="&Clng(delid) %>
产品模板管理

增加产品模版 搜索模版管理 投稿模版管理 更多精美模版

<% sql = "select * from [XsProMB] order by id desc" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 if rs.recordcount<>0 then for i=0 to rs.recordcount %> <% rs.movenext if rs.eof then exit for next else response.write "" end if %>
<%=rs("title")%> ">修改 ">删除
还没有记录!
<% conn.close set conn=nothing %>