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

ASP调试技巧

原创已于 2024-08-15 09:21:09 修改 · 911 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#javascript #前端 #html

于 2023-09-24 16:39:54 首次发布

19.【Asp】专栏收录该内容

15 篇文章

订阅专栏

本文介绍ASP开发中用于调试的几种实用方法，包括使用alert弹窗显示变量值、将调试信息写入TXT文件等，适用于快速定位和解决ASP应用程序中的问题。

一、alert弹出

1、弹出【文本】

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

2、弹出【变量】

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

response.write "<script language='javascript'>alert('"&request("T_ID")&"');</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的函数文件

调用：

admin文件夹下的log.txt

csjLogTxt(sqlInsert) '存储到txt 调试信息

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

<%
csjLogTxt("ok123")	'存储到txt调试信息
'csjAlert("ok弹出")	'存储到txt调试信息

	csjLogTxt(sqlInsert)	'存储到txt 调试信息
%>

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



%>

四、弹出sql拼接语句

sqlUpdate = "update RC_TaskTrip set jdrenshu=55 where T_ID='" & Server.HTMLEncode(T_ID) & "'"  
escapedSqlUpdate = Replace(sqlUpdate, "'", "\'") ' 替换单引号 

response.write "<script language='javascript'>alert('" & escapedSqlUpdate & "');</script>"

五、弹出后，结束当前代码


	response.write "<script language='javascript'>alert('批量审核成功!');location.href='"&Request.ServerVariables("HTTP_REFERER")&"';</script>"

	response.end