<%
xuasmdb="Data/21it@###school.asp"

set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath(xuasmdb)
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath


ON ERROR RESUME NEXT

Rem  ************检查是否为整数**************** 
Public Function IsInt(Str)
	dim TempNum,TemStr
	Str = Trim(Str)
	IsInt = True
	If Str = "" Or IsNull(Str) then
		IsInt = False
		Exit Function
	End if
	For TempNum = 1 To Len(Str)
		if Not IsNumeric(mid(Str,TempNum,1)) then
			IsInt = False
			exit for
		end if	
	next
End Function
Function outHTML(str)
Dim sTemp
sTemp = str
outHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), "")
sTemp = Replace(sTemp, Chr(10), "<br>")
sTemp = Replace(sTemp, Chr("32"), " ")
outHTML = sTemp
End Function
Function inHTML(str)
  Dim sTemp
sTemp = str
inHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, "", Chr(34))
sTemp = Replace(sTemp, "<br>", Chr(10))
sTemp = Replace(sTemp, " ", Chr("32"))
inHTML = sTemp
End Function

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
%>
<script language="javascript">
//========会员信息删除提示===========================================
    function ConfirmDelUser()
   {
     if (confirm("\n真的要删除这些会员信息吗?"))
     {
       document.form2.submit()
     }
   }
    
</script>