vb组件的结束问题,高分!

源码专家 2003-10-16 11:20:57
在asp中的Response.End不能结束问题,高分!
Response.End
是一个asp的结束程序.
Public sub ChkPost()
Dim Server_v1 As String
Dim Server_v2 As String
Server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))
Server_v2 = CStr(Request.ServerVariables("Server_NAME"))
If Mid(Server_v1, 8, Len(Server_v2)) <> Server_v2 Then
Response.Write "<script Language=Javascript>alert('提示:请不要在站外提交数据!');</script>"
Response.End
Response.Write "<script Language=Javascript>alert('提示:这里也执行了!');</script>"
End If
End sub

在这一段程序中在asp中
Response.End
后面程序是不会被执行的,不过封装到dll组件中就不一样了.后面的程序还是可以被执行.

这是什么原因??
在VB的dll 中是不可以用end 及unload结束程序的.
谁有办法.
...全文
33 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
MSSQL 2003-10-16
  • 打赏
  • 举报
回复
帮你顶
源码专家 2003-10-16
  • 打赏
  • 举报
回复
ttt
online 2003-10-16
  • 打赏
  • 举报
回复
将Response.End换成exit sub
online 2003-10-16
  • 打赏
  • 举报
回复
以前我也用过
end的却没有执行

办法
1.vb中分成小的sub或者function
根据返回值在asp中判断
Public function ChkPost() as boolean
Dim Server_v1 As String
Dim Server_v2 As String
chkpost=false
Server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))
Server_v2 = CStr(Request.ServerVariables("Server_NAME"))
If Mid(Server_v1, 8, Len(Server_v2)) <> Server_v2 Then
Response.Write "<script Language=Javascript>alert('提示:请不要在站外提交数据!');</script>"
chkpost=true
end if
end function

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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