%@ 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("title")%> |
">修改 ">删除 |
<%
rs.movenext
if rs.eof then exit for
next
else
response.write "| 还没有记录! |
"
end if
%>
<%
conn.close
set conn=nothing
%>