操作文件

<head>
<title>模块新增管理</title>
<LINK href="../Css/Forum.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript src="Js/SoftJs.js"></SCRIPT>
<meta NAME=GENERATOR Content="Microsoft FrontPage 6.0" CHARSET=GB2312>
</head>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#F1F4F9">
<%
dim rs
dim sql
dim count
sql = "select id,nid,softnclass from softclass where (softnclass<>'0')"
Set rs=conn.doexecute(sql)
%>
<script language="JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rs.eof
        %>
subcat[<%=count%>] = new Array("<%= trim(rs("softnclass"))%>","<%= trim(rs("id"))%>","<%= trim(rs("Nid"))%>");
        <%
        count = count + 1
        rs.movenext
        loop
        rs.close
        %>
onecount=<%=count%>;

     '以下是报价
     SoftYzJg=checkStr(trim(Request.Form("SoftYzJg")))
     SoftBnJg=checkStr(trim(Request.Form("SoftBnJg")))
     SoftNzJg=checkStr(trim(Request.Form("SoftNzJg")))
     SoftZds=checkStr(trim(Request.Form("SoftZds")))
     SoftSts=checkStr(trim(Request.Form("SoftSts")))
     SoftBzFy=checkStr(trim(Request.Form("SoftBzFy")))
     SoftMen=checkStr(Request.Form("SoftMen"))

      Sql="Select MbShow From Mode Where ID='"&MbName&"'"
   Set Mb=Conn.Doexecute(Sql)
   MbText=Mb("MbShow")
   Mb.Close()
   Set Mb=Nothing

   MbText=Replace(MbText,"AM_TITLE",SoftName)
   MbText=Replace(MbText,"AM_INFO",SoftTxt)
   if FileName<>"" then
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set FileTxt = fs.CreateTextFile(Server.MapPath("/") & "\SoftPub\softhtm\"&FileName, True)
    FileTxt.Write(MbText)
    FileTxt.Close
    Set fs=Nothing
   end if

       sql="update SoftName set SoftClass='" &SoftClass&"',SoftName='" &SoftName&"',SoftTxt='" &SoftTxt&"',SoftNclass='" &nclassid&"',SoftMb='"&MbName&"',SoftInName='"&yh&"',SoftYzJg="&SoftYzJg&",SoftBnJg="&SoftBnJg&",SoftNzJg="&SoftNzJg&",SoftZds='"&SoftZds&"',SoftSts='"&SoftSts&"',SoftBzFy="&SoftBzFy&",SoftMen='"&SoftMen&"' where SoftLx=0 and Id="&id
       Conn.conn.begintrans
       Conn.doexecute (sql)
       If Conn.conn.errors.count>0 then
          Conn.conn.rollbacktrans
          Errmsg="数据提交时出错，请检查网络是否正常！"
          Call Error(Errmsg,"javascript:history.back();",1)
          Response.End
       Else
          Conn.conn.committrans
          Errmsg="数据修改成功！"
          Call Error(Errmsg,"SoftGL.asp",1)
       End If
end sub%>

<% sub DelSoft
     softpath=trim(request("url")) '删除资料
     softfile=trim(request("FileUrl")) '删除静态面
     sql="delete from SoftName where id=" & request("id")
        Conn.conn.begintrans
        conn.doexecute(sql)
        if softpath<>"" then       '删除文件
        Set fso = CreateObject("Scripting.FileSystemObject")
        Fpa=server.mappath("/") & "\SoftPub\pubdata\" & softpath
        if (fso.fileexists(Fpa)=True) then
          fso.deletefile(Fpa)
        end if
       end if

       if softfile<>"" then       '删除静态面
       Set fso = CreateObject("Scripting.FileSystemObject")
       Fpa=server.mappath("/") & "\SoftPub\softhtm\" & softfile
        if (fso.fileexists(Fpa)=True) then
          fso.deletefile(Fpa)
        end if
        end if

        If Conn.conn.errors.count>0 then
       Conn.conn.rollbacktrans
          Errmsg="数据提交时出错，请检查网络是否正常！"
          Call Error(Errmsg,"javascript:history.back();",1)
          Response.End
     Else
      Conn.conn.committrans
      Errmsg="数据删除成功！"
         Call Error(Errmsg,"SoftGl.asp",1)
       End If
   end sub%>
</td>
</tr>
<tr align="middle">
  <td width="99%" height="26" colspan="2" style="background-color: #E7EBF7"><p align="left">　</p>
  </td>
</tr>
</table>

posted on 2004-06-15 11:13 乔本生涯a 阅读(618) 评论(0) 编辑收藏举报

会员力量，点亮园子希望

刷新页面返回顶部

生涯

操作文件

导航

公告