📄 jsdel.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5
💻 ASP
字号:
<!--#include file = include.asp-->
<!--#include file = JSDelSave.asp-->
<!--#include file = CheckPurview.asp-->
<%
  Domain=Request.ServerVariables("SERVER_NAME")
  gFilePath=Request.ServerVariables("PATH_INFO")
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  CountN=len(gFilePath)
  gFilePath=lcase(left(gFilePath,CountN-1))
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  AllPath="Http://"&Domain&gfilepath

  if request.form("operation")="DEL" then
    num=request.form("ID").count
    for i=1 to num
      conn.execute("delete from jsFIle where ID="&request.form("ID")(i)&"")	 
    next
	if request.form("type")="文字商务信息" then
	  Call WordNews
	else
      select case request.form("PhotoCSS")
	  case "CSS1" Call CSS1
	  case "CSS2" Call CSS2
	  case "CSS3" Call CSS3
	  end select
	end if
  end if

  if request.querystring("JSNameCN")="" then response.redirect"JsManage.asp" 
  set rs=Server.CreateObject("adodb.recordset")
  sql="select * from JSFile where JSName='"&request.querystring("JSNameCN")&"' order by id desc"
  rs.open sql,conn,1,1
%>
<body background="images/BLogo.gif">
<form name="form" method="POST" action="">  
  <p>&nbsp;</p>
  <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="567" border="0" cellpadding="0" align="center" cellspacing="1" bgcolor="#96C5DE">
    <tr> 
      <td colspan="4"><!--#include file = topMenu.htm--></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="27" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center" width="472"><b>商务信息标题</b><b></b></td>
      <td height="27" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center" width="41">修改</td>
      <td height="27" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center" colspan="2" width="47"><b>删除</b></td>
    </tr>
    <% while not rs.eof %> 
    <tr bgcolor="#FFFFFF"> 
      <td height="20" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; width="472"><a href="#"> 
        </a><%
  response.write ("<a href="&AllPath&rs("BigClassEN")&"\"&rs("SmallClassEN")&"\"&rs("FileName")&".htm target=_blank>"&rs("Title")&"</a>")
%> </td>
      <td height="20" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; align="center" width="41">
	  <%
        if request.querystring("type")="图片商务信息" then 
          response.write ("<a href=JSModifyPic.asp?ID="&rs("ID")&"&Type="&request.querystring("type")&"&PhotoCSS="&request.querystring("PhotoCss")&"&JSName="&rs("JSName")&">修改</a>")
		else
          response.write ("<font color=#c0c0c0>修改</font>")
		end if
	  %>
	  </td>
      <td height="20" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; colspan="2" align="center" width="47"> 
        <input type=checkbox name=ID value=<%=rs("ID")%>>
      </td>
    </tr>
    <% 
	 JSName=rs("JSName")
     rs.movenext     
   wend
   rs.close
   set rs=nothing
%> 
    <tr> 
      <td bgcolor=#ffffff align=right colspan="4"> 
        <input type=hidden value=<%=request.querystring("type")%> name=Type>
        <input type=hidden value=<%=JSName%> name=JSName>
        <input type=hidden value=<%=request.querystring("PhotoCss")%> name=PhotoCss>
        <input type=hidden value=DEL name=operation>
        <input type=submit value=删除 onclick="return Del()">
      </td>
    </tr>
  </table>
</form>
⌨️ 快捷键说明

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