28,406
社区成员
发帖
与我相关
我的任务
分享请大家救命.为了这个语句忙活了1天半了.期限还有1个礼拜了,还在为这些最基础的问题纠缠不休.
<%@ EnableSessionState=False Language=VBScript %>
<% RESPONSE.BUFFER=true %>
<% RESPONSE.EXPIRES=0 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3c.org/TR/REC-html40/loose.dtd">
<!-- #include file="ID_DBDEF.inc" -->
<%
Sub ErrRedirect( Err_str )
Err.Clear
Session("starttime") = Cstr(Now) ----->这里出错,错误内容为 MicroSoft
VBscript执行错误.数据类型不一
致.无法确定"Session"种类例外
'Response.Redirect("ID_ErrPage.asp")
response.write("<SCRIPT LANGUAGE=" & chr(34) & "JavaScript" & chr(34) & ">" & chr(13) )
response.write("<!--" & chr(13) )
response.write("window.open(" & chr(34) & "../../ID_ErrPage.asp" & chr(34) & "," & _
chr(34) & "_top" & chr(34) & "," & _
chr(34) & "toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=220,height=40" & chr(34) & ");" & chr(13) )
response.write("-->" & chr(13) )
response.write("</SCRIPT>" & chr(13) )
exit Sub
End Sub
Function LoginInfo()
Dim obj_ADOCon
Dim obj_Rec
Dim str_QUERY
Dim selectedFlag
set obj_ADOCon = Server.CreateObject("ADODB.Connection")
obj_ADOCon.Open str_ADOCon
if Err.Number <> 0 then
ErrRedirect "ADO连接"
end if
set obj_Rec = Server.CreateObject("ADODB.Recordset")
set obj_Rec.ActiveConnection = obj_ADOCon
if Err.Number <> 0 then
ErrRedirect "ADO记录集"
end if
End Function
%>
<% RESPONSE.BUFFER=true %>
<% RESPONSE.EXPIRES=0 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3c.org/TR/REC-html40/loose.dtd">
<!-- #include file="ID_DBDEF.inc" -->
<%
Sub ErrRedirect( Err_str )
Err.Clear
Session("starttime") = Cstr(Now) ----->这里出错,错误内容为 MicroSoft
VBscript执行错误.数据类型不一
致.无法确定"Session"种类例外
'Response.Redirect("ID_ErrPage.asp")
response.write("<SCRIPT LANGUAGE=" & chr(34) & "JavaScript" & chr(34) & ">" & chr(13) )
response.write("<!--" & chr(13) )
response.write("window.open(" & chr(34) & "../../ID_ErrPage.asp" & chr(34) & "," & _
chr(34) & "_top" & chr(34) & "," & _
chr(34) & "toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=220,height=40" & chr(34) & ");" & chr(13) )
response.write("-->" & chr(13) )
response.write("</SCRIPT>" & chr(13) )
exit Sub
End Sub
Function LoginInfo()
Dim obj_ADOCon
Dim obj_Rec
Dim str_QUERY
Dim selectedFlag
set obj_ADOCon = Server.CreateObject("ADODB.Connection")
obj_ADOCon.Open str_ADOCon
if Err.Number <> 0 then
ErrRedirect "ADO连接"
end if
set obj_Rec = Server.CreateObject("ADODB.Recordset")
set obj_Rec.ActiveConnection = obj_ADOCon
if Err.Number <> 0 then
ErrRedirect "ADO记录集"
end if
End Function
%>
...全文
请发表友善的回复…
发表回复
addle_head 2001-12-01
- 打赏
- 举报
现在就给分.
为什么是设置为"true"时,而不是"false"?
我太笨了,实在无法理解,能通俗的给解释一下麽?
为什么是设置为"true"时,而不是"false"?
我太笨了,实在无法理解,能通俗的给解释一下麽?
baggio785 2001-12-01
- 打赏
- 举报
书上说得很对阿，在好好理解一下
baggio785 2001-12-01
- 打赏
- 举报
为什么不给加分阿
addle_head 2001-12-01
- 打赏
- 举报
谢谢大家提醒.
那么这麽一段说明该怎么解释(asp3.0择自高级编程)
EnableSessionState= 当设置为"true"时,防止一个会话的cookie发送往浏览器,因此不会创建新的session对象,任何现有会话的内容将不再可用.
那么这麽一段说明该怎么解释(asp3.0择自高级编程)
EnableSessionState= 当设置为"true"时,防止一个会话的cookie发送往浏览器,因此不会创建新的session对象,任何现有会话的内容将不再可用.
coldljy 2001-12-01
- 打赏
- 举报
94
session被你false掉了，能用才怪呢
session被你false掉了，能用才怪呢
baggio785 2001-12-01
- 打赏
- 举报
<%@ EnableSessionState=False Language=VBScript %>
把这一句去掉
把这一句去掉
