操作文件
<!--
/*---------------------------------------------------- */
/* 作者:谌忠辉 */
/* 时间:2004-04-28 */
/* 功能:模块新增管理 */
/* ----------------------------------------------------*/
-->
<!--#include file="../PassYz.asp"-->
<!--#include file="../Connection.asp"-->
<!--#include file="../inc/Md5encrypt.asp"-->
<!--#include file="../Inc/FunPublic.asp"-->
<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%>;
function changelocation(locationid)
{
document.SoftForm.nclassid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][2] == locationid)
{
document.SoftForm.nclassid.options[document.SoftForm.nclassid.length] = new Option(subcat[i][0], subcat[i][1]);
document.SoftForm.SoftName.value=SoftForm.nclassid.options[SoftForm.nclassid.selectedIndex].text;
}
}
}
function txtval()
{
SoftForm.SoftName.value=SoftForm.nclassid.options[SoftForm.nclassid.selectedIndex].text;
}
</script>
<table height="100%" cellspacing="0" cellpadding="0" width="100%" bgcolor="#f1f4f9" border="1" id="table1" bordercolor="#7C88B6" style="border-collapse: collapse" align="center">
<tr align="middle">
<td valign="top"><br>
<%
dim admin_flag
admin_flag="42E"
yh=request.Cookies("login")("yh")
yhqx=request.Cookies("login")("qx")
if (yh="" or instr(yhqx,admin_flag)=0) then
Errmsg=Errmsg+"您没有管理本页面的权限或者登陆超时,请向管理员申请权限或者重新登陆!!"
call Error(Errmsg,"",0)
else
Response.Cookies("path")("sStyleUploadDir")="../../SoftPub/Images"
select case Request("action")
case "AddSoftSave"
call AddSoftSave()
case "EditSoft"
call EditSoft()
case "EditSoftSave"
call EditSoftSave()
case "DelSoft"
call DelSoft()
case else
call AddSoft()
End select
end if
%>
<%sub AddSoft()%>
<form action="?action=AddSoftSave" method="post" name="SoftForm" onsubmit="return CheckSoft()">
<table border="1" id="table2" style="border-collapse: collapse" bordercolor="#CED7E7" height="30" width="550" bgcolor="#FFFFFF">
<tr>
<td colspan="4" height="30">
<table border="0" style="border-collapse: collapse" width="571" id="table4">
<tr>
<td> <img border="0" src="../Images/2.gif" width="16" height="16">
<font color="#000080"><b>模块添加</b></font></td>
<td width="178">
<font color="#FF0000">
<img border="0" src="../Images/arrow2.gif" width="15" height="15">
请按格式输入,*号为必填</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
一级类别:</td>
<% sql="select id,Softclass from Softclass where (Softnclass ='0')"
set rs=conn.doexecute(sql)
if (rs.recordcount=0) then
response.write ""
else
%>
<td height="25" width="173"> <select size="1" name="classid" onChange="changelocation(document.SoftForm.classid.options[document.SoftForm.classid.selectedIndex].value)" class="input1">
<OPTION selected value="0">==请选类型==</OPTION>
<% do while not rs.eof%>
<OPTION value="<%=trim(rs("id"))%>"><%=trim(rs("Softclass"))%></OPTION>
<% Rs.movenext
loop
Rs.close()
Set Rs=Nothing
%>
</select>
<font color="#FF0000"> *</font></td><%end if%>
<td height="25" width="110"> <img border="0" src="../images/icon.gif" width="20" height="13">
二级类别:</td>
<td height="25" width="171"> <select size="1" name="nclassid" class="input1" onchange="txtval()">
<OPTION selected value="">==请选择分类==</OPTION>
</select><font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
模块名称:</td>
<td height="25" width="173"> <input type="text" name="SoftName" size="24" class="input">
<font color="#FF0000">*</font></td>
<td height="25" width="110"> <img border="0" src="../images/icon.gif" width="20" height="13">
模块模板:</td>
<td height="25" width="171"> <font color="#FF0000"><select size="1" name="SoftMb">
<%Sql2="Select ID,MbName From Mode Where MbClass=3"
Set rs2=Conn.Doexecute(sql2)
do while not Rs2.eof%>
<option value="<%=rs2("id")%>"><%=rs2("MbName")%></option>
<% Rs2.movenext
loop
Rs2.close()
Set Rs2=Nothing%>
</select> *</font></td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
月租单价:</td>
<td height="25" width="173"> <input type="text" name="SoftYzJg" size="20" class="input" value="0" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}">
<font color="#FF0000">*</font></td>
<td height="25" width="110"> <img border="0" src="../images/icon.gif" width="20" height="13">
半年租单价:</td>
<td height="25" width="171"> <input type="text" name="SoftBnJg" size="20" class="input" value="0" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}"><font color="#FF0000"> *</font></td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
年租单价:</td>
<td height="25" width="173"> <input type="text" name="SoftNzJg" size="20" class="input" value="0" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}">
<font color="#FF0000">*</font></td>
<td height="25" width="110"> <img border="0" src="../images/icon.gif" width="20" height="13">
终端数:</td>
<td height="25" width="171"> <input type="text" name="SoftZds" size="20" class="input" value="0" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}"><font color="#FF0000"> *</font></td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
标准实施费用:</td>
<td height="25" width="173"> <input type="text" name="SoftBzFy" size="20" class="input" value="0" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}">
<font color="#FF0000">*</font></td>
<td height="25" width="110"> <img border="0" src="../images/icon.gif" width="20" height="13">
实施天数:</td>
<td height="25" width="171"> <input type="text" name="SoftSts" size="20" class="input" value="0" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}"><font color="#FF0000"> *</font></td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
模块资料:</td>
<td height="25" width="460" colspan="3"> <iframe name="I1" frameborder="0" width="93%" height="26" scrolling="no" src="FileLoad.asp"></iframe>
</td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
资料地址:</td>
<td height="25" width="460" colspan="3"> <input type="text" name="filename1" size="66" class="input" readonly></td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
报价说明:</td>
<td height="25" width="460" colspan="3"> <textarea rows="4" name="SoftMen" cols="55">1、企业邮局系统免费提供给用户使用;
2、每个模块每递增5个用户增加400元;
3、实施费用因用户数与公司大小而异,收费金 额为每个技术人员每天1000元计算。
</textarea></td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
功能介绍:</td>
<td height="25" width="460" colspan="3"><font color="#FF0000"> 以下是在线UBB编辑器,支持图文!*</font></td>
</tr>
<tr>
<td width="608" height="25" colspan="4">
<INPUT type="hidden" name="content1" value="">
<IFRAME ID="eWebEditor1" src="../WebEdit/ewebeditor.asp?id=content1&style=standard_blue" frameborder="0" scrolling="no" width="580" height="350"></IFRAME></td>
</td>
<tr>
<td height="30" colspan="4">
<table border="0" id="table3" width="580">
<tr>
<td width="440"></td>
<td width="163"><p align="center">
<input type="submit" name="sub1" value="添 加" class="button"> <a href="SoftGl.asp"><img border="0" src="../Images/cacel.gif" width="53" height="20" align="middle"></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<% end sub%>
<% sub AddSoftSave
sj=date()
sj=sj & " " & hour(time())& ":"& minute(time()) & ":"& second(time())
Dim sContent1, i
For i = 1 To Request.Form("content1").Count
SoftTxt= checkStr(SoftTxt& Request.Form("content1")(i))
Next
SoftName=checkStr(Request.Form("SoftName"))
SoftClass=Request.Form("classid")
if request("nclassid")="" then
nclassid=0
else
nclassid=request("nclassid")
end if
SoftUrl=checkStr(Request.Form("filename1"))
SoftConfig=checkStr(Request.Form("SoftConfig"))
'以下是报价
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"))
MbName=Request.Form("SoftMb")
sql="Select SoftName From SoftName where SoftName ='"&SoftName&"'"
Set Rs=conn.doexecute(sql)
If Not(Rs.Bof and Rs.Eof) Then
Errmsg="该模块名称已有重名!"
Call Error(Errmsg,"SoftGl.asp",1)
Response.End
End If
Rs.Close
Set Rs=nothing
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)
FileName=year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now)&".htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set FileTxt = fs.CreateTextFile(Server.MapPath("/") & "\SoftPub\softhtm\"&FileName, True)
FileTxt.Write(MbText)
FileTxt.Close
Set fs=Nothing
sql="Insert Into SoftName (SoftClass,SoftName,SoftUrl,SoftTxt,SoftInName,SoftInTime,SoftNClass,SoftMb,SoftFile,SoftYzJg,SoftBnJg,SoftNzJg,SoftZds,SoftSts,SoftBzFy,SoftMen,SoftLx) values('" &SoftClass&"','" &SoftName&"','" &SoftUrl&"','" &SoftTxt&"','" &yh&"','" &sj&"','" &nclassid&"','" &MbName&"','" &FileName&"',"&SoftYzJg&","&SoftBnJg&","&SoftNzJg&",'"&SoftZds&"','"&SoftSts&"',"&SoftBzFy&",'"&SoftMen&"','0')"
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 EditSoft%>
<form action="?action=EditSoftSave" method="post" name="SoftForm" onsubmit="return CheckSoft()">
<% Sql="Select SoftClass,SoftNClass,SoftName,SoftUrl,SoftTxt,ID,SoftMb,SoftFile,SoftYzJg,SoftBnJg,SoftNzJg,SoftZds,SoftSts,SoftBzFy,SoftMen From SoftName where SoftLx=0 and Id ="&Request("id")
Set Rs=Conn.doexecute(Sql)
If (Rs.recordcount=0) then
Response.Write ""
Else %>
<table border="1" id="table2" style="border-collapse: collapse" bordercolor="#CED7E7" height="30" width="580" bgcolor="#FFFFFF">
<tr>
<td colspan="4" height="30">
<table border="0" style="border-collapse: collapse" width="580" id="table4">
<tr>
<td> <img border="0" src="../Images/2.gif" width="16" height="16">
<font color="#000080"><b>模块修改</b></font></td>
<td width="178">
<font color="#FF0000">
<img border="0" src="../Images/arrow2.gif" width="15" height="15">
请按格式输入,*号为必填</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="118" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
一级类别:</td>
<td height="25" width="169"> <select size="1" name="classid" onChange="changelocation(document.SoftForm.classid.options[document.SoftForm.classid.selectedIndex].value)" class="input1">
<OPTION selected value="<%=rs("SoftClass")%>"><%=rs("SoftClass")%></OPTION>
<% 'classid=rs("SoftClass")
sql="select id,Softclass from Softclass where (Softnclass ='0')"
set rs1=conn.doexecute(sql)
if (rs1.recordcount=0) then
response.write ""
else
do while not rs1.eof%>
<OPTION value="<%=trim(rs1("id"))%>"><%=trim(rs1("Softclass"))%></OPTION>
<% Rs1.movenext
loop
Rs1.close()
Set Rs1=Nothing
end if%>
</select>
<font color="#FF0000"> *</font></td>
<td height="25" width="105"> <img border="0" src="../images/icon.gif" width="20" height="13">
二级类别:</td>
<td height="25" width="184"> <select size="1" name="nclassid" class="input1" onchange="txtval()">
<OPTION selected value="<%=rs("SoftNClass")%>"><%=rs("SoftNClass")%></OPTION>
</select>
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="118" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
模块名称:</td>
<td height="25" width="169"> <input type="text" name="SoftName" size="20" class="input" value="<%=rs("SoftName")%>">
<font color="#FF0000">*</font></td>
<td height="25" width="105"> <img border="0" src="../images/icon.gif" width="20" height="13">
模块模板:</td>
<td height="25" width="184"> <select size="1" name="SoftMb">
<option value="<%=rs("SoftMb")%>"><%=rs("SoftMb")%></option>
<%Sql2="Select ID,MbName From Mode Where MbClass=3"
Set rs2=Conn.Doexecute(sql2)
do while not Rs2.eof%>
<option value="<%=rs2("id")%>"><%=rs2("MbName")%></option>
<% Rs2.movenext
loop
Rs2.close()
Set Rs2=Nothing%>
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="118" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
月租单价:</td>
<td height="25" width="169"> <input type="text" name="SoftYzJg" size="20" class="input" value="<%=rs("SoftYzJg")%>" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}">
<font color="#FF0000">*</font></td>
<td height="25" width="110"> <img border="0" src="../images/icon.gif" width="20" height="13">
半年租单价:</td>
<td height="25" width="171"> <input type="text" name="SoftBnJg" size="20" class="input" value="<%=rs("SoftBnJg")%>" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}"><font color="#FF0000"> *</font></td>
</tr>
<tr>
<td width="118" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
年租单价:</td>
<td height="25" width="169"> <input type="text" name="SoftNzJg" size="20" class="input" value="<%=rs("SoftNzJg")%>" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}">
<font color="#FF0000">*</font></td>
<td height="25" width="110"> <img border="0" src="../images/icon.gif" width="20" height="13">
终端数:</td>
<td height="25" width="171"> <input type="text" name="SoftZds" size="20" class="input" value="<%=rs("SoftZds")%>" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}"><font color="#FF0000"> *</font></td>
</tr>
<tr>
<td width="118" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
标准实施费用:</td>
<td height="25" width="169"> <input type="text" name="SoftBzFy" size="20" class="input" value="<%=rs("SoftBzFy")%>" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}">
<font color="#FF0000">*</font></td>
<td height="25" width="110"> <img border="0" src="../images/icon.gif" width="20" height="13">
实施天数:</td>
<td height="25" width="171"> <input type="text" name="SoftSts" size="20" class="input" value="<%=rs("SoftSts")%>" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) {alert('只能输入数字');event.returnValue = false;this.focus();}"><font color="#FF0000"> *</font></td>
</tr>
<tr>
<td width="118" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
模块资料:</td>
<td height="25" width="469" colspan="3"> <iframe name="I1" frameborder="0" width="93%" height="26" scrolling="no" src="FileLoad.asp?id=<%=trim(Rs("Id"))%>&url=<%=trim(Rs("SoftUrl"))%>&type=0"></iframe>
</td>
</tr>
<tr>
<td width="118" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
资料地址:</td>
<td height="25" width="469" colspan="3"> <input type="text" name="filename1" size="66" class="input" readonly value="<%=rs("SoftUrl")%>"></td>
</tr>
<tr>
<td width="127" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
报价说明:</td>
<td height="25" width="460" colspan="3"> <textarea rows="4" name="SoftMen" cols="55"><%=rs("SoftMen")%></textarea></td>
</tr>
<tr>
<td width="118" height="25"> <img border="0" src="../images/icon.gif" width="20" height="13">
功能介绍:</td>
<td height="25" width="469" colspan="3"><font color="#FF0000"> 以下是在线UBB编辑器,支持图文!*</font></td>
</tr>
<tr>
<td width="608" height="25" colspan="4"><INPUT type="hidden" name="content1" value="<%=replace(rs("SoftTxt"),"""","'")%>">
<IFRAME ID="eWebEditor1" src="../WebEdit/ewebeditor.asp?id=content1&style=standard_blue" frameborder="0" scrolling="no" width="580" height="350"></IFRAME></td>
</td>
<tr>
<td height="30" colspan="4">
<table border="0" id="table3" width="580">
<tr>
<td width="440"></td>
<td width="163"><p align="center">
<input type=hidden name=Id value="<%=Rs("Id")%>">
<input type=hidden value="<%=Rs("SoftFile")%>" name="FileName">
<input type="submit" name="sub1" value="修 改" class="button"> <a href="SoftGl.asp"><img border="0" src="../Images/cacel.gif" width="53" height="20" align="middle"></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%end if%>
</form>
<% end sub%>
<% sub EditSoftSave
Id=Request("id")
sj=date()
sj=sj & " " & hour(time())& ":"& minute(time()) & ":"& second(time())
Dim sContent1, i
For i = 1 To Request.Form("content1").Count
SoftTxt= checkStr(SoftTxt& Request.Form("content1")(i))
Next
SoftName=checkStr(Request.Form("SoftName"))
SoftClass=Request.Form("Classid")
if request("nclassid")="" then
nclassid=0
else
nclassid=request("nclassid")
end if
MbName=Trim(Request.Form("SoftMb"))
FileName=Trim(Request.Form("FileName"))
'以下是报价
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>