VBscript问题：如果vercode不等于1234，如何结束

我是VBscript新手，因此需要以下方面的帮助。正如您在第12行注意到的，提到了vercode。我想在那里声明，如果vercode不是“1234”，其他任何东西都不会有帮助（即脚本终止）。你知道怎么做吗

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!-- #INCLUDE file="inc/settings.asp" -->
<!-- #INCLUDE file="inc/functions.asp" -->
<!-- #INCLUDE file="inc/db_connect.asp" -->
<%
nameSurname = sqlquote(trim(request.form("name"))) & ""
comment = sqlquote(trim(request.form("comment")) & "")
nid = request.form("nid")
pid = request.form("pid")
comment_date = DatePart("d",now()) & "/" & DatePart("m",now()) & "/" & DatePart("yyyy",now())

if vercode = "1234" then
if nameSurname = "" then nameSurname = "Anonymous" end if
if comment <> "" then 
    strSQL = "INSERT INTO Comments (fName, Comment, DateSubmitted, NewsID) " &_
              "VALUES ('" & nameSurname & "', '" & comment & "', #" & comment_date & "#, " & nid & ");"
    con.execute strSQL
    con.close
end if
response.redirect("news.asp?NewsID=" & encrypt(nid) & "&PID=" & encrypt(pid) )
%>

---

如果vercode不是“1234”，您可以运行脚本的有趣部分（如果它等于“1234”），而不是终止脚本，如下所示：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!-- #INCLUDE file="inc/settings.asp" -->
<!-- #INCLUDE file="inc/functions.asp" -->
<!-- #INCLUDE file="inc/db_connect.asp" -->
<%
nameSurname = sqlquote(trim(request.form("name"))) & ""
comment = sqlquote(trim(request.form("comment")) & "")
nid = request.form("nid")
pid = request.form("pid")
comment_date = DatePart("d",now()) & "/" & DatePart("m",now()) & "/" & DatePart("yyyy",now())

if vercode = "1234" then
  if nameSurname = "" then 
    nameSurname = "Anonymous" 
  end if
  if comment <> "" then 
    strSQL = "INSERT INTO Comments (fName, Comment, DateSubmitted, NewsID) " &_
                                        "VALUES ('" & nameSurname & "', '" & comment & "', #" & comment_date & "#, " & nid & ");"
                                        'debugging strsql
    con.execute strSQL
    con.close
  end if
  response.redirect("news.asp?NewsID=" & encrypt(nid) & "&PID=" & encrypt(pid) )
end if    
%>

我已经更新了JAY RIGGS告诉我的措辞。。。。。。它仍然不起作用。请帮忙。10xI已根据您所做的一些更改更新了我的回复。尝试一下，如果不起作用，试着描述问题