Asp出怪事了,搞了一天没解决! 高手来探讨一下吧! 部分asp程序不响应!

chaoliu1 2006-11-11 12:29:23
正在研究某系统,今天回家突然发现好几个页面一起坏了!!! 没动怎么会坏呢?

症状:XP专业版,调试asp学生管理程序。运行某些asp页面,一直处于执行不完的状态,IE显示为空白,状态栏上的进度条慢慢走。
  内存中出现2个dllhost进程,必须杀掉独立的那个dllhost,再重启IIS一次,才可以执行某些正常页面,但这些“坏掉的页面”一运行又就不响应了。

  检查了一天不明白,我都要气哭了。 htm可以执行,一些查询数据库记录的页面也能执行,但这几个“坏掉的页面”就是不响应,代码也不同难以调试。

  下面是我研究的结果,更加想不通:某页一开始我就加上了Response.End,但是运行就不响应,非要把下面某段我加上了“if 1=2”的那一段程序全删除掉,页面才会正常执行完。
  “if 1=2”不是可以跳过这段程序吗?为什么必须要删除整段才能执行呢?
  这个asp昨天还好好的啊。
  其它几个坏页面我还没检查,就这一个就搞了一天了,又不给错误提示,就是不响应。

---------------------
'第一段在此
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/StudentConn.asp" -->
<!--#include file="CheckLogin.asp"-->
<%
Response.End
%>

'第二段在此
<%
' *** Insert Record: construct a sql insert statement and execute it
If 1=2 Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

' 在DW代码的基础上用SQL语句实现向数据库中添加表

strSubject="(StudentNum TEXT (8) CONSTRAINT MyFieldConstraint PRIMARY KEY,总分 SINGLE,平均分 SINGLE,全级排名 LONG,班级排名 LONG,"
strTemp=request("chkbox")
if instr(strTemp,",")>0 then
strSubject=strSubject & replace(strTemp,","," SINGLE,") & " SINGLE)"
else
strSubject=strSubject & strTemp & " SINGLE)"
end if
strSheetName = MM_dupKeyUserNameValue
MM_CreateTableConnection = MM_StudentConn_STRING
MM_CreateTableQuery = "Create Table " & strSheetName & strSubject
Set MM_CreateTableCmd = Server.CreateObject("ADODB.Command")
MM_CreateTableCmd.ActiveConnection = MM_CreateTableConnection
MM_CreateTableCmd.CommandText = MM_CreateTableQuery
MM_CreateTableCmd.Execute
MM_CreateTableCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
...全文
289 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
jspadmin 2006-11-15
  • 打赏
  • 举报
回复
帮你结贴了,不过,别人也有帮你顶一下,多少要给他们点分
:)
FIREGUNS 2006-11-11
  • 打赏
  • 举报
回复
dw..又见dw...

貌似死循环?
spook768 2006-11-11
  • 打赏
  • 举报
回复
你仔细研究一下删掉的那段程序,也许是死循环了
BAYERN 2006-11-11
  • 打赏
  • 举报
回复
GX楼主
chaoliu1 2006-11-11
  • 打赏
  • 举报
回复
不麻烦各位了,已经修好了。

因为是一次性坏了几个程序,所以我使用了一次xp的系统还原就正常了。(重装IIS不起作用)

不是源代码的问题,是操作系统故障?
chaoliu1 2006-11-11
  • 打赏
  • 举报
回复
是不是因为没有报酬就无人回答啊?

不是死循环!!!!!!!!!!!!!

1。CPU占用正常(10%以内),死循环的话CPU就到90%
2。这程序里就根本没有用循环语句,哪里来的死循环?
3。IF 1=2 THEN。。。

  算了我重新提问一次有报酬的
chaoliu1 2006-11-11
  • 打赏
  • 举报
回复
另一个“坏程序”,只要把下面这段删除就能运行了。
把条件改成if 1=2 then 也不起作用。 只要存在这段代码,这个ASP页面就会连前3行都不执行,(把response.end 加在程序最前面也不起作用,会不响应)

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
if FormVal<>"''" then
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
end if
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
MM_editQuery=replace(MM_editQuery,"'false'","false")
MM_editQuery=replace(MM_editQuery,"'true'","true")
'response.write MM_editQuery
'response.end
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧