<% @ language="javascript" %>
if(搜索记录的判断语句) {
Response.Write("<script>alert('null');top.location.href='zzp.asp';</script>");
Response.End();
}
if(搜索记录的判断语句) {
Response.Write("<script>alert('null');top.location.href='zzp.asp';</script>");
Response.End();
}
<% @ language="vbscript" %>
if 搜索记录的判断语句 then
Response.Write "<script>alert('null');top.location.href='zzp.asp';</script>"
Response.End
end if
Sub ancSearch_onMouseUp()
Dim varRet
Dim strUrl
Dim strTitle
Dim strPath
strTitle = "SearchResult"
strUrl = "fkrKozaSel.asp?KOJINCD=" & Document.all.item("txtfkrKozaSel").value
strPath = "" Call MakeDialogPath(strUrl,strTitle,strPath)
varRet=window.showModalDialog(strPath,,"dialogwidth:400px;dialogheight:300px;dialogtop:234px;dialogleft:362px") If Trim(varRet) <> "" Then
Document.All.Item("spnMeik").innertext = varRet
End If
End SubSearchResult.asp
if rs is not nothing then set isSearch=true else set isSearch=falseSub imgOk_onClick()
Dim strMoji
strMoji = Document.all.Item("isSearch").Value
Window.Parent.ReturnValue = strMoji
Window.Parent.CloseEnd Sub