令我极端头痛的问题

[nana12588]

本人的网站几乎没够都出现一次请求问题，服务商说我程序有问题，说请求是出现死循环，导致服务器无法正常请求，可是我不知道从程序的哪哪些文件着手，还请大虾指教

不胜感激

[sumjor]

我看了也相当的头痛

[hongmaohouzi]

你可以测试一下你的程序，访问后，cpu是不是一直被100%占用，如果是，说明程序有问题，仔细的检查一下程序。

[shenzhenNBA]

“...几乎没够都出现一次请求问题...”是什么意思？

[buzanting]

我看了也相当的头痛

[anbs01]

我看了也相当的头痛

[nana12588]

谢谢各位

[nana12588]

老大狂飙(362803818) 09:05:50
各位老大 服务上老说我网站数据没有释放 我该如何办

[泸州]石头(544367754) 09:06:20
set obj=nothing
老大狂飙(362803818) 09:06:35
什么意思老大

[泸州]石头(544367754) 09:08:08
set rs=nothing
set conn=nothing
老大狂飙(362803818) 09:08:41
<!--#include file="mdb_name.asp"-->
<!--#include file="../xgx/CF_Sql.asp"-->
<%
dim conn
dim connstr
dim db
db="/xgx/data/"&MDBname&".asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

%>
[泸州]石头(544367754) 09:09:28
conn.Open connstr放到页面里面
[泸州]石头(544367754) 09:09:34
用的时候再打开
老大狂飙(362803818) 09:10:06
如何写呀

老大狂飙(362803818) 09:10:14
不会写 请石头大哥指教


[泸州]石头(544367754) 09:10:29
conn.Open connstr
[泸州]石头(544367754) 09:10:40
就这么写啊
[泸州]石头(544367754) 09:10:52
只是放的位置不同
[泸州]石头(544367754) 09:11:01
或者写一个过程,直接调用
老大狂飙(362803818) 09:11:31
直接填到这个问题里面》

老大狂飙(362803818) 09:12:15
<%
dim conn
dim connstr
dim db
conn.Open connstr
db="/xgx/data/"&MDBname&".asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

%>
[泸州]石头(544367754) 09:12:17
<!--#include file="conn.asp" -->
<%
....
sql=...
conn.Open connstr
set rs=...
%>
[泸州]石头(544367754) 09:13:04
<!--#include file="conn.asp" -->
<%
....
sql=...
conn.Open connstr
set rs=...
....
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
基本格式
老大狂飙(362803818) 09:13:40
在另写一个文件？ 中间的省略的是什么



[泸州]石头(544367754) 09:13:43
我一般都是写成过程
[泸州]石头(544367754) 09:13:56
省略的就是你执行的其他代码
老大狂飙(362803818) 09:14:20
大哥 你还是帮我完整的写完吧 我真的不会搞


[泸州]石头(544367754) 09:14:29
sub project5()
OpenConn()
Dim sql : sql = "select * from [jj_product] where projectid = " &projectid
Dim rs : Set rs = conn.execute(sql)
do while not rs.eof
xmlStr=xmlStr& "<item productid='" & rs("id") & "' productName='" & rs("productName") & "' scale='" & rs("scale") & "'/>" &vbcrlf
rs.movenext
loop
Co(rs) : CloseConn()
end sub
[泸州]石头(544367754) 09:14:42
这是完整的例子
[泸州]石头(544367754) 09:15:37
OpenConn()打开数据库连接
...执行查询
Co(rs) 关闭记录集
CloseConn()关闭连接
[泸州]石头(544367754) 09:17:45
记着及时释放资源就行了
[泸州]石头(544367754) 09:18:07
记录集要在最短的时候内关闭
[泸州]石头(544367754) 09:18:12
不要长时间开着




谁能帮我把石头的意思 把完整的程序写出来 这个分就是他的了

[jim8590251]

无能为力!~我只想说这一句!~