delfile.asp

来自「轩圆学生信息管理系统[高中版] 程序功能：添加链接、修改链接、删除链接、清空链接」· ASP 代码 · 共 53 行

<!--#include file="Inc/Check.asp"-->
<!--#include file="Inc/oConn.asp"-->
<!--#include file="Inc/Public.asp"-->
<!--#include file="Inc/Info.asp"-->
<%
On Error Resume Next 
Call CheckAdmin(",1,",","&Session("JB")&",")
Dim lg
lg = RQuery("action")
If lg&""<>"" Then
	lg = UCase(lg)
	If lg = "DC" Then
		Call DC()
	End If 
Else
	Call mainFace()
End If 
If Err Then
	Call ShowErrs()
End If 

Sub mainFace()
	Call PHead("自动删除数据文件")
	Print "<div align='center'>"
	Print "<div style='text-align:left;' class='lface'>"
	Print "<div class='thetitle'>删除数据文件</div>"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<ol>提示："
	Print "<li>没有正确的参数！！！"
	Print "</ol>"
	Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
	Print "</div>"
	Print "</div>"
	Call PFoot()
End Sub 

Sub DC()
	Dim FileName
	FileName = RQuery("f")
	If InStr(FileName,".xls")>0 Then Call FileDel("Export/"&FileName)
	Call PHead("删除数据文件")
	Print "<div align='center'>"
	Print "<div style='text-align:left;' class='lface'>"
	Print "<div class='thetitle'>删除数据文件成功</div>"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<ol>提示："
	Print "<li>成功删除了Excel文件："&FileName&"；</ol>"
	Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
	Print "</div></div>"
	Call SaveLog(Session("XM"),"删除Excel","删除Excel文件“"&FileName&"”成功")
	Call PFoot()
End Sub
%>