【Asp】调试Asp，用alert弹出变量值的值和写入txt文件

一、alert弹出

1、弹出【文本】

 response.write "<script language='javascript'>alert('请检查!');script>"

2、弹出【变量】

<%
mName = "您好！"
response.write ""
%>

response.write ""

3、弹出【文本】+【变量】

alert（）中的内容：'sql语句："&mName &"'

<%
mName = "您好！"
response.write ""
%>

4、弹出消息，并跳转到某个页面

<%
mName = "您好！"
response.write ""
%>

二、写入txt文件

Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(Server.MapPath("log.txt"), True)
file.WriteLine("这是我的第一个日志文件")
 
file.WriteLine("") ' 写入一个换行符
file.WriteLine("这是段追加内容")
file.Close

三、写入txt的函数文件

调用：

 
<%
csjLogTxt("ok123")	'弹出调试信息
'csjAlert("ok弹出")	'弹出调试信息
%>

csj.asp

<%
 
'########## 【把调试信息写入log.txt文件中】 
Public Function csjLogTxt(sMessage)
'    Dim fso, file  ' 声明FileSystemObject和TextStream对象
'    Set fso = CreateObject("Scripting.FileSystemObject")  ' 创建FileSystemObject对象实例
'    Set file = fso.CreateTextFile(Server.MapPath("log.txt"), True)  ' 创建或打开log.txt文件
'    file.WriteLine(sMessage)  ' 写入内容至文件中
'    file.WriteLine("") ' 写入一个换行符
'    file.Close  ' 关闭文件
    
    
    
    Dim fso, file
Dim filePath
filePath = Server.MapPath("log.txt")  ' log.txt文件的路径
Set fso = CreateObject("Scripting.FileSystemObject")  ' 创建FileSystemObject对象实例
' 检查文件是否存在
If fso.FileExists(filePath) Then
    Set file = fso.OpenTextFile(filePath, 8, True)  ' 追加模式打开已存在的文件
Else
    Set file = fso.CreateTextFile(filePath, True)  ' 创建新的文件
End If
 
' 获取当前日期时间并格式化
dateTime = "------------------------------------------------【" & Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & " " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "】"
file.WriteLine(dateTime)  ' 写入当前日期时间至文件中，格式为YYYY-MM-DD HH:MM:SS
 
 
file.WriteLine(sMessage)  ' 写入内容至文件中
file.WriteLine("")  ' 写入一个换行符
 
file.Close  ' 关闭文件
    
    
    
    
    
End Function
'########## 【把调试信息用alert弹出来】 
 
Public Function csjAlert(sMessage)
    mName = sMessage
    response.write ""
End Function
 
 
 
%>