iis假死，怎么回事，快疯了

sookeer 2004-11-22 10:24:51

我们单位的服务器的iis老是假死，以前曾经发过贴子的，再次贴出，希望各位大侠帮忙想个办法，小生在此多谢了。
服务器是win2000 iis5.0
因为网站有好几年了，当时用的是vf的数据库了，odbc数据源的连接办法，有的说是代码的问题，有的说是数据库损坏，我再这里想知道有没有具体的查找是哪个页面的工具，或者是分析哪个数据库损坏的工具呢？
谢谢了！session("lei")=request("lei2")

下面是一段查询代码
'得到 ....
bzhao=request("hao")
session("hao")=" "
bzhao=ucase(trim(request("hao")))
lenth=len(bzhao)
for i=1 to lenth
if mid(bzhao,i,1)<>"-" then
if (asc(mid(bzhao,i,1))>122 or asc(mid(bzhao,i,1))<32) then
response.write "输入错误，请重新输入!"
response.end
end if
if asc(mid(bzhao,i,1))>=46 and asc(mid(bzhao,i,1))<58 then
session("hao")=session("hao") & mid(bzhao,i,1)
end if
else
i=lenth
end if
next

if lenth<>0 then
if session("hao")=" " then
response.write "输入。。错误，请重新输入!"
response.end
end if
end if
session("lhao")=session("hao") & "-"
session("riqi")=request("riqi")
session("ming")=request("ming")
session("zhuti")=request("zhuti")
session("ulei")=ucase(request("ulei"))

strhao="a100"
strriqi="a225"
strming="a298"
strzhuti="a836"
strulei="a825"

'生成SQL语句
str="select * from " & session("lei") & " where "

if len(trim(session("hao")))<>0 then
if session("lei")="DB37" then
session("lhao")=trim(session("lhao"))
end if
str=str & strhao & " like '%" & session("lhao") & "%'"
flag=flag+1
end if
'加入实施年份
if len(trim(session("riqi")))<>0 then
if flag<>0 then
str=str & " and " & strriqi & " like '%" & session("riqi") & "%'"
else
str=str & strriqi & " like '%" & session("riqi") & "%'"
end if
flag=flag+1
end if
'加入名称
if len(trim(session("ming")))<>0 then
ming2=trim(session("ming"))
lenth=len(ming2)
for i=1 to lenth
if mid(ming2,i,1)<>"&" then
j=j+1
else
i=lenth
end if
Next
if j=lenth then
mingstrf1= " and " & strming & " like '%" & ming2 & "%'"
mingstrf2=strming & " like '%" & ming2 & "%'"
else
flag2=1
minga=left(ming2,j)
j2=j+2
mingb=mid(ming2,j2,lenth)
mingstrt1=" and " & strming & " like '%" & minga & "%'" & " and " & strming & " like '%" & mingb & "%'"
mingstrt2=strming & " like '%" & minga & "%'" & " and " & strming & " like '%" & mingb & "%'"
end if
if flag<>0 then
if flag2=0 then
str=str & mingstrf1
else
str=str & mingstrt1
end if
else
if flag2=0 then
str=str & mingstrf2
else
str=str & mingstrt2
end if
end if
flag=flag+1
end if

'加入主题
if len(trim(session("zhuti")))<>0 then
zhuti2=trim(session("zhuti"))
lenth=len(zhuti2)
for i=1 to lenth
if mid(zhuti2,i,1)<>"&" then
j=j+1
else
i=lenth
end if
Next
if j=lenth then
zhutistrf1= " and " & strzhuti & " like '%" & zhuti2 & "%'"
zhutistrf2=strzhuti & " like '%" & zhuti2 & "%'"
else
flag2=1
zhutia=left(zhuti2,j)
j2=j+2
zhutib=mid(zhuti2,j2,lenth)
zhutistrt1=" and " & strzhuti & " like '%" & zhutia & "%'" & " and " & strzhuti & " like '%" & zhutib & "%'"
zhutistrt2=strzhuti & " like '%" & zhutia & "%'" & " and " & strzhuti & " like '%" & zhutib & "%'"
end if
if flag<>0 then
if flag2=0 then
str=str & zhutistrf1
else
str=str & zhutistrt1
end if
else
if flag2=0 then
str=str & zhutistrf2
else
str=str & zhutistrt2
end if
end if
flag=flag+1
end if

'加入类别
if len(trim(session("ulei")))<>0 then
if flag<>0 then
str=str & " and " & strulei & " like '%" & session("ulei") & "%'"
else
str=str & strulei & " like '%" & session("ulei") & "%'"
end if
flag=flag+1
end if

'response.write str

set adocon=Server.CreateObject("ADODB.Connection")
adocon.Open "rsdbf"
set session("passrs") = server.createobject("adodb.recordset")
session("passrs").open str,adocon,1,1
session("recmax") = session("passrs").recordcount
if session("recmax")>0 then
Response.Redirect(".....asp")
else
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>检索程序</title>
</head>

<body>
<h1 align="center">　</h1><h1 align="center"><img border="0" src="cry1.gif"></h1><h1 align="center"><font size="4">没有检索到符合条件的标准！<b>。。。。！</b><br>
<br>
</font><b><i><a href="feisearch.asp"><font size="4">重新检索</font></a></i></b></h1>
<%end if
adocon.close
set adocon=nothing
%>

...全文