checkfilename.asp

asp源码 图片ASP整站

<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Md5.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
  Dim DBC,conn
  Set DBC = new databaseclass
  Set conn = DBC.openconnection()
  Set DBC = nothing
  Dim Username
  Dim T
  FileName=Replace(replace(trim(Request("FileName")),"'","''"),Chr(39),"")
  T=Replace(replace(trim(Request("T")),"'","''"),Chr(39),"")
  	Dim checkrsobj
	Set checkrsobj=conn.execute("select FileName from "&T&" where FileName='"&FileName&"'")
	If filename="" then response.Write "<div align='center' style='font-size:9pt'><font color='Red'>文件名不能为空</font></div>" end if
	If Not checkrsobj.eof then response.Write "<div align='center' style='font-size:9pt'><font color='Blue'>已存在此文件名</font></div>" end if 
	If checkrsobj.eof and filename<>"" then response.Write "<div align='center' style='font-size:9pt'><font color='Green'>可以使用此文件名</font></div>" end if
%>