📄 index.asp

📁 全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述：软件名称：全球商务网站系统当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）
💻 ASP
字号:
<%@ codepage ="936" %>
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
if instr(Request.Cookies("globalec")("masterflag"),"24")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<SCRIPT language=javascript1.2 src="../css/iXs_Main.js"></SCRIPT>
<script>
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "解除全选"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "选择全部";}}
</script>
<title>帮助信息管理</title>
<%
if not isempty(request("selAnnounce")) then
newsidlist=request("selAnnounce")
if instr(newsidlist,",")>0 then
dim newsidarr
newsidArr=split(newsidlist)
dim log_newsid
for i = 0 to ubound(newsidarr)
log_newsid=clng(newsidarr(i))
call deleteannounce(log_newsid)
next
else
call deleteannounce(clng(newsidlist))
end if
end if
keywords=replace_text(request("keywords"))
if request("typeid")>"" then
if Chkrequest(request("typeid")) then
typeid=request("typeid")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
end if

set rs=server.createobject("adodb.recordset") 
sql="select * from mod"
sql=sql&" order by -id desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 

msg_per_page=20 '定义每页显示记录条数
%>
<!--#include file="../../inc/headpage.asp"-->
<HEAD><TITLE>网站模版管理</TITLE>
<META content=zh-cn http-equiv=Content-Language>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
</HEAD>
<BODY>
<table width="98%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder">
<tr> 
<th width="100%" height=25 class="tableHeaderText">企业自助建站模版管理</th>
</tr>
<tr>
<td class="forumRowHighlight">
<p><B>注意</B>：<BR><font color=red>①删除模版时要注意，如果删除了企业已经选定的模版，企业的自助建站可能会无法运行！</font><BR>
<font color=blue>②添加模版后，要相应的在/company/目录下面建立对应的模版目录，设计好一个模版后通过FTP上传到网站的/company/目录下面即可。</font><br></td>
</tr>
</table>
<br>
  <form name="search" method="POST" action="index.asp">
  <TABLE border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="#111111" bordercolorlight="#CAE6FF" bordercolordark="#CAE6FF" bgcolor="efefef" class="tableBorder" style="border-collapse: collapse">
<tr><td>
<%
if rs.eof then
response.Write"<br><br><div align='center'>暂无数据信息</div><br><br>"
else
%></td></tr>
<TR>
    <TH class=tableHeaderText colSpan=6 height=25>已添加的自助建站模版列表</strong></TH>
<TR height=25 bgcolor="#cccccc">
<TD width="39" align="left" class=bodytitle><font color="#CC3300"><b>ID号</b></font></TD>
<TD width="198" class=bodytitle><font color="#CC3300"><b>模板名称</b></font></TD>
<TD width="421" class=bodytitle><font color="#CC3300"><b>模板说明</b></font></TD>
<TD width="166" class=bodytitle><font color="#CC3300"><b>所在目录</b></font></TD>
<TD width="47" align="center" class=bodytitle><font color="#CC3300"><b>修改</b></font></TD>
<TD width="53" align="center" class=bodytitle><font color="#CC3300"><input type='submit' value='删除'></font></TD>
</TR>
<TR height="20" bgcolor="#ffffff">
<%
do while not rs.eof and rowcount > 0
%> 
<TD width="39" align="left" class=forumRow><%=rs("id")%></TD>
<TD width="198" class=forumRow>
<a href="javascript:win=window.open('/company/<%=rs("src")%>','contact','width=540,height=500,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();" title="点击查看模版样式"><%=rs("type1")%></a></TD>
<TD width="421" class=forumRow>
<%=rs("alt")%>　</TD>
<TD width="166" class=forumRow>/company/<%=rs("typename")%></TD>
<TD width="47" align="center" class=forumRow> <a href="edit.asp?id=<%=rs("id")%>">修改</a></TD>
<TD width="53" align="center" class=forumRow>
<input type='checkbox' name='selAnnounce' value='<%=cstr(rs("id"))%>'></td>
</TR><%
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rs.movenext
loop
end if
%>
    <tr height="20" bgcolor="#ffffff">
      <td colspan="6" align="left" class=forumRow><div align="right">
          <input name="button" type=button onClick="this.value=check(this.form)" value=" 全部选定 ">
      </div></td>
    </tr>
<TR height="20" bgcolor="#ffffff">
<td class=forumrowHighLight align="center" colspan="6"><b><%=listPages("index.asp")%></b></td>  </TR>
</table>
  </form>
  <%
sub deleteannounce(newsid)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from [mod] where id="&cstr(newsid)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>
<!--#include file="../copy.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -