一、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
%>