前台界面!!可以申请的!!数据库有内容!!我下载数据库下来看!就有!!后台!不知道哪里错!!打开很慢.好象是死循环!原因是我把两数据库合并为一个了!
.点击打开的时候.往下拉很长!没有内容..又很慢!!代码如下!
<% ' Get table name
tablename = "[msg]"
dbwhere = ""
a_search = ""
b_search = ""
%><%
' Get search criteria for basic search
pSearch = Request.QueryString("psearch")
If pSearch <> "" Then
pSearch = replace(pSearch,"'","''")
pSearch = replace(pSearch,"[","[[]")
b_search = b_search & "[gdl_name] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[u_name] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[u_address] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[u_contact] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[u_company] LIKE '%" & pSearch & "%' OR "
End If
If len(b_search) > 4 Then
b_search = mid(b_search,1,len(b_search)-4)
b_search = "(" & b_search & ")"
End If
%><%
'Build search criteria
If a_search <> "" Then
dbwhere = dbwhere & a_search 'advance search
ElseIf b_search <> "" Then
dbwhere = dbwhere & b_search 'basic search
End If
'Save search criteria
If dbwhere <> "" Then
Session("tablename") = tablename
Session("dbwhere") = dbwhere
'reset start record counter
startRec = 1
Session("<--##tablevar##-->_REC") = startRec
Else
If tablename = Session("tablename") Then
dbwhere = Session("dbwhere")
Else
'reset search criteria
dbwhere = ""
Session("dbwhere") = dbwhere
End If
End If
'Get clear search cmd
If Request.QueryString("cmd").Count > 0 then
cmd=Request.QueryString("cmd")
If ucase(cmd) = "RESET" Then
'reset search criteria
dbwhere = ""
Session("dbwhere") = dbwhere
End If
End If %>
太长省掉一点.下载地址http://www.bbkc.com.cn/10.rar如果改好了!追加280分!!!一定加!!我急用!谢谢各位了!
參考答案:这样也看不出什么
最好你还是一步步调试,觉得问题应该在do while语句中
屏蔽do while看有没有错误,确定错误位置就好办了