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

一、alert弹出

1、弹出【文本】

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

2、弹出【变量】

<%
mName = "您好！"
response.write "<script language='javascript'>alert('"&mName &"');</script>"
%>

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

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

<%
mName = "您好！"
response.write "<script language='javascript'>alert('sql语句："&mName &"');</script>"
%>

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

<%
mName = "您好！"
response.write "<script language='javascript'>alert('sql语句："&mName &"');location.href='index.asp'</script>"
%>

二、写入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的函数文件

调用：

<!--#include file="common/csj.asp"-->

<%
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 "<script language='javascript'>alert('sql语句："&mName &"');location.href='index.asp'</script>"
End Function



%>